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RD-TO-TAPE 
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LXD 


ADD18.1 
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00141 


AOD20 


SLT 
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00323 
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2 


00001 
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1.2 




00324 
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00333 




LDQ 


DATA2 




00325 


-0 50000 
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00001 




CAL 


1.4 




00326 
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00301 




ADM 


ADD21 
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AD018 


TXL 


ADD22.Q.** 




00330 
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00006 
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HTR 
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DATAO 


HTR 
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00332 
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DATA1 


HTR 
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00333 


00000 
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DATA2 


HTR 
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00334 


00000 





00000 


DATA3 


HTR 
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00335 


00000 
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DATA4 


HTR 




A 


00336 
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0ATA5 


HTR 




A 


00337 


00000 
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DATA6 


HTR 




A 


00340 


00000 





00000 


L9R0W 


HTR 
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00341 


00000 





00000 


R9R0W 


HTR 






00342 
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00202 
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REW 


2 




00343 


76000 





00140 




SLN 
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76200 
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AD027 


RCD 


1 
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ADD23.4 




00346 


00000 
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HTR 


RECOR 



INDEX=1 



CLEAN ACC 

1ST IN ACC 

100000 

1000001 

10OOO01O0000 
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100000 1000C0100000 100000 1000001 
ADDRESS COMPUTED AT ADD22 IN ADDRESS 
ENTRY2 ADDRESS PREV. COMPUTED AT ADD22 



OFF 

SENSE LIGHT ON 



IR1 STORED IN DECREMENT 



9L ROW 
9R ROW 



o 



n 



n 



TD 



00347 
00350 
00351 
00352 
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00355 
00356 
00357 
00360 
00361 
00362 
00363 
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00000 

76000 

-0 53400 

70000 

2 00001 

-3 00014 

-0 76000 

02000 

76000 

02000 

77000 

77200 

76200 

70000 

02000 

02000 

77200 

76200 

76200 

07400 

00000 



-3 





















77200 
50200 
60100 
-0 50000 
02000 
77000 
77200 
O2000 















00355 
00142 
4 00354 
4 00407 
00352 
00344 
00142 
00363 
00166 
00414 
00205 
00205 
00221 
00373 
00363 
00004 
00201 
00221 
00221 
00004 
00000 
00407 
00205 
00236 
00236 
00334 
00237 
00202 
00202 
00363 
00000 



TXL AOD24 

SLN 2 
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TIX AD026»4#1 
ADD25 TXL ADD27»0»12 
AOD24 SLT 2 

TRA ADD28 

SWT 6 

TRA ADD30 

WEF 5 

REN 5 
ADD28 RTB 1 

CPY RECOR 

TRA A0D28 

TRA 4 

REW 1 

RTB 1 

RTB 1 



RETURN3 
RETURN* 



OFF 



RECOR 
BLOCK 
ADD 31 



ADD 30 



TSX 4*4 
HTR 
BES 11 
REW 5 
CLS ADD32 
STO ADD32 
CAL DATA3 
TRA ADD33 
WEF 2 
REW 2 
TRA ADD28 
END 



EOF 



s 
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00245 
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00247 
00250 
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00257 
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00263 
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00266 
00267 
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50000 
10000 
76500 
10000 
40200 
10000 
50000 
02000 
40000 
40200 
10000 
40000 



00210 
00162 
00200 
00700 
00216 
00162 
00700 
00204 
00202 
00221 
00223 
00204 
00224 
00726 
01162 
00225 
00700 
00377 
00377 
00012 
00222 
00440 
00677 
00442 
01163 

00775 

1 01162 
00776 
01161 
00777 
01160 
01000 
00710 
01007 
01010 
01011 
01012 
00775 
00305 
00036 
00303 
00722 
00264 
00710 
00306 
00722 
00614 
00612 
00614 



************* FORTRAN II 
FORTRAN 2 RECORD 0003 

CIT TO SAP CONVERSION 

ORG 136 
START CLA ONE 

CAS SW2 

TRA AOD01 

TRA LIB1 

SWT 2 

TRA ADD01 

REW 4 

WEF 2 

LXD AOD02.2 

TXI ADD03»O»5 

BST 4 

RTB 4 

LXA 0ATA1»1 
ADD04 CPY REC03tl 

TXI ADD04»1.1 

TRA ADD01 

ARS 255 



SECTION SIX *******#«*»**********»**F6R00010 



LIB1 



ADD02 
ADD05 
ADD03 



RTT 

TIX ADD05.2.1 
SXO ADDQ6.1 
LXA ADD07.1 

IN207 SXD ADD08.1 
CAL RECOR.l 
SLW DATA2 
CAL REC03»1 
SLW DATA3 
CAL REC02tl 
SLW DATA4 
CAL REC01.1 
SLW 0ATA5 
LDQ DATA6 
STQ E1005 
STQ E1006 
STQ E1007 
STQ E1010 
CAL 0ATA2 
TZE AOD09 
LRS 30 
TZE ADD10 
SUB 0ATA7 
TNZ ADD 11 
CAL DATA6 
TRA ADD12 

ADD11 ADD DATA7 
SUB LIB3 
TZE LIB2 
ADD LIB3 



- CIT TO SAP CONVERSION, 



SW2 EQUAL ZERO. ASSUME SWITCH TWO UP. 
SW2 EQUAL ONE. ASSUME SWITCH TWO DOWN. 
EQUAL TWO. TEST SWITCH TWO 

SW TWO DOWN. 

SET READ ERROR COUNTER. 



READ TAPE 4 



CPY INTO REC-1. REC-2.- 
END OF FILE ON TAPE 4. 



IF ERROR. 

SAVE COUNT OF NO. OF WORDS READ INi 

SET XR1»0 

SAVE XR1. 

STORE SL IN DATA2 

STORE OP IN DATA3 



STORE SA IN DATA4 
STORE RA IN DATA5 



STORE BLANKS IN E1006. 1007, 1010. 1005. 



TEST SYMBOLIC LOCATION. 

IF ZERO, 60 TO ADD09. 

NOT ZERO. SEE IF SL(1) EQUAL ZERO. 

SL(1> EQUAL ZERO, GO TO ADD10. 

SHU NOT EQUAL ZERO. SEE IF EQUAL 15i 

SL(1) NOT EQUAL 15. GO TO ADD11 

SL(l) EQUAL 15. PUT BLANKS IN AC AND 

GO TO ADD12 

RESTORE SL(1) IN AC. 

IF SLU>=$» GO TO LIB2 



F6R00011 
F6R00012 
F6R00020 
F6R0O030 
F6R00040 
F6R00050 
F6R00060 
F6R00070 
F6R00080 
F6R00090 
F6R00100 
F6R00110 
F6R00120 
F6R00130 
F6R00140 
F6R00150 
F6R00160 
F6R00170 
F6R00180 
F6R00190 
F6R00200 
r.Kvu£iu 
F6R00220 
F6R0023O 
F6R00240 
F6R00250 
F6R00260 
F6R00270 
F6R00280 
F6R00290 
F6R00300 
F6R00310 
F6R00320 
F6R00330 
F6R00340 
F6R00350 
F6R00360 
F6R00370 
F6R00380 
F6R00390 
F6R00400 
F6R00410 
F6R00420 
F6R00430 
F6R00440 
F6R00450 
F6R00460 
F6R00470 
F6R00480 
F6R00490 
F6R00500 
F6R00510 



u 



o 



00270 





40200 





00616 




SUB 


LIB5 


00271 





10000 





00617 




TZE 


LIB6 


00272 





40000 





00616 




ADD 


L1B5 


00273 





40200 





00722 




SUB 


DATA7 


00274 





12000 





00301 




TPL 


ME1 


00275 





40000 





00722 




ADD 


DATA7 


00276 


-0 


77300 





00001 




RQL 


1 


00277 





07400 


1 


00603 




TSX 


SUB1.1 


00300 





02000 





00306 




TRA 


ADD 12 


00301 


-0 


50000 





00775 


ME1 


CAL 


DATA2 


00302 





02000 





00306 




TRA 


ADD 12 


00303 


-0 


76300 





00015 


ADD 10 


L6L 


13 


00304 





07400 


1 


00654 


^TSX 


SUB2.1 


00305 


-0 


76300 





00044 


ADD09 


LGL 


36 


00306 





60200 





01005 


ADD12 


SLW 


E1003 


00307 





56000 





00776 


IN245 


LDQ 


DATA3 


00310 





50200 





00717 




CLS 


DATA8 


00311 


-0 


76300 





00022 




LGL 


18 


00312 


-0 


60000 





01001 




STQ 


E0777 


00313 





56000 





00710 




LDQ 


DATA6 


00314 


-0 


76300 





00006 




LGL 


6 


00315 





76700 





00006 




ALS 


6 


00316 





60100 





01006 




STO 


E1004 


00317 





34000 





00707 




CAS 


DATA9 


00320 





02000 





00325 




TRA 


ADD 13 


00321 





02000 





00566 




TRA 


ADD 14 


00322 





34000 





00706 




CAS 


DAT 10 


00323 





02000 





00325 




TRA 


ADD 13 


00324 





02000 





00525 




TRA 


ADD 15 


00325 





56000 





00777 


ADD13 


LDQ 


DATA4 


00326 


-0 


75400 





00000 




PXD 




00327 


-0 


76300 





00006 




LGL 


6 


00330 


-0 


10000 





00343 




TN2 


1N301 


00331 


-0 


76300 





00014 




LGL 


12 


00332 


-0 


10000 





00352 




TN2 


IN310 


00333 





56000 





00710 




LDQ 


DATA6 


0033* 





50000 





01000 




CLA 


DATA5 


00335 


-0 


10000 





00510 




TNZ 


IN446 


00336 





50000 





01001 




CLA 


E0777 


00337 


-0 


10000 





00362 




TNZ 


IN320 


00340 


-0 


50000 





00715 




CAL 


DT713 


00341 


-0 


60200 





01006 




ORS 


E1004 


00342 





02000 





00431 




TRA 


IN367 


00343 





34000 





00717 


IN301 


CAS 


DATA8 


00344 





02000 





00355 




TRA 


IN313 


00345 





07400 


4 


00004 




TSX 


4*4 


00346 





07400 


1 


00603 




TSX 


SUBltl 


00347 





76500 





00036 




LRS 


30 


00350 


-0 


77300 





00001 




RQL 


1 


00351 





02000 





00355 




TRA 


IN313 


00352 





07400 


1 


00654 


IN310 


TSX 


SUB2tl 


00353 


-0 


75400 





00000 




PXD 




00354 


-0 


76300 





00006 




LGL 


6 


00355 


-0 


60200 





01006 


IN313 


ORS 


E1004 



IF SL«1)=(.G0 TO LIB6 



SO TO ME1 IF SLil! GREATER THAN 15 {I*E«*ALPHA- 

SL<1> LESS THAN 15* NOT ZERO* ASSEMBLE SYMBOL. 
AND GO TO SUB1 (TIV TYPE ENTRY). 



I FN. ASSEMBLE SYMBOL AND GO TO SUB2. 

SYMBOLIC LOC EQUAL ZERO. PUT BLANKS IN ACC. 
STORE ACC. IN E1003. 
SELECT OP IN MQ. 



STORE DECREMENT IN E0777. 
LOAD MQ WITH BLANKS 



STORE IN E1004. 

IS OP EQUAL OCT. 

OP LESS THAN OCT 

OP EQUAL OCT. GO TO ADD14. 

OP GREATER THAN OCT. SEE IF OP=BCD. 

OP EQUAL BCD. GO TO ADD15. 
OP NOT BCD OR OCT. 
SELECT SA IN MQ. 

SA(1) NOT EQUAL ZERO. GO TO IN301. 

SA<1> EQUAL ZERO. TEST FOR INTERNAL 

FORMULA NUMBER TYPE. IF YES* GO TO IN310. 

SAU).SA<2)»SA<3) EQUAL ZERO. LOAD MQ WITH 

TEST FOR NOW-ZERO TAG OR RELATIVE ADDRESS. 

NOT EQUAL ZERO. GO TO IN446 

RA EQUAL ZERO. TEST FOR NON-ZERO DECREMENT. 

NOT ZERO* GO TO IN320 

ZERO* OR A BLANK TO RT-HAND END OF E1004. 



TEST IF SA(1)=16. 

GREATER THAN 16 {TRUE SYMBOL). GO TO IN313. 

EQUAL IS ERROR. 

LESS THAN 16 (TIV ENTRY TYPE). GO TO SUB1. 

RETURN FROM SUB1. 



INTERNAL FORMULA NO. TYPE. 



F6R00520 
F6R00530 
F6R00540 
F6R00550 

F6R00570 
F6R00580 
F6R00590 
F6R00600 
F6R00610 
F6R00620 
F6R00630 
F6R00640 
F6R00650 
F6RO0660 
F6R00670 
F6R00680 
F6R00690 
F6R00700 
F6R00710 
F6R00720 
F6R00730 
F6R00740 
F6R00750 
F6R00760 
F6R00770 
F6R00780 
F6R00790 
F6R00800 
F6RO0810 
F6R00820 
F6R00830 
F6R00840 
F6R00850 
F6R00860 
F6R00870 
F6R00880 
F6R00890 
F6R00900 
F6R00910 
F6R00920 
F6R00930 
F6R00940 
F6R00950 
F6R00960 
F6R00970 
F6R00980 
F6R00990 
F6R01000 
F6R01010 
F6R01O20 
F6R01030 
F6R01040 
F6R01O50 



7 



00356 


-0 


60000 





01002 




STQ 


E1000 


00357 


-0 


50000 





00715 




CAL 


DT713 


00360 


-0 


60200 





01002 




ORS 


E1000 


00361 





56000 





01002 




LOO 


El 000 


00362 


-0 


50000 





00355 


IN320 


CAL 


IN313 


00363 





07400 


1 


00445 




TSX 


IN403*1 


00364 





50000 





01000 




CLA 


0ATA5 


00365 





77100 





00022 




ARS 


18 


00366 





10000 





00377 




TZE 


IN335 


00367 





56000 





00710 




LDQ 


DATA6 


00370 





07400 


1 


00464 




TSX 


IN422»1 


00371 





50000 





01000 




CLA 


DATA5 


00372 





12000 





00375 




TPL 


IN333 


00373 


-0 


50000 





00716 




CAL 


DT714 


00374 





02000 





00376 




TRA 


IN334 


00375 


-0 


50000 





00717 


IN333 


CAL 


DATA8 


00376 





07400 


1 


00460 


IN334 


TSX 


IN416»1 


00377 





50000 





01000 


IN335 


CLA 


DATA5 


00400 


-0 


32000 





00726 




ANA 


DATA1 


00401 


-0 


10000 





00406 




TNZ 


IN344 


00402 





50000 





01001 




CLA 


E0777 


00403 





10000 





00425 




TZE 


IN363 


00404 





56000 





00713 




LDO 


DT711 




c 


02000 


V 


t\r\/. 1 A 




TO A 
■ s\ry 


IN352 


00406 





56000 





00712 


IN 344 


LOO 


DT710 


00407 





34000 





00724 




CAS 


OT722 


00410 





02000 





00413 




TRA 


IN351 


00411 





02000 





00413 




TRA 


IN351 


00412 





56000 





00710 




LDQ 


0ATA6 


00413 





07400 


1 


00464 


IN351 


TSX 


IN422»1 


00414 





50000 





00714 


IN352 


CLA 


DT712 


00415 





07400 


1 


00460 




TSX 


IN416»1 


00416 





50000 





01001 




CLA 


E0777 


00417 





10000 





00425 




TZE 


IN363 


00420 





77100 





00022 




ARS 


18 


00421 





56000 





00710 




LDO 


DATA6 


00422 





07400 


1 


00464 




TSX 


IN422»1 


00423 





50000 





00714 




CLA 


0T712 


00424 





07400 


1 


00460 




TSX 


IN416.1 


00425 


-0 


75400 





00006 


IN363 


PXD 


6 


00426 





56000 





00710 




LDQ 


DATA6 


00427 


-0 


76300 


2 


00044 




LGL 


36 » 2 


00430 


-0 


60200 





00430 


IN366 


ORS 


* 


00431 





76600 





00202 


IN 367 


WTD 


2 


00432 





53400 


1 


00425 




LXA 


IN363»1 


00433 





70000 


1 


01013 


IN371 


CPY 


E1011.1 


00434 


2 


00001 


1 


00433 




TIX 


IN371.1*1 


00435 





76600 





00333 




IOD 




00436 


-0 


53400 


1 


00442 




LXD 


ADD08tl 


00437 


1 


00004 


1 


00440 




TXI 


ADD06.1.4 


00440 


-3 


00440 


1 


00236 


AOD06 


TXL 


IN207.1** 


00441 


-0 


53400 


2 


00221 




LXD 


ADD02»2 


00442 


1 


00442 





00223 


ADD08 


TXI 


ADD03»0»* 


00443 


-3 


00036 


2 


00454 


IN401 


TXL 


IN412.2»30 



SELECT RELATIVE ADDRESS. 

RA EQUAL ZERO* GO TO IN335 

RA NOT EQUAL ZERO* LOAD MQ WITH BLANKS AND 

00 TO IN422 

SET ACC. EQUAL RA. 

IF RA POSITIVE* GO TO IN333. 

IF RA NEGATIVE. SELECT OCTAL 40 (MINUS) 

AND GO TO IN334. 

SELECT OCTAL 20 (PLUS> 

SET ACC. EQUAL RA. ANA OCTAL 77777 

IF NOT ZERO. GO TO IN344. 

ZERO. TEST IF E0777 EQUAL ZERO. 

IF ZERO. GO TO IN363. 

NOT ZERO* LOAD MQ WITH IN 1ST CHARAC. REST 



IF SHIFT LESS THAN OR EQUAL 30* GO TO SELECT 



F6R01060 
F6R01070 
F6R01080 
F6R01090 
F6R01100 
F6R01110 
F6R01120 
F6R01130 
F6R01140 
F6R01150 
F6R01160 
F6R01170 
F6R01180 
F6R01190 
F6R01200 
F6R01210 
F6R01220 
F6R01230 
F6R01240 
F6R01250 
F6R01260 
F6R01270 
F6R01280 
F6R01290 
F6R01300 
F6R01310 
F6R0132O 
F6R01330 
F6R01340 
F6R01350 
F6R01360 
F6R01370 
F6R01380 
F6R01390 
F6R01400 
F6R01410 
F6R01420 
F6R01430 
F6R01440 
F6R01450 
F6R01460 
F6R01470 
F6R01480 
F6R01490 
F6R01500 
F6R01510 
F6R01520 
F6R01530 
F6R01540 
F6R01550 
F6R01560 
F6R01570 
F6R01580 
F6R01590 



o 



o 



00444 


-0 


50000 





00461 




CAL 


IN417 


00445 





40000 





00725 


IN403 


ADO 


DT723 


00446 





62100 





00461 




STA 


IN417 


00447 





62100 





00430 




STA 


IN366 


00450 





62100 


o 


00452 




STA 


IN410 


00451 


-0 


75400 





00000 




PXD 




00452 





60200 





00452 


IN410 


SLW 


* 


00453 


-0 


73400 


2 


00000 




PDX 


0.2 


00454 


-0 


76300 





00006 


IN412 


LGL 


6 


00455 





34000 





00715 




CAS 


DT713 


00456 





02000 





00460 




TRA 


IN416 


00457 





02000 


1 


00001 




TRA 


1*1 


00460 





76700 


2 


00036 


IN416 


ALS 


30.2 


00461 


-0 


60200 





00461 


IN417 


ORS 


* 


00462 


-0 


75400 





00000 




PXD 




00463 


1 


00006 


2 


00443 




TXI 


IN401»2»6 


00464 


-0 


60000 





01004 


IN422 


STQ 


E1002 


00465 


-0 


63400 


1 


00774 


' 


SXD 


DT772.1 


00466 





76500 





00043 


IN424 


LRS 


35 


00467 


-0 


73400 


1 


00000 




PDX 


0*1 


00470 





60200 





01003 




SLW 


E1001 


00471 





22100 





00723 


IN427 


DVP 


DT721 


00472 





76700 


1 


00000 




ALS 


0*1 


00473 


-0 


60200 


Q 


01003 




ORS 


E1001 


00474 


-0 


60000 





01002 




STQ 


El 000 


00475 





50000 





01002 




CLA 


E1000 


00476 





10000 





00501 




TZE 


IN437 


00477 





76000 





00000 




CLM 





00500 


1 


77772 


1 


00471 




TXI 


IN427.1.-6 


00501 


-0 


50000 





01003 


1N437 


CAL 


E1001 


00502 





56000 





01004 




LDQ 


E1002 


00503 


-0 


76300 





00001 




LGL 


1 


00504 





56000 





01004 


IN442 


LDQ 


E1002 


00505 





76500 


1 


00006 




LRS 


6*1 


00506 


-0 


53400 


1 


00774 




LXD 


DT 772.1 


00507 





02000 


1 


00001 




TRA 


1*1 


00510 





77100 





00022 


IN446 


ARS 


18 


00511 





10000 





00362 




TZE 


IN320 


00512 





07400 


1 


00464 




TSX 


1N422.1 


00513 





50000 





01000 




CLA 


DATA5 


00514 





12000 





00517 




TPL 


IN455 


00515 


-0 


50000 





00716 




CAL 


DT714 


00516 





02000 





00521 




TRA 


1N457 


00517 


-0 


75400 





00000 


IN455 


PXD 




00520 


-0 


76300 





00006 




LGL 


6 


00521 


-0 


60200 





01006 


IN457 


ORS 


E1004 


00522 


-0 


50000 





00355 




CAL 


IN313 


00523 





07400 


1 


00445 




TSX 


IN403*1 


00524 





02000 





00377 




TRA 


IN335 


00525 





56000 





00777 


ADO 15 


LDQ 


DATA4 


00526 


-0 


50000 





00717 




CAL 


DATA8 


00527 





16200 





00532 




TQP 


IN470 


00530 





40000 





00717 




ADD 


DATA8 


00531 





76500 





00000 




LRS 






SHIFT GREATER THAN 30. PREPARE TO MODIFY 
COMPUTE ADDRESS FOR STORING WORD. 



CLEAR ACC. 

STORE ZERO IN WORD. 

SET XR2 EQUAL TO ZERO. 

SELECT CHARACTER 

IS CHARACTER BLANK. 

NO* 

YES* RETURN TO PROGRAM 

NO. SHIFT CHARACTER 



ADJUST XR2 SHIFT AND GO TO IN401. 



ADDRESF6R01600 
F6R01610 
F6R01620 
F6R01630 
F6R01640 
F6R01650 
F6R01660 
F6R01670 
F6R01680 
F6R01690 
F6R01700 
F6R01710 
F6R01720 
F6R01730 
F6R01740 
F6R01750 
F6R01760 
F6R01770 
F6R01780 
F6R01790 
F6R01800 
F6R01810 
F6R01820 
F6R01830 
F6R01840 
F6R01850 
F6R01860 
F6R01870 
F6R01880 
F6R01890 
F6R01900 
F6R01910 
F6R01920 
F6R01930 
F6R01940 
F6R01950 
F6R01960 
F6R01970 
F6R01980 
F6R01990 
F6R02000 
F6R02010 
F6R02020 
F6R02030 
F6R02040 
F6R02050 
F6R02060 
F6R02070 
F6R02080 
F6R02090 
F6R02100 
F6R02110 
F6R02120 
F6R02130 



1 



00532 


-0 


60200 





01006 


IN470 


ORS 


El 004 




00533 





76700 





00003 




ALS 


3 




00534 


-0 


76300 





00003 




LGL 


3 




00535 





76700 





00003 




ALS 


3 




00536 


-0 


76300 





00003 




L6L 


3 




00537 





76700 





00003 




ALS 


3 




00540 


-0 


76300 





00003 




LGL 


3 




00541 





76700 





00003 




ALS 


3 




00542 


-0 


76300 





000 03 




LGL 


3 




00543 





76700 





00003 




ALS 


3 




00544 


— 


76300 





00003 




LGL 


3 




00545 





76700 





00003 




ALS 


3 




00546 


-0 


76300 





00003 




LGL 


3 




00547 





60200 





01007 




SLW 


E1005 




00550 





76700 





00003 




ALS 


3 




00551 


-0 


76300 





00003 




LGL 


3 




00552 





76700 





00003 




ALS 


3 




00553 


-0 


76300 





00003 




LGL 


3 




00554 





76700 





00003 




ALS 


3 




00555 


-0 


76300 





00003 




LGL 


3 




00556 





76700 





00003 




ALS 


3 




00557 


-0 


76300 





00003 




LGL 


3 




00560 





76700 





00003 




ALS 


3 




00561 


-0 


76300 





00003 




LGL 


3 




00562 





76700 





00003 




ALS 


3 




00563 


-0 


76300 





00003 




LGL 


3 




00564 





60200 





01010 




SLW 


E1006 




00565 





02000 





00431 




TRA 


IN367 




00566 





50000 





00777 


ADD 14 


CLA 


DATA4 




00567 





40200 





00721 




SUB 


DT717 




00570 


-0 


10000 





00574 




TN2 


IN532 




00571 


-0 


50000 





00706 




CAL 


DAT10 




00572 





60200 





01006 




SLW 


E1004 




00573 





02000 





00525 




TRA 


ADD 15 




00574 


-0 


50000 





00725 


IN532 


CAL 


DT723 




00575 


-0 


60200 





01006 




ORS 


El 004 




00576 


-0 


50000 





00777 




CAL 


DATA4 




00577 





60200 





01007 




SLW 


E1005 




00600 


-0 


50000 





00710 




CAL 


DATA6 




00601 





60200 





01010 




SLW 


E1006 




00602 





02QO0 





00431 




TRA 


IN367 




00603 


-0 


63400 


1 


00705 


SUB1 


SXD 


DT703.1 


SAVE XR1 FOR RETURN 


00604 





73400 


4 


00000 




PAX 


0*4 


STORE CHARACTER IN XR4 


00605 





40200 





00722 




SUB 


DATA7 


IS CHARACTER *. 


00606 


-o 


10000 





00621 




TNZ 


IN550 


NO* GO TO IN 550* 


00607 


-0 


50000 





00720 




CAL 


DT716 


YES. SELECT *. 


00610 





56000 





00710 




LDQ 


DATA6 


LOAD MQ WITH BLANKS* 


00611 





02000 





00355 




TRA 


IN313 


GO TO IN 313. 


00612 





02000 





01164 


LIB2 


TRA 


RPCH1 




00613 





02000 





00306 




TRA 


ADO 12 




00614 


000000000053 


LIB3 


BCD 


100000S 




00615 


536060606060 


LIB4 


BCD 


1$ 




00616 


000000000074 


LIB5 


BCD 


100000 ( 




00617 


-0 


50000 





00775 


LIB6 


CAL 


DATA2 





F6R02140 
F6R02150 
F6R02160 
F6R02170 
F6R02180 
F6R02190 
F6R02200 
F6R02210 
F6R02220 
F6R02230 
F6R02240 
F6R02250 
F6R02260 
F6R02270 
F6R02280 
F6R02290 
F6R02300 
F6R02310 
F6R02320 
F6R02330 
F6R02340 
F6R02350 
F6R02360 
F6R02370 
F6R02380 
F6R02390 
F6R02400 
F6RJ2410 
F6R02420 
F6R02430 
F6R02440 
F6R02450 
F6R02460 
F6R02470 
F6R02480 
F6R02490 
F6R02500 
F6R02510 
F6R02520 
F6R02530 
F6R02540 
F6R02550 
F6R02560 
F6RO2570 
F6R02580 
F6R02590 
F6R02600 
F6R02610 
F6R02620 
F6R02630 
F6R02640 
F6R02650 
F6R02660 
F6R02670 



10 



00620 





02000 


00306 




TRA 


A0D12 


00621 


M) 


50000 4 


00772 


IN550 


CAL 


DT770»4 


00622 





76700 


00006 




ALS 


6 


00623 


-0 


$0100 


00773 




ORA 


DT771 


00624 





76700 


00030 




ALS 


24 


00625 





60200 


01002 




SLW 


E1000 


00626 





53400 3 


00636 




LXA 


1N565»3 


00627 


-0 


77300 


00014 




ROL 


12 


00630 


-0 


75400 


00000 




PXO 





00631 


-0 


76300 


00003 




LGL 


3 


00632 


-0 


10000 


00636 




TNZ 


IN565 


00633 


-2 


00001 1 


00646 


IN562 


TNX 


IN575»ltl 


00634 


-0 


76300 


00005 




L6L 


5 


00635 





10000 


00633 




TZE 


IN562 


00636 





73400 4 


00004 


IN565 


PAX 


4*4 


00637 


-0 


50000 4 


00772 




CAL 


DT770.4 


00640 


-2 


00001 1 


00647 




TNX 


IN576.1.1 


00641 





76700 2 


00026 




ALS 


22.2 


00642 


-0 


60200 


01002 




ORS 


E1000 


00643 


-0 


75400 


00000 




PXD 




00644 


-0 


76300 


00005 




LGL 


5 


00645 


1 


00006 2 


00636 




TXI 


IN565»2»6 


00646 


-0 


50000 


00715 


IN575 


CAL 


DT713 


00647 





56000 


00710 


IN576 


LOQ 


DATA6 


00650 


-0 


76300 2 


00026 




LGL 


22*2 


00651 


-0 


50100 


01002 




ORA 


E1000 


00652 


-0 


53400 1 


007O5 




LXO 


DT703.1 


00653 





02000 1 


00001 




TRA 


1.1 


00654 





60100 


01002 


SUB2 


STO 


E1000 


00655 


-0 


76300 


00010 




LGL 


8 


00656 


-0 


75400 


00000 




PXD 





00657 





76500 


00035 




LRS 


29 


00660 





22100 


00723 




DVP 


0T721 


00661 


-0 


10000 


00663 




TNZ 


IN612 


00662 


-0 


50000 


00715 




CAL 


OT713 


00663 





60200 


01004 


IN612 


SLW 


E1002 


00664 


-0 


76300 


00044 




LGL 


36 


00665 


-0 


63400 I 


00774 




SXD 


0T772.1 


00666 





73400 1 


00000 




PAX 


0*1 


00667 


-0 


50000 1 


00760 




CAL 


IN756»1 


00670 





76700 


00006 




ALS 


6 


00671 


-0 


50100 


01004 




ORA 


E1002 


00672 





56000 


00710 




LDQ 


DATA6 


00673 


-0 


76300 


00030 




LGL 


24 


00674 





60200 


01004 




SLW 


E1002 


00675 





50000 


01002 




CLA 


E1000 


00676 





02000 


00466 




TRA 


IN424 


00677 





00000 


00000 


AOD07 


HTR 





00700 





77000 


00202 


AD001 


WEF 


2 


00701 





77200 


00204 




REW 


4 


00702 





77200 


00202 




REW 


2 


00703 





76200 


00221 




RTB 


1 


00704 





02000 


00004 




TRA 


4 


00705 





00000 


00000 


DT703 


HTR 






SELECT APPROPRIATE NUMBER1C OR ALPHABETIC 

CHARACTER. 

FOLLOWED BY LEFT PARENTHESIS 

AND SHIFT INTO PROPER POSITION* 



TAG BITS INTO ACC. ADDRESS 

TAG BITS EQUAL ZERO. NOt GO TO IN565 

YES. IF FINISHED WITH WORD. GO TO IN 575 

NOT FINISHED WITH WORD. TEST ADDRESS BITS 

ADDRESS BITS ZERO. 

ADDRESS BITS NOT ZERO. 

SELECT CHARACTER. 

SHIFT INTO PROPER POSITION. 



ADJUST SHIFT. 



IF SUBSIDIARY NO. IS ZERO. SELECT A BLANK. 



SELECT ALPHABETIC CHARACTER. 



F6R02660 
F6R02690 
F6R02700 
F6R02710 
F6R02720 
F6R02730 
F6R02740 
F6R02750 
F6R02760 
F6R02770 
F6R02780 
F6R02790 
F6R02800 
F6R02810 
F6R028ZO 
F6R02830 
F6R02840 
F6R02850 
F6R02860 
F6RQ2870 
F6R02880 
F6R02890 
F6R02900 
F6R02910 
F6R02920 
F6R02930 
F6R02940 
F6R02950 
F6R02960 
F6R02970 
F6R02980 
F6R02990 
F6R03000 
F6R03010 
F6R03020 
F6R03030 
F6R03040 
F6R03050 
F6R03060 
F6R03070 
F6R03080 
F6R03090 
F6R03100 
F6R03110 
F6R03120 
F6R03130 
F6R03140 
F6R03150 
F6R03160 
F6RQ3170 
F6R03180 
F6R03190 
F6R03200 
F6R03210 



// 



00706 
00707 
00710 
00711 
00712 
00713 
00714 
00715 
00716 
00717 
00720 
00721 
©0722 
00723 
00724 
00725 
00726 
0O727 
00730 
00731 
00732 
00733 
00734 
00735 
00736 
00737 
00740 
00741 
00742 
00743 
00744 
00745 
00746 
00747 
00750 
00751 
00752 
00753 
00754 
00755 
00756 
00757 
00760 
00761 
00762 
00763 
00764 
00765 
00766 
00767 
00770 
00771 
00772 
00773 



-204623636000 DAT10 OCT 604623636000 

-202223246000 DATA9 OCT 602223246000 

-206060606060 DATA6 OCT 606060606060 

+336060606060 0T707 OCT 336060606060 

-236060606060 0T710 OCT 636060606060 

♦006060606060 DT711 OCT 006060606060 

+000000000075 DT712 OCT 73 

+000000000060 0T713 OCT 60 

♦000000000040 DT714 OCT 40 

+000000000020 DATA8 OCT 20 

+000000000054 DT716 OCT 54 

-377777777777 0T717 OCT 777777777777 

+000000000017 0ATA7 OCT 17 

+000000000012 0T721 OCT 12 

+OOOOOO0QO005 DT722 OCT 5 

+000000000001 DT723 OCT 1 

+000000077777 DATA1 OCT 77777 
+000000000071 . DT725 OCT 71 

+000000000070 OCT 70 

+000000000067 OCT 67 

♦000000000066 OCT 66 

+000000000065 OCT 65 

+000000000064 OCT 64 

♦OCO0OOOGOO63 OCT 63 

+000000000062 OCT 62 

♦000000000051 0T735 OCT 51 

♦000000000050 OCT 50 

♦000000000047 OCT 47 

+000000000046 OCT 46 

+000000000045 OCT 45 

♦000000000044 OCT 44 

+000000000043 OCT 43 

+000000000042 OCT 42 

+000000000041 OCT 41 

+000000000031 OCT 31 

♦000000000030 OCT 30 

♦000000000027 OCT 27 

+000000000026 OCT 26 

+000000000025 OCT 25 

♦000000000024 OCT 24 

♦000000000023 OCT 23 

+00OG0OO00022 OCT 22 

+000000000021 IN756 OCT 21 

+000000000011 OCT II 

+000000000010 OCT 10 

+000000000007 OCT 7 

+000000000006 OCT 6 

+000000000005 OCT 5 

♦000000000004 OCT 4 

♦000000000003 OCT 3 

♦000000000002 OCT 2 

+000000000001 OCT 1 

♦OOOOOOOOOOOO DT770 OCT 

+000000000034 DT771 OCT 34 



F6R03220 
F6RO3230 
F6R03240 
F6R03250 
F6R03260 
F6R03270 
F6RO3280 
F6R03290 
F6R03300 
F6R0331O 
F6R0332C 
F6R03J30 
F6R03340 
F6R03350 
F6R03360 
F6R03370 
F6R03380 
F6R03390 
F6R03400 
F6R03410 
F6R03420 
F6R03430 
F6R03440 
F6R03450 
F6R03460 
F6R03470 
F6R03480 
F6R03490 
F6R035OO 
F6R03510 
F6R03520 
F6R03530 
F6R03540 
F6R0355O 
F6R03560 
F6R03570 
F6R0358O 
F6R03590 
F6R03600 
F6R0361O 
F6R03620 
F6RO3630 
F6R03640 
F6R03650 
F6R03660 
F6R03670 
F6R03680 
F6R03690 
F6R03700 
F6R03710 
F6R03720 
F6RO3730 
F6R03740 
F6R0375G 



Z2. 



A 
A 



0077* 





00000 





ooooo 


DT772 


HTR 





00775 





00000 





ooooo 


DATA2 


HTR 





00776 





00000 





ooooo 


DATA3 


HTR 





00777 





00000 





ooooo 


DATA4 


HTR 





01000 





00000 





ooooo 


0ATA5 


HTR 





01001 





00000 





ooooo 


E0777 


HTR 





01002 





00000 





ooooo 


E1000 


HTR 





01003 





00000 





ooooo 


E1001 


HTR 





01004 





ooooo 





ooooo 


E1002 


HTR 





01005 





00000 





ooooo 


E1003 


HTR 





01006 





ooooo 





ooooo 


E1004 


HTR 





01007 





ooooo 





ooooo 


E1005 


HTR 





01010 





ooooo 





ooooo 


E1006 


HTR 





01011 





ooooo 





ooooo 


E1007 


HTR 





01012 





ooooo 





ooooo 


E1010 


HTR 





01013 





ooooo 





ooooo 


E1011 


HTR 





01014 





ooooo 





ooooo 




HTR 





01015 





ooooo 





ooooo 




HTR 





01016 





ooooo 





ooooo 




HTR 





01017 





ooooo 





ooooo 


E1015 


HTR 













01164 


REC 


BES 


100 


01164 





76300 





00006 


RPCH1 


LLS 


6 


01165 





40200 





00614 




SUB 


LIB3 


01166 





10000 





01171 




TZE 


LIB2A 


01167 


-0 


50000 





00615 




CAL 


LIB4 


01170 





02000 





00306 




TRA 


ADO 12 


01171 


-0 


50000 





01173 


LIB2A 


CAL 


D0L2 


01172 





02000 





00306 




TRA 


AD012 


01173 


535360606060 


D0L2 


BCD 


1SS 










01160 


REC01 


SYN 


REC-4 










01161 


REC02 


SYN 


REC-3 










01162 


REC03 


SYN 


REC-2 










01163 


RECOR 


SYN 


REC-1 










ooooo 




ENO 














OSTART 


00210*00210 



SINGLE DOLLAR SIGN 
DOUBLE DOLLAR SIGN* 



F6R03760 
F6R03770 
F6R03780 
F6R03790 
F6R03800 
F6R03810 
F6R03820 
F6R03830 
F6R03840 
F6R03850 
F6R03860 
F6R03870 
F6R03880 
F6R03890 
F6R03900 
F6R03910 
F6R03920 
F6R03930 
F6R03940 
F6R03950 
F6R03960 
F6R03961 
F6R03962 
F6R03963 
F6R03964 
F6R03965 
F6R03966 
F6R03967 
F6R03968 
F6R03970 
F6R03980 
F6R03990 
F6R04000 
F6R04010 



/3 



1 
1 



AST 



TO 



00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 
00261 
00262 
00263 
00264 
00265 
00266 



1 

-0 
2 



■0 

-0 



00000 
534Q0 
00001 
76200 
02000 
00000 
76000 
76100 
53400 
-0 53400 
76000 
76200 
70000 
00024 
02000 
00001 
75400 
76000 
00000 
40000 
62200 
07400 
00000 
00551 
00001 
00000 
00001 
07400 
76400 
00000 






-3 

1 

-0 

-0 

-3 





-3 
2 

-3 
2 



■3 



77200 
53400 1 
50000 
34000 
O 02000 
02000 
76000 
00001 
50000 
34000 
02000 
02000 
76000 
00003 
63400 
76600 





-0 








-2 








1 

-0 







1 


- rt 



00210 
00202 
00225 
00162 
00200 
00217 
00220 
00162 
00234 
00162 
00201 
00225 
00226 
00163 
00234 
00231 
00361 

00237 
00231 
00220 
00221 
00004 
00005 
00012 
00000 
00236 
00246 
00141 
00202 
00551 
00261 
00232 
00251 
00000 
00012 
00263 
00260 
00257 
00267 
00525 
00241 
00245 
00251 
00265 
00004 
00202 
00242 



MODIFICATIONS TO TPHl 
SENSE SWITCH CHANGES 



TO PRINT WITH 



LIB1 
ASKER 



FILES 
LIB2 



COUNT 
PARTS 

CARDS 

ME 8 
PRINT 

ME 9 
1113 



1116 
1117 

1121 
1122 



1125 

1130 
1131 
1132 

1134 

1136 



TEST SENSE SWITCH 

VP 

DOWN 



TWO. 



•••**•**•**** FORTRAN II SECTION SIX *****«***»»*«*«*********F6S00010 
FORTRAN 2 RECORD 005 - ON-LINE PRINT. F6S00011 

F6S00012 
F6S00020 
F6S00030 
F6S00040 
F6S00050 
F6SO0060 
F6S00070 
F6S0008C 
F6S00090 
F6S00100 
F6S00110 
IF N0TF6S00120 
F6S00130 
F6S00140 
F6S00150 
F6S00160 
F6S00170 
F6SO0180 
F6S00190 
F6S00200 
F6S00210 
F6SO0220 
F6S00230 
F6S00240 
F6S00250 
F6SO0260 
F6S00270 
F6S00280 
F6S00290 
F6S00300 
F6S00310 
F6S00320 
F6SOO330 
F6S00340 
F6S00350 
F6S00360 
F6S00370 
F6S00380 
F6S00390 
F6S00400 
F6S00410 
F6S00420 
F6S00430 
F6S00440 
F6S00450 
F6S00460 
F6S00470 
F6S00480 
F6S00490 
F6S00500 
F6S00510 



ORG 


136 


REW 


2 


LXO 


FILES. 1 


CLA 


ONE 


CAS 


SW2 


TRA 


LIB1 


TRA 


ASK.ER 


SWT 


2 


TNX 


CARDS* 1*1 


CLA 


ONE 


CAS 


SW3 


TRA 


FILES 


TRA 


LIB2 


SWT 


3 


TXI 


CARDS »t3 


SXD 


COUNT .1 


WPR 




SPR 


i 


TXI 


PRINT 


LXO 


COUNT .1 


TIX 


ASKER.1*1 


RTB 


1 


TRA 


h 


HTR 


5 


RTT 




NOP 




LXD 


ME8.4 


LXD 


1117.2 


SLN 


1 


RTD 


2 


CPY 


D65.2 


TXL 


1132**20 


TRA 


PARTS 


TXI 


1122*2*1 


PXD 


0*2 


RTT 




TXL 


1134*0*0 


ADD 


1131 


STD 


1130 


TSX 


1143*4 


HTR 


D<>1+1 


TXL 


ME9»0*D65 


TIX 


1116*2*1 


TXL 


1 122*0*0 


TIX 


1136*4*1 


TSX 


4.4 


BST 


2 


TXL 


1113*0*0 



UP* ANY FILES TO DO. GO RETURN TO LOADER 
SWITCH 2 DOWN (OR UP BUT FILES TO DO) 
TEST SENSE SWITCH THREE. 
UP* GO TO RETURN TO LOADER 
DOWN. 

UP* GO RETURN TO LOADER. 

SWITCH THREE DOWN. 

TO PRINT FILE OF TAPE TWO. 



RETURN TO LOADER 



SET RECORD LENGTH EQUAL 20 
TURN ON SENSE LIGHT 1 
SELECT TAPE TWO IN BCD MODE 
AND COPY RECORD. 



END OF FILE. 



TEST TAPE CHECK. 

ERROR. 

PRINT THIS RECORD. 



NEXT 
MORE 
TEST 



WORD BUT NO 

THAN 20. 

FOR ANOTHER TRY. 



TRY AGAIN. 



n 



n 



r\ 



00267 





50000 


4 


00001 


1143 


CLA 


1*4 


00270 





62200 





00432 




STD 


1302 


00271 





77100 





00022 




ARS 


18 


00272 





40000 





00432 




ADD 


1302 


00273 





62100 





00305 




STA 


1161 


00274 





62100 





00341 




STA 


1211 


00275 





40200 


4 


00001 




SUB 


1*4 


00276 


-0 


63400 


4 


00432 




SXD 


1302*4 


00277 





73400 


4 


00000 




PAX 


0*4 


00300 


-0 


63400 


4 


00301 




SXO 


1155*4 


00301 


3 


00301 





00000 


1155 


TXH 


0»0»* 


00302 





76600 





00361 




WPR 




00303 





50000 





00431 




CLA 


1301 


00304 


-0 


53400 


4 


00354 




LXD 


1224*4 


00305 





34000 


4 


00305 


1161 


CAS 


**4 


00306 


1 


77777 


4 


00311 




TXI 


1165*4.-1 


00307 


1 


00001 


4 


00305 


1163 


TX1 


1161*4*1 


00310 


1 


77777 


4 


00311 




TXI 


1165*4.-1 


00311 


-0 


63400 


4 


00360 


1165 


SXO 


1230*4 


00312 


-0 


63400 


4 


00372 




SXO 


1242*4 


00313 


-0 


63400 


4 


00316 




SXD 


1172*4 


00314 


-0 


63400 


4 


00421 




SXD 


1271*4 


00315 


-0 


53400 


4 


00301 




LXD 


1155*4 


00316 


-2 


00000 


4 


00322 


1172 


TNX 


1176.4 


00317 


-3 


00014 


4 


00321 




TXL 


1175.4.12 


00 320 





76000 





00370 




SPR 


8 


00321 


-0 


53400 


4 


00301 


1175 


LXD 


1155*4 


00322 





53400 


2 


00333 


1176 


LXA 


1203*2 


00323 


-0 


53400 


1 


00375 




LXD 


1245*1 


00324 





50000 





00162 




CLA 


ONE 


00325 





34000 





00202 




CAS 


SW4 


00326 





02000 





00331 




TRA 


1201 


00327 





02000 





00332 




TRA 


LIB5 


00330 





76000 





00164 




SWT 


4 


00331 


-3 


00331 





00333 


1201 


TXL 


1203*0.* 


00332 





76100 





00000 


LIB5 


NOP 




00333 


-0 


75400 





00000 


1203 


PXD 




00334 





60200 


1 


00524 


1204 


SLW 


D41*l 


00335 





60200 


1 


00504 




SLW 


021*1 


00336 


2 


00001 


1 


00334 




TIX 


1204*1.1 


00337 


-0 


50000 





00433 


1207 


CAL 


1303 


00340 





60200 





00000 


1210 


SLW 





00341 





56000 


4 


00341 


1211 


LDQ 


*»4 


00342 


-0 


63400 


4 


00331 




SXD 


1201*4 


00343 





53400 


4 


00345 




LXA 


1215*4 


00344 


-0 


75400 





00000 


1214 


PXD 




00345 


-0 


76300 





00006 


1215 


LGL 


6 


00346 





73400 


1 


00000 




PAX 


0*1 


00347 


-0 


50000 





00000 




CAL 





00350 





77100 


4 


00006 




ARS 


6*4 


00351 


2 


00020 


1 


00375 




TIX 


1245*1.16 


00352 


3 


00017 


1 


00400 




TXH 


1250*1*15 


00353 


-0 


60200 


3 


00521 




ORS 


D36»3 


00354 


2 


00001 


4 


00344 


1224 


TIX 


1214.4.1 



SUBSTITUTE CODING. 



SELECT PRINTER 

FIND LAST NON-BLANK GROUP. 



STORE END TEST. 



FIRST CYCLE. 
INITIALIZE GROUP COUNT. 
INITIALIZE LEFT SETUP. 



CLEAR CARD IMAGE. 



INITIALIZE COLUMN INDICATOR. 

OBTAIN GROUP. 
STORE GROUP COUNT. 
SET CHARACTER COUNT. 



POSITION COLUMN INDICATOR. 

TEST FOR DIGIT. 
TEST FOR Y-Z ONE 
STORE DIGIT. 
COUNT CHARACTERS. 



F6S00520 

F6S00530 

F6S00540 

F6S00550 

F6S00560 

F6S00570 

F6S00580 

F6S00590 

F6S006OO 

F6S00610 

F6SO0620 

F6S00630 

F6S00640 

F6S00650 

F6S00660 

F6S00670 

F6S00680 

F6S00690 

F6S00700 

F6S00710 

F6S00720 

F6S00730 

F6SO0740 

F6S00750 

F6S00760 

F6S00770 

F6SG0780 

F6S00790 

F6S00800 

F6S00810 

F6S00820 

F6S00830 

F6S00840 

F6SOO850 

F6S00860 

F6S00870 

F6S00880 

F6S00890 

F6S00900 

F6S00910 

F6S00920 

F6S00930 

F6S00940 

F6S00950 

F6S00960 

F6S00970 

F6S00980 

F6S00990 

F6S01000 

F6S01010 

F6S01020 

F6S01030 

F6S01040 

F6S01050 



AS 



TD 



TD 



TD 



00355 





77100 





00001 


1225 


ARS 


1 


SHIFT AND TEST COLUMN, 


00356 


-0 


53400 


4 


00331 




LXO 


1201*4 


RESTORE GROUP COUNT. 


00357 


1 


77777 


4 


00360 




TXI 


I230»4.-l 


COUNT GROUPS. 


00360 


-3 


00000 


4 


00362 


1230 


TXL 


1232.4 


TEST FOR LAST NON-BLANK GROUP. 


00361 


-0 


10000 





00340 




TNZ 


1210 


TEST FOR END OF ROW. 


00362 


-0 


50000 


2 


00506 


1232 


CAL 


D23»2 


FORM TRUE 8*4 


00363 


-0 


60200 


2 


00511 




ORS 


D26.2 


AND 3 ROWS AND 


00364 


-0 


60200 


2 


00516 




ORS 


D33*2 


MOVE 8*4 AND 8*3 


00365 





60200 


2 


00507 




SLW 


D24»2 


ROWS. 


00366 


-0 


50000 


2 


00505 




CAL 


D22»2 




00367 


-0 


60200 


2 


00511 




ORS 


D26»2 




00370 


-0 


60200 


2 


00515 




ORS 


D32»2 




00371 





60200 


2 


00506 




SLW 


D23.2 




00372 


-3 


00000 


4 


00415 


1242 


TXL 


1265*4 


TEST FOR END. 


00373 


3 


00017 


2 


00415 




TXH 


1265*2*15 


TEST FOR RIGHT HALF. 


00374 


1 


00020 


2 


00337 




TXI 


1207*2*16 


INITIALIZE RIGHT HALF. 


00375 


2 


00020 


1 


00403 


1245 


TIX 


1253.1*16 


TEST FOR 16/CH/32 


00376 


3 


00017 


1 


00406 




TXH 


1256*1*15 


TEST FOR X-ZONE 


00377 


-0 


60200 


3 


00521 




ORS 


D36.3 


STORE DIGIT. 


00400 


-0 


60200 


2 


00523 


1250 


ORS 


D40*2 


STORE Y-ZONE. 


00401 


2 


00001 


4 


00344 




TIX 


1214*4*1 


COUNT CHARACTERS. 


00402 


-3 


00000 





00355 


1252 


TXL 


1225 


OBTAIN NEXT GROUP. 


00403 


2 


00020 


1 


00411 


1253 


TIX 


1261*1*16 


TEST FOR 32/CH/48. 


00404 


3 


00017 


1 


00354 




T VU 


TOO/. .1 -It 


TCCT mo Dl AN£ - 


00405 


-0 


60200 


3 


00521 




ORS 


D36*3 


STORE DIGIT. 


00406 


-0 


60200 


2 


00522 


1256 


ORS 


D37.2 


STORE X-ZONE. 


00407 


2 


00001 


4 


00344 




TIX 


1214*4*1 


COUNT CHARACTERS. 


00410 


-3 


00000 





00355 


1260 


TXL 


1225 


OBTAIN NEXT GROUP. 


00411 


-0 


60200 


2 


00521 


1261 


ORS 


D36*2 


STORE 0-ZONE. 


00412 


-0 


60200 


3 


00521 




ORS 


D36.3 


STORE DI6IT. 


00413 


2 


00001 


4 


00344 




TIX 


1214*4*1 


COUNT CHARACTERS. 


00414 


-3 


00000 





00355 




TXL 


1225 




00415 


-0 


53400 


1 


00430 


1265 


LXD 


1300.1 


COPY LOOP. 


00416 





70000 


1 


00524 


1266 


CPY 


D41»l 


CARD IMAGE COPIES. 


00417 





70000 


1 


00504 




CPY 


D21.1 




00420 


2 


00001 


1 


00416 




TIX 


1266*1*1 


COUNT COPIES. 


00421 


3 


00000 


4 


00426 


1271 


TXH 


1276*4 


TEST FOR SECOND CYCLE. 


00422 


-0 


53400 


1 


00402 




LXD 


1252*1 


NO* RELOAD INDEX REGISTERS 


00423 


-0 


53400 


2 


00410 




LXD 


1260*2 


AND RETURN. 


00424 


-0 


53400 


4 


00432 




LXD 


1302*4 




00425 





02000 


4 


00002 




TRA 


2*4 




00426 





76600 





00361 


1276 


WPR 




SELECT PRINTER AGAIN. 


00427 





76000 





00371 




SPR 


9 


SECOND CYCLE. 


00430 


-3 


00014 





00322 


1300 


TXL 


1176*0*12 


CONVERT REST OF LINE 


00431 


606060606060 


1301 


BCD 


1 




00432 





00000 





00001 


1302 


HTR 


1 




00433 


-0 


00000 





00000 
00504 


1303 


MZE 
BES 


40 




00504 





00000 





00000 


D21 


HTR 







00505 





00000 





00000 


D22 


HTR 







00506 





00000 





00000 


023 


HTR 







00507 





00000 





00000 


D24 


HTR 







00510 





00000 





00000 


D25 


HTR 







00511 





00000 





00000 


D26 


HTR 








F6S01060 
F6S01070 
F6S01080 
F6S01090 
F6S01100 
F6S01110 
F6S01120 
F6S01130 
F6S01140 
F6S01150 
F6S01160 
F6S01170 
F6S0118O 
F6S01190 
F6S01200 
F6S01210 
F6S01220 
F6SO1230 
F6S01240 
F6S01250 
F6S01260 
F6S01270 
F6S01280 
F6S01290 
F6S01300 
F6S01310 
F6S01320 
F6S01330 
F6S01340 
F6S01350 
F6S01360 
F6S01370 
F6S01380 
F6S01390 
F6S01400 
F6S01410 
F6S01420 
F6S01430 
F6S01440 
F6S01450 
F6S01460 
F6S01470 
F6S01480 
F6S01490 
F6S01500 
F6S01510 
F6S01520 
F6S01530 
F6S01540 
F6S01550 
F6S01560 
F6S01570 
F6S01580 
F6S01590 



/£ 



o 



00512 





00000 





00000 


D27 


HTR 





00513 





00000 





ooooo 


030 


HTR 





00514 





00000 





00000 


031 


HTR 





00515 





00000 





ooooo 


D32 


HTR 





00516 





00000 





ooooo 


033 


HTR 





00517 





00000 


V 


000 00 


D34 


HTR 


V 


00520 





00000 





ooooo 


D35 


HTR 





00521 





00000 





ooooo 


D36 


HTR 





00522 





00000 





ooooo 


D37 


HTR 





00523 





00000 





ooooo 


D40 


HTR 





00524 





00000 





ooooo 


041 


HTR 













00551 


065 


BES 


20 










ooooo 




END 





o 



F6S01600 
F6S01610 
F6S01620 
F6S01630 
F6S01640 
F6S01650 
F6S01660 
F6S01670 
F6S01680 
F6S01690 
F6S01700 
F6S01710 
F6S01720 



/7 



REM •********••** FORTRAN 



II SECTION SIX *********»*»************F6T00010 „,,«,..»,„ 

n «*«i«.«« FORTRAN II SECTION SIX «««..««««**••— *F6T00010 

FORTRAN 2 RECORD 007 - TAPE 3.7 TO 2.6. J*!!!!!!!}: 



00161 
00162 
00177 
00200 



00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00250 

00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 
00261 



77200 
77200 

-0 53400 
76000 
02000 

-0 76000 
76100 

-0 53400 

-0 53400 
76200 
70000 
00001 
02000 
7710O 
7T100 

-0 76000 

02000 

1 71777 
-0 63400 
-0 53400 

76600 
70000 
00001 
-3 00237 

76600 
02000 
00005 

76400 

2 00001 
07400 
00000 
77000 
00001 










1 


O 





o 

1 





o 







I 



00210 
00202 
00203 
00161 
00166 
00317 
00012 
00000 
00242 
00161 
00202 
01371 
00222 
00247 
00377 
00377 
00012 
00243 
00232 
00237 
00161 
00206 
01371 
00237 
00235 
0O333 
00215 
00000 
00202 
00220 
00004 
00246 
00206 
OQ251 



00001 
762 OO 
02000 
50000 
34000 
02000 
O 02000 
76000 
02000 



00324 
00202 
0O217 
00162 
0O177 
00314 
O 00262 
00161 
Q0314 



ZERO 
ONE 
SW1 
SW2 



All 

A6 
A2 

Al 



NEXT2 

A3 
A4 



SEVEN 
ERROR 



ER 
EOF 



A5 
TAPE 7 



EQU 113 
EOU 114 
EQU 127 
EOU 128 

DUMP TAPE2 ONTO TAPE6 AND TAPE3 ONTO 

TAPE7 IF BATCH COMPILING 
ORG 136 
REW 2 REWIND TAPES TWO AND THREE. 

REW 3 

LXD ZERO.l 

SWT 6 

TRA FINI 

RTT 

NOP 

LXD SEVEN .4 

LXD ZERO >2 

RTD 2 

CPY REC-1.2 

TXI Al»2*l 

TRA EOF 

ARS 255 

ARS 255 

RTT 

TRA ERROR 

TXI NEXT2.2.-1 

SXO A4.2 

LXD ZERO .2 

WTO 6 

CPY REC-1.2 

TXI A4.2.1 

TXL A3»2»* 

TOO 

TRA All 

0*0*5 
BST 2 
TIX A2.4.1 
TSX 4*4 
HTR ER 
WEF 6 
TXI A5.1»l 



TEST SENSE SWITCH 6 TO SEE IF BATCH COMPILING. 
UP. 00 NOT DUMP TAPES BUT GO TO FINI. 

SET READ ERROR COUNTER. 
READ A RECORD OF TAPE TWO. 



EOF 



ERROR 

SAVE WORD COUNT OF RECORD TO USE WHEN WRITING. 

ONTO TAPE6 
WRITE RECORD JUST READ ONTO TAPE SIX 



TXH TEST2.1.1 

RTD 2 

TRA A6 

CLA ONE 

CAS SW1 

TRA E0F3+1 

TRA A7 

SWT 1 

TRA E0F3+I 



GO READ NEXT RECORD FROM TAPE TWO. 
READ ERROR PROCEDURE. 

AT END OF FILE ON TAPE TWO. WRITE END OF FILE 

TWO FILES DONE. YES. GO TEST SWITCH TWO» 
NO 



TEST SENSE SWITCH ONE* 



F6T00012 



F6T00020 

F6T00030 

F6T00040 

F6TOO050 

F6T00060 

F6T00070 

F6T00080 

F6T00090 

F6T00100 

F6T00110 

F6TOO120 

F6T00130 

F6T00140 

F6T0O150 

F6T00160 

F6T00170 

F6T00180 

F6T00190 

F6TOO2O0 

F6T00210 

F6T00220 

F6T0023O 

F6T0O240 

F6T0025O 

F6T00260 

F6T0027D 

F6T00280 

F6T00290 

F6T00300 

F6TO0310 

F6T00320 

F6T00330 

F6 TOO 340 

F6TO0350 

F6T00360 

F6T00370 

F6T00371 

F6T00380 

F6T0039O 

F6T004O0 

F6T00410 

F6T00420 

F6TOO430 

F6T0044O 

F6T00450 

F6T00460 



lc 



o 



o 



n 



O 



00262 


-0 


53400 


4 


00242 


A7 


LXD 


SEVEN*4 


00263 


-0 


53400 


2 


00161 


A12 


LXD 


ZER0»2 


00264 





76200 





00223 




RTB 


3 


00265 





70000 


2 


01371 


A8 


CPY 


REC-1*2 


00266 


1 


00001 


2 


00265 




TX1 


A8»2»l 


0026? 





02000 





00313 




TRA 


E0F3 


00270 





77100 





00377 




ARS 


255 


00271 





77100 





00377 




ARS 


255 


00272 


-0 


76000 





00012 




RTT 




00273 





02000 





00307 




TRA 


ERR3 


00274 


1 


77777 


2 


00275 




TXI 


NEXT1.2t-l 


00275 


-0 


63400 


2 


00302 


NEXT1 


SXD 


A10»2 


00276 


-0 


53400 


2 


00161 




LXD 


ZER0»2 


00277 





76600 





00227 




WTB 


7 


00300 





70000 


2 


01371 


A9 


CPY 


REC-1*2 


00301 


1 


00001 


2 


00302 




TXI 


A10»2»l 


00302 


-3 


00302 


2 


00300 


A10 


TXL 


A9»2»* 


00303 





76600 





00333 




100 




00304 


-0 


76000 





00012 




RTT 




00305 





76100 





00000 




NOP 




00306 





02000 





00262 




TRA 


A7 


00307 





76400 





00203 


ERR3 


BST 


3 


00310 


2 


00001 


4 


00263 




TIX 


A12»4*l 


00311 





07400 


4 


00004 




TSX 


4*4 


00312 





00000 





00312 


ERR4 


HTR 


ERR4 


00313 





77000 





00207 


E0F3 


WEF 


7 


00314 





76200 





00221 




RTB 


1 


00315 





76200 





00221 




RTB 


1 


00316 





76200 





00221 




RTB 


1 


00317 





77200 





00202 


FINI 


REW 


2 


00320 





77200 





00203 




REW 


3 


00321 





7720O 





00204 




REW 


4 


00322 





76200 





00221 




RTB 


1 


00323 





02000 





00004 




TRA 


4 


00324 





50000 





00162 


TEST2 


CLA 


ONE 


00325 





34000 





O0200 




CAS 


SW2 


00326 





02000 





00254 




TRA 


TAPE7 


00327 





02000 





00332 




TRA 


WT3 


00330 





76000 





00162 




SWT 


2 


00331 





02000 





00254 




TRA 


TAPE7 


00332 


-0 


53400 


1 


00251 


WT3 


LXD 


A5.1 


00333 





50000 





00331 




CLA 


WT3-1 


00334 





62100 





00251 




STA 


A5 


00335 





02000 





00217 
00336 




TRA 
BSS 


A6 
40 










01372 


REC 


BES 


500 










00000 




END 





DOWN. SET READ ERROR COUNTER. 

ONTO TAPE7 
READ A RECORD FROM TAPE THREE 



END OF FILE. 
END OF RECORD. 



ERROR. 

SAVE WORD COUNT OF RECORD. 

WRITE THE RECORD ONTO TAPE SEVEN. 

TEST END OF RECORD. 

60 READ NEXT RECORD. 
READ ERROR PROCEDURE. 

AT EOF ON 3* WRITE EOF ON 7. 



REWINDS TAPES 2*3* AND 4 AND 
RETURNS TO LOADER* 



AFTER 2ND FILE FROM 2 TO 6» 
TEST SENSE SWITCH 2. 



UP. GO TEST SWITCH 1. 

DOWN. RESET INDEX REGISTER 1 TO 1. 

CHANGE A5 TRANSFER ADDRESS TO TAPE7. 

AND GO READ FINAL FILE. 



F6T00470 
F6T004B0 
F6T00490 
F6T00500 
F6T00510 
F6T00520 
F6T00530 
F6T00540 
F6T00550 
F6T00560 
F6T00570 
F6T00580 
F6T00590 
F6T00600 
F6T00610 
F6T00620 
F6T00630 
F6T00640 
F6T00650 
F6T00660 
F6T00670 
F6T00680 
F6T00690 
F6T00700 
F6T00710 
F6T00720 
F6T00721 
F6T00722 
F6T00723 
F6T00730 
F6T00740 
F6T00750 
F6T00760 
F6T00770 
F6T00780 
F6T00790 
F6T008OO 
F6T00810 
F6T00820 
F6T00830 
F6T00840 
F6T00850 
F6T00860 
F6T00870 
F6T00880 
F6T00890 
F6T00900 



tf 



REM SUCCESSFUL COMPILATION RECORD F1SC0010 

SUCCESSFUL COMPILATION RECORD 

CONTROL IS RETURNED TO THIS RECORD AT THE COMPLETION OF A 
SINGLE PROBLEM COMPILATION* OR AT THE END OF BATCH 
COMPILATION* TAPE 1 IS REWOUND AND A LOAD BUTTON 
SEQUENCE IS EXECUTED AT THE CARD READER. 
AN INSTALLATION MAY CHANGE THIS RECORD TO SUIT ITS OWN 
OPERATING NEEDS. 

MASTER RECORD CARD = F0090000. 



CARD READER LOAD BUTTON SEQUENCE. 







00030 




ORG 


24 


00030 


-0 


76000 00007 


START 


LTM 




00031 





77200 00201 




REW 


1 


00032 





76200 00321 




RCD 


209 


00033 





70000 00000 




CPY 





00034 





02000 00036 




TRA 


SECCPY 


00035 





00000 77777 




HTR 


32767 


00036 





70000 00001 


SECCPY 


CPY 


1 


00037 





02000 00000 




TRA 









00030 




END 


24 



CARD READER EMPTY» HALT. 



F1SC0010 
F1SC0020 
F1SC0030 
F1SC0040 
F1SC0050 
F1SC0060 
F1SC0070 
F1SC0080 
F1SC0090 
F1SC0100 
F1SC0110 
F1SC0120 
F1SC0130 
F1SC0140 
F1SC0150 
F1SC0160 
F1SC0170 
F1SC0180 
F1SC0190 



2o 



o 



o 



o 



o 



REM SOURCE PROGRAM ERROR RECORD. THIS RECORD TESTS SL3 AND SL6 FlfPEOlO 

SOURCE PROGRAM ERROR RECORD. THIS RECORD TESTS SL3 AND SL6 
TO DETERMINE IF A CARD READER LOAD BUTTON SEQUENCE IS TO BE 
EXECUTED. OR IF THE NEXT PROGRAM IS TO BE COMPILED. SL3-ON 
IF TAPE 5 CANNOT BE READ OR EOF ON TAPE 5 BEFORE END CARD 
IS FOUND. SS6-ON IF IN BATCH COMPILE MODE. 

RECORD CARD = FO 1O00OO. 



SL1-0N IF PROGRAM TO BE RE-TRIED. 

SHIP TO COMMON RECORD 

SS6-0N IF IN BATCH MODE. 

SINGLE COMPILATION. READ CARD READER SEQ. 

ON IF END CARD ERROR FOUND BY BATCH MONITOR 

SHIP TO BATCH MONITOR RECORD 















MASTER 








00030 




ORG 


24 


00030 


-0 


76000 


00007 




LTM 




00031 


-0 


76000 


00141 




SLT 


1 


00032 





02000 


00034 




TRA 


SS6TST 


0O033 





02000 


00053 




TRA 


SKI PCM 


00034 





76000 


00166 


SS6TST 


SWT 


6 


00035 





02000 


00041 




TRA 


READCD 


00036 


-0 


76000 


00143 




SLT 


3 


00037 





02000 


00055 




TRA 


SKIPBM 


00040 





77200 


00206 




REW 


6 


00041 





77200 


00204 


READCD 


REW 


4 


00042 





77200 


00203 




REW 


3 


00043 





77200 


00202 




REW 


2 


00044 





77200 


00201 




REW 


1 


00045 





76200 


00321 




RCD 


209 


00046 





70000 


00000 




CPY 





00047 





02000 


00051 




TRA 


SECCPY 


00050 





00000 


77777 




HTR 


32767 


00051 





70000 


00001 


SECCPY 


CPY 


1 


00052 





02000 


00000 




TRA 





00053 





76200 


00221 


SIC I PCM 


RTB 


1 


00054 





76200 


00221 




RTB 


1 


00055 





76200 


00221 


SKIPBM 


RTB 


1 


00056 





02000 


00004 
00030 




TRA 
END 


4 
24 



CARD READER LOAD BUTTON SEQUENCE. 



CARD READER EMPTY. 



SKIP OVER FILE 1 MARK TO BATCH MONITOR. 
SKIP OVER BATCH MONITOR RECORD 
ANO/OR SKIP MACHINE ERROR RECORD 
TO 1-CS TO READ NEXT RECORD 



F1SPE010 
F1SPE020 
F1SPE030 
F1SPE040 
F1SPE050 
F1SPE060 
F1SPE070 
F1SPE080 
F1SPE090 
F1SPE100 
F1SPE110 
F1SPE120 
F1SPE130 
F1SPE140 
F1SPE150 
F1SPE160 
F1SPE170 
F1SPE180 
F1SPE190 
F1SPE200 
F1SPE210 
F1SPE220 
F1SPE230 
F1SPE240 
F1SPE250 
F1SPE260 
F1SPE270 
F1SPE280 
F1SPE290 
F1SPE300 
F1SPE310 
F1SPE320 
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REM MONITOR PROGRAM FOR BATCH COMPILATION 

MONITOR PROGRAM FOR BATCH 



F1BMOO10 
COMPILATION 



F1BMO010 
F1BM0020 



00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 
0O045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
60070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 










76000 
02000 
76000 
53400 

-0 50000 
60200 
60200 
76000 
76100 
76200 
53400 
70000 
02000 
02000 
02000 
00001 
77100 
77100 

-0 76000 
02000 
76600 
70000 
00001 
76600 

-0 76000 
76100 
00000 
07400 
00234 
76600 
76600 
76600 
76600 
76600 
50200 
60100 
76000 

-0 75400 
56000 

-0 76300 
40200 
10000 

-0 76300 

-0 75400 

-0 76300 
10000 
40200 

-0 10000 
53400 




-0 







2 







2 




3 




















00030 
00166 
00146 
00140 
00237 
00245 
00233 
00232 
00012 
00000 
00205 
3 00243 
1 00234 
00047 
00161 
00050 
00043 
00377 
00377 
00012 
00150 
00202 
00234 
00055 
00333 
00012 
00000 
00074 
00332 
00215 
00361 
00361 
00361 
00361 
00361 
00062 
00062 
00141 
00000 
00216 
00006 
00244 
00033 
00030 
00000 
00006 
00110 
00246 
00033 
00242 



START 



AD001 



ADD015 



AD002 



ADD03 
AD004 



ADD05 



ADD70 



ADD 71 



ADD06 



ORG 

SWT 
TRA 
SLN 
LXA 
CAL 
SLW 
SLW 
RTT 
NOP 
RTD 
LXA 
CPY 
TRA 
TRA 
TRA 
TIX 
ARS 
ARS 
RTT 
TRA 
WTD 
CPY 
TIX 
IOD 
RTT 
NOP 
TXH 
TSX 
P2E 
WPR 
WPR 
WPR 
WPR 
WPR 
CLS 
STO 
SLN 
PXD 
LDQ 
LGL 
SUB 
TZE 
LGL 
PXD 
LGL 
TZE 
SUB 
TNZ 
LXA 



MASTER RECORD CARD FO 120000 

24 

6 

ADD93+1 



L(5>»4 

BLANKS 

BUFFER-1 

BUFFER-2 



TEST SW6. UP ■ 
SKIP OVER MACHINE ERROR 



F1BM0030 
■■ SINGLE PROBLEM* F1BM0040 
RECORD AND GO TO SEC1F1BM0050 



TURN OFF LIGHTS 
COUNTER FOR 5 TRIES TO READ TAPE 5« 



5 

L(14)»3 

BUFFER. 1 

ADD03 

ADD 90 

AD004 

ADD02»1»1 

255 

255 

ADD 80 
2 

BUFFER»2 
ADD05»2»1 



ADD71.0 
PRINT»C 
RESTR»0»BUFFER 



ADD70 

ADD 70 

1 

0*0 

BUFFER-14 

6 

L(C) 

ADDOl 

24 

0*0 

6 

ADD06 

BLANK 

ADDOl 

LU21.1 



TURN OFF INDICATOR 



ASSUME 14 WORDS PER RECORD 



EOF 
EOR 



TEST TAPE INDICATOR 

ON* PREPARE TO READ AGAIN 

OFF* WRITE THIS RECORD ON TAPE 2 



ROUTINE TO RESTORE 
FIRST STATEMENT OF 



PRINTER 
CURRENT 



CARRIAGE AND 



F1BM0060 
F1BM0070 
F1BM0080 
F1BM0090 
F1BM0100 
F1BM0110 
F1BM0120 
F1BM0130 
F1BM0140 
F1BM0150 
F1BM0160 
F1BM0170 
F1BM0180 
F1BM0190 
F1BM0200 
F1BM0210 
F1BM0220 
F1BM0230 
F1BM0240 
F1BM0250 
F1BM0260 
F1BM0270 
F1BM0280 
F1BM0290 
PRINTF1BM0300 



SOURCE PROGRAM 



CHANGE TXH TO TXL 



SLl-ON IF 



AT LEAST 
EXISTS 
TEST FOR 



1 SOURCE STATEMENT ON TP 
COMMENT CARD 



YES. GO 
DISCARD 



READ NEXT TAPE RECORD 
FORMULA NUMBER 



TEST FOR CONTINUATION CARD 



YES* 
THIS 



GO READ NEXT 
RECORD IS OF 



TAPE RECORD 
FIRST CARD OF 



F1BM0310 
F1BM0320 
F1BM0330 
F1BM0330 
F1BM0330 
F1BM0330 
F1BM0330 
F1BM0350 
F1BM0360 
2F1BM0370 
F1BM0380 
F1BM0390 
F1BM0400 
F1BM0410 
F1BM0420 
F1BM0430 
F1BM0440 
F1BM0450 
F1BM0460 
F1BM0470 
F1BM0480 
F1BM0490 



^Z 



O 



u 



o 



o 



00111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
©0157 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00170 
00171 
00172 
00173 
00174 
00175 
00176 



53400 
50000 
60100 
56000 
07400 
40200 
10000 
07400 
40200 
10000 
07400 
40200 
10000 
07400 
40200 
10000 
07400 
07400 
40200 
10000 
07400 
07400 
40200 
10000 
07400 
07400 
40200 
10000 
77000 
76200 
02000 
76400 
00001 
07400 
00301 
76000 
76400 
76400 
76400 
02000 
76000 
02000 
07400 
00315 
77200 
02000 
76400 
77200 
77200 
07400 
00332 
07400 
00216 
16100 



00241 
00234 
00232 
00217 
00200 
00247 
00033 
00200 
00250 
00033 
00200 
00251 
00033 
00200 
00252 
00033 
00200 
00200 
00253 
00033 
00200 
00200 
00253 
00033 
4 00200 
4 00200 
00253 
00033 
00202 
00221 
00004 
00205 
00041 
4 00332 
00254 
00143 
00201 
00201 
00201 
00004 
00141 
00167 
00332 
00301 
00205 
00154 
00201 
00206 
00205 
00332 
00315 
00332 
00215 
00177 



LXA 
CLA 
STO 
LDQ 
TSX 
SUB 
TNZ 
TSX 
SUB 
TNZ 
TSX 
SUB 
TNZ 
TSX 
SUB 
TNZ 
TSX 
TSX 
SUB 
TNZ 
TSX 
TSX 
SUB 
TNZ 
TSX 
TSX 
SUB 
TNZ 

A0D93 WEF 
RTB 
TRA 

AO080 BST 
TIX 
TSX 

SPROER SLN 
BSTRTN BST 
BST 
BST 
TRA 
AOD90 SLT 
TRA 
TSX 

REW 
TRA 
A0D91 BST 
REW 
REW 
TSX 

TSX 

HTR 
TOO 



LC7)»2 

BUFFER 

BUFFER-2 

BUFFER-13 

SUBi»4 

LIE) 

A0001 

SUB1»4 

LIN) 

A0001 

SUB1»4 

LID) 

AOD01 

SUB 1*4 

LID 

AO001 

SUB1»4 

SUB1»4 

COMMA 

ADO 01 

SUB 1.4 

SUB1»4 

COMMA 

ADD01 

SUB1.4 

SUB1.4 

COMMA 

AODOl 

2 

1 

4 

5 

ADD015.4.1 

PRINT. 4 

TP5ERR.0.TP5END 

3 

1 

1 

1 

4 

1 

ADD91 

PRINT«4 

ENDCD.O.CDTEND 

5 

SPROER 

1 

6 

5 

PRINT»C 

REMA.O.ENDA 

PRINT. C 

RESTR.O.RESTR+1 

*+l 



SL3-0N IF 
TROUBLE. 
BACKSPACE 
RECORD* 
CALL IN 1 



FORTRAN STATEMENT. PREPARE TO TEST F1BM0500 
FOR END!. •»»•*..»•«»..) CARD F1BM0510 
POSITION ENDMARK F1BM0520 

F1BM0530 
F1BM0540 
F1BM0550 
F1BM0560 
F1BM0570 
F1BM0580 
F1BM0590 
F1BM0600 
F1BM0610 
F1BM0620 
F1BM0630 
F1BM0640 
F1BM0650 
F1BM0660 
F1BM0670 
F1BM0680 
F1BM0690 
F1BM0700 
F1BM0710 
F1BM0720 
F1BM0730 
F1BM0740 
F1BM0750 
F1BM0760 
F1BM0770 
F1BM0780 
F1BM0790 
F1BM0800 
F1BM0810 
F1BM0820 
F1BM0830 
F1BM0840 
F1BM0850 
F1BM0860 

SYSTEM TAPE TO SOURCE PROGRAM ERRORF1BM0870 

F1BM0880 
- CS. F1BM0890 

IS THERE A PROBLEM TO BE COMPILED F1BM0900 
FINISHED. REWIND ALL TAPES F1BM0910 

F1BM0920 
F1BM0930 
F1BM0940 
F1BM0950 
F1BM0970 
F1BM0974 
F1BM0976 
F1BM0980 
F1BM0990 
F IBM 1000 
F1BM1010 
F1BM1020 



TEST FIRST CHAR FOR E 



TEST SECOND CHAR FOR N 



TEST THIRD CHAR FOR D 



TEST FOURTH CHAR FOR I 



TEST SIXTH CHAR FOR * 



TEST EIGHTH CHAR FOR * 



TEST TENTH CHAR FOR COMMA 

THIS IS END CARD. TERMINATE FILE 
SKIP OVER MACHINE ERROR RECORD. 

GO TO 1-CS FOR SECTION ONE 
TAPE ERROR 



TAPE 5 CANNOT BE READ OR END CARD 



23 



00177 


02000 00155 




TRA 


BSTRTN 




00200 


-0 75400 00000 


SUB1 


PXD 


0*0 




00201 


2 00001 2 00205 




TIX 


ADD50.2»1 




00202 


53400 2 00240 




LXA 


L(6)>2 




00203 


56000 1 00234 




LOO 


BUFFER »1 




00204 


I 77777 1 00205 




TXI 


ADD50*1*-1 




00205 


-0 76300 00006 


ADO 50 


LGL 


6 




00206 


34000 00246 




CAS 


BLANK 




00207 


02000 00211 




TRA 


ADD51 




00210 


02000 00200 




TRA 


SUB1 




00211 


34000 00235 


ADD51 


CAS 


ENDMK 




00212 


02000 4 00001 




TRA 


1*4 




00213 


02000 00033 




TRA 


ADD01 




00214 


02000 4 00001 




TRA 


1.4 




00215 


016060606060 


RESTR 


BCD 


11 






00234 


BUFFER 


BES 


14 




00234 


-377777777777 




OCT 


777777777777 




00235 


+000000000077 


ENDMK 


OCT 


77 




00236 


00000 000 03 


L(3) 




3 




00237 


00000 00005 


L(5) 




5 




00240 


00000 00006 


L(6I 




6 




00241 


00000 00007 


L(7> 




7 




00242 


00000 00014 


LU2J 




12 




00243 


00000 00016 


L«14) 




14 




00244 


000000000023 


LCC1 


BCD 


1 00000 C 




00245 


606060606060 


BLANKS 


BCD 


1 




00246 


000000000060 


BLANK 


BCD 


100000 




00247 


000000000025 


LIE) 


BCD 


1 00000 E 




00250 


000000000045 


L(N> 


BCD 


100000N 




00251 


000000000024 


L(D) 


BCD 


1 00000 D 




00252 


000000000074 


L(() 


SCO 


1 00000 ( 




00253 


000000000073 


COMMA 


BCD 


100000* 




00254 


006060606060 


TP5ERR 


BCD 


90 TAPE 5 CONTAINING 


00255 


632147256005 










00256 


602346456321 










00257 


314531452760 










00260 


624664512325 










00261 


606264224751 










00262 


462751214460 










00263 


512521246005 










00264 


606331442562 










00265 


606445626423 




BCD 


9 UNSUCCESSFULLY. TAPE 


5 


00266 


232562622664 










00267 


434370336063 










00270 


214725600560 










00271 


454666604746 










00272 


623163314645 










00273 


252460216360 










00274 
00275 


512523465124 
606630312330 










00276 


602321454546 




BCD 


3 CANNOT BE READ* 




00277 


636022256060 










00300 


512521243360 












- 00301 


TP5END 


BSS 








F1BM1030 
SUBROUTINE TO BRING NEXT NON BLANK F1BM1040 
CHAR OF BUFFER REGION TO AC. F1BM1050 

F1BM1060 
F1BM1070 
F1BM1080 
F1BM1090 
F1BM1100 
F1BM1110 
F1BM1120 
F1BM1130 
F1BM1140 
F1BM1150 
F1BM1160 
F1BM1165 
F1BM1170 
F1BM1180 
F1BM1190 
F IBM 1200 
F1BM1210 
F IBM 1220 
F1BM1230 
F1BM1240 
F18M1250 
F1BM1260 
F1BM1270 
F1BM1280 
F1BM1290 
F1BM1300 
F1BM1310 
F1BM1320 
F1BM1330 
SOURCE SUBPROGRAM READ 5 TIMES F IBM 1340 



NOW POSITIONED AT RECORD WHICH F1BM1350 



F1BM1360 
F1BM1370 



-*y 



o 



o 



n 



O 



00301 


006060606060 


EN0CO 


BCD 


90 END CARD MISSING OR 1 


lUSPUNCHED 


00302 


254524602321 










00303 


512460443162 










00304 


623145276046 










00305 


516044316247 










00306 


644523302524 










00307 


602646516043 










00310 


216263606264 










00311 


224751462751 










00312 


214460222531 




BCD 


3AM BEING COMPILED. 




00313 


452760234644 










00314 


473143252433 












00315 


COTEND 


BSS 







00315 


016060606060 


REMA 


BCD 


71 




00316 


606060606060 










00317 


606060606060 










00320 


606060606060 










00321 


606060606060 










00322 


606060606060 










00323 


606060606060 










00324 


606330256043 




BCD 


6 THE LAST PROBLEM HAS BEEN 


PROCESSED. 


00325 


216263604751 










00326 


462243254460 










00327 


302162602225 










00330 


254560475146 










00331 


232562622524 












00332 


ENDA 


BSS 




PRINT CONTROL SUBROUTINE* 






00001 


A 


EOU 


1 






00002 


B 


EQU 


2 






00004 


C 


EOU 


4 






00332 


PRINT 


BSS 







00332 


50000 4 00001 


RAN 


CLA 


1*4 




00333 


62100 00374 




STA 


RNA 




00334 


77100 00022 




ARS 


18 




00335 


60100 00375 




STO 


RNB 




00336 


-0 63400 4 00376 




SXD 


RNC.4 




00337 


50000 00374 


RN40 


CLA 


RNA 




00340 


40000 00377 




ADO 


RND 




00341 


34000 00375 




CAS 


RNB 




00342 


76100 00000 




NOP 






00343 


02000 00364 




TRA 


RN50 




00344 


76700 00022 




ALS 


18 




00345 


40000 00374 




ADD 


RNA 




00346 


60100 00350 




STO 


RAN10 




00347 


07400 4 00401 




TSX 


WOTtC 




00350 


00000 00000 


RAN10 


HTR 






00351 


50000 00350 




CLA 


RAN10 




00352 


77100 00022 




ARS 


18 




00353 


40200 00400 




SUB 


RNE 




00354 


62100 00361 




STA 


RN20 




00355 


40200 00400 




SUB 


RNE 




00356 


62100 00362 




STA 


RN30 





F1BM1380 



F IBM! 390 



F1BM1400 
F1BM1410 



F1BM1420 



F1BM1430 
F1BM1450 
F1BM1460 
F1BM1470 
F1BM1480 
F1BM1490 
F1BM1500 
F1BM1510 
F1BM1520 
F1BM1530 
F1BM1540 
F18M1550 
F1BM1560 
F1BM1570 
F1BM1580 
F1BM1590 
F1BM1600 
F1BM1610 
F1BM1620 
F1BM1630 
F1BM1640 
F1BM1650 
F1BM1660 
F1BM1670 
F1BM1680 
F1BM1690 
F1BM1700 
F1BM1710 



zf 



- 


00357 


62100 





00374 




STA 


RNA 






00360 


50000 





00613 




CLA 


BLNKS 




A 


00361 


60100 





00000 


RN20 


STO 






A 


00362 


60100 





00000 


RN30 


STO 








00363 


02000 





00337 




TRA 


RN40 






00364 


50000 





00375 


RN50 


CLA 


RNB 






00365 


76700 





00022 




ALS 


18 






00366 


40000 





00374 




ADD 


RNA 






00367 


60100 





00371 




STO 


RN60 






00370 


07400 


4 


00401 




TSX 


WOT.C 




A 


00371 


00000 





00000 


RN60 


HTR 








00372 


-0 53400 


4 


00376 




LXD 


RNC.C 






00373 


02000 


4 


00002 




TRA 


2fC 




A 


00374 


00000 





00000 


RNA 


HTR 






A 


00375 


00000 





00000 


RNB 


HTR 






A 


00376 


00000 





00000 


RNC 


HTR 








00377 


00000 





00024 


RND 


HTR 


20 






00400 


ooooo 





00001 


RNE 


HTR 


1 
PRINT 


SUBROUTINE. 




00*01 


-0 63400 


1 


00551 


WOT 


SXD 


Xltl 






00402 


-0 63400 


2 


00557 




SXD 


X2.2 






00403 


50000 


4 


00001 




CLA 


1*4 


PRINT ROUTINE 




00404 


62100 





00432 




STA 


T5 


X 




00405 


62200 





00614 




STD 


X4 


X 




00406 


77100 





00022 




ARS 


18 


X 




00407 


40000 





00614 




ADD 


X4 


X 




00410 


62100 





00463 




STA 


PR 2 


X 




00411 


62100 





00510 




STA 


CI9 


X 




00412 


40200 


4 


00001 




SUB 


1*4 


S-A-s-1 IN AC 




00413 


10000 


4 


00002 




TZE 


2»4 






00414 


-0 12000 


4 


00002 




TMI 


2*4 






00415 


-0 63400 


4 


00614 




SXD 


X4»4 






00416 


73400 


4 


00013 


Lll 


PAX 


11»4 






00417 


-0 63400 


4 


00422 




SXD 


PR6.4 






A 04°0 


~W -* www 





00564 




CAL 


up 


INITIALIZE SWITCH 




00421 


60100 





00564 




STO 


WP 


X 


TO 


00422 


3 00000 





00423 


PR6 


TXH 


T4 






00423 


76600 





00361 


T4 


WPR 






TD 


00424 


-3 00000 





00430 


Z2 


TXL 


S3 




ATD 


00425 


-3 00000 





00000 


0Z2 


TXL 








00426 


76000 





00364 


SP4 


SPR 


4 




TO 


00427 


-3 00000 





00461 




TXL 


RPR+2 






00430 


50200 





00564 


S3 


CLS 


WP 


SET SWITCH FOR MASKING 




00431 


60100 





00564 




STO 


WP 


CHARACTER FROM TYPE WHEEL 1 




00432 


-0 50000 





00432 


T5 


CAL 


* 


OBTAIN FIRST CHARACTER 




00433 


77100 





00036 




ARS 


30 


X 




00434 


10000 





00426 




TZE 


SP4 


DOUBLE SPACE IF ZERO 




00435 


34000 





00615 




CAS 


YZONE 


TEST FOR SPACE SUPPRESS 


TD 


00436 


-3 00000 





00440 




TXL 


BK 


NO 


TD 


00437 


-3 00000 





00460 




TXL 


RPR+1 


SUPPRESS SPACE 




00440 


34000 





00616 


BK. 


CAS 


BNK. 


TEST FOR BLANK 


TD 


00441 


-3 00000 





00443 




TXL 


D10F 


NO 


TD 


00442 


-3 00000 





00461 




TXL 


RPR+2 


BLANK 



F16M1720 
F1BM1730 
F1BM1740 
F1BM1750 
F1BM1760 
F1BM1770 
F1BM1780 
F1BM1790 
F1BM1800 
F1BM1810 
F1BM1820 
F1BM1830 
F1BM1840 
F1BM1850 
F1BM1860 
F1BM1870 
F1BM1880 
F1BM1890 
F1BM1900 
F18M1910 
F1BM1920 
F1BM1930 
F1BM1940 
F1BM1950 
F1BM1960 
F1BM1970 
F1BM1980 
F1BM1990 
F1BM2000 
F1BM2010 
F1BM2020 
F1BM2030 
F1BM2040 
F1BM2050 
F1BM2060 
F1BM2070 
F1BM2080 
F1BM2090 
F1BM2100 
F1BM2110 
F1BM2120 
F1BM2130 
F1BM2140 
F1BM2150 
F1BM2160 
F18M2170 
F1BM2180 
F1BM2190 
F1BM2200 
F1BM2210 
F1BM2220 
F1BM2230 
F1BM2240 
F1BM2250 



7 -' 



o 



u 



o 



n 



00443 





76000 





00372 


DIGF 


SPR 


10 


SET CHANNEL SKIP 


00444 


-0 


32000 





00445 




ANA 


MK 


MASK OUT ZONE 


00445 





73400 


1 


00017 


MK 


PAX 


15*1 


OBTAIN SPR COMBINATION 


00446 


1 


00001 


1 


00447 




TXI 


N2»l»l 


X 


0044? 


-2 


00010 


1 


00451 


N2 


TNX 


N3tl»8 


X 


00450 





76000 





00370 




SPR 


8 


X 


00451 


-2 


00004 


1 


00453 


N3 


TNX 


N4»l»4 


X 


00452 





76000 





00364 




SPR 


4 


X 


00453 


-2 


00002 


1 


00455 


N4 


TNX 


N5»l»2 


X 


00454 





76000 





00362 




SPR 


2 


X 


00455 


-2 


00001 


1 


00457 


N5 


TNX 


RPR»1»1 


X 


00456 





76000 





00361 




SPR 


1 


X 


00457 





76600 





00361 


RPR 


WPR 






00460 





76000 





00365 




SPR 


5 


SUPPRESS SPACE 


00461 





50000 





00613 




CLA 


BLNKS 


FIND LAST NON-BLANK GROUP 


00462 


-0 


53400 


4 


00523 




LXD 


CI4»4 


X 


00463 





34000 


4 


00000 


PR2 


CAS 


0*4 


X 


00464 


1 


77777 


4 


00467 




TXI 


PR1»4*-1 


X 


00465 


1 


00001 


4 


00463 




TXI 


PR2»4»1 


X 


00466 


1 


77777 


4 


00467 




TXI 


PR1.4.-1 


X 


0046? 


-0 


63400 


4 


00527 


PR1 


SXD 


CI6»4 


STORE END TEST 


00470 


-0 


63400 


4 


00541 




SXD 


CI8»4 


X 


00471 


-0 


63400 


4 


00474 




SXD 


PR8»4 


X 


00472 


-0 


63400 


4 


00601 




SXD 


WP4»4 


X 


00473 


-0 


53400 


4 


00422 




LXD 


PR6t4 


X 


00474 


-2 


00000 


4 


00500 


PR8 


TNX 


PR5.4 




00475 


-3 


00014 


4 


00477 




TXL 


PR3»4»12 




00476 





76000 





00370 




SPR 


8 


FIRST CYCLE 


00477 


-0 


53400 


4 


00422 


PR3 


LXD 


PR6.4 


INITIALIZE GROUP COUNT 


00500 





53400 


2 


00502 


PR 5 


LXA 


PR7»2 


INITIALIZE LEFT SETUP 


00501 


-0 


53400 


1 


00544 




LXD 


YZ1.1 


CLEAR CARD IMAGE 


00502 


-0 


75400 





00000 


PR 7 


PXD 




X 


00503 





60200 


1 


00662 


PR4 


SLW 


LT,1 


X 


00504 





60200 


1 


00642 




SLW 


RT.l 


X 


00505 


2 


00001 


1 


00503 




TIX 


PR4»1»1 


X 


00506 


-0 


50000 





00620 


CIR 


CAL 


C0L1 


INITIALIZE COLUMN INDICAT 


00507 





60200 





00621 


CI2 


SLW 


COL 


X 


00510 





56000 


4 


00000 


CI9 


LDQ 


Ot4 


OBTAIN GROUP 


00511 


-0 


63400 


4 


00425 




SXD 


0Z2»4 


STORE GROUP COUNT 


00512 





53400 


4 


00514 




LXA 


06*4 


SET CHARACTER COUNT 


00513 


-0 


75400 





ooooo 


CU 


PXD 






00514 


-0 


76300 





00006 


Q6 


L6L 


6 




00515 





73400 


1 


OOOOO 




PAX 


0*1 




00516 


-0 


50000 





00621 




CAL 


COL 


POSITION COLUMN INDICATOR 


00517 





77100 


4 


00006 




ARS 


6*4 


X 


O0520 


2 


O002O 


1 


00544 




TIX 


YZltltl6 


TEST FOR DIGIT 


00521 


3 


00017 


1 


00547 




TXH 


YZ2»1»15 


TEST FOR Y-ZONE 


00522 


-0 


60200 


3 


00657 


CI5 


ORS 


D»3 


STORE DIGIT 


00523 


2 


00001 


4 


00513 


CI4 


TIX 


CI1»4»1 


COUNT CHARACTERS 


00524 





77100 





00001 


CI3 


ARS 


1 


SHIFT AND TEST COLUMN 


00525 


-0 


53400 


4 


00425 




LXD 


0Z2»4 


RESTORE GROUP COUNT 


00526 


1 


77777 


4 


00527 




TXI 


CI6»4.-1 


COUNT GROUPS 


00527 


-3 


00000 


4 


00531 


CI6 


TXL 


CI7t4 


TEST FOR LAST NON-BLANK G 


00530 


-0 


10000 





00507 




TNZ 


CI2 


TEST FOR END OF ROW 



F1BM2260 
F1BM2270 
F1BM2280 
F1BM2290 
F1BM2300 
F1BM2310 
F1BM2320 
F1BM2330 
F1BM2340 
F1BM2350 
F1BM2360 
F1BM2370 
F1BM2380 
F1BM2390 
F1BM2400 
F1BM2410 
F1BM2420 
F1BM2430 
F1BM2440 
F1BM2450 
F1BM2460 
F1BM2470 
F1BM2480 
F1BM2490 
F1BM2500 
F1BM2510 
F1BM2520 
F1BM2530 
F1BM2540 
F1BM2550 
F1BM2560 
F1BM2570 
F1BM2580 
F1BM2590 
F1BM2600 
F1BM2610 
F1BM2620 
F1BM2630 
F1BM2640 
F1BM2650 
F1BM2660 
F1BM2670 
F1BM2680 
F1BM2690 
F1BM2700 
F1BM2710 
F1BM2720 
F1BM2730 
F1BM2740 
F1BM2750 
F1BM2760 
F1BM2770 
F1BM2780 
F1BM2790 



2-7 





00531 


-0 


50000 


2 


00644 


CI7 


CAL 


8.3.2 




FORM TRUE 8*4 


F1BM2800 
F1BM2810 




00532 


-0 


60200 


2 


00647 




ORS 


0-8*2 




AND 3 ROWS AND 




00533 


-0 


60200 


2 


00654 




ORS 


0-3*2 




MOVE 8.4 AND 8.3 


F1BM2820 
F1BM2830 




00534 





60200 


2 


00645 




SLW 


8e2t2 




ROWS 




00535 


-0 


50000 


2 


00643 




CAL 


8*4*2 




FORM TRUE 8.4 


F1BM2840 
F1BM2850 
F1BM2860 
F1BM2870 
F1BM2880 

w* % *\ n*\ rt r\ ^ 




00536 


-0 


60200 


2 


00647 




ORS 


D-8»2 




X 




00537 


-0 


60200 


2 


00653 




ORS 


D-4»2 




X 




00540 





60200 


2 


00644 




SLW 


8.3*2 




X 





00541 


-3 


00000 


4 


00564 


CI8 


TXL 


WP»4 




TEST FOR END 




00542 


3 


00017 


2 


00564 




TXH 


WP»2»15 


TEST FOR RIGHT HALF 


F1BM2890 




00543 


1 


00020 


2 


00506 




TXI 


CIR»2i 


16 


INITIALIZE RIGHT HALF 


F1BM2900 




00544 


2 


00020 


1 


00552 


YZ1 


TIX 


XZl.lc 


16 


TEST FOR 16/CH/32 


F1BM2910 




00545 


3 


00017 


1 


00555 




TXH 


XZ2»li 


15 


TEST FOR X-ZONE 


F1BM2920 




00546 


-0 


60200 


3 


00657 




ORS 


D»3 




STORE DIGIT 


F1BM2930 




00547 


-0 


60200 


2 


00661 


YZ2 


ORS 


Y»2 




STORE Y-ZONE 


F1BM2940 




00550 


2 


00001 


4 


00513 




TIX 


CI1.4. 


1 


COUNT CHARACTERS 


F1BM2950 

p» * r* tJ *\ **. y *\ 


TO 


00551 


-3 


00000 





00524 


XI 


TXL 


CI3 




OBTAIN NEXT GROUP 


F1BM2960 

*■* * *% 11 *m ^v ^ a 




00552 


2 


00020 


1 


00560 


XZ1 


TIX 


0Zl*li 


16 


TEST FOR 32/CH/48 


F1BM2970 




00553 


3 


00017 


1 


00523 




TXH 


CI4*li 


15 


TEST FOR BLANK 


F1BM2980 




00554 


-0 


60200 


3 


00657 




ORS 


D»3 




STORE DIGIT 


F1BM2990 
F1BM3000 
F1BM3010 




00555 


-0 


60200 


2 


00660 


XZ2 


ORS 


X»2 




STORE X-ZONE 




00556 


2 


00001 


4 


00513 




TIX 


CIl»4i 


1 


COUNT CHARACTERS 


TD 


00557 


-3 


00000 





00524 


X2 


TXL 


CI3 




OBTAIN NEXT GROUP 


F1BM3020 




00560 


-0 


60200 


2 


00657 


OZ1 


ORS 


1*2 




STORE 0-ZONE 


F1BM3030 




00561 


-0 


60200 


3 


00657 




ORS 


D.3 




STORE DIGIT 


F1BM3040 




00562 


2 


00001 


4 


00513 




TIX 


CIl»4i 


1 


COUNT CHARACTERS 


F1BM3050 
F1BM3060 


TD 


00563 


-3 


00000 





00524 




TXL 


CI3 






TD 


00564 


3 


00000 





00566 


WP 


TXH 


WP9 




INVERTED TO TXL IF PR06RAM CARRIAGE CONTROL 


F1BM3070 

t m * *%- L M ** ** rt jtS 


TD 


00565 


-3 


00000 





00572 




TXL 


WP7 




NO PROGRAM 


F1BM3080 




00566 


-0 


53400 


1 


00612 


WP9 


LXD 


WP2.1 




MASK OUT FIRST COL. OF CARD IMAGE 


F1BM3090 
F1BM3100 
F1BM3110 
F1BM3120 
F1BM3130 
F1BM3140 
F1BM3150 
F1BM3160 
FIBM3170 




00567 


-0 


50000 





00617 




CAL 


MK2 




X 




00570 





32000 


1 


00662 


ANS 


ANS 


LT»1 




X 




00571 
00572 


2 
-0 


00001 
53400 


1 
1 


00570 
00424 


WP7 


TIX 
LXD 


ANS»li 
Z2»l 


1 


X 

COPY LOOP 




00573 





70000 


1 


00646 


CRAN 


CPY 


LT-121 


»1 






vv3 t ** 




f uvuu 


* 
i 


UU0£O 




CPY 


RT-12i 


.1 






00575 


1 


77777 


1 


00576 




TXI 


T2»l»- 


•1 






00576 


3 


77764 


1 


00573 


T2 


TXH 


CRAN»1*-12 






00577 


-0 


50000 





00564 




CAL 


WP 




RESET SWITCH FOR SECOND CYCLE 


F1BM3180 
F1BM3190 
F1BM3200 




00600 





60100 





00564 




STO 


WP 




X 





00601 


3 


00000 


4 


00610 


WP4 


TXH 


WP5»4 








00602 


-0 


53400 


1 


00551 




LXD 


XI. 1 




M0» RELOAD INDEX REGISTERS AND RETURN 


F1BM3210 
F1BM3220 
F1BM3230 
F1BM3240 
F1BM3250 
F1BM3260 
F1BM3270 

ft 1 F\ ±A *% *% A A 




00603 


-0 


53400 


2 


00557 




LXD 


X2»2 




X 




00604 


-0 


53400 


4 


00614 


WT2 


LXD 


X4.4 




X 




00605 





02000 


4 


00002 


L2 


TRA 


2*4 




X 




00606 





76600 





00361 


RPR2 


WPR 








TD 


00607 


-3 


00000 





00461 




TXL 


PR2-2 








00610 





76600 





00361 


WP5 


WPR 










00611 





76000 





00371 




SPR 


9 




SECOND CYCLE 


F1BM3280 
F1BM3290 
F1BM3300 
F1BM3310 
F1BM3320 
F1BM3330 




00612 


-3 


00014 





00500 


WP2 


TXL 


PRS.Oi 


• 12 


CONVERT REST OF LINE 




00613 


606060606060 


BLNKS 


BCD 


1 






A 


00614 





00000 





ooooo 


X4 


HTR 










00615 


+000000000020 


YZONE 


OCT 


20 








00616 


+000000000060 


BNK 


OCT 


60 







i-B 



o 



o 



o 



n 



00617 +377777777777 
00620 -0 00000 



77 


MK2 


OCT 


377777777777 


00000 


C0L1 


MZE 




00621 


COL 


BSS 


1 


00642 


RT 


BES 


16 


00642 


8.5 


BSS 


1 


00643 


8*4 


BSS 


1 


00644 


8.3 


BSS 


1 


00645 


8*2 


BSS 


1 


00657 





BES 


9 


00657 


Z 


BSS 


1 


00660 


X 


BSS 


1 


00661 


Y 


BSS 


1 


00662 


LT 


SYN 


Y+l 


00644 


8.4L 


SYN 


LT-14 


00624 


8.4R 


SYN 


RT-14 


00662 




BSS 


27 


00030 




END 


24 



F1BM3340 
F1BM3350 
F1BM3360 
F1BM3370 
F1BM33S0 
F1BM3390 
F1BM3400 
F1BM3410 
F1BM3420 
F1BM3430 
F1BM34*0 
F1BM3450 
F1BM3460 
F1BM3470 
F1BM3480 
F1BM3490 
F1BM3500 



tf 



REM MACHINE ERROR RECORD. 



00030 
00031 
00032 
00033 
00034 
00035 



00000 
76000 
02000 
76400 
76400 
02000 



00030 
00031 
00141 
00004 
00201 
00201 
00004 
00030 



THIS RECORD HALTS TO PERMIT OPERATOR F1ME0010 
MACHINE ERROR RECORD. THIS RECORD HALTS TO PERMIT OPERATOR 
INTERVENTION. IF THE SAME SOURCE PROGRAM IS TO BE RE-TRIED 
OPERATOR SHOULD PRESS START. IF NEXT SOURCE PROGRAM IS TO 
COMPILED* THE OPERATOR MUST MANUALLY TURN SL1-0N* AND PRESS 
START. 



00000 00000 00000 



ORG 
HTR 
NEXTIN SLT 
TRA 
BST 
BST 
TRA 
END 



MASTER 
24 

NEXTIN 
1 

4 
1 
1 
4 
24 



RECORD CARD = FO 130000. 



GO TO 1 - CS TO REPEAT PROBLEM. 
BACKSPACE OVER MACHINE ERROR RECORD. 
BACKSPACE OVER BATCH MONITOR. 
TO 1-CS TO READ NEXT RECORD. 



F1ME0010 
» F1ME0020 
BEF1ME0030 
F1ME0040 
F1ME0050 
F1ME0060 
F1ME0070 
F1ME0080 
F1ME0090 
F1ME0100 
F1ME0110 
F1ME0120 
F1ME0130 
F1ME0160 
F1ME0170 



& 



o 



o 



Q 



o 



PST 



00000 

00000 00004 00030 

00001 00000 03437 



APPLIED PROGRAMMING* IBM » L« MAY AND A. 
704 FORTRAN II / SECTION ONE. 



NOBLE JR. 

29 OCT 58 



SECTION 1= READS IN AND CLASSIFIES STATEMENTS. FOR ARITHMETIC4Fi0000 



FORMULAS* COMPILES THE OBJECT (OUTPUT) INSTRUCTIONS. FOR 
NONARITHMETIC STATEMENTS INCLUDING INPUT-OUTPUT* DOES A 
PARTIAL COMPILATION, AND RECORDS THE REMAINING INFORMATION 
IN TABLES. 

THE FIVE MAJOR DIVISIONS OF SECTION 1 ARE= 
COMMON* STATES A* B. C* AND D. COMMON REMAINS IN 
THROUGHOUT SECTION1. STATE A READS IN AND CLASSIFIES ALL 
STATEMENTS. AND TREATS NONARITHMETIC STATEMENTS. STATES B* 
C» AND D TREAT ARITHMETIC FORMULAS. 



CARD / COMMON = F0140000. 



SECTION 1 / COMMON = 

704 FORTRAN MASTER RECORD 

ORG 

P2E OR6COM..1T0CS 

PZE ORGA-l 



PART 1 / WORKING STORAGE* BUFFERS* AND TABLE PARAMETERS= 

EIFNO AND SENSE SWITCH SIMULATORS. 

TAPE TABLE BUFFERS. 

TAPE TABLE PARAMETERS - INTET. 

DRUM TABLE PARAMETERS. 

FORSUB COUNT AND BUFFER. 

CIB BUFFER AND PARAMETERS. 

REMAINING WORKING STORAGE. 
CONSTANTS USED BY SECTION ONE. 
SUBROUTINES USED BY SECTION 0NE= 

FUNCTION 

SCAN* AND CONVERT NUMERICS. 

SCAN CHARACTERS. 

CONVERT NUMERICS. 

INITIALIZE C0190 TO 1ST WORD OF F. 

INSERT CHARACTER. 

OBTAIN NEXT NON-BLANK CHAR IN AC. 



PART 2 

PART 3 

NAME 

C0150.2 

C0160.2 

C0180*2 

C019OX.4 

C0390.4 

C0190.4 

CIT00.4 

DIM.SR.4 

DRTABSU4) 

6ETIFN»4 

JIF(61F)*4 

MTR000 

RA 000*4 

RDRX»4 

SR6DC1*! 

SS000.4 

SUBX00»4 

TESTFX»1 

TEST..»4 

TETOO»1 

DIAG 



4F10001 
4F10002 
4F10003 
4F 10004 
4F10005 
LOWER MEMORY4F10006 
4F10007 
4F10008 
4F10009 
4F10010 
4F10011 
4F10012 
4F100121 
4F100122 
4F100123 
4F10013 
4F10014 
4F10015 
4F10016 
4F10017 
4F10018 
4F10019 
4F10020 
4F10021 
4F10022 
4F10023 
4F10024 
4F10025 
4F10026 
4F10027 
4F10028 
4F10029 
4F10030 



COMPILED INSTRUCTION TABLE ENTRIES.4F10031 

DIMENSION TABLE SEARCH. 4F10032 

DRUM TABLE ENTRIES. 4F10033 

GET INTERNAL FORMULA NUMBER. 4F10034 

JUMPS (GETS) IFN IN SL AND TL. 4F10035 

MONITOR STATES FROM DRUM. 4F10036 

COMPUTE RELATIVE ADDRESS. 4F10037 

READ DRUM INTO BUFR. 4F10038 

CONVERT 6 BCD DIGITS TO 1 BINARY. 4F10039 

SCAN AND PROCESS SUBSCRIPTS. 4F10040 

ADD BLANKS TO SUBROUTINE NAMES. 4F10041 

TEST FOR FIXED OR FLOATING POINT. 4F10042 

TEST CHARACTER IN THE AC. 4F 10043 

TAPE TABLE ENTRIES. 4F10044 

4F 10045 

DIAGNOSTIC CALLERS. 4F10046 



J/ 



17 V 



00030 
00031 
0O032 
00033 
00034 
00035 



THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING* 

** IN THE ADDRESS. TAG. OR DECREMENT OF AN INSTRUCTION 

» INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM. 

• IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF 
THIS LOGICAL BLOCK OR SUBROUTINE* 

C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED* 

P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH). 

• it**************************** 

COMMON/1-WORKING STORAGE. BUFFERS. AND TABLE PARAMETERS= 
00030 ORGCOM ORG 24 

• it**************************** 



00000 
00000 
00000 
00000 
00000 
00000 



EIFNO AND SENSE SWITCH SIMULATORS. 



4F10047 
4F10048 
4F10049 
4F10050 
4F10051 
4F10052 
4F10053 
4F10054 
4F10055 
4F10056 

♦4F10057 
4F10058 
4F10059 
4F10060 

♦4F10061 
4F10062 
4FI0063 



00000 
00002 
00002 
00002 
00002 
00002 



EIFNO 
ENDU 
END 1 2 
ENDI3 
EN0I4 
ENDI5 



P2E 
PZE 
PZE 
PZE 
PZE 
PZE 



2 
2 
2 
2 
2 
• 



EXTERNAL »♦ INTERNAL FORMULA NUMBER. 4F10064 



SIMULATOR FOR SENSE SWITCH 1. 
SIMULATOR FOR SENSE SWITCH 2. 
SIMULATOR FOR SENSE SWITCH 3. 
SIMULATOR FOR SENSE SWITCH 4. 
SIMULATOR FOR SENSE SWITCH 5. 



• •A************************** 



BUFFERS USED BY TETOO FOR THE TAPE TABLES. 



4F10065 
4F10066 
4F10067 
4F10068 
4F10069 
•4F10070 
4F10071 
4F10072 



00036 
00050 
00062 
00074 
00106 
00120 
00132 
00144 
00156 
00170 
00202 
00214 
00226 
00240 
00252 
00264 
00276 
00310 



TEIFNO 

TOO 

T1FG0 

TRAD 

FORTAG 

FORVAR 

FORVAL 

FRET 

EQUIT 

CLOSUB 

FORMAT 

SUBDEF 

COMMON 

HOLARG 

NONEXC 

TSTOPS 

CALLFN 

FMTEFN 



BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 



EXTERNAL. .INTERNAL FORMULA NUMBERS. 4F10073 
DO STATEMENTS. 4F10074 

IF AND GO TO STATEMENTS. 4F10075 

IF AND GO TO TRANSFER ADDRESSES. 4F10076 
INDEXES TO TAU AND SIGMA TABLES. 4F10077 
RIGHT - NON-SUB. FX. PT. VARIABLES. 4F10078 
LEFT - NON-SUB. FX. PT. VARIABLES. 4F10079 



10 
10 
10 
10 
10 
10 
10 
10 
10 

i e\ 

AW 

10 
10 
10 
10 
10 
10 
10 
10 

END OF THE TAPE TABLE BUFFERS. 
**«***»****»»***»♦*«**«» 



FREQUENCY STATEMENTS. 4F10080 

EQUIVALENCE STATEMENTS. 4F10081 

NAMES OF SUBROUTINES. 4F10082 

FORMAT STATEMENTS. 4F10083 

SUBROUTINE DEFINITION STATEMENTS. 4F10084 
UPPER MEMORY STORAGE STATEMENTS. 4F10085 
HOLLERITH ARGUMENTS FOR SUBROUTINE. 4F10086 
NON-EXECUTED STATEMENTS. 4F10087 

STOP STATEMENTS. 4F10088 

1ST / LAST IFN FOR CALL STATEMENTS. 4F10089 
TABLE OF FORMAT EXTERNAL FORMNOS. 4F10090 

4F10091 
***••• *4F10092 
4F10093 
4F10094 
4F10095 
4F10096 
4F10097 
4F10098 
4F10099 



INTET/ TABLE PARAMETERS USED BY TETOO. WHERE 

O * ORIGIN OF TABLE BUFFER. 

B « 

A * 

E « 

C « 

P « PORTION OF BUFFER THAT IS FULL.4F10100 



BUFFER CAPACITY. 
ADDRESS OF TABLE ENTRY. 
ENTRY LENGTH IN WORDS. 
COUNT OF BLOCKS PUT ON TAPE. 



J2- 



o 



n 



o 



00322 
00323 
00324 







00012 
00001 
00000 







00036 INTET 

00030 

00000 


PZE 
PZE 
PZE 


TEIFN0..10 
EIFNOt*l 


00325 
00326 
00327 







00012 
00005 
00000 







00050 
01105 
00000 


PZE 
PZE 
PZE 


T00»»10 
1C..5 


00330 
00331 
00332 







00012 
00002 
00000 







00062 
01105 
00000 


PZE 
PZE 
PZE 


TIFGOt.10 
lC»f2 


00333 
00334 
00335 







00012 
00001 
00000 







00074 
01112 
00000 


PZE 
PZE 
PZE 


TRAD..10 
1G*»1 


00336 
00337 
00340 







000 12 
00001 
00000 








00106 
01347 
00000 


PZE 
PZE 
PZE 


FORTAG»*10 

G»»l 

«*♦»** 


00341 
00342 
00343 







00012 
00002 
00000 







00120 
01347 
00000 


PZE 
PZE 
PZE 


FORVAR»»10 
G..2 


00344 
00345 
00346 







00012 
00002 
00000 







00132 
01347 
00000 


PZE 
PZE 
PZE 


FORVAL»»10 
G*»2 

#r,,#» 


00347 
00350 
00351 







00012 
00001 
00000 







00144 
01112 
00000 


PZE 
PZE 
PZE 


FRET.. 10 
1G..1 


00352 
00353 
00354 







00012 
00002 
00000 







00156 
01105 
00000 


PZE 
PZE 
PZE 


EQUIT..10 
1C..2 


00355 
00356 
00357 







00012 
00001 
00000 







00170 
01347 
00000 


PZE 
PZE 
PZE 


CL0SUB..10 
G..1 


00360 
00361 
00362 







00012 
00002 
00000 








00202 
01347 
00000 


PZE 
PZE 
PZE 


FORMAT. .10 
G..2 


00363 
00364 
00365 







00012 
00001 
00000 







00214 
01112 
00000 SBDFCN 


PZE 
PZE 
PZE 


SUB0EF..10 
1G..1 


00366 
00367 
00370 







00012 
00001 
00000 







00226 
01112 
00000 


PZE 
PZE 
PZE 


COMMON.. 10 
1G..1 



00371 00012 00240 



PZE H0LARG..10 



00) 


0..B* 




A..E. 




C..P. 


01) 


0..B. 




A..E. 




C..P. 


02) 


0..B* 




A..E* 




C..P. 


03) 


0..B* 




A..E* 




C».P. 


04) 


0..B* 




A»»E. 




C..P* 


05) 


0..B. 




A..E* 




C».P. 


06) 


0..B* 




A..E* 




C..P. 


07) 


0»»B« 




A..E. 




C..P. 


08) 


0..B* 




A..E. 




C.P. 


09) 


0..B. 




A..E. 




C..P. 


10) 


0..B. 




A..E* 




C.P. 


11) 


0..B* 




A.»E. 




C.P. 


12) 


0..B* 




A..E. 




C..P. 


13) 


0..B* 



4F10101 

4F10102 

4F10103 

4F 10104 

4F10105 

4F10106 

4F10107 

4F10108 

4F10109 

4F10110 

4F10111 

4F10112 

4F10113 

4F10114 

4F10115 

4F10116 

4F10117 

4F10118 

4F10119 

4F10120 

4F10121 

4F10122 

4F10123 

4F10124 

4F10125 

4F10I26 

4F10127 

4F10128 

4F10129 

4F10130 

4F10131 

4F10132 

4F10133 

4F10134 

4F10135 

4F10136 

4F10137 

4F10138 

4F10139 

4F10140 

4F10141 

4F10142 

4F10143 

4F10144 

4F10145 

4F10146 

4F10147 

4F10148 

4F10149 

4F10150 

4F10151 

4F10152 

4F10153 

4F10154 



33 



V V 



00372 
00373 






00001 
00000 






01112 
00000 


PZE 
P2E 


16>*1 
****** 


60374 
00375 
00376 







00012 
00001 
00000 







00252 
00030 
00000 


PZE 
PZE 
PZE 


NONEXC**10 

E1FN0»»1 

****** 


00377 
00400 
00401 







00012 
00001 
00000 







00264 
00030 
00000 


PZE 
PZE 
PZE 


TST0PS*»10 
EIFNO**l 


00402 
00403 
00404 







00012 
00001 
00000 







00276 
01123 
00000 


PZE 
PZE 
PZE 


CALLFN»»10 
CALLNM»»1 


00405 
00406 
00407 







00012 
00001 
00000 







00310 
01366 
00000 

00410 


PZE 
PZE 
PZE 

BSS 


FMTEFN»»10 

SET..1 

•*»,*• 

3 
END OF TAPE 

******* 





A».E. 

C*.P. 


14) 


0»«B. 
A».E. 


15) 


0»»B. 
A*.E. 


16) 


0»tB« 
A».E. 
C*«P. 


17) 


0»*B. 
A*«E. 
C»»P. 



EXPANSION SPACE FOR 1NTET. 
TABLE PARAMETERS. 
***••***•***»**•*•*•**• 



••».IX/ TABLE PARAMETERS USED BY 0RTA8S* WHERE 

ARG1 » 1ST LOCATION OF ARGUMENT* 

L > LENGTH OF ARGUMENT IN WORDS 

TOA « LOO OF NEXT DRUM ENTRY* 

N * NO* OF ENTRIES ON DRUM* 

••* c TXL FOR ENTRY SUM TABLES* 

*** « TXH FOR BLOCK SUM TABIFLCN) 

FDA * LOO OF 1ST DRUM ENTRY. 

K > BUFFER CAPACITY IN ENTRIES. 

DBL « K*tL+l) FOR ENTRY SUM TABLE 

D6L > K*L+1 FOR BLOCK SUM TABLE 

J ■ DRUM CAPACITY IN ENTRIES* 

I » 5 - DRUM NUMBER. 



00413 





00001 





01350 




00414 





ooooo 





00002 




00415 


-3 


00062 





00002 


TXLOP 


00416 





00144 





00144 




00417 


1 


00003 





02073 


FXCN1X 


00420 





00001 





01350 




00421 





OOOOO 





00312 




00422 


3 


00062 





00312 


TXHOP 


00423 





00702 





00063 




00424 


1 


00003 





02073 


FLCNIX 


00425 





00002 





01133 




00426 





OOOOO 





OOOOO 




00427 


-3 


00062 





OOOOO 




00430 


Q 


00144 





00113 




00431 


1 


00001 





02073 


TAU1IX 



PZE G+l»*l 

PZE FIXCON**** 

TXL FIXCON*»50*1 

PZE 50*2*. 100 

TXI ALT*. 5-2 

PZE G+l*»l 
PZE FLOCON*.** 
TXH FL0CON»»50*l 
PZE 50*1+1**450 
TXI ALT*. 5-2 

PZE E+3+2».2 
PZE TAU1*.** 
TXL TAU1».25*2 
PZE 25*3**100 
TXI ALT. .5-4 



FIXCON) ARG1+L..L 
TDA**N 

*** FDA»»K*L 
DBL»«J 

TXI ALT** I 

FLOCON) ARG1+L».L 
TDA..N 
*** FDA»»K*L 

DBL*. J 
TXI ALT*. I 

TAU1 } ARG1+L..L 
TDA**N 

*** FDA*»K*L 
DBL** J 

TXI ALT»»I 



4F10155 
4F10156 
4F10157 
4F10158 
4F10159 
4F10160 
4F10161 
4F10162 
4F10163 
4F10164 
4F10165 
4F10166 
4F10167 
4F10168 
4F10169 
4F10170 
4F10171 
4F10172 
4F10173 
4F10174 
4F10175 

•4F10176 
4F10177 
4F10178 
4F10179 

»4F10180 
4F10181 
4F10182 
4F10183 

♦4F10184 
4F10185 
4F10186 

*4F10187 

»4F10188 
4F10189 
4F10190 
4F10191 
4F10192 
4F10193 
4F10194 
♦F10195 
4F10196 
4F10197 
4F10198 
4F10199 
4F10200 
4F10201 
4F10202 
4F10203 
4F10204 
4F10205 
4F10206 

4F10207 
4F10208 



// 



o 



o 



o 



n 



00432 
00433 
00434 
00435 
00436 

00437 
00440 
00441 
00442 
00443 

00444 
00445 
00446 
00447 
00450 

00451 
00452 
00453 
00454 
00455 

00456 
00457 
00460 
00461 
00462 

00463 
00464 
00465 
00466 
00467 



00004 
00000 
00060 
00132 
00001 

00006 
00000 
00060 
00113 
00001 

00001 
00001 
00036 
00036 
00003 

00002 
00000 
00000 
00144 
00002 

00002 
00000 
00000 
00144 
00002 



01135 
00454 
O0454 
00074 
02073 

01137 
01356 
01356 
00070 
02073 

01142 
01230 
01226 
00074 
02073 

01107 
00310 
00310 
O0000 
02071 



00003 

00000 

-3 00000 

00132 

1 00002 



PZE E+3+4,.4 
PZE TAU2»»»* 
TXL TAU2*»12*4 
PZE 12*5 »» 90 
TAU2IX TXI ALT »» 5-4 

PZE E+3+6»«6 
PZE TAU3**** 
TXL TAU3»»8*6 
PZE 8*7»*75 
TAU31X TXI ALT* .5-4 

PZE E+ll+l**l 
PZE SIGMAl+2».l 
TXL SIGMA1**30*1 
PZE 30*2 *» 30 
SIG1IX TXI ALT.. 5-2 



01107 
00764 
00764 
00000 
02071 

OHIO 
01440 
01440 
00000 
02071 



00470 
00471 



0RGDM1 
DIM1IX 

OR 60M2 
DIM2IX 

0R6DM3 
0IM3IX 



FORSUB 



PZE 1C+2..2 
PZE DIM1..** 
TXL 0IM1..0 
PZE 0**100 
TXI DIMALT..5-3 

PZE 1C*2»*2 
PZE DIM2**** 
TXL 0IM2..0 
PZE 0**100 
TXI DI MALT*. 5-3 

PZE lC+3»*3 
PZE DIM3**** 
TXL DIM3»»0 
PZE 0*»90 
TXI OIHALT*»5-3 



TAU2 I ARG1+L..L 
TDA**N 

*** FOA*«K*L 
D6L..J 

TXI ALT*»I 

TAU3 » ARG1+L»*L 
TDA»»N 

*** FDA»*K*L 
DBL**J 

TXI ALT»»I 

SIGMA1I ARG1+L»»L 
TDA..N 
*** FDA.»K.*L 

DBL..J 
1X1 ALT**! 

0IM1 ) AR61+L»*L 
TOA*.N 
**« FDA».K*L 

DBL»»J 
TXI ALT»*I 

DIM2 I ARG1+L..L 
TDA»»N 
*** FDA»*K*L 

DBL..J 
TXI ALT»»I 

DIM3 ) ARG1+L»»L 
TDA»*N 
*** FDA»»>C*L 

D8L»»J 
TXI ALT**I 



BSS 
BSS 



00635 





00144 





ooooo 


BS 


PZE 


00636 





00000 





ooooo 


EC 


PZE 


00637 





ooooo 





ooooo 

00640 


BBOX 
CIB 


PZE 
BSS 



END OF DRUM TABLE PARAMETERS. 

#»•###*#♦*##»****»*»»«****»***• 

COUNT AND BUFFER FOR TABLE OF FUNCTION NAMES AND DEGREES. 

1 FORSUB COUNTER. 

100 NAMES AND DEGREES OF FUNCTIONS. 

END OF FUNCTION COUNT AND BUFFER* 
##*»*#************************ 

PARAMETERS AND BUFFER FOR COMPILED INSTRUCTION TABLE. 
,,100 CIB CAPACITY (4 * 25». 

,,♦* ENTRY COUNT ■ NO. WORDS IN CIB. 

,,** 2S COMPLEMENT OF THE ENTRY COUNT. 

100 COMPILED INSTRUCTION BUFFER. 

END OF CIT PARAMETERS AND BUFFER. 
• ft**************************** 

ALL OF THE ABOVE BUFFERS AND PARAMETERS ARE USED BY 1 PRIME. 



4F10209 
4F10210 
4F10211 
4F10212 
4F10213 
4F10214 
4F10215 
4F10216 
4F10217 
4F10218 
4F10219 
4F10220 
4F10221 
4F10222 
4F10223 
4F10224 
4F10225 
4F 10226 
4F10227 
4F10228 
4F10229 
4F10230 
4F10231 
4F10232 
4F10233 
4F10234 
4F10235 
4F10236 
4F10237 
4F10238 
4F10239 
4F10240 
4F 10241 
4F10242 
4F 10243 
4F 10244 
4F10245 
♦4F10246 
4F10247 
4F 10248 
4F10249 
4F10250 
4F10251 
♦4F10252 
4F10253 
4F10254 
4F10255 
4F10256 
4F10257 
4F10258 
4F 10259 
♦4F10260 
4F10261 
4F10262 



ss. 



vv 





01100 


ORG 


576 




01100 ERASE 


BSS 


5 




01105 1C 


OSS 


5 




01112 1G 


BSS 


1 




01113 2G 


BSS 


1 




01114 36 


BSS 


1 




01115 1H 


BSS 


1 




01116 2H 


BSS 


1 




01117 3LBAR 


BSS 


1 




01120 ARERAS 


BSS 


1 


0X121 


-0 00001 00004 ARGCNT 


MZE 


4.»1 




01122 ARGCTR 


BSS 


1 


61123 


00000 000O0 CALLNM 


PZE 


**,,** 




01124 CHSAVE 


BSS 


1 




01125 DIMSAV 


BSS 


1 




01126 E 


BSS 


14 




01144 EPSM3 


BSS 


3 




01147 EPS 


BSS 


1 




01150 E1C 


BSS 


1 




01151 EFN 


BSS 


1 




01152 F 


BSS 


111 




01331 FIRSTG 


BSS 


1 




01332 FSNAME 


BSS 


1 




01333 FT 


BSS 


12 




01347 G 


BSS 


2 




01351 GTA6 


BSS 


1 


01352 


307400000000 HOLCNT 


BCD 


1HC00O0 




01353 I 


BSS 


1 




01354 LEFT 


BSS 


3 


01357 


00000 00000 LENGTH 


PZE 


*•»•** 




01360 NBAR 


BSS 


1 




01361 N2 


BSS 


1 




01362 OPNWRD 


BSS 


1 


01363 


00000 00000 PHI (If 


PZE 


**,«** 


01364 


00000 00010 RAT 


PZE 


8»»*» 




01365 RESIDU 


BSS 


1 


01366 


1 00000 00000 SET 


PON 


• • 




01367 SL 


BSS 


1 




01370 SYMBOL 


BSS 


1 


01371 


00000 00370 TL 


PZE 


31*8i»** 


01372 


00000 00000 TLIKE 


PZE 


*• 
END OF 

* » * * 

COMMON /2 


01373 


♦000000000012 TEN 


OCT 


12 


01374 


+000000000077 ENDMK 


OCT 


77 


01375 


+0000000000 74 OPEN 


OCT 


74 


01376 


♦000000000073 COMMA 


OCT 


73 


01377 


+000000000034 CLOS 


OCT 


34 


01400 


♦000000000013 EQUAL 


OCT 


13 


01401 


♦000000000040 11Z 


OCT 


40 


01402 


♦000000000061 SLASH 


OCT 


61 



COMMON WORKING STORAGE* 
COMMON WORKING STORAGE* 
COMMON WORKING STORAGE* 
COMMON WORKING STORAGE FOR STATE A 



STORAGE USED BY ARITHMETIC* 
STORAGE USED BY ARITHMETIC* 
ARGUMENT COUNTER USED BY C30.C32. 
STORAGE USED BY ARITHMETIC. 

WORKING STORAGE USED BY ROYCNV. 
WORKING STORAGE USED BY SSOOO. 
WORKING STORAGE USED BY SSOOO. 

EPSILON - VARIABLE USED BY RAOOO. 
COMMON WORKING STORAGE* 
EXTERNAL FORMULA NUMBER <F-1>. 
ASSEMBLED STATEMENT REGION. 
USED BY SS00O.TESTFX.C3000. 
NAME OF FUNCTION* 
SOURCE PR06RAM INPUT BUFFER. 

VARIABLE USED BY IOT. RA. 
WORKING STORAGE USED BY C3300. 

STORAGE USED BY ARITHMETIC* 

STORAGE USED BY ARITHMETIC* 

ERASABLE USED BY STATE D. 

VARIABLE USED BY IOT. 

REMAINDER OF F-REGION WORD. {C0190) 

WORKING STORAGE USED BY SSOOO. 

VARIABLE USED BY IOT. 
COMMON WORKING STORAGE. BUFFERS. AND PARAMETERS. 
***•••*• * * **************** 

-CONSTANTS USED BY SECTION ONE= 

(1010) - CTEST-11 

111111 - CTEST-10 

I - CTEST-9 

. - CTEST-8 

) - CTEST-7 

» - CTEST-6 

- CTEST-5 

/ - CTEST-4 



4F102625 
4F10263 
4F10264 
4F10265 

•4F10266 
4F10267 
4F10268 
4F10269 
4F 10270 
4F10271 
4F10272 
4F10273 
4F10274 
4F10275 
4F10276 
4F10277 
4F 10278 
4F10279 
4F10280 
4F10281 
4F10282 
4F10283 
4F10284 
4F10285 
4F10286 
4FI0287 
4F10288 
4F10289 
4F10290 
4F10291 
4F10292 
4F10293 
4F 10294 
4F10295 
4F10296 
4F10297 
4F10298 
4F10299 
4F10300 
4F10301 
4F10302 
4F10303 

•4F10304 
4F10305 
4F 10306 
4F10307 
4F10308 
4F 10309 
4F10310 
4F10311 
4F10312 
4F10313 
4F10314 
4F10315 



Si 



o 



o 



n 



n 



01403 +000000000033 POINT OCT 33 

01404 4000000000020 122 OCT 20 

01405 +000000000054 STAR OCT 54 

01406 CTEST BSS 



01406 
01407 
01410 
01411 
01412 
01413 
01414 
01415 
01416 
01417 
01420 
01421 
01422 
01423 
01424 
01425 
01426 
01427 
01430 
01431 
01432 
01433 
01434 
01435 
01436 
01437 
01440 
01441 
01442 
01443 
01444 
01445 
01446 
01447 
01450 
01451 
01452 
01453 
01454 
01455 
01456 
01457 
01460 
01461 
01462 
01463 
01464 
01465 
01466 



000000000000 L(0) BCD 1000000 

000000000001 td) BCD 1000001 

000000000002 Lt2) BCD 1000002 

000000000003 1.(3) BCO 1000003 

000000000004 LUI BCD 1000004 

000000000005 LIS) BCD 1000005 

000000000006 Ut 6) BCD 1000006 

000000000007 L<7> BCD 1000007 

000000000010 1(8) BCD 1000008 

000000000011 L<9) BCD 1000009 
+000000000014 MINUS OCT 14 

000000000023 LtC) BCD 1000O0C 

000000000026 L(F) BCD 1OO0OOF 

000000000030 L(H) BCD 100000H 

+000000000032 CHAR2 OCT 32 

000000000046 LlO) BCD 1000000 

+000000000052 CHAR3 OCT 52 

+000000000053 SPECOP OCT 53 

+000000000060 BLANK OCT 60 

000000000062 L(S> BCD 100000S 

000000000063 L(T) BCD 100000T 
000000000067 L(X) BCD 100000X 
000000000071 LiZ) BCD 100000Z 

+000000000072 PM OCT 72 

+000000000100 BIT29 OCT 100 

+000000000121 A81 DEC 81 

♦000000000140 L<96J OCT 140 

+000000000160 LI112) OCT 160 

+000000000777 MASK3 OCT 777 

+000000001000 1E9 OCT 1000 

000000002174 L(AI) BCD 10O0OAI 

000000003074 L(H() BCD 10000H( 

000000003174 Lilt) BCD 10000 I ( 

+000000006212 SAPSYM OCT 6212 

+000000006712 IFSYM OCT 6712 

+000000007112 CALLER OCT 7112 

+000000077777 MASK2 OCT 77777 

+000000400000 2E17 OCT 400000 

+000001000000 2E18 OCT 1000000 

00001 00001 DECR1 PZE 1»*1 

+000001000002 ABTAG2 OCT 1000002 

00002 00000 02 PZE t*2 

+000002000004 ABTAG3 OCT 2000004 

00003 00000 03CN PZE »»3 

+000003077775 BETAD2 OCT 3077775 

00006 00000 06 PZE t*6 

00020 00000 FSIND PZE »*16 

00021 00000 DEC17 PZE »»17 

00022 00000 DEC18 PZE **18 



• - CTEST-3 
+ - CTEST-2 

* - CTEST-1 

ADDRESS USED FOR INDEXING ABOVE* 





1 
2 
3 
4 
5 
6 
7 
8 
9 



C 

F 

H 

CONSTANT USED BY CDOOO. 

O (ALPHABETIC) 

CONSTANT USED BY CDOOO* 

00000$ 

000000000060 

S 

T 

X 

z 

RECORD MARK {ILLEGAL) -CDOOO 

CONSTANT USED BY IOT. 
USED BY C0500. 
USED BY C0400. 

-ARITHMETIC. 
ADDRESS*8 
INTERNAL FLO-PT VARIABLE PREFIX. 

INTERNAL FXD-PT VARIABLE PREFIX. 



2**15-1 -ARITHMETIC. 

TAG*4 

DECREMENTS 

CONSTANT USED BY DRTABS* 

CONSTANT USED BY C3200. 

CONSTANT USED BY IOT. 

CONSTANT USED BY C3200. 

CONSTANT USED BY IOT. 

3*2**18+t-3) -ARITHMETIC. 

CONSTANT USED BY IOT. 



4F10316 

4F10317 

4F10318 

4F10319 

4F10320 

4F10321 

4F 10322 

4F10323 

4F10324 

4F10325 

4F10326 

4F10327 

4F10328 

4F10329 

4F10330 

4F10331 

4F10332 

4F10333 

4F10334 

4F 10335 

4F10336 

4F10337 

4F10338 

4F10339 

4F10340 

4F10341 

4F 10342 

4F10343 

4F10344 

4F10345 

4F10346 

4F10347 

4F 10348 

4F10349 

4F10350 

4F10351 

4F10352 

4F10353 

4F10354 

4F10355 

4F10356 

4F10357 

4F10358 

4F10359 

4F10360 

4F10361 

4F10362 

4F10363 

4F10364 

4F10365 

4F10366 

4F10367 

4F10368 

4F10369 



37 



01467 +000032000000 P2 OCT 

01470 +000037777600 MASK5 OCT 

01471 00040 00000 FNIND PZE 

01472 00043 00000 DEC35 PZE 

01473 +000052000000 MZ OCT 

01474 +000200000000 NGTBIT OCT 

01475 00220 00000 BTA PZE 

01476 00300 00000 BOA PZE 

01477 006060606060 5BLANS BCD 

01500 010000000000 E< BCD 

01501 020000000000 I< BCD 

01502 030000000000 A« BCD 

01503 040000000000 P( BCD 

01504 060000000000 0( BCD 

01505 070000000000 Xf BCD 

01506 +077775077775 BETAD1 OCT 

01507 +077777000000 1BAR OCT 

01510 +170000000000 15P DEC 

01511 +176060606060 PROCTR OCT 

01512 +200000000000 ADPLUS OCT 

01513 217400000000 FLOVAR BCD 

01514 256747740160 FXFX BCD 

01515 256747740260 FLFX BCD 

01516 256747740360 FLFL BCD 

01517 317400000000 FIXVAR BCD 

01520 -0 00000 00000 MINUSO MZ£ 

01521 -0 00002 00000 DECMI2 MZE 

01522 -130000000000 ADSPOP OCT 

01523 -136000000000 DOLSGN OCT 

01524 -140000000000 ADSTAR OCT 

01525 -145400000000 STRSTR OCT 

01526 606060606060 BLANKS BCD 

01527 -377777700000 MASK1 OCT 

01530 -377777777737 MASK4 OCT 

01531 -377777777777 ALL1 OCT 

01532 212424000000 L(ADD) BCD 

01533 214362000000 L(ALS) BCD 

01534 214521000000 L(ANA) BCD 

01535 215162000000 L(ARS) BCD 

01536 226262000000 L(BSS1 BCD 

01537 232143000000 LJCAL) BCD 

01540 233062000000 Li CHS) BCD 

01541 234321000000 L(CLA) BCD 

01542 234344000000 L(CLM» BCD 

01543 234362000000 L«CLS) BCD 

01544 234770000000 LiCPY) BCD 

01545 242363000000 L<DCT> BCD 

01546 242524000000 L<DED» BCD 

01547 246547000000 L(DVP) BCD 

01550 262124000000 L(FAD) BCD 

01551 262447000000 LIFDP) BCD 

01552 264447000000 LtFMPJ BCD 

01553 266222000000 LI FSB I BCD 



32000000 

37777600 

.,32 

*,35 

52000000 

000200000000 

»»144 

0*0*192 

10 

1100000 

1200000 

1300000 

1400000 

1600000 

1700000 

77775077775 

77777000000 

15B5 

176060606060 

200000000000 

lAtOOOO 

1EXPU 

1EXP(2 

1EXP(3 

11(0000 



»*2 

530000000000 

536000000000 

-140000000000 

-145400000000 

1 

-377777700000 

-377777777737 

-377777777777 

1ADD000 
1ALS000 
1ANA000 
1ARS0O0 
1BSSOO0 
1CAL000 
1CHS000 
1CLA000 
1CLM0O0 
1CLS000 
1CPY000 
1DCT0O0 
10EDOOO 
10VP0O0 
1FAD000 
1FDP000 
1FMP000 
1FSB000 



PLUS ZERO -CDOOO. 



-ARITHMETIC. 



MINUS ZERO -CDOOO* 

CONSTANT USED BY IOT. 
CONSTANT USED BY IOT* 
006060606060 

-ARITHMETIC. 

-ARITHMETIC. 

-ARITHMETIC. 

-ARITHMETIC. 

-ARITHMETIC. 

-ARITHMETIC. 
t-3{*2**18+<-3) -ARITHMETIC, 
f 2**15-1 )*2**18DECREMENT MASK. 
CONSTANT USED BY IOT. 

ADDITION SIGN -ARITHMETIC. 

A{ INTERNAL FLOATING PT. VARIABLE. 



I( INTERNAL FIXED PT. VARIABLE. 



SOOOOO 

CONSTANT USED BY C32000 
MULTIPLICATION SIGN -ARITHMETIC. 
EXPONENTIATION SIGN -ARITHMETIC. 
606060606060 

-{2**20-U.*2**15 -ARITHMETIC. 
-ARITHMETIC. 
END OF STATEMENT WORD. 

SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE* 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 

SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 

SYMBOLIC OPERATION CODE. 



SYMBOLIC 
SYMBOLIC 
SYMBOLIC 
SYMBOLIC 
SYMBOLIC 



OPERATION CODE. 
OPERATION CODE. 
OPERATION CODE. 
OPERATION CODE. 
OPERATION CODE. 



4F10370 

4F10371 

4F10372 

4F10373 

4F10374 

4F10375 

4F10376 

4F10377 

4F10378 

4F10379 

4F10380 

4F10381 

4F10382 

4F 10383 

4F10384 

4F10385 

4F10386 

4F10387 

4F10388 

4F10389 

4F10390 

4F10391 

4F10392 

4F10393 

4F10394 

4F10395 

4F10396 

4F10397 

4F10398 

4F10399 

4F10400 

4F10401 

4F10402 

4F10403 

4F 10404 

4F10405 

4F 10406 

4F10407 

4F10408 

4F104O9 

4F10410 

4F10411 

4F10412 

4F10413 

4F10414 

4F10415 

4F10416 

4F10417 

4F10418 

4F10419 

4F10420 

4F10421 

4F10422 

4F10423 



I? 



o 



n 



O 



01554 304751000000 

01555 432421000000 

01556 432450000000 

01557 434362000000 

01560 435162000000 

01561 436724000000 

01562 444770000000 

01563 446225000000 

01564 465121000000 

01565 476225000000 

01566 476724000000 

01567 504751000000 

01570 506724000000 

01571 626321000000 

01572 626346000000 

01573 626350000000 

01574 626422000000 

01575 626724000000 

01576 633167000001 

01577 634665000000 

01600 635046000000 

01601 635121000000 

01602 636267000000 

01603 642621000000 



L ( HPR ) 
L(LDA) 
L(LDQ) 
L(LLS) 
L(LRS) 
LtLXOJ 
L(MPY) 
L(MSE) 
U0RA1 
L(PSE) 
L(PXDJ 
L(QPRJ 
L(QXD) 
L(STA) 
L(STO) 
L(STQ) 
L(SUB) 
LCSXDJ 
L(TIX) 
L(TOV) 
L(TQO) 
LJTRA) 
L(TSX) 
HUFA) 



01604 


-0 


63400 


2 


01607 


C0150 


01605 





07400 


4 


01707 




01606 





34000 





01417 




01607 


1 


00000 





01615 


C015X 


01610 





76100 





00000 




01611 





07400 


2 


01655 




01612 





6C-00 





01113 




01613 





50000 





01406 




01614 


1 


00000 





01620 


FWA 


01615 





07400 


2 


01624 


C0151 


01616 





60100 





01113 




01617 





50200 





01406 




01620 





60100 





01353 


C0152 


01621 





50000 





01113 




01622 


-0 


53400 


2 


01607 




01623 





02000 


2 


00001 





BCD 1HPR000 
BCD 1LDA0OO 
BCD 1LDQ000 
BCD ILLSOOO 
BCD 1LRS000 
BCD 1LXD000 
BCD 1MPY000 
BCD 1MSE000 
BCD 1ORA000 
BCD 1PSE000 
BCD 1PXD000 
BCD 1QPR000 
BCD 1QXD000 
BCD 1STA000 
1ST0000 
1STQ0O0 
1SUB000 
1SXD0Q0 
1TIX001 
1TOVO00 
BCD 1TQO000 
BCD 1TRA000 
1TSX000 
1UFA0O0 



BCD 
BCD 
BCD 
BCD 
BCD 
BCD 



BCD 
BCD 



SYMBOLIC OPERATION CODE* 

SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
CONSTANT USED BY C3200. 
CONSTANT USED BY C3200. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 

SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 



END OF COMMON CONSTANTS USED BY SECTION ONE. 
#*»#***«******■************ 

COMMON/3-SUBROUTINES USED BY SECTION ONE= 



» * * * 



*************** 



*#*»»*****«**** 



C0150»2/ CALLS=C0190»DIAG»C0180*C0160. CALLER=C0100. 
C0150 INSPECTS 1ST NB CHAR STARTING IN MQ. IF NUMERIC* SETS 
0* AND CONVERTS SUCCESSIVE NUMERICS TO BINARY. IF NON- 



4F 10424 
4F10425 
4F 10426 
4F10427 
4F10428 
4F10429 
4F10430 
4F10431 
4F10432 
4F10433 
4F 10434 
4F10435 
4F10436 
4F 10437 
4F10438 
4F10439 
4F10440 
4F 10441 
4F 10442 
4F10443 
4F10444 
4F 10445 
4F 10446 
4F10447 
4F 10448 

♦4F10449 
4F10450 
4F10451 
4F10452 

•4F10453 
4F10454 
4F10455 

I4F10456 
4F10457 



NUMERIC. SETS I = -0. AND PACKS INTO 1G SUCCESSIVE CHARACTERS4F10458 



,() = OR ENDMK IS MET* AND LEFT IN THE AC. 
SAVE THE C<XR2>. 
TEST 1ST NON-BLANK CHARACTER 
FOR NUMERIC OR NON-NUMERIC. 
IF NON-NUMERIC* TRANSFER. 
IF NUMERIC. THEN 
GO CONVERT TO BINARY. 
SAVE NEXT NON-NUMERIC CHARACTER. 
PREPARE TO SET I TO +0. 
GO SET I FOR NUMERIC. 
ASSEMBLE NON-NUMERICS IN 1G. 
SAVE PUNCTUATION MARK* AND 
PREPARE TO SET I TO -0. 
SET I ■ +0* OR -0. 
PICKUP NEXT CHARACTER* 
RESTORE THE C(XR2)» AND 
RETURN TO CALLER. 



UNTIL A 
SXD C015X.2 
TSX C0190.4 
CAS L(9) 
TXI C0151»O»** 
NOP 

TSX C0180.2 
STO 2G 
CLA L(0) 
TXI C0152.O*** 
TSX C0160.2 
STO 26 
CLS L<0) 
STO I 
CLA 2G 
LXD C015X.2 
TRA 1*2 

END OF PROGRAM C0150. 

************ 



* * * * * 



************ 



4F10459 
4F10460 
4F 10461 
4F10462 
4F10463 
4F10464 
4F10465 
4F10466 
4F 10467 
4F10468 
4F10469 
4F10470 
4F10471 
4F 10472 
4F10473 
4F10474 
4F10475 
4F10476 
* **F10477 



*1 



V V 
















4F10478 












C0160.2/ CALLS= 


=C0190» 


DIAG. CALLERS=C0100.C02O0»C1000»C1200» 


4F10479 












C1500»C3000»C3100»C0150. 


4F10480 












C0160 ASSEMBLES LEFT- 


ADJUSTED IN 1G» THE CHAR IN THE AC AND 


4F10481 












SUCCESSIVE 


NB CHARS STARTING IN THE MO. UNTIL A .()= OR ENDMK4F10482 












IS MET AND 


LEFT IN THE AC* ALSO MARKS END OF WORD WITH A 


4F10483 












BLANK. IF LESS 


THAN 6 


CHARACTERS. 


4F10484 






01624 


-0 63400 2 01631 


C0160 


SXD C016X.2 






SAVE THE C(XR2)» AND 


4F10485 






01625 


53400 2 01406 




LXA L(0>»2 






SET XR2 TO CONTROL SHIFTING. 


4F10486 






01626 


60000 01112 




ST2 1G 






CLEAR WORKING STORAGt. 


4F10487 






01627 


53400 4 02652 


C0161 


LXA CTESTX.4 






TEST 


4F10488 






01630 


34000 4 01406 


C0162 


CAS CTEST.4 






CHARACTER 


4F10489 






01631 


1 00000 01633 


C016X 


TXI C0163.0.** 






IN THE AC 


4F10490 






D 01632 


1 00000 01642 




TXI C0165»0 






AGAINST 


4F10491 






01633 


2 00001 4 01630 


C0163 


TIX C0162.4.1 






ALL PUNCTUATION. 


4F10492 






01634 


-3 00036 2 01636 




TXL C0164.2.30 






IF SYMBOL EXCEEDS 6 CHARACTERS. 


4F10493 






01635 


07400 4 03400 




TSX DIAG*4 






« 60 TO THE DIAGNOSTIC. 


4F10494 






01636 


76700 2 00036 


C0164 


ALS 30*2 






BUILD LEFT-ADJUSTED 


4F10495 






01637 


-0 60200 01112 




ORS 16 






SYMBOL IN WORKING STORAGE. 


4F10496 






01640 


07400 4 01707 




TSX C0190.4 






* GET NEXT NB CHARACTER IN THE AC. 


4F10497 






01641 


1 00006 2 01627 




TXI C0161.2.6 






UPDATE SHIFT COUNT. AND CONTINUE. 


4F10498 






01642 


3 00000 2 01644 


C0165 


TXH C0167.2.0 






IF PUNCTUATION IS 1ST CHARACTER. 


4F10499 






01643 


07400 4 03400 


CO 166 


TSX DIAG.4 






* OR ILLE6AL. GO TO THE DIAGNOSTIC. 


4F10500 






01644 


=3 00005 4 01643 




TXL C0166.4.5 






IF LEGAL PUNCTUATiON. THEN 


4F1050I 






01645 


60100 01115 




STO 1H 






SAVE. AND 


4F10502 






01646 


50000 01430 




CLA BLANK 






ADD A BLANK 


4F10503 






01647 


76700 2 00036 




ALS 30.2 






TO SYMBOLS THAT ARE LESS 


4F10504 






01650 


-0 60200 01112 




ORS 1G 






THAN 6 CHARACTERS IN LENGTH. 


4F10505 






01651 


50000 01115 




CLA 1H 






PICKUP PUNCTUATION MARK. 


4F10506 






01652 


-0 53400 2 01631 




LXO C016X.2 






RESTORE THE CCXR2). AND 


4F10507 






01653 


02000 2 00001 




TRA 1.2 






* RETURN TO CALLER. 


4F 10508 












END OF PROGRAM 


C0160 


> 


4F10509 












• •••** 


• * 


* * * 


♦ ****»***#»#**#*##* 


•4F10510 
4F10511 












C0180.2/ CALLS= 


C0190.DIAG. CALLERS=C0100.C0200»C0300«C0400» 


4F10512 












C1000.C1100 


.C1200.C1400.C1500.C0150. 


4F10513 












C0180 CONVERTS 


SUCCESSIVE NUMERICS STARTING IN THE MO TO 


4F10514 












BINARY. PLACES 


RESULT 


IN 1G. AND LEAVES 1ST NON-NUMERIC IN 


4F10515 












THE AC. 1ST 


NUMERIC IS ASSUMED TO BE ALREADY IN THE AC, 


4F10516 






01654 


07400 4 01707 


C0180X 


TSX C0190.4 






* OBTAIN 1ST NUMERIC IN THE AC. 


4F105165 






01655 


60100 01112 


C0180 


STO 1G 






PLACE 1ST NUMERIC IN 1G. 


4F10517 






01656 


07400 4 01707 




TSX C0190.4 






* EXAMINE NEXT NON-BLANK CHARACTER. 


4F10518 






01657 


34000 01417 




CAS L<9) 






AND IF NON-NUMERIC. THEN 


4F10519 






01660 


02000 2 00001 




TRA 1.2 






* RETURN TO CALLER. 


4F10520 






01661 


76100 00000 




NOP 






IF NUMERIC. THEN 


4F10521 






01662 


60100 01113 




STO 2G 






SAVE DIGIT IN 2G. 


4F10522 






01663 


50000 01112 




CLA 1G 






MULTIPLY 


4F10523 






01664 


76700 00002 




ALS 2 






CUG) 


4F10524 






01665 


40000 01112 




ADO 1G 






BY 


4F10525 






01666 


76700 00001 




ALS 1 






10* 


4F10526 






01667 


40000 01113 




ADO 2G 






AND ADD CURRENT DIGIT* 


4F10527 






01670 


1 76626 01655 


DCF 


TXI C0180.0.-F 






REPEAT PROCESS FOR NEXT CHARACTER. 


4F10528 












END OF PROGRAM 


C0180. 




4F10529 












#»**** 


* » 


* * # 


*******•**••••*•*•* 


•4F10530 


HO 




o 














o 





o 



C0190X.4/ CALLERS=CD0OO»CBOOO»CC000»C0300»C33OO. 

C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMULA IN 



01671 50000 01670 C0190X 

01672 62200 01614 

01673 -0 63400 01724 

01674 02000 4 00001 



CLA OCF 
STO FWA 
SXD CHCTR.O 
TRA 1*4 

END OF PROGRAM C0190X. 
************ 



SET FORMULA WORD 

ADDRESS » -(F-REGION ADDRESS)* 

SET CHARACTER COUNT = 0» 

* RETURN TO MAIN ROUTINE. 

• ***•**••*••****** 



01675 





50000 





01374 


C0390 


01676 


-0 


53400 


2 


01614 




01677 


-0 


53400 


1 


01724 




01700 


-2 


00001 


1 


01703 




01701 


-0 


76300 





00006 


C0392 


01702 


2 


00001 


1 


01701 




01703 





76000 





00006 


C0393 


01704 





32000 


2 


77777 




01705 


-0 


76300 





00044 




01706 


-0 


60200 


2 


77777 





C0390»4/ CALLERS=C0300»C3300. 

C0390 INSERTS THE CHARACTER IN THE AC INTO THE 1ST POSITION 

TO THE LEFT OF THAT DEFINED BY FWA AND XR1« 
CLA ENDMK PREPARE TO CHANGE 

LXD FWA»2 THE PROPER CHARACTER 

LXD CHCTR»1 IN THE F-REGION. 

TNX C0393,l»l ADJUST MASK 

LGL 6 TO POSITION 

TIX C0392»l»l CHARACTER. 

COM INVERT MASK* AND 

ANS -1.2 ERASE PROPER CHARACTER. 

LGL 36 ADJUST CHARACTER* AND 

ORS -1»2 INSERT IN ERASED POSITION. 

C0390 CONTINUES BY USING CO 190. 

C0190.4/ CALLERS=CD000»CB0O0»CC000»C0100»C020O»C03OO»CO400» 



4F10531 
4F10532 

. 4F10533 
4F10534 
4F10535 
4F10536 
4F10537 
4F10538 

•4F10539 
4F10540 
4F10541 
4F10542 
4F10543 
4F10544 
4F10545 
4F10546 
4F10547 
4F 10548 
4F10549 
4F10550 
4F10551 
4F10552 
4F10553 
4F10554 
4F10555 
4F10556 



C0900.C1000»C1100»C1200»C1400.C1500»C1600*C3000»C3100»C3200» 4F105 57 



C330O»C340O*C0150»C016O»CO180»SS000»ROYCNV»RSC»LPR. 



4F10558 



C0190 OBTAINS IN AC THE NEXT NON-BLANK CHARACTER OF FORMULA. 4F10559 



01707 


-0 


63400 


1 


01723 


C0190 


SXD 


C0194.1 


01710 


-0 


53400 


1 


01724 




LXD 


CHCTR.l 


01711 





56000 





01365 




LDQ 


RESIDU 


01712 


2 


00001 


1 


Q1720 


C0191 


TIX 


C0193*l»l 


01713 


-0 


53400 


1 


01614 




LXD 


FWA.l 


01714 





56000 


1 


00000 




LDQ 


0*1 


01715 


1 


77777 


1 


01716 




TXI 


C0192.1»-l 


01716 


-0 


63400 


1 


01614 


C0192 


SXD 


FWA*1 


01717 





53400 


1 


01414 




LXA 


L(6)*l 


01720 


-0 


75400 





00000 


C0193 


PXD 


»0 


01721 


-0 


76300 





00006 




LGL 


6 


01722 





34000 





01430 




CAS 


BLANK 


01723 


1 


00000 





01725 


C0194 


TXI 


C0195.0*** 


01724 


1 


00000 





01712 


CHCTR 


TXI 


C0191»0»»* 


01725 


-0 


63400 


1 


01724 


C0195 


SXD 


CHCTR.l 


01726 


-0 


60000 





01365 




STQ 


RESIDU 


01727 


-0 


53400 


1 


01723 




LXD 


C0194.1 


01730 





02000 


4 


00001 




TRA 


1*4 
END OF PROGRAM C0190. 

****** ****** 



SAVE THE C(XR1)» AND 
SET XR1 = CHARACTER COUNT. 
PICK UP ANY REMAINING CHARACTERS. 
IF NONE* 

PICK UP NEXT FORMULA 
WORD FROM F-REGION* 
AND INCREASE 

FORMULA WORD ADDRESS BY 1. 
RESET XR1 FOR 6 NEW CHARACTERS. 
EXAMINE 

NEXT CHARACTER 
AND COMPARE WITH A BLANK. 
IF BLANK* 

GO EXAMINE NEXT CHARACTER. 
IF NOT BLANK. RESET CHAR COUNT* 
SAVE ANY REMAINING CHARACTERS* 
RESTORE THE C(XR1)» AND 
* RETURN TO MAIN ROUTINE. 

******* *********** 



CIT00.4/ CALLERS=C0200»C0400»C0900.C1000.C1100»C1300»C1600. 

C3200*RDC»WBT»RBT.WRD.BRW. EFT. LPR»CMA»EMK» INPUT (OUTPUT)* 

ETMSW(LTMSW)*LIB»VRA(VRD). 

CITOO MAKES ENTRIES IN THE COMPILED INSTRUCTION TABLE. WHEN 



4F10560 
4F10561 
4F10562 
4F10563 
4F10564 
4F10565 
4F10566 
4F10567 
4F 10568 
4F10569 
4F10570 
4F10571 
4F 10572 
4F10573 
4F10574 
4F10575 
4F10576 
4F10577 
4F 10578 
*4F10579 
4F10580 
4F10581 
4F10582 
4F10583 
4F10584 



HI 



C V V 



01731 
01732 
01733 
01734 
©1735 
01736 
01737 
01740 
01741 
01742 
01743 
01744 
01745 
01746 
01747 
01750 
01751 
01752 
01753 
©1754 
01755 
01756 
©1757 
01760 
01761 
01762 
01763 
01764 
01765 
01766 
01767 
01770 



63400 
63400 
60000 
53400 
50000 
40200 
10000 
76600 
73400 
70000 
77777 
00001 
O0001 
76600 
53400 
77777 
50000 
62100 
50000 
60100 
77777 
00001 
63400 
75400 
76000 
40000 
73400 
63400 
56000 
53400 
53400 
02000 



01102 
01101 
01150 
00637 
00635 
00636 
01747 
00223 
00000 
00640 
01744 
01745 
01742 
00333 
01412 
01751 
4 00000 
01753 
00000 
00640 
01756 
01750 
00637 
02032 
00006 
01454 
02031 
00636 

01150 

1 01101 

2 01102 
4 00001 



CI TOO 



CIT01 

CIT02 
CIT03 

CIT04 
CIT05 



CIT06 

CIT07 
DMSR99 

DMSR98 



SXD 
SXD 
STQ 
LXD 
CLA 
SUB 
TNZ 
WRS 
PAX 
CPY 
TXI 
TXI 
TXH 
IOD 
LXA 
TXI 
CLA 



THE BUFFER 

CITXR2»2 

CITXRltl 

CITMQR 

BB0X*2 

BS 

EC 

CIT04 

CITTAP 

.1 

CIBil 

CIT02»1»-1 

CIT03.2.1 

CIT01»2.1 



L(4)tl 

CIT05+li4»-l 

0.4 
STA CIT06 
CLA «* 

CIB.2 

CIT07.2.-1 

CIT05»1»1 

BB0X»2 

DMSR05+lt2 



STO 
TXI 
TIX 
SXD 
PXD 
COM 
ADD 
PDX 
SXD 
LDQ 
LXD 
LXD 
TRA 



IS FULL IT IS WRITTEN AS A RECORD ONTO TAPE 3. 4F10585 
SAVE THE C(XR2>. 4F10586 

SAVE THE CfXRl). 4F10587 

SAVE THE C(MQR). 4F10588 

SET XR2 = 2S COMPL OF NO-WRDS-ENTD.4F10589 
COMPARE BLOCK SIZE 4F10590 

WITH ENTRY COUNT. 4F10591 

IF BLOCK IS NOT FULL.GO MAKE ENTRY. 4F10592 
PREPARE TO WRITE BLOCK ON CIT TAPE.4F10593 
SET XR1 = 0» AND 4F10594 

COPY SUCCESSIVE 4F10595 

WORDS OF BLOCK 4F10596 

AND CONTINUE 4F10597 

UNTIL XR2 = 0. 4F10598 

WHEN DONE. 4F10599 

SET XR1 = ENTRY SIZE. 4F10600 

SET XR4 = -CADDR OF NEXT ENTRY WRD)4Fl0601 
AND PICK UP ADDRESS OF NEXT ENTRY 4F10602 
TO SET NEXT ADDRESS. 4F10603 

MOVE ENTRY 4F 10604 

INTO CIB BUFFER. 4F10605 

AND COUNT -1 FOR EACH WORD ENTERED.4F10606 



AND 



2E18 

DMSR05.2 
EC»2 
CITMQR 
CITXR1.1 
CITXR2.2 
1*4 
END OF PR06RAM CITOO. 



WHEN DONE. 

SAVE THE C(Xk2)» 

COMPUTE THE 

REAL NUMBER 

OF WORDS ENTERED 

IN CIB BUFFER* AND 

SAVE IN EC. 

THE C(MQR)» 

THE CCXR1). 

THE CUR2). AND 

MAIN ROUTINE {5TH WRD CS). 



RESTORE 
RESTORE 
RESTORE 
EXIT TO 



*»**#**********»** 

















©IM1SR= ENTRY 


POINT 


FOR 


01771 


-0 


63400 


4 


01774 


DIM1SR 


SXD 


DMSROO »4 






01772 


-0 


53400 


4 


00452 




LXD 


DIM1IX-3.4 






01773 





50000 





00453 




CLA 


ORGDM1 






01774 


1 


00000 





02000 


DMSROO 


TXI 


DMSR01»0»** 
DIM2SR" ENTRY 


POINT 


FOR 


01775 


-0 


63400 


4 


01774 


DIM2SR 


SXD 


DMSROO »4 






01776 


-0 


53400 


4 


00457 




LXD 


DIM2IX-3.4 






01777 





50000 





00460 




CLA 


0RGDM2 






02000 





62100 





01104 


DMSR01 


STA 


DRMADR 






02001 





50000 





01760 




CLA 


DMSR99 






02002 





62100 





02041 




STA 


DMSR15 






02003 


-0 


50000 





02065 




CAL 


DMCN12 






02004 


1 


00000 





02014 


DMSR11 


TXI 


DMSR02»0.*» 
DIM3SR" ENTRY 


POINT 


FOR 



4F10607 
4F10608 
4F10609 
4F10610 
4F10611 
4F10612 
4F10613 
4F10614 
4F10615 
4F10616 
4F10617 
4F10618 
*4F10619 
4F10620 
4F10621 
4F10622 
4F10623 
DIMENSION TABLE. 4F10624 

SAVE THE C(XR4> FOR RETURN. 4F10625 
SET XR4 = NUMBER OF ENTRIES IN DIM14F10626 
AND PICK UP 1ST ADDRESS OF DIM1 TO 4F10627 
60 SET DRUM ADDRESS. 4F10628 

DIMENSION TABLE. 4F10629 

SAVE THE C(XR4) FOR RETURN. 4F10630 
SET XR4 = NUMBER OF ENTRIES IN DIM24F10631 
AND PICK UP 1ST ADDRESS OF DIM2 TO 4F10632 
SET DRUM ADDRESS. 4F10633 

SET LOOP ADDRESS TO 4F10634 

DMSR05+1 FOR DIM1 AND DIM2. 4F10635 
CSTZ D3) 4F10636 

GO SET OP FOR DIM1 AND DIM2. 4F10637 
DIMENSION TABLE. 4F10638 



0IM.SR»4/ CALLS=DIAG. CALLERS=C1200»SS0O0»CMA« 

DIM.SR SEARCHS THE DIMENSION TABLES. ENTRANCE IS TO DIM1SR. 

DIM2SR» OR DIM3SR ACCORDING TO THE DIMENSION. 



U 



n 



O 



02005 


-0 


63400 


4 


01774 


DIM3SR 


SXO 


DMSR00»4 


02006 


-0 


53400 


4 


00464 




LXD 


DIM3IX-3.4 


02007 





50000 





00465 




CLA 


0R6DM3 


02010 





62100 





01104 




STA 


DRMADR 


02011 





50000 





01763 




CLA 


DMSR98 


02012 





62100 





02041 




STA 


DMSR15 


02013 


-0 


50000 





02066 




CAL 


DMCN3 


02014 





60200 





02031 


DMSR02 


SLW 


DMSR05 


02015 





60200 





02044 




SLW 


DMSR07 


02016 


-3 


00000 


4 


02047 




TXL 


DMSR08»4»0 


02017 


-0 


63400 


4 


02004 




SXD 


DMSRllt4 


02020 





53400 


4 


01413 


DMSR14 


LXA 


L(5).4 


02021 


-0 


63400 


4 


02035 


DMSR13 


SXD 


DMSR12»4 


02022 


-0 


53400 


4 


02004 




LXD 


DMSR11#4 


02023 





76200 





00303 




RDR 


3 


02024 





50000 





01130 




CLA 


E+2 


02025 





46000 





01104 




LDA 


DRMADR 


02026 





70000 





01100 


DMSR04 


CPY 


DRSYM 


02027 





04000 





02043 




TLQ 


DMSR06 


02030 





70000 





01101 




CPY 


D12 


©2031 





00000 





01102 


DMSR05 


P2E 


D3 


02032 





70000 





01103 




CPY 


DRCKSM 


02033 





34000 





01100 




CAS 


DRSYM 


02034 





07400 


4 


03400 




TSX 


DIAG»4 


02035 


1 


ooooo 





02051 


0MSR12 


TXI 


DMSR09.0.** 


02036 





70000 





01100 




CPY 


DRSYM 


02037 





04000 





02043 




TLQ 


DMSR06 


02040 





70000 





01101 




CPY 


D12 


02041 


2 


00001 


4 


OOOOO 


DMSR15 


TIX 


**»4»1 


02042 


1 


ooooo 





02047 




TXI 


DMSR08»0 


02043 





70000 





01101 


DMSR06 


CPY 


D12 


02044 





ooooo 





01102 


DMSR07 


P2E 


D3 


02045 





70000 





01103 




CPY 


DRCKSM 


02046 


2 


00001 


4 


02026 




TIX 


DMSR04.4.1 


02047 


-0 


53400 


4 


01774 


DMSR08 


LXD 


DMSR00»4 


02050 





02000 


4 


00001 




TRA 


1.4 


02051 


-0 


50000 





01100 


0MSR09 


CAL 


DRSYM 


02052 





36100 





01101 




ACL 


D12 


02053 





36100 





01102 




ACL 


D3 


02054 





76000 





00006 




COM 




02055 





36100 





01103 




ACL 


DRCKSM 


02056 





76000 





00006 




COM 




02057 





10000 





02063 




TZE 


DMSR10 


02060 


-0 


53400 


4 


02035 




LXD 


DMSR12»4 


02061 


2 


00001 


4 


02021 




TIX 


DMSR13»4»1 


02062 





07400 


4 


03400 




TSX 


DIAG f 4 


02063 


-0 


53400 


4 


01774 


DMSR10 


LXD 


DMSR00.4 


02064 





02000 


4 


00002 




TRA 


2.4 


02065 





60000 





01102 


DMCN12 


STZ 


D3 


02066 





70000 





01102 


DMCN3 


CPY 


D3 


02067 


456351000000 


ENT 


BCD 


1NTR000 


02070 


477125000000 


NZE 


BCD 


1P2EOO0 



SAVE THE CCXR4) FOR RETURN. 4F10639 

SET XR4 « NUMBER OF ENTRIES IN DIM34F10640 

AND PICK UP 1ST ADDRESS OF DIM3 TO 4F10641 

SET DRUM ADDRESS. 4F10642 

SET LOOP ADDRESS TO 4F 10643 

DMSR05 FOR DIM3. 4F10644 

tCPY 03) 4F10645 

SET OP CODES ACCORDING 4F 10646 

TO DIMENSION. 4F10647 

IF TABLE IS EMPTY* GO OUT. 4F10648 

SAVE ENTRY COUNT IN CASE OF ERROR. 4F10649 

SET ERROR COUNTER FOR 5 ATTEMPTS. 4F 10650 

SAVE ERROR COUNTER. AND 4F 10651 

RESET ENTRY COUNT. 4F10652 

SELECT DRUM. 4F10653 

GET NAME OF VARIABLE. 4F10654 

LOAD CURRENT DRUM ADDRESS. AND 4F10655 

COPY DRUM SYMBOL. 4F 10656 

COMPARE WITH NAME OF VARIABLE. AND 4F10657 

IF NOT LESS* COPY Nl AND N2* 4F10658 

CDIM1 AND DIM2 = STZ » DIM3 = CPYJ.4F10659 

COPY CHECKSUM. 4F 10660 

COMPARE DRUM SYMBOL WITH NAME OF V.4F10661 

GO TO DIAGNOSTIC - MACHINE ERROR. 4F 10662 

IF NOT EQUAL* THEN 

CONTINUE 

PROCESS 

UNTIL 

TABLE 

IS EXHAUSTED. 

PASS OVER ENTRY 

(DIM1 AND DIM2 = STZ. DIM3 = CPY). 

AND CHECKSUM* AND 

REPEAT LOOP. 

RESTORE THE C(XR4)» AND 

TAKE NOT FOUND EXIT. 

COMPUTE A 

NEW 

LOGICAL CHECKSUM 

FOR ENTRY. AND 

COMPARE WITH 

DRUM CHECKSUM. 

IF NOT EQUAL. THEN 

REPEAT ATTEMPT. 

UNLESS PROCESS 

FAILED 5 TIMES IN READING DRUM. 

RESTORE THE C(XR4). AND 

TAKE FOUND EXIT TO MAIN ROUTINE. 



CONSTANT USED BY DIM.SR. 
CONSTANT USED BY DIM.SR. 
VARIABLE USED BY 10 AND FL. 
VARIABLE USED BY FL. 



END OF PROGRAM DIM.SR. 



4F10663 
4F10664 
4F10665 
4F10666 
4F10667 
4F10668 
4F10669 
4F10670 
4F10671 
4F10672 
4F10673 
4F10674 
4F10675 
4F10676 
4F10677 
4F10678 
4F10679 
4F 10680 
4F10681 
4F10682 
4F10683 
4F10684 
4F10685 
4F10686 
4F10687 
4F10688 
4F10689 
4F10690 
4F10691 
4F10692 



fs 



02071 


-0 


50000 





00415 


DIMALT 


CAL 


TXLOP 


02072 


1 


00000 





02074 




TXI 


DRTABS*0 
ALT* ENTRY P 


02073 





50000 





00422 


ALT 


CLA 


TXHOP 


02074 





63000 





02135 


DRTABS 


STP 


DIMSW 


02075 





50000 


4 


00000 




CLA 


0»4 


02076 


-0 


63400 


1 


02535 




SXD 


XRltl 


02077 


-0 


63400 


2 


02173 




SXD 


XR2.2 


02100 


-0 


63400 


4 


02215 




SXO 


XR4.4 


02101 


-0 


'60000 





02357 




STQ 


MQ 


02102 





40000 





01407 




ADO 


L(l> 


02103 





62100 





02107 




STA 


MOVE 


02104 





40200 





01412 




SUB 


L<4) 


02105 





62100 





02213 




STA 


UPDATE 


02106 





53400 


1 


01413 




LXA 


L(5)»l 


02107 


-0 


50000 


1 


00000 


MOVE 


CAL 


**»1 


02110 





60200 


1 


02365 




SLW 


TEMP.l 


02111 


2 


00001 


1 


02107 




TIX 


MOVE.l.l 


02112 





50200 





02360 




CLS 


NAR 


02113 





62100 





02221 




STA 


TRY 


02114 





40000 





01407 




ADO 


LU) 


02115 





62100 





02200 




STA 


ESUM1 


02116 





62100 





02202 




STA 


ESUM2 


02117 





77100 





00021 




ARS 


17 


02120 





40100 





02526 




ADM 


BIAS 


02121 





62100 





02530 




STA 


JUMP1 


02122 





62100 





02555 




STA 


JUMP2 


02123 


-0 


50000 





02362 




CAL 


FDA 


02124 





62200 





02235 




STD 


COMPR 


02125 





63000 





02530 




STP 


JUMP1 


02126 





63000 





02152 




STP 


SW 


02127 





63000 





02210 




STP 


RX4 


02130 





50000 





02533 




CLA 


LBUF 


02131 





62100 





02222 




STA 


BUFL 


02132 





50000 





02361 




CLA 


TDA 


02133 


-0 


53400 


2 


02361 




LXD 


TDA.2 


02134 


-0 


63400 


2 


02146 




SXD 


BUFF+1.2 


02135 


-3 


00000 





02145 


DIMSW 


TXL 


BUFF.O 


02136 


-3 


00000 


2 


02150 




TXL 


XERR0I+1.2»0 


02137 


-0 


53400 


1 


02360 




LXD 


NAR»1 


02140 


-0 


63400 


2 


02223 




SXD 


NC»2 


02141 


-0 


63400 


2 


02143 




SXD 


ADD01»2 


02142 


-2 


00001 


1 


02235 


AOD02 


TNX 


COMPR. 1»1 


02143 


1 


00000 


2 


02142 


AOD01 


TXI 


ADD02.2.** 


02144 


-0 


53400 


2 


02362 


BUFFM1 


LXD 


FDA. 2 


02145 


-0 


53400 


1 


02363 


BUFF 


LXD 


OBL.l 



#«#**#***■*#****************■*** 

DRTABS«»4)/ CALLS=RDRX»DIAG. CALLER5=C1200*SS000»ROYCNV*CMA* 

VRA(VRDL 

DRTABS IS CALLED BY TSX ...«IX*4 -WHERE ...» IS THE NAME OF 

THE DRUM TABLE REFERRED TO. DRTABS MAK.ES ENTRIES IN THE DRUM 

TABLES* AND ALSO SEARCHES THE DRUM TABLES FOR INFORMATION. 

0IMALT= ENTRY POINT FOR DIMENSION TABLES. 

PICK UP SWITCH CONTROL. 

AND GO SET SWITCH FOR DIM TABLES. 
T FOR ALL OTHER DRUM TABLES. 

PICK UP SWITCH CONTROL. 

SET SWITCH* 

GET CALLER (TSX ...»IX.4> IN AC. 

SAVE THE CIXR1)* 

SAVE THE CCXR2J* 

SAVE THE C(XR4)» AND 

SAVE THE CtMQRU 

PREPARE TO MOVE PARAMETERS 

INTO WORKING STORAGE. 

PREPARE TO UPDATE 

PERMANENT PARAMETER. 

MOVE 5 WORDS 

(••••IX+1) 

OF PARAMETERS 

INTO WORKING STORAGE. 

INITIALIZE 

ALL 

GENERAL 

INSTRUCTIONS* 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

IF DIM TABLE* SKIP SEARCH. 

SKIP IF TABLE IS EMPTY. 



COMPUTES (N*L). 
(N) 

L(J) 



♦4F10693 
4F10694 

4F10695 

4F10696 

4F10697 

4F10698 

4F10699 

4F10700 

4F10701 

4F10702 

4F10703 

4F10704 

4F10705 

4F10706 

4F10707 

4F10708 

4F10709 

4F10710 

4F10711 

4F10712 

4F10713 

4F10714 

4F10715 

4F10716 

4F10717 

4F10718 

4F10719 

4F10720 

4F10721 

4F10722 

4F10723 

4F10724 

4F10725 

4F10726 

4F10727 

4F10728 

4F10729 

4F10730 

4F10731 

4F10732 

4F10733 

4F10734 

4F10735 

4F10736 

4F10737 

4F10738 

4F10739 

4F10740 

4F10741 

4F10742 

4F10743 

4F10744 

4F10745 

4F10746 



# 



u 



( 


02146 


2 


00000 


1 


02150 




TIX 


BUFF+3.1.** 





02147 


1 


00000 





02256 


XERR01 


TXI 


WHICH.O 




02150 


-0 


53400 


1 


02364 




LXD 


DI»1 




02151 





76600 


1 


00305 




WDR 


5.1 


D 


02152 


-3 


00000 





02174 


SW 


TXL 


EBLK.O 




02153 


-3 


00000 


2 


02156 




TXL 


ADDQ4.2»0 




02154 


1 


00001 


2 


02155 




TXI 


ADD03»2»1 




02155 


-2 


00062 


2 


02163 


AOD03 


TNX 


ADD05»2»50 




02156 





60000 





02365 


A0004 


STZ 


DUMP 




02157 





50000 





02361 




CLA 


TDA 




02160 





62100 





02362 




STA 


FDA 




02161 





40000 





01407 




ADO 


L(l) 




02162 





62100 





02361 




STA 


TDA 




02163 


-0 


50000 





02365 


AD005 


CAL 


DUMP 




02164 





36100 





01347 




ACL 


G 




02165 





60200 





02365 




SLW 


DUMP 




02166 





46000 





02362 




LDA 


FDA 




02167 





70000 





02365 




CPY 


DUMP 




02170 





76600 


1 


00305 




WDR 


5.1 




02171 





46000 





02361 




LDA 


TDA 




02172 





70000 





01347 




CPY 


G 




02173 


1 


00000 





02205 


XR2 


TXI 


NOWIN.O.** 




02174 


-0 


75400 





00000 


EBLK 


PXD 


.0 




02175 


-0 


53400 


2 


02360 




LXD 


NAR.2 




02176 





46000 





02361 




LDA 


TDA 




02177 


-2 


00001 


2 


02202 




TNX 


ESUM2.2.1 




02200 


-0 


70000 


2 


00000 


ESUM1 


CAD 


**,2 




02201 


2 


00001 


2 


02200 




TIX 


ESUM1.2.1 




02202 


-0 


70000 





00000 


ESUM2 


CAD 


** 




02203 





60200 





02365 




SLW 


DUMP 




02204 





70000 





02365 




CPY 


DUMP 




02205 


-0 


50000 





02360 


NOW IN 


CAL 


NAR 




02206 





77100 





00022 




ARS 


18 




02207 





40000 





01455 




AOD 


DECR1 




02210 


-3 


00000 





02212 


RX4 


TXL 


RX4+2.0.** 




02211 





40200 





01407 




SUB 


L(l) 




02212 





40100 





02361 




ADM 


TDA 




02213 





60100 





00000 


UPDATE 


STO 


** 




02214 


-0 


53400 


2 


02361 




LXD 


TDA, 2 




02215 


I 


00000 





02247 


XR4 


TXI 


OUT.O.** 




02216 


-0 


53400 


4 


02223 


NXBLK 


LXD 


NC.4 




02217 


-0 


53400 


2 


02362 




LXD 


FDA. 2 




02220 


-0 


53400 


1 


02360 


NEW 


LXD 


NAR.l 




02221 





50000 


1 


00000 


TRY 


CLA 


»*.l 




02222 





34000 


2 


00000 


BUFL 


CAS 


**»2 




02223 


1 


00000 





02225 


NC 


TXI 


NC+2.0.** 




02224 


1 


77777 


2 


02242 




TXI 


YEA.2.-1 




02225 


-2 


00001 


4 


02144 




TNX 


BUFFM1.4.1 




02226 


-0 


63400 


1 


02227 




SXD 


NC+4.1 




02227 


2 


00000 


2 


02220 




TIX 


NEW.2.** 




02230 


-0 


63400 


4 


02223 




SXD 


NC.4 




02231 


-0 


50000 





02363 




CAL 


DBL 




02232 





40100 





02362 




ADM 


FDA 




02233 





62100 





02362 




STA 


FDA 



n 



(N) TEST FOR TABLE OVERFLOW. 

GO FIND OUT WHICH TABLE OVERFLOWED 



ENTRY SUM=TXL. BLOCK SUM=TXH. 
SKIP IF TABLE IS EMPTY. 

SKIP IF BLOCK IS NOT YET FULL. 
START NEW BLOCK CHECKSUM. 
CHANGE CHECKSUM ADDRESS. 

SET ENTRY ADDR = CHECKSUM ADDR +1. 



ADD NEW FLOCON TO 
CHECKSUM FOR THIS BLOCK. 

WRITE BLOCK CHECKSUM ON DRUM. 



WRITE NEW FLOCON ON DRUM. 

GO UPDATE FLOCON PARAMETER. 

FOR ALL TABLES EXCEPT FLOCON= 

ID 

NEXT DRUM ENTRY ADDRESS. 

IF L « 1. 

(ARG1+L-1) WRITE NEW 

ENTRY ON DRUM. 

(AR61+L-1) 

COMPUTE AND 

WRITE CHECKSUM FOR NEW ENTRY. 

UPDATE PERMANENT 

PARAMETERS FOR ENTRY 

JUST ADDED TO TABLE. 

IF TABLE WAS FLOCON. 

READJUST. 

N*N+1»TDA=TDA+(L+1) OR tL). 

U...IX-3) 

L(N) 

GET TAG AND EXIT. 

L<K*L).K=K. 

LtL) 

(ARG1+LJ 

CBUFR OR CTABL) 

NOT FOUND. 

K*L * K»L-1. 

N =■ N-l OR ITEM NOT IN TABLE. 

K * K-l. 

SAVE CURRENT VALUE OF N» 

AND GET NEW BLOCK. 



4F10747 
•4F10748 
4F10749 
4F10750 
4F10751 
4F 10752 
4F10753 
4F10754 
4F10755 
4F10756 
4F10757 
4F10758 
4F10759 
4F10760 
4F10761 
4F10762 
4F10763 
4F10764 
4F10765 
4F10766 
4F10767 
4F10768 
4F10769 
4F 10770 
4F10771 
4F 10772 
4F10773 
4F10774 
4F10775 
4F10776 
4F10777 
4F10778 
4F10779 
4F10780 
4F10781 
4F10782 
4F10783 
4F 10784 
4F10785 
4F10786 
4F10787 
4F10788 
4F10789 
4F10790 
4F10791 
4F10792 
4F10793 
4F10794 
4F10795 
4F10796 
4F10797 
4F10798 
4F10799 
4F 10800 



tf 



5 V V 



02234 


-0 


53400 


2 


02241 




LXD 


NTL»2 




02235 


2 


00000 


2 


02237 


COMPR 


TIX 


COMPR+2,2,** 




02236 


-0 


63400 


2 


02362 




SXD 


FDA .2 




02237 


-0 


63400 


2 


02241 




SXD 


NTL, 2 




02240 





07400 


4 


02520 




TSX 


RDRXf4 




02241 


1 


00000 





02216 


NTL 


TXI 


NXBLK.O,** 




02242 


2 


00001 


1 


02221 


YEA 


TIX 


TRY»1»1 




02243 


-0 


53400 


2 


02361 




LXD 


TDA»2 




02244 


-0 


63400 


4 


02245 




SXD 


YEA+3»4 




02245 


2 


00000 


2 


02247 




TIX 


OUT, 2,** 




02246 





53400 


2 


01406 




LXA 


L(0)»2 




02247 


-0 


75400 


2 


00000 


OUT 


PXD 


• 2 




02250 





77100 





00022 




ARS 


18 




02251 


-0 


53400 


2 


02173 




LXD 


XR2.2 




02252 


-0 


53400 


4 


02215 




LXD 


XR4.4 




02253 


-0 


53400 


1 


02535 




LXD 


XR1»1 




02254 





56000 





02357 




LDO 


MQ 




02255 





02000 


4 


00001 




TRA 


1*4 




02256 


-0 


53400 


4 


02215 


WHICH 


LXD 


XR4,4 




02257 





50000 


4 


00000 




CLA 


0*4 




02260 


-0 


32000 





01452 




ANA 


MASK2 




02261 





40200 





02274 




SUB 


CONX 




02262 





53400 


4 


01417 




LXA 


LC9)»4 




S2263 


n 


40200 





01413 


COMPUT 


CtlQ 

WW 


L(5{ 




02264 





10000 





02267 




TZE 


WHICHX 




02265 


2 


00001 


4 


02263 




TIX 


COMPUT, 4,1 




02266 





07400 


4 


03400 




TSX 


DIAG»4 




02267 


-0 


75400 


4 


00000 


WHICHX 


PXD 


,4 




02270 





76000 





00006 




COM 






02271 





40000 





01454 




ADO 


2E18 




02272 


-0 


73400 


4 


00000 




PDX 


,4 




02273 


1 


00000 





03400 




TXI 


DiAG»0 




02274 





00000 





00412 
02357 
02357 
02360 
02361 
02362 
02363 
02364 
02365 
02365 


CONX 

BUFR 

MQ 

NAR 

TDA 

FDA 

DBL 

DI 

TEMP 

DUMP 


PZE 
BES 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 


FXCNIX-5 

50 

1 

1 

1 

1 

1 

1 



1 

END OF PROGRAM 
******** 


DRTABS. 

* * * * 



4F10801 
(K*LJ 4F10802 

K*L * (N*L)MOD K*L IF N*L IS 4F10803 
LESS THAN K*L» OTHERWISE K*L = K*L.4F10804 
GO READ NEXT BLOCK INTO BUFFER. 4F10805 
<N*L»N*L-K*L»N*L~2*K*L»»..(N*L}M0D 4F 10806 
K*L>. TEST NEXT WORD OF ARG. L=L-1.4F10807 



<N) 

COMPUTE TAG. 

EXIT WITH TAG IN THE AC. 

(TAG « NUMBER OF ENTRIES 

WHICH PRECEED THE ENTRY 

WHICH EQUALS THE ARGUMENT. 

RESTORE THE Cf XR1»XR2»XR4> , 

RESTORE THE CtMOR), AND 

RETURN TO MAIN ROUTINE. 

GET ALPHA BAR, AND 

AND PICK UP ALPHA CTSX ...NIX»4). 

BLANK ALL BUT ...NIX. 

(...NIX) - (ADDR OF FXCNIX-5). 

SET XR4 FOR 9 TABLES. 

COMPUTE WHICH 

TABLE OVERFLOWED. 

IF TABLE IS NOT FOUND, 

GO TO DIAGNOSTIC. 

OTHERWISE, 

CONVERT 2S COMPLEMENT 

OF NUMBER, 

PLACE IN XR4, AND 

GO TO DIAGNOSTIC. 

CONSTANT USED BY DRTABS. 
DRUM TABLE BUFFER. 
WORKING STORAGE USED BY DRTABS. 
WORKING STORAGE USED BY DRTABS. 
WORKING STORAGE USED BY DRTABS. 
WORKING STORAGE USED BY DRTABS. 
WORKING STORAGE USED BY DRTABS. 
WORKING STORAGE USED BY DRTABS. 



4F10808 
4F10809 
4F10810 
4F10811 
4F10812 
4F10813 
4F10814 
4F10815 
4F10816 
4F10817 
4F10818 
4F10819 
4F10820 
4F10821 
4F10822 
4F10823 
4F 10824 
4F10825 
4F10826 
4F10827 
4F10828 
4F10829 
4F 10830 
4F10831 
4F10832 
4F10833 
4F10834 
4F10835 
4F10836 
4F10837 
4F10838 
4F10839 
4F10840 
4F10841 



INDEXING ADDRESS FOR ABOVE -DRTABS. 4F10842 



02366 


-0 53400 1 00030 


GETIFN 


LXD 


EIFNO.l 


02367 


-0 75400 1 00000 




PXD 


,1 


02370 


60100 01105 




STO 


1C 


02371 


.0 02000 4 00001 




TRA 


1,4 

END OF PROGRAM GETIFN. 
************ 



WORKING STORAGE USED BY DRTABS. 



****************** 



GETIFN, 4/ CALLERS=C0100»C0200,C1000,C1100,C1600,C3200. 

GETIFN PLACES THE INTERNAL FORMULA NUMBER IN AC AND IN 1C. 

PLACE THE INTERNAL FORMULA 
NUMBER IN XR1, IN THE DECREMENT 
OF THE AC, AND IN 1C. THEN 
* RETURN TO CALLER. 



4F10843 
4F10844 

•4F10845 
4F10846 
4F10847 
4F10848 
4F10849 
4F10850 
4F10851 
4F10852 
4F10853 

♦4F10854 



% 



u 



n 



o 



















JIFCGIFJ 


*4/ CALLERS=RDC 


















VRAIVRDi 


♦C3200. 


















JIF « ENTRY POINT USED 




02372 


-0 


50000 





00030 


JIF 


CAL 


EIFNO 






02373 





40000 





01454 




ADO 


Dl 






02374 





62200 





00030 




STO 


EIFNO 




















GIF * ENTRY POINT USED 




02375 


-0 


50000 





00030 


GIF 


CAL 


EIFNO 






02376 


-0 


32000 





01507 




ANA 


1BAR 






02377 





60200 





01367 


LCSU 


SLW 


SL 






02400 





62200 





01371 


LITL) 


STD 


TL 






02401 





02000 


4 


00001 




TRA 


1»4 

END OF 
« * * * 

MTROOO/ 
STATEA= 


PROGRAM J IF (GIF 
******** 

MONITOR ROUTINE 
ENTRY POINT FOR 




02402 





53400 


4 


01412 


STATEA 


LXA 


L(4)»4 




D 


02403 


1 


00000 





02411 




TXI 


MTR1»0 
STATEB= 


ENTRY POINT FOR 




02404 





53400 


4 


01410 


STATEB 


LXA 


L<2>»4 




D 


02405 


1 


00000 





02411 




TXI 


MTR1.0 
STATEC = 


ENTRY POINT FOR 




02406 





53400 


4 


01407 


STATEC 


LXA 


L(l>»4 






02407 


1 


00000 





02411 


MTRCSL 


TXI 


MTR1*0»*» 


















STATED= 


ENTRY POINT FOR 




02410 





53400 


4 


01411 


STATED 


LXA 


L(3).4 






02411 





50000 


4 


02437 


MTR1 


CLA 


ZETA+4»4 






02412 





62200 





02407 




STO 


MTRCSL 






02413 





77100 





00022 




ARS 


18 






02414 





40000 





02430 




AOO 


MTR3 






02415 





62100 





02425 




STA 


MTR2 






02416 





53400 


1 


01413 




LXA 


DRMERC»1 






02417 





76200 


4 


00305 


MTR15 


RDR 


5»4 






02420 


-0 


53400 


2 


02407 




LXD 


MTRCSL .2 






02421 





46000 


4 


02437 




LDA 


ZETA+4»4 






02422 


-0 


75400 





00000 




PXD 


.0 






02423 


-0 


70000 





01103 




CAD 


DRCKSM 






02424 





76000 





00006 




COM 








02425 


-0 


70000 


2 


00000 


MTR2 


CAD 


**»2 






02426 


2 


00001 


2 


02425 




TIX 


MTR2»2tl 






02427 





76000 





00006 




COM 








02430 





10000 





03440 


MTR3 


TZE 


MEMORG 






02431 


2 


00001 


1 


02417 




TIX 


MTR15»1» 


1 




02432 


1 


75346 


4 


03400 


MTRERR 


TXI 


DIAG.4*- 


MTRERR 




02433 





02663 





00000 


ZETA 


PZE 


DEL{A)». 


ENDADR-ORGA 




02434 





01607 





01322 




PZE 


DEL(D).. 


ENDDDR-ORGD 




02435 





01302 





02210 




PZE 


DEL(B),, 


ENDBDR-ORGB 




02436 





01330 





02373 




PZE 


DEL(C),, 


ENDCDR-ORGC 



4F10855 
*EFT.LPR*SPC»CMA.EMK»INPUT(OUTPUT)» 4F10856 

4F10857 

BY RDC»LPR»SPC*CMA»EMK»VRA(VRD)»C3200.4F10858 

INCREASE THE 4F10859 

INTERNAL FORMULA NUMBER 4F10860 

BY 1. 4F10861 

BY EFT*INPUT(OUTPUT). 4F10862 

PICKUP I FN. 4F 10863 

CLEAR SL» AND 4F10864 

PLACE IFN IN THE DECREMENTS 4F10865 

OF SL AND TL. 4F10866 

* EXIT TO CALLER. 4F10867 

). 4F10868 

****************** *4F10869 

4F10870 

FOR CALLING STATES FROM DRUM. 4F10871 

STATE A. 4F10872 

SET CCXR4) * 4» THEN 4F10873 

GO GET PARAMETERS. 4F10874 

STATE B. 4F10875 

SET CCXR4) * 2. THEN 4F10876 

GO GET PARAMETERS. 4F10877 

STATE C. 4F10878 

SET CCXR4) = 1» THEN 4F10879 

GO GET PARAMETERS. 4F10880 

STATE D. 4F10881 

SET CCXR4) = 3, THEN 4F10882 

OBTAIN THE NUMBER OF WORDS IN THE 4F10883 

CURRENT STATE* AND SAVE. 4F10884 

ADD THE NUMBER OF WORDS IN THE 4F 10885 

CURRENT STATE TO THE MEMORY ORIGIN 4F10886 



TO SET ADDRESS OF COPY LOOP. 

SET FOR FIVE ATTEMPTS. 

READ SELECT CURRENT LOGICAL DRUM. 

LENGTH OF CURRENT STATE TO XR2. 

THEN COPY 

CURRENT STATE 

FROM DRUM 

INTO MEMORY 

WHILE COMPUTING 

LOGICAL CHECKSUM. 

IF THIS EQUALS DRUM CHECKSUM. 

THEN ENTER CURRENT STATE. 

CHECKSUM FAILED* TRY UP TO 5 



4F10887 
4F10888 
4F10889 
4F10890 
4F10891 
4F10892 
4F10893 
4F10894 
4F10895 
4F10696 
4F10897 
4F10898 
TIMES. 4F10899 



END OF PROGRAM MTROOO. 
************ 



GO TO DIAGNOSTIC AFTER 5 FAILURES. 4F10900 

4F10901 
4F10902 
4F10903 
4F10904 
4F10905 
4F10906 
****************** *4F10907 

4F10908 



'// 



02*37 
02440 
02441 
02442 
02443 
02*44 
02445 
02446 
02447 
02450 
02451 
02452 
02453 
02454 
02455 
02456 
02457 
02460 
02461 
02462 
02463 
02464 
02465 
02466 
02467 
02470 
02471 
02472 
02473 
02474 
02475 
02476 
02477 
02500 
02501 
02502 
02503 
02504 
02505 
02506 
02507 
02510 
02511 
02512 
02513 
02514 
02515 
02516 
02517 



63400 
60000 
50000 
73400 
00002 
40000 
40100 
62100 
50000 
56000 
10000 
60000 
56000 
60000 
00001 
50000 
53400 
00001 
56000 
60000 
62000 
76300 
60000 
56000 
50000 
00002 
40200 
60100 
56000 
60000 
62000 
76300 
20000 
76700 
40000 
56000 
40200 
60100 
20000 
76700 
40000 
40000 
40200 
60100 

soooo 

77100 
62100 
53400 
02000 



E02 



ED3 



ED4 



01100 RAOOO 

01147 

01125 

01132 

02445 

01407 

02442 EDI 

02447 

00000 

01454 

02454 

01147 

01406 

01147 

02447 

01454 

01125 

02511 

01141 

01141 

01141 

00022 

01361 

01134 

01146 

02503 

01142 

01351 

01136 

01136 

01136 

00022 

01351 

00021 

01145 

01136 

01361 2D1 

01351 

01351 

00021 

01147 

01147 

01141 

01351 

01126 

00030 

01351 

01100 

00001 



1D1 



RAOOO* 4/ CALLERS=LPR»AR 
RAOOO COMPUTES RELATIVE 

SXD RAXR4*4 

STZ EPS 

CLA OIMSAV 

PAX E+4,4 

TXL E01»4»2 

ADD L(ll 

ADM ED2 

STA ED3 

CLA **»4 

LDQ 01 

T2E ED4 

STQ EPS 

LDQ L(0) 

STQ EPS.4 

TIX ED3*4*1 

CLA 01 

LXA D1MSAV»4 

TXL lDlt4»l 

LDQ E+ll 

STZ E+ll 

SLQ E+ll 

LGL IS 

STQ K2 

LDQ E+6 

CLA EPS-1 

TXL 201»4.2 

SUB E+12 

STO GTAG 

LDQ E+8 

STZ E+8 

SLQ E+8 

LGL 18 

MPY GTAG 

ALS 17 

ADD EPS-2 

LDQ E+8 

SUB HZ 

STO GTAG 

MPY GTAG 

ALS 17 

ADD EPS*4 

ADD EPS 

SUB E+ll 

STO GTAG 

CAL E 

ARS 24 

STA GTAG 

LXD RAXR4t4 

TRA 1»4 

END OF PROGRAM RAOOO* 



ITH« 4F10909 

ADDRESS. 4F10910 

SAVE THE CCXR4) FOR RETURN. 4F10911 
CLEAR EPS1L0N (WORKING STORAGE )• 4F10912 

EXAMINE THE 4F10913 

DIMENSION COUNT* AND 4F10914 

IF 3 DIMENSION* 4F10915 

INCREASE IT 1. 4F10916 

THEN SET 4F10917 

ED3 ADDRESS TO 4F10918 

EXAMINE SUCCESSIVE 4F10919 

SUBSCRIPT 4F10920 

VARIABLES, AND 4F10921 

ACCORDINGLY SET 4F10922 

EPSILON AND 4F 10923 

EPSILON SUB I 4F10924 

TO 1 OR TO 0. WHEN DONE* 4F10925 
IF 1 DIMENSION* PICKUP DECREMENT 1»4F10926 

AND GO SUBTRACT ADDEND 1. 4F10927 

IF 2 OR 3 DIMENSION. THEN 4F10928 

PICKUP ADDENDS 1 AND 2» 4F10929 

CLEAR E+ll» AND 4F10930 

RESTORE ADDEND 1 TO E+ll. 4F10931 

ADJUST AND PLACE 4F10932 

ADDEND 2 IN N2. 4F10933 

AND* IF 2 DIMENSION 4F10934 

PICKUP EPSILON SUB 1* 4F10935 

AND GO SUBTRACT ADDEND 2* 4F10936 

IF 3 DIMENSION* SET GTAG 4F10937 

TO EPSILON SUB 1 - ADDEND 3. 4F10938 

PICKUP DIMENSIONS 1 AND 2* 4F10939 

CLEAR E+8* AND 4F 10940 

RESTORE DIMENSION 1 TO E+8. 4F10941 

ADJUST* AND MULTIPLY 4F10942 

DIMENSION 2 TIMES GTAG. 4F10943 

THEN ADD 4F10944 

EPSILON SUB 2 4F 10945 

TO THE PRODUCT* AND 4F10946 

SUBTRACT ADDEND 2. 4F10947 

MULTIPLY 4F10948 

THE RESULT 4F10949 

TIMES 4F10950 
DIMENSION 1* AND ADD IN EPSILON 4F10951 

SUB I AND EPSILON. 4F10952 

SU8TRACT ADDEND 1* 4F10953 

AND PLACE THE RESULT 4F10954 

IN THE DECREMENT OF GTAG* 4F10955 

WITH I-TAUTAG 4F10956 

IN THE ADDRESS. 4F10957 

RESTORE THE C(XR4>» AND 4F10958 

* EXIT TO CALLER. 4F10959 

4F10960 
#**»*»******»**#»* *4F10961 

4F10962 



H'/ 



u 



n 






TD 



02520 





53400 


1 


01413 


RDRX 


LXA 


DRMERC.l 


02521 


-0 


53400 


2 


02364 


REP 


LXD 


DI»2 


02522 


3 


00000 


2 


02524 




TXH 


BIAS-2»2»0 


02523 





07400 


4 


03400 




TSX 


DIAG.4 


02524 





76200 


2 


00305 




RDR 


5»2 


02525 


-0 


53400 


2 


02362 




LXD 


FDA. 2 


02526 


-0 


75400 





02554 


BIAS 


PXD 


ETSUM. 


02527 





46000 





02362 




LDA 


FDA 


02530 


-3 


00000 





00000 


JUMP1 


TXL 


*» 


02531 


-0 


70000 





02365 




CAD 


DUMP 


02532 





76000 





00006 




COM 




02533 


-0 


70000 


2 


02357 


LBUF 


CAD 


BUFR»2 


02534 


2 


00001 


2 


02533 




TIX 


LBUF.2»1 


02535 


1 


00000 





02562 


XR1 


TXI 


PROVE »0»»* 


02536 





70000 


2 


02357 




CPY 


BUFR.2 


02537 


-2 


00001 


2 


02564 




TNX 


ERR»2»1 


02540 





70000 


2 


02357 




CPY 


BUFR.2 


02541 


-2 


00001 


2 


02564 




TNX 


ERR»2»1 


02542 





70000 


2 


02357 




CPY 


BUFR.2 


02543 


-2 


00001 


2 


02564 




TNX 


ERR.2.1 


02544 





70000 


2 


02357 




CPY 


BUFR.2 


02545 


-2 


00001 


2 


02564 




TNX 


ERR.2.1 


02546 





70000 


2 


02357 




CPY 


BUFR.2 


02547 


-2 


00001 


2 


02564 




TNX 


ERR»2»1 


02550 





70000 


2 


02357 




CPY 


BUFR.2 


©2551 


-2 


00001 


2 


02564 




TNX 


ERR.2.1 


02552 





70000 


2 


02357 




CPY 


BUFR.2 


02553 





76100 





00000 




NOP 




0255* 


-0 


70000 





02365 


ETSUM 


CAD 


DUMP 


02555 


2 


00001 


2 


00000 


JUMP2 


TIX 


**»2»1 


02556 


-0 


53400 


2 


02362 


RDRXCR 


LXD 


FDA. 2 


02557 





76000 





00006 




COM 




02560 





36100 


2 


02357 




ACL 


BUFR.2 


02561 


2 


00001 


2 


02560 




TIX 


RDRXCR+2.2.1 


02562 





76000 





00006 


PROVE 


COM 




02563 





10000 


4 


00001 




TZE 


1»4 


02564 


2 


00001 


1 


02521 


ERR 


TIX 


REP.1.1 


02565 





07400 


4 


03400 




TSX 


DIAG.4 
END OF PROGRAM RDRX* 

SR6DC1.1/ CALLSsDIAG. 
SR6DC1 CONVERTS UP TO 


02566 


-0 


63400 


2 


02574 


SR6DC1 


SXD 


SR6XR2.2 


02567 





53400 


2 


01414 




LXA 


L(6>>2 


02570 





60000 





01101 




STZ 


SR6WRK 


02571 


-0 


75400 





00000 


SR6DC2 


PXD 


.0 


02572 


-0 


76300 





00006 




LGL 


6 


02573 





34000 





01430 




CAS 


ABLANK 


02574 


1 


00000 





02576 


SR6XR2 


TXI 


SR6DC3.0.** 


02575 


1 


77777 





02610 


ENOWRD 


TXI 


SR6DC4»0»-1 


02576 





34000 





01417 


SR6DC3 


CAS 


L<9) 



RDRX.4/ CALLS*DIAG. CALL£R=DRTABS# 4F10963 

RDRX READS A BLOCK OF DRUM ENTRIES INTO 50 WORD BUFR. 4F10964 

SET FOR 5 ATTEMPTS TO READ DRUM. 4F10965 

SET XR2 = (5-DRUM NUMBERS 4F 10966 

IF NOT GREATER THAN ZERO. 4F10967 

* GO TO DIAGNOSTIC. 4F10968 
SELECT CURRENT DRUM. 4F10969 
SET XR2 = NO. OF WORDS TO COPY. 4F10970 
CLEAR THE AC. 4F10971 
DRUM ORIGIN OF CURRENT BLOCK. 4F10972 
IETSUM-2*LI TXL=ENTRY»TXH*BLOCK. 4F10973 
READ 4F10974 
FLOCON BLOCK 4F10975 
AND COMPUTE 4F 10976 
LOGICAL CHECKSUM. 4F10977 
GO TEST CHECKSUM. 4F10978 
COPY LOOP 4F 10979 
FOR ALL 4F10980 
TABLES 4F10981 
EXCEPT 4F10982 
FLOCON= 4F10983 
X 4F10984 
X 4F10985 
X 4F10986 
X 4F10987 
X 4F10988 
X 4F10989 
X 4F10990 
X 4F10991 
X 4F 10992 
SUM CHECKSUMS. 4F10993 
IETSUM-2*L) TEST END OF BLOCK. 4F10994 
COMPUTE 4F 10995 
NEW 4F10996 
LOGICAL 4F10997 
CHECKSUM. AND *F10998 
IF CHECKSUMS COMPARE 4F10999 

* RETURN TO MAIN ROUTINE. 4F11000 
OTHERWISE, REPEAT UP TO 5 TIMES. 4F11001 

* FAILED 5 TIMES IN READING DRUM. 4F11002 

4F11003 

ft****************** *4F11004 

4F11005 

DIAG. CALLERS=CA0O0»SS0OO. 4F11006 

6 BCD DIGITS TO THEIR BINARY EOUIV. 4F11007 

SAVE THE CCXR2). AND 4F11008 

SET TO COUNT 6 CHARACTERS. 4F11009 

INITIALIZE OUTPUT CELL TO 0. 4F11010 

OBTAIN NEXT CHARACTER 4F11011 

IN AC AND 4F11012 

TEST FOR BLANK. 4F11013 

IF NOT BLANK* 4F11014 

(DECR= END OF PROBLEM INDICATOR) 4F11015 

TEST FOR NUMERIC. 4F11016 



•n 



V V 



D 
C 



02577 
02600 
02601 
02602 
02603 
02604 
02605 
02606 
02607 
02610 
02611 
02612 
02613 



07400 4 

76100 

60100 

50000 

76700 

40000 

76700 

40000 

60100 

00001 

50000 

53400 

02000 



02614 
02615 
02616 
02617 
S2620 
02621 
02622 
02623 
02624 
02625 
02626 
02627 
02630 
02631 
02632 
02633 
02634 
02635 
02636 
02637 
02640 
02641 
02642 
02643 
02644 
02645 
02646 
02647 
02650 
02651 
02652 
02653 
02654 
02655 
02656 



03400 
00000 
01102 
01101 
00002 
01101 
O0001 
01102 
01101 
02571 
01101 
02574 
00001 



NOP 



63400 

63400 

63400 

60000 

53400 

63400 4 

50000 

63000 

63000 

50000 

63000 

53400 

60000 

07400 

34000 

00000 

76100 

60100 

76700 

60200 

00006 

77777 

07400 

53400 

34000 

00000 

02000 

00001 

34000 

00000 

76100 

00000 

00000 

07400 

07400 



02731 
02730 
02732 
01100 
01414 
02726 
00422 
02776 
02777 
00415 
03014 
01414 
01370 
01707 
01417 
02704 
00000 
01331 
000*4 
01370 
02641 
02642 
01707 
02652 
01406 
02647 
02733 
02644 
01417 
02655 
00012 
02636 
02720 
03242 
03400 



SR6DC4 
TRA 



TSX 
NOP 
STO 
CLA 
ALS 
ADD 
ALS 
ADO 
STO 
TIX 
CLA 
LXD 
TRA 



SSOOO 



SS001 



SS0012 

SS0013 
350014 

SS0015 
SS0016 
CTESTX 
SS0017 



01 AG >4 

SR6WRK+1 

SR6WRK 

2 

SR6WRK 

1 

SR6WRK+1 

SR6WRK 

SR6DC2f2»l 

SR6WRK 

SR6XR2»2 

1*1 

END OF PROGRAM SR60C1« 
♦ *#»**»***** 



* IF NON-NUMERIC - GO TO DIAGNOSTIC. 4F11017 
IF NUMERIC* 4F11018 
SAVE DIGIT* AND 4F11019 
MULTIPLY PREVIOUS PARTIAL 4F11020 
RESULT BY 10* 4F11021 
AND ADD IN 4F11022 
CURRENT DIGIT. SAVING 4F11023 
NEW PARTIAL RESULT. 4F11024 
THEN ADJUST COUNT* AND 4F11025 
WHEN 6 CHARS HAVE BEEN TREATED* 4F11026 
LEAVE OUTPUT IN AC* 4F11027 
RESTORE THE C(XR2»* AND 4F11028 

* EXIT TO MAIN ROUTINE. 4F11029 

4F11030 
****♦*»***»**■**»** »4F11031 



4F11032 
SSOOO* 4/ CALLS=C0190»DIAG»SR6DC1.D1M.SR*DRTABS»TET00*TESTFX. 4F11033 



CAU-ERS»ARITH»LPR.C0200. 

SSOOO SCANS SUBSCRIPT COMBINATIONS AND MAKES TABLE ENTRIES. 



SXD 
SXD 
SXD 
STZ 

LXA 
SXD 
CAL 
STP 
STP 
CAL 
STP 
LXA 
STZ 
TSX 
CAS 
TXI 
NOP 
STO 
ALS 
ORS 
TXI 
TXI 
TSX 
LXA 
CAS 
TXI 
TRA 
TIX 
CAS 
TXI 
NOP 
TXH 
TXI 
TSX 
TSX 



SXR2.2 

SXR1»1 

SXR4.4 

DIMCTR 

L«6)*4 

SBS2*4 

TXHOP 

SBC6 

SBC8 

TXLOP 

SBC4 

L<6)»3 

SYMBOL 

C0190»4 

L(9) 

SS0045*0 

FIRSTC 

36.2 

SYMBOL 

SS0013»2»6 

5S0014.1.-1 

C0190»4 

CTESTX.4 

CTEST.4 

SS0016»0 

SU8TR.4 

SS0015»<nl 

L<9) 

SS0017*0 

CTEST-ENDMK 

SS0012*1*0 

STOP49.0 

TESTFX+1.1 

DIAG»4 



4F11034 
4F11035 
4F11036 
4F11037 
4F11038 
4F11039 
4F11040 
4F11041 
4F11042 
4F11043 
4F11044 
4F11045 
4F11046 



SAVE CIXR2)* 

SAVE CtXRD* 

SAVE CIXR4)* AND 

SET DIMCTR = 0. 

IHIT2ALJ2E 

FOR EACH SUBSCRIPT MEMBER. 

PI CtC UP TXH OP, AND 

SET OP 

SWITCHES. 

PICK UP TXL OP* AND 

SET OP SWITCH. 

SET FOR 6 CHARACTERS OF MULTIPLIER. 4F11047 

CLEAR WORKING STORAGE. 4F11048 

GET FIRST NON BLANK CHAR IN THE AC.4F11049 

COMPARE IT WITH 9. 4F11050 

RETURN TO EXPLICIT CODING. 4F11051 

IF NUMERIC. 4F11052 

SAVE RIGHT-ADJUSTED DIGIT, AND 4F11053 

LEFT-ADJUST DIGIT TO 4F11054 

BUILD SYMBOL. 4F11055 

UPDATE SHIFT DECREMENT. AND 4F11056 

UPDATE COUNT OF CHARS COLLECTED. 4F11057 

GET NEXT NB CHARACTER IN THE AC. 4F11058 

SET XR4 = NO. OF PUNCTUATION MARKS. 4FU059 

TEST THIS CHARACTER AGAINST 4F11060 

ALL PUNCTUATION. 4F11061 

IF EQUALITY IS FOUND, TRANSFER, 4F11062 

IF NOT FOUND TO BE PUNCTUATION, 4FH063 

TEST FOR NUMERIC. 4F11064 

AND IF 4F11065 

FOUND TO BE NUMERIC* 4F11066 

CONTINUE BUILDING SYMBOL. BUT IF 4FH067 

SEVENTH CHAR, GO TO DIAGNOSTIC. 4F11068 

GO TEST FOR FIXED POINT VARIABLE. 4F11069 

NOT FIXED POINT — GO TO DIAGNOSTIC. 4F11070 



n 



O 





02657 


-0 


76300 





00036 




LGL 


30 




02660 





60200 





01365 




SLW 


RESIDU 




02661 


-0 


53400 


4 


01724 




LXD 


CHCTR»4 




02662 


1 


00001 


4 


02663 




TXI 


SSOO 18*4*1 




02663 


-0 


63400 


4 


01724 


SS0018 


SXD 


CHCTR»4 




02664 





50200 





02776 


SBX 


CLS 


SBC 6 




02665 


-0 


12000 





02667 




TMI 


SB XI 




02666 





07400 


4 


03400 




TSX 


DIAG.4 




02667 





60100 





02776 


SBX1 


STO 


SBC6 




02670 





50000 





01331 




CLA 


FIRSTC 




02671 





40200 





01373 




SUB 


L<10> 




02672 


-0 


12000 





02674 




TMI 


SBX2 




02673 





07400 


4 


03400 




TSX 


DIAG»4 




02674 


-0 


50000 





01370 


SBX2 


CAL 


SYMBOL 




02675 





77100 


2 


00052 




ARS 


42*2 




02676 


-0 


53400 


4 


02726 




LXD 


SBS2»4 




02677 





60200 


4 


01137 




SLW 


E+9»4 




02700 





60000 


4 


01145 




STZ 


E+15»4 




02701 





53400 


3 


01414 


SS003 


LXA 


L<6)*3 




02702 





60000 





01370 




STZ 


SYMBOL 




02703 





07400 


4 


01707 


SS004 


TSX 


C0190»4 




02704 





53400 


4 


02652 


SS0045 


LXA 


CTESTX.4 




02705 





34000 


4 


01406 


SS005 


CAS 


CTEST»4 


D 


02706 


1 


00000 





02710 




TXI 


SS006.0 




02707 





02000 


4 


02733 




TRA 


SUBTR»4 




02710 


2 


00001 


4 


02705 


SS006 


TIX 


SS005»4.1 




02711 


-3 


00005 


1 


02713 




TXL 


SS008»1»5 




02712 





60100 





01331 




STO 


FIRSTC 




02713 





76700 


2 


00044 


SS008 


ALS 


36*2 




02714 


-3 


00000 


1 


02720 


SS009 


TXL 


STOP49»1»0 




02715 


-0 


60200 





01370 




ORS 


SYMBOL 




02716 


1 


00006 


2 


02717 




TXI 


SS007»2»6 




02717 


1 


77777 


I 


02703 


SS007 


TXI 


SS004.1»-1 




02720 





07400 


4 


03400 


ST0P49 


TSX 


DIAG.4 

SUBTR/ CONTROL TR 


D 


02721 


1 


00000 





02722 




TXI 


ISC*0 




02722 





07400 


4 


03400 


ISC 


TSX 


DIAG.4 





02723 


1 


00000 





02772 




TXI 


SBC»0 





02724 


1 


00000 





02770 




TXI 


SBR*0 





02725 


1 


00000 





02722 




TXI 


ISC»0 




02726 


1 


00000 





02733 


SBS2 


TXI 


SBM»0»** 





02727 


1 


00000 





02722 




TXI 


ISC»0 




02730 


1 


00000 





02722 


SXR1 


TXI 


ISC.O.** 




02731 


1 


00000 





02734 


SXR2 


TXI 


SBP»0**» 




02732 


1 


00000 





02664 
02733 


SXR4 
SUBTR 


TXI 
BSS 


SBX.O.** 





02733 


-0 


76000 





00003 


SBM 


SSM 






02734 





76000 





00000 


SBP 


CLM 






02735 


-0 


53400 


4 


02726 




LXD 


SBS2»4 




02736 





60100 


4 


01145 




STO 


E+15»4 




02737 





50200 





02777 




CLS 


SBC8 




02740 


-0 


12000 





02742 




TMI 


SBP1 




02741 





07400 


4 


03400 




TSX 


DIAG.4 




02742 





60100 





02777 


SBP1 


STO 


SBC8 



RESTORE FIXED POINT VARIABLE 4F11071 

TO RESIDU* AND 4F11072 

RESET CHARACTER COUNTER 4F11073 

TO BEGIN PROCESSING 4F11074 

SUBSCRIPT MULTIPLIER. 4F11075 

TEST FOR 4F11076 

PREVIOUS MULTIPLIER. \ 4F11077 

* DOUBLE MULTIPLIER FOR SUBSCRIPT. 4F11078 
RESET MULTIPLIER SWITCH. 4F11079 
TEST 4F11080 
MULTIPLIER 4F11081 
FOR CONSTANT. \ 4F11082 

* SUBS-MULTIPLIER NOT A CONSTANT. 4F11083 
ADJUST MULTIPLIER 4F11084 
TO LOW ORDER POSITION. 4F11085 
6ET STORING TAG* 4F11086 
AND STORE MULTIPLIER. 4F11087 
SET ADDEND - 0. 4F11088 
SET FOR 6 CHARS OF VARIABLE/ADDEND. 4F11089 
CLEAR WORKING STORAGE. 4F11090 

* GO GET NEXT NB CHARACTER IN THE AC.4F11091 
COMPARE CHARACTER 4F11092 
TO ALL 4F11093 
PUNCTUATION. 4F11094 
IF EQUALITY IS FOUND* TRANSFER. 4F11095 
IF NOT FOUND TO BE PUNCTUATION* 4F11096 
IF 1ST CHARACTER OF VARIABLE OR 4F11097 
ADDEND* SAVE FOR LATER TESTS. 4F11098 
POSITION EACH CHARACTER. BUT 4F11099 

* ON 7TH CHARACTER* GO TO STOP. 4F11100 
BUILD SYMBOL. 4F11101 
UPDATE EFFECTIVE ADDRESS OF SHIFT. 4F11102 
UPDATE FOR ANOTHER CHAR COLLECTED. 4F11103 

* GO TO DIAGNOSTIC ON 7TH CHARACTER. 4F1U04 
TRANSFERS FOR SUBSCRIPT SCAN* 4F11105 

EMK (ILLEGAL IN LIST SUBSCRIPT J. 4F11106 

* ( (ILLEGAL IN LIST SUBSCRIPT). 4F11107 
f 4F11108 
) 4F11109 

(ILLEGAL IN LIST SUBSCRIPT*. 4F11110 

- ..SUBSCRIPT ELEMENT COUNTER. 4F11111 

/ (ILLEGAL IN LIST SUBSCRIPT). 4F11112 

. (ILLEGAL IN LIST SUBSCRIPT). 4F1H13 

+ 4F11114 

* 4F11115 

INDEXING ADDRESS FOR ABOVE LIST. 4F1U16 

MINUS ADDEND. 4F11117 

PLUS ADDEND. 4F11118 

GET STORING TAG. AND 4F11119 

STORE SIGN OF ADDEND. 4F11120 

TEST SWITCH 4F11121 

FOR PREVIOUS ADDEND. 4F11122 

» DOUBLE ADDEND FOR SUBSCRIPT. 4F11123 

RESET ADDEND SWITCH. 4F11124 



*' 



L V V 





02743 





07400 




02744 





07400 




02745 


-0 


53400 




02746 





50200 




02747 





12000 




02750 





50000 




02751 





60100 





02752 


1 


00000 




02753 





50200 




02754 





60100 




02755 


-0 


50000 




©2756 


3 


00044 




02757 


-0 


50000 




02760 





76700 




02761 


-0 


50100 




02762 





60200 




02763 





07400 




02764 





07400 




02765 





50000 




02766 


-0 


12000 


D 


02767 


1 


00000 




02770 





50200 




02771 





60100 




02772 


-0 


50000 




02773 





40000 




02774 





62100 




02775 


-0 


53400 





02776 


3 


00000 


D 


02777 


3 


00000 




03000 





50000 




03001 





60100 




03002 





60000 




03003 





50000 




03004 





40200 




03005 





12000 




03006 





60000 




03007 


-0 


50000 




03010 





77100 




03011 


-0 


60200 




03012 


-2 


00002 




03013 


-0 


63400 





03014 


-3 


00000 





03015 


1 


00000 




03016 





50200 




03017 





60100 




03020 





50200 




03021 





40000 




03022 


-0 


12000 




03023 





07400 




03024 





50200 




03025 


-0 


12000 




03026 





07400 



1 03241 
4 03400 
4 02726 
02776 
02754 
01407 
01137 
02755 
02776 
02776 
01370 
02762 
01430 
00044 
01370 
01140 
03241 
03400 
02777 
02701 
03012 
03014 
03014 
01100 
01407 
01100 
02726 
02753 
03016 
01407 
4 01137 
4 01145 
01331 
01373 
02755 
01140 
01370 
00052 
4 01145 
4 03024 
02726 
02627 
03030 
02777 
02777 
01373 
01331 
03007 
03400 
03014 
03030 
03400 



SBC1 
SBP2 
SBP4 



SBP41 



SBR 
SBC 



SBC6 
SBC8 



SBC9 

SBC7 
SBC4 
SBC2 



SBC3 



TSX 
TSX 

LXD 
CLS 
TPL 
CLA 
STO 
TXI 
CLS 
STO 
CAL 
TXH 
CAL 
ALS 
ORA 
SLW 
TSX 
TSX 
CLA 
TMI 
TXI 
CLS 
STO 
CAL 
ADD 
STA 
LXD 
TXH 
TXH 
CLA 
STO 
STZ 
CLA 
SUB 
TPL 
STZ 
CAL 
ARS 
ORS 
TNX 
SXO 
TXL 
TXI 
CLS 
STO 
CLS 
ADO 
TMI 
TSX 
CLS 
TMI 
TSX 



03027 -0 63400 4 02732 CSAOOO SXO 



TESTFX»1 

DIAG»4 

SBS2»4 

SBC6 

S8P2 

LU) 

E+9.4 

SBP4»0 

SBC6 

SBC6 

SYMBOL 

SBP41.2»36 

BLANK 

36*2 

SYMBOL 

E+10»4 

TESTFX.l 

DIAG.4 

SBC8 

SS003 

SBC7.0 

SBC4 

SBC4 

DIMCTR 

L(l> 

DIMCTR 

SBS2t4 

SBC1.0 

SBC2»0 

L(l) 

E+9»4 

E+15»4 

FIRSTC 

L(10> 

SBP4 

E+10.4 

SYMBOL 

42*2 

E+15»4 

SBC3»4.2 

SBS2»4 

SS001.0 

SA0OO»0 

SBC8 

SBC8 

L(10) 

FIRSTC 

SBC9 

DIAG»4 

SBC4 

SAOOO 

DIAG.4 

CSAOOO= ENTRY 

SXR4t4 



* GO TO TEST FOR FIXED POINT. 4F11125 

* NOT FIXED POINT — GO TO DIAGN0STIC.4FU126 
GET STORING TAG* AND 4F11127 
TEST SWITCH 4F11128 
FOR PREVIOUS MULTIPLIER. 4F11129 
IF NONE* 4F11130 
SET MULTIPLIER 4F11131 
TO 1* AND CONTINUE. 4F11132 
RESET MULTIPLIER 4F11133 
OP SWITCH. 4F11134 
IF VARIABLE SUBSCRIPT. 4F11135 
ADD A BLANK 4F1U36 
IF LESS 4F11137 
THAN 6 4F11138 
CHARACTERS* AND 4F11139 
PLACE IN E-REGION. 4F11140 

« GO TO TEST FOR FIXED POINT. 4F11141 

* NOT FIXED POINT — GO TO DIAGNOSTIC. 4F11142 
IF THERE IS AN ADDEND. 4F11143 
GO COLLECT. OTHERWISE 4F11144 
60 UPDATE STORING TAG. 4F11145 
SET SWITCH 4F11146 
FOR CLOSING PARENTHESIS. 4F11147 
UPDATE 4F11148 
DIMENSION COUNTER 4F11149 
BY 1. 4F11150 
GET STORING TAG. 4F11151 
SWITCH-IF NO MULTIPLIER. AND 4F11152 
SW1TCH-IF NO ADDEND. THEN 4F11153 
SET 4F11154 
MULTIPLIER = 1. 4F11155 
SET ADDEND ■ 0. 4F11156 
TEST FOR 4F11157 
CONSTANT OR VARIABLE. 4F11158 
IF CONSTANT. THEN 4F11159 
SET VARIABLE = 0. 4F11160 
ADJUST 4F11161 
CONSTANT 4F11162 
TO LOW ORDER POSITION. 4F11163 
UPDATE STORING TAG 4F11164 
BY -2* AND SAVE. 4F11165 
SWITCH-REPEAT FOR NEXT SUB-COMB. 4F11166 
GO MAKE TABLE ENTRIES AND GET TAG. 4F11167 
RESET ADDEND 4F11168 
OP SWITCH. 4F11169 
TEST 4F11170 
ADDEND 4F11171 
FOR CONSTANT. 4F11172 

* SUBSCRIPT ADDEND NOT A CONSTANT. 4F11173 
AFTER SCANNING 3 SUBSCRIPTS. 4F11174 
60 MAKE TABLE ENTRIES AND GET TAG. 4F11175 

* GO TO DIAG - NO ) AFTER 3RD SUBS. 4F11176 
POINT USED BY C0200 (GO TO ROUTINE). 4F11177 

SAVE CIXR4) FOR RETURN TO C0200. 4F11178 
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n 



O 





03030 





50000 


01100 


SAOOO CLA 


DIMCTR 




03031 





60100 


01125 


STO 


DIMSAV 




03032 





76700 


00041 


ALS 


33 




03033 





60100 


01126 


STO 


E 




03034 





50000 


01141 


CLA 


E+ll 




03035 





60100 


01142 


STO 


E+12 




03036 





50000 


01137 


CLA 


E+9 




03037 





60100 


01141 


STO 


E+ll 




03040 





50000 


01410 


CLA 


L(2) 




03041 





34000 


01100 


CAS 


DIMCTR 


D 


03042 


1 


00000 


03174 


TX1 


1DOOOO»0 


D 


03043 


1 


00000 


03131 


TX1 


2D0000*0 




03044 





53400 4 


01414 


3D0000 LXA 


L(6)»4 




03045 





56000 4 


01137 


3D0001 LOQ 


E+9»4 




03046 





07400 1 


02566 


TSX 


SR6DCltl 




03047 





60100 4 


01137 


STO 


E+9. 4 


. 


03050 


2 


00002 4 


03045 


TIX 


300001*4*2 




03051 





53400 4 


01411 


LXA 


L i 3 ) »* 




03052 





50000 4 


01144 


3D0002 CLA 


E+14*4 




03053 





60200 


01347 


SLW 


G 




03054 





56000 


01347 


LDQ 


6 




03055 





07400 1 


02566 


TSX 


SR6DC1.1 




03056 





56000 4 


01144 


LDQ 


E+14*4 




03057 





16200 


03061 


TOP 


3D0040 




03060 


-0 


50100 


01453 


ORA 


2E17 




03061 





60100 4 


01144 


3D0040 STO 


E+14»4 




03062 


2 


0O001 4 


03052 


TIX 


300002*4*1 




03063 





07400 4 


02005 


TSX 


DIM3SR.4 




03064 





07400 4 


03400 


TSX 


D1AG.4 




03065 





50000 


01131 


3D0060 CLA 


E+3 




03066 





76700 


00022 


ALS 


18 




03067 





40000 


01133 


ADO 


E+5 




03070 





60100 


01131 


STO 


E+3 




03071 





50000 


01132 


CLA 


E+4 




03072 





60100 


01133 


STO 


E+5 




03073 





50000 


01135 


CLA 


E+7 




03074 





76700 


00022 


ALS 


18 




03075 





60100 


01132 


STO 


E+4 




03076 





50000 


01136 


CLA 


E+8 




03077 





60100 


01135 


STO 


E+7 




03100 





50000 


01101 


CLA 


D12 




03101 





60100 


01136 


STO 


E+8 




03102 


-0 


50000 


01141 


CAL 


E+ll 




03103 





76700 


00022 


ALS 


18 




03104 


-0 


50100 


01142 


ORA 


E+12 




03105 





60200 


01141 


SLW 


E+ll 




03106 


-0 


50000 


01143 


CAL 


E+13 




03107 





76700 


00022 


ALS 


18 




03110 





60200 


01142 


SLW 


E+12 




03111 





07400 4 


00443 


TSX 


TAU3IX.4 




03112 





76700 


00030 


ALS 


24 




03113 


-0 


60200 


01126 


ORS 


E 




03114 


-0 


50000 


01135 


CAL 


E+7 




03115 


-Q 


50100 


01134 


ORA 


E+6 



SAVE 


4F11179 




THE CONTENTS OF DIMCTR* 


4F11180 




POSITION AND 


4F11161 




STORE I TA6. 


4F11182 




MOVE SUBSCRIPT ADDENDS 


4F11183 




INTO POSITION 


4F11184 




FOR FOLLOW I N6 


4F11185 




PROGRAM. 


4F11186 




EXAMINE DIMCTR 


4F11187 




TO DETERMINE 


4F11188 




WHETHER DIMENSION OF 


4F11189 




VARIABLE IS 1» 2» OR 3. 


4F11190 




PREPARE TO PICK UP 3 COEFFICIENTS. 


4F11191 




CONVERT THEM FROM BCD TO BINARY 


4F11192 




* IN £+3*5*7* AND 


4F11193 




STORE BACK IN £+3*5.7. 


4F11194 




WHEN DONE* PREPARE 


4F11195 




70 PICK UP 3 ADDENDS. 


4F111S6 




CONVERT ADDENDS (BCD TO BINARY J = 


4F11197 




STRIP OFF 


4F11198 




SIGN* 


4F11199 




* CONVERT ADDENDS IN E+ll»12»13» 


4F11200 




PUT SIGN IN S-BIT OF MQ» AND 


4F11201 




IF PLUS — SKIP NEXT* 


4F11202 




IF MINUS — OR SIGN INTO BIT 18* 


4F11203 




AND STORE BACK INTO £+11*12*13. 


4F11204 




WHEN DONE* 


4F11205 




* GO SEARCH DIM3 TABLE. 


4F11206 




» — ERROR. ..NOT ON DRUM. 


4F11207 




REF0RMATI2E E-STRING = 


4F11208 




PACK TOGETHER COEFFICIENTS 1 AND 2 


4F11209 




AND STORE THEM 


4F11210 




IN E+3. 


4F11211 




MOVE SUBSCRIPT 1 


4F11212 




TO E+5. 


4F11213 




AND MOVE 


4F11214 




COEFFICIENT 3 


4F11215 




INTO E+4. 


4F11216 




MOVE SUBSCRIPT 3 INTO E+7* 


4F11217 




NEXT TO SUBSCRIPT 2 IN E+6. 


4F11218 




MOVE DIMENSIONS 1 AND 2 


4F11219 




INTO E+8. 


4F11220 




PACK TOGETHER 


4F11221 




ADDENDS 1 AND 2 


4F11222 




AND 


4F11223 




STORE THEM IN E+ll. 


4F11224 




MOVE 


4FU225 




ADDEND 3 


4F11226 




INTO E+12. 


4F11227 




* GO SEARCH TAU3 TABLE. 


4F11228 




POSITION TAU3 TAG* AND 


4F11229 




PLACE TAU3 TAG IN TAG WORD. 


4F11230 




COMBINE 


4F11231 


/2 > 


SUBSCRIPTS 3*2* AND 1* 


4F11232 



03116 


-0 


50100 





01133 


300340 


ORA 


E+5 


03117 





10000 





03216 


3D0350 


T2E 


NO TAG 


03120 


-0 


50000 





00030 


FTG0O0 


CAL 


EIFNO 


03121 


-0 


32000 





01527 




ANA 


MASK1 


03122 





60200 





01347 




SLW 


G 


03123 


-0 


50000 





01126 




CAL 


E 


03124 





77100 





00030 




ARS 


24 


03125 


-0 


60200 





01347 




ORS 


G 


03126 





07400 


1 


03321 




TSX 


TETOO.l 


03127 





00000 





00004 




PZE 


4 


03130 


1 


00000 





03220 




TXI 


SAEXIT*0 


03131 





53400 


4 


01412 


2D0000 


LXA 


L(4).4 


03132 





56000 


4 


01135 


2D0001 


LOQ 


E+7.4 


03133 





07400 


1 


02566 




TSX 


SR6DC1.1 


03134 





60100 


4 


01135 




STO 


E+7.4 


03135 


2 


00002 


4 


03132 




TIX 


2D0001»4.2 


03136 





53400 


4 


01410 




LXA 


L<2).4 


03137 





50000 


4 


01143 


2D0002 


CLA 


E+13.4 


03140 





60200 





01347 




SLW 


G 


03141 





56000 





01347 




LDQ 


G 


03142 





07400 


1 


02566 




TSX 


SR6DCI1I 


03143 





56000 


4 


01143 




LDQ 


E+13.4 


03144 





16200 





03146 




TQP 


2D0040 


03145 


-0 


50100 





01453 




ORA 


2E17 


03146 





60100 


4 


01143 


2D0040 


STO 


E+13.4 


03147 


2 


00001 


4 


03137 




TIX 


200002. 4fl 


03150 





07400 


4 


01775 




TSX 


DIM2SR.4 


03151 





07400 


4 


03400 




TSX 


DIAG.4 


03152 





50000 





01131 


2D0060 


CLA 


E+3 


03153 





76700 





00022 




ALS 


18 


03154 





40000 





01133 




ADO 


E+5 


03155 





60100 





01131 




STO 


E+3 


03156 





50000 





01134 




CLA 


E+6 


03157 





60100 





01133 




STO 


E+5 


03160 





50000 





01101 




CLA 


012 


03161 


-0 


32000 





01527 




ANA 


MASK1 


03162 





60100 





01134 




STO 


E+6 


03163 


-0 


50000 





01141 




CAL 


E+ll 


03164 





76700 





00022 




ALS 


18 


03165 


-0 


50100 





01142 




ORA 


E+12 


03166 





60200 





01141 




SLW 


E+ll 


03167 





07400 


4 


00436 




TSX 


TAU2IX.4 


03170 





76700 





00030 




ALS 


24 


03171 


-0 


60200 





01126 




ORS 


E 


03172 


-0 


50000 





01132 




CAL 


E+4 


03173 


1 


00000 





03116 




TXI 


300340*0 


03174 





56000 





01131 


1D0000 


LDQ 


E+3 


03175 





07400 


1 


02566 




TSX 


SR6DC1.1 


03176 





76700 





00022 




ALS 


18 


03177 





60100 





01131 




STO 


E+3 


03200 





50000 





01141 




CLA 


E+ll 


03201 





60200 





01347 




SLW 


G 


03202 





56000 





01347 




LDQ 


G 


03203 





07400 


1 


02566 




TSX 


SR6DC1.1 



AND If THEY ARE ALL ZERO. 4F11233 

— DON»T ENTER FORTAG. 4F11234 

ENTER FORTAG= 4F11235 

BRING UP ALPHA (INTFORMNO) 4F11236 

AND STORE IN G. 4F11237 

BRING UP TAUT AG FOR I. 4F11238 

ADJUST. AND 4F11239 

PLACE IN 6 WITH ALPHA. THEN 4F11240 

* ENTER INTO FORTAG TABLE 4FU241 
ITET TABLE 4). 4FU242 
60 TO EXIT. 4F11243 
THEN PICKUP AND 4F11244 
CONVERT COEFFICIENTS 4F11245 

« (BCD TO BINARY}. 4F11246 

AND STORE BACK IN E+3 AND E+5. 4F11247 

WHEN DONE, 4F11248 

PREPARE TO 4F11249 

PICKUP THE TWO ADDENDS. 4F11250 

STRIP OFF 4F11251 

THEIR SIGNS. 4F11252 

* CONVERT THEM FROM BCD TO BINARY. 4F11253 
PUT SIGN IN S-BIT OF MQ. AND 4F11254 
IF PLUS— SKIP NEXT. 4F11255 
IF MINUS — OR SIGN INTO BIT 18. 4F11256 
AND STORE BACK IN E+ll AND E+12. 4F11257 
WHEN DONE. 4F11258 

* GO SEARCH OIM2 TABLE. 4F11259 

* — ERROR.. .NOT ON DRUM. 4F11260 
REFORMAT IZE E-STRING = 4F11261 
PACK TOGETHER 4F11262 
COEFFICIENTS 1 AND 2. 4F11263 
AND STORE THEM IN E+3. 4F11264 
MOVE SUBSCRIPT 2 INTO E+5 4F11265 
(NEXT TO SUBSCRIPT 1 IN E+4). 4F11266 
OBTAIN 4F11267 
DIMENSION 1. AND MOVE IT 4F11268 
INTO E+6. 4F11269 
PACK TOGETHER 4F11270 
ADDENDS 1 AND 2. 4F11271 
AND STORE THEM 4F11272 
IN E+ll. 4F11273 

* GO SEARCH TAU2 TABLE. 4F11274 
POSITION TAU2 TAG. AND 4F11275 
PLACE TAU2 TAG IN TAG WORD. 4F11276 
COMBINE SUBSCRIPTS 1 AND 2. AND 4F11277 
GO TO FORTAG SECTION. 4F11278 
PICKUP AND CONVERT COEFFICIENTS 4F11279 

* (BCD TO BINARY )» AND 4F11280 
THEN ADJUST THEM. 4F 11281 
AND STORE THEM BACK IN E+3. 4F11282 
PICKUP ADDEND. 4F 11283 
STRIP OFF SIGN. 4F11284 
CONVERT ADDEND 4F11285 

* (BCD TO BINARY). AND THEN 4F11286 



H 



u 



u 



o 



r> 



03204 





56000 





01141 




LDQ 


E+ll 






PUT SIGN IN S-BIT OF MQ» AND 


4F11287 


03205 





16200 





03207 




TOP 


1D0001 






IF PLUS — SKIP NEXT. 


4F11288 


03206 


-0 


50100 





01453 




ORA 


2E17 






IF MINUS— OR SIGN INTO BIT 18. 


4F11289 


03207 





76700 





00022 


1D0001 


ALS 


18 






THEN ADJUST AND STORE 


4F11290 


03210 





60200 





01141 




SLW 


E+ll 






BACK INTO E+ll. 


4F11291 


03211 





07400 


4 


00431 




TSX 


TAU1IX»4 




• 


GO SEARCH TAU1 TABLE. 


4F 11292 


03212 





76700 





00030 




ALS 


24 






POSITION TAU1 TAG. AND 


4F11293 


03213 


-0 


60200 





01126 




ORS 


E 






PLACE TAU1 TAG IN TAG WORD. 


4F11294 


03214 


-0 


50000 





01132 




CAL 


E+4 






TAKE SUBSCRIPT. AND 


4F11295 


03215 


1 


00000 





03117 




TXI 


3D0350.0 






GO TO FORTAG SECTION. 


4F 11296 


03216 


-0 


50000 





01471 


NO TAG 


CAL 


FNIND 






POSITION SIGMA1 TAG. AND 


4F11297 


03217 


-0 


60200 





01126 




ORS 


E 






PLACE SIGMA1 TAG IN TAG WORD. 


4F11298 


03220 


-0 


53400 


1 


02730 


SAEXIT 


LXO 


SXRltl 






RESTORE THE CURD. 


4F11299 


03221 


-0 


53400 


2 


02731 




LXD 


SXR2.2 






RESTORE THE C(XR2)» 


4F11300 


03222 


-0 


53400 


4 


02732 




LXD 


SXR4.4 






RESTORE THE CCXR4). AND 


4F11301 


03223 





02000 


4 


00001 




TRA 


1*4 
END OF PROGRAM 


ssooo. 

* * * * 


* 
* 


EXIT TO MAIN ROUTINE. 

a**************** 


4F11302 

4F11303 

♦4F11304 

4F11305 
















SUBX00.4/ CALLERS=C3000 


.C3300. 


4F11306 
















SUBXOO ADDS BLANKS TO THE 


NAMES OF SUBROUTINES. 


4F11307 


03224 





53400 


3 


01414 


SUBXOO 


LXA 


L(6) .3 






PREPARE TO COUNT CHARS AND SHIFTS. 


4F11308 


03225 





56000 





01112 




LDQ 


1G 






PICKUP SUBROUTINE NAME. 


4F11309 


03226 


-0 


75400 





00000 


SUBX01 


PXD 


• 






CLEAR THE AC. AND 


4F11310 


03227 


-0 


76300 





00006 




LGL 


6 






SEARCH FOR A BLANK 


4F11311 


63230 





40200 





01430 




SUB 


BLANK 






CHARACTER IN THIS NAME. 


4F11312 


03231 





10000 





03235 




TZE 


SUBX03 






IF NOT BLANK. THEN 


4F11313 


03232 


1 


00006 


1 


03233 




TXI 


SUBX02.1.6 






UPDATE SHIFT COUNT. AND 


4F11314 


03233 


2 


00001 


2 


03226 


SUBX02 


TIX 


SUBX01»2tl 






CONTINUE UNTIL 6 CHARS ARE COUNTED.4F11315 


03234 





02000 


4 


00001 




TRA 


1.4 




* 


RETURN TO CALLER AFTER 6TH CHAR. 


4F11316 


03235 





56000 





01526 


SUBX03 


LDQ 


BLANKS 






IF LESS THAN 6 CHARACTERS IN NAME. 


4F11317 


03236 


-0 


76300 


1 


00044 




LGL 


36.1 






SHIFT ENOUGH BLANKS INTO THE AC. 


4F11318 


03237 


-0 


60200 





01112 




ORS 


1G 






AND FILL OUT NAME WITH BLANKS. 


4F11319 


03240 





O20O0 


4 


00001 




TRA 


1*4 
END OF PR06RAM 

******** 


SUBXOO. 
* * * ♦ 


• 
* 


RETURN TO CALLER. 
***************** 


4F11320 

4F11321 

•4F11322 

4F11323 
















TESTFX. 1/ CALLERS=SS000 


>C3000»IFFIX. 


4F11324 
















TESTFX TESTS FOR FIXED OR 


FLOATING POINT VARIABLES. 


4F11325 


03241 


-0 


50000 





01331 


TESTFX 


CAL 


FIRSTC 






COMPARE FIRST CHARACTER 


4F11326 


03242 





34000 





01423 




CAS 


L(H) 






WITH H. 


4F11327 


03243 





34000 





01425 




CAS 


L(0) 






IF GREATER THAN H» COMPARE WITH 0. 


4F11328 


03244 





02000 


1 


00001 




TRA 


1.1 




*■ 


IF NOT GREATER THAN H, LESS THAN 


.4F11329 


03245 





02000 


1 


00001 




TRA 


1*1 




* 


THEN TAKE FLOATING POINT EXIT. 


4F11330 


03246 





02000 


1 


00002 




TRA 


2.1 
END OF PROGRAM 


TESTFX. 
» # # ♦ 


• 
* 


OTHERWISE. TAKE FIXED POINT EXIT. 
• •*•*•*****•*••** 


4F11331 

4F11332 

•4F11333 



03247 34000 01376 TESTAO CAS 
03250 02000 03252 TRA 



4F11334 
TEST.. .4/ CALLS=DIAG. CALLERS=C0100.C02O0»C0300.C0400»C1000» 4F11335 
C1100.C1200.C1400.C1500.C1600.C3000.C3100.C3200.C3400.LPR. 4F11336 
TEST.. TESTS THE CHARACTER IN THE AC (30-35 >. 4F11337 

TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK. 4F11338 

COMMA 4F11339 

TESTA1 4F11340 



03251 
03252 
03253 
03254 

03255 
03256 
03257 
03260 
03261 
03262 

03263 
03264 
03265 
03266 
03267 
03270 

03271 
03272 
03273 
03274 

03275 
03276 
03277 
03300 

03301 
03302 
03303 
03304 

03305 
03306 
03307 
03310 

03311 
03312 
03313 
03314 

03315 
03316 
03317 
03320 



02000 
40200 
10000 
07400 

34000 
02000 
02000 
40200 
10000 
07400 

34000 
02000 
02000 
40200 
10000 
07400 

34000 
07400 
02000 
07400 

34000 
02000 
02000 
07400 

34000 
02000 
02000 
07400 

34000 
02000 
02000 
07400 

34000 
02000 
76100 
07400 

34000 
07400 
02000 
02000 



4 00001 
01374 
4 00001 
4 03400 



01376 
03260 
00001 
01377 
00001 
03400 

01375 
03266 
00001 
01374 
00001 
03400 



01374 
4 03400 
4 00001 
4 03400 

01375 
03300 
4 00001 
4 03400 

01377 
03304 
4 00001 
4 03400 

01376 
03310 
4 00001 
4 03400 

01417 
4 00001 
O 00000 
4 03400 

01417 
4 03400 
4 00001 
4 00001 



TESTA1 

TESTBO 
TESTB1 

TESTCO 
TESTC1 



TESTDO 
ERR77P 



TESTEO 

TESTE1 
TESTFO 

TESTF1 
TESTGO 

TESTG1 
TESTHO 



TEST 10 



TRA 
SUB 
TZE 
TSX 

CAS 
TRA 
TRA 
SUB 
TZE 
TSX 

CAS 
TRA 
TRA 
SUB 
TZE 
TSX 

CAS 
TSX 
TRA 
TSX 

CAS 
TRA 
TRA 
TSX 

CAS 
TRA 
TRA 
TSX 

CAS 
TRA 
TRA 
TSX 

CAS 
TRA 
NOP 
TSX 

CAS 
TSX 
TRA 
TRA 



1.4 

ENDMK. 

1*4 

DIAG.4 

TEST CHARACTER IN THE 

COMMA 

TESTB1 

1»4 

CLOS 

1.4 

DIAG.4 

TEST CHARACTER IN THE 

OPEN 

TESTC1 

1.4 

ENDMK 

1.4 

DIAG.4 

TEST CHARACTER IN THE 

ENDMK 

DIAG.4 

1.4 

DIAG.4 

TEST CHARACTER IN THE 

OPEN 

TESTE1 

1.4 

DIAG.4 

TEST CHARACTER IN THE 

CLOS 

TESTF1 

1.4 

DIAG.4 

TEST CHARACTER IN THE 

COMMA 

TESTG1 

1.4 

DIAG.4 

TEST CHARACTER IN THE 

L(9) 

1.4 



* RETURN TO CALLER. 

* RETURN TO CALLER. 

* ERROR — GO TO DIAGNOSTIC. 

AC FOR COMMA OR CLOSED PARENTHESIS. 



* RETURN TO CALLER* 

* RETURN TO CALLER. 

* ERROR — GO TO DIAGNOSTIC. 

AC FOR OPEN PARENTHESIS OR ENDMARK. 



* RETURN TO CALLER. 

« RETURN TO CALLER. 

* ERROR — GO TO DIAGNOSTIC. 
AC FOR ENDMARK. 

» MACHINE ERROR. GO TO DIAGNOSTIC. 

* RETURN TO CALLER. 

* ERROR — GO TO DIAGNOSTIC. 
AC FOR OPEN PARENTHESIS. 



* RETURN TO CALLER. 

* ERROR — GO TO DIAGNOSTIC. 
AC FOR CLOSED PARENTHESIS. 



* RETURN TO CALLER. 

* ERROR — GO TO DIAGNOSTIC. 
AC FOR COMMA. 



* RETURN TO CALLER. 

* ERROR — GO TO DIAGNOSTIC. 
AC FOR NON-NUMERIC. 

* RETURN TO CALLER. 

* ERROR — 60 TO DIAGNOSTIC. 
AC FOR NUMERIC. 

* ERROR — GO TO DIAGNOSTIC. 

* RETURN TO CALLER. 

* RETURN TO CALLER. 



DIAG.4 

TEST CHARACTER IN THE 

L(9) 

DIAG.4 

1.4 

1.4 

END OF PROGRAM TEST... 
* *-* *»♦*#»»*»*******»#********* 

TETOO.l/ CALLERS=CAO0O»CC0QO»C01OO.C02OO.C03OO .0300.0400. 
C1500.C3000.C3100.SS000.F0R»SPC.CMA.EMK.LIB»VRA(VRDJ. 
TETOO MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS 



*F11341 
4F11342 
4F 11343 
4F11344 
4F11345 
4F 11346 
4F11347 
4F11348 
4F11349 
4F11350 
4F11351 
4F11352 
4F11353 
4F11354 
4F11355 
4F11356 
4F11357 
4F11358 
4F11359 
4F11360 
4F11361 
4F11362 
4F11363 
4r 11364 
4FU365 
4F11366 
4F11367 
4F11368 
4F11369 
4F11370 
4F11371 
4F11372 
4F11373 
4F 11374 
4F11375 
4F11376 
4F11377 
4F11378 
4F11379 
4F11380 
4F11381 
4F11382 
4F11383 
4F11384 
4F11385 
4F11386 
4F11387 
4F11388 
4F11389 
♦4F11390 
4F11391 
4F11392 
4F11393 
4F11394 



<(, 



u 



n 



O 

















FULL IT IS WRITTEN AS 


A 


03321 


-0 


63400 


2 


01100 


TET00 


SXO 


TETXR2.2 




03322 


-0 


63400 


4 


01101 




SXD 


TETXR4»4 




03323 


-0 


60000 





01103 




STQ 


TETMQR 




03324 





50000 


1 


00001 




CLA 


lfl 




03325 





76700 





00001 




ALS 


1 




03326 





40000 


1 


00001 




ADD 


1*1 




03327 





76000 





00006 




COM 






03330 





40000 





01407 




ADD 


L(l) 




03331 





73400 


2 


00000 




PAX 


»2 




03332 





50000 


2 


00322 




CLA 


INTET.2 




03333 





77100 





00022 




ARS 


18 




03334 





601OO 





01102 




STO 


TETWRK 




03335 





50000 


2 


00324 




CLA 


INTET+2.2 




03336 





77100 





00022 




ARS 


18 




03337 





40200 





01102 




SUB 


TETWRK 




03340 


-0 


10000 





03356 




TN2 


TET03 




03341 





62200 


2 


00324 




SID 


INTET+2s2 




03342 





76600 





00224 


TET01 


WRS 


TABTAP 




03343 





53400 


4 


01102 




LXA 


TETWRK.4 




03344 





50000 





01102 




CLA 


TETWRK 




03345 





40000 


2 


00322 




ADD 


INTET»2 




03346 





62100 





03350 




STA 


TET02 




03347 





70000 


1 


00001 




CPY 


1*1 




03350 





70000 


4 


00000 


TET02 


CPY 


**t4 




03351 


2 


00001 


4 


03350 




TIX 


TET02»4»1 




03352 





76600 





00333 




10D 






03353 





50000 


2 


00324 




CLA 


INTET+2»2 




03354 





40000 





01407 




ADD 


L(l> 




03355 





62100 


2 


00324 




STA 


INTET+2»2 




03356 





50000 


2 


00324 


TET03 


CLA 


INTET+2»2 




03357 





77100 





00022 




ARS 


18 




03360 





40000 


2 


00322 




ADD 


INTET.2 




03361 





62100 





03371 




STA 


TET05 




03362 





50000 


2 


00323 




CLA 


INTET+1»2 




03363 





62100 





03370 




STA 


TET04 




03364 


-0 


73*00 


4 


00000 




PDX 


*4 




03365 





40000 


2 


00324 




ADD 


INTET+2.2 




03366 





62200 


2 


00324 




STD 


INTET+2f2 




03367 


-0 


53400 


2 


01406 




LXD 


L<0).2 




03370 





50000 


2 


00000 


TET04 


CLA 


**»2 




03371 





60100 


2 


00000 


TET05 


STO 


**»2 




03372 


1 


77777 


2 


03373 




TXI 


TET06»2*-1 




03373 


2 


00001 


4 


03370 


TET06 


TIX 


TET04»4»1 




03374 





56000 





01103 




LDO 


TETMQR 




03375 


-0 


53400 


2 


01100 




LXD 


TETXR2.2 




03376 


-0 


53400 


4 


01101 




LXD 


TETXR4.4 




03377 





02000 


1 


00002 




TRA 


2.1 

END OF PROGRAM TETOO. 
*********** 


• 



RECORD ONTO TAPE 4. 
SAVE THE CUR2J. 
SAVE THE CIXR4)* AND 
SAVE THE C(MQR>. 
COMPUTE TABLE NUMBER 
TIMES 3 
AND 

PLACE THE 2S COMPLEMENT 
OF THIS 
IN XR2. 

OBTAIN THE CURRENT 
B (BUFFER CAPACITY I. 
AND SAVE IT. THEN 
GET P {PORTION OF BUFFER FULL). 
AND 

COMPARE TO B. 
IF BUFFER IS FULL. 
cct p — « # AND 

PREPARE TO WRITE BLOCK ON TABTAP* 
SET XR4 = BLOCK SIZE tB). 
ADD BLOCK SIZE TO 
ORIGIN OF CURRENT BLOCK (0). 
AND SET ADDRESS OF COPY LOOP (O+B) 
COPY TABLE NUM FOR IDENTIFICATION. 
WRITE BLOCK ONTO 
TABLE TAPE. AND 
WHEN DONE. 

INCREASE C (BLOCK COUNT) 
BY 1 FOR 

BLOCK JUST WRITTEN ON TABLE TAPE. 
ADD P (PORTION OF BUFFER FULL) 
TO (ORIGIN OF CURRENT TABLE 
BUFFER) TO SET 

ADDRESS OF ENTRY LOOP (P+O). 
OBTAIN CURRENT A (ENTRY ADDRESS). 
AND SET ADDRESS OF ENTRY LOOP. 
SET XR4 = E (ENTRY LENGTH IN WRDS) 
INCREASE P BY E TO ACCOUNT 
FOR FOLLOWING ENTRY. 
SET XR2 = 0. THEN 
MOVE THE CURRENT ENTRY 
INTO THE CURRENT TABLE BUFFER. AND 
WHEN 
DONE. 

RESTORE ORIGINAL C(MQR). 
RESTORE ORIGINAL C(XR2). 
RESTORE ORIGINAL C(XR4). 
* EXIT TO MAIN ROUTINE. 



AND 



»**#******»*»##**• 



DIAGNOSTIC CALLERS=CD0O0»CB000»CCO00.CA100»CO2O0»CO300»C090O 
C1O0O.C12OO.C3OOO.C310O.C32O0.C3400.C015O.CO160.C018O.TEST*. 
SR6DC1.DRTABS.RDRX.DIM.SR.SS000.ROYCNV.RDC.RSC.LPR.EQS.RPR. 



4F11395 
4F11396 
4F11397 
4F11398 
4F11399 
4F11400 
4F11401 
4F11402 
4F11403 
4F11404 
4F11405 
4F 11406 
4F11407 
4F11408 
4F11409 
4F11410 
4F11411 
4F11412 
4F11413 
4F11414 
4F11415 
4F11416 

•4F11417 
4F11418 
4F11419 
4F 11420 
4F11421 
4F11422 
4F11423 
4F 11424 
4F11425 
4F11426 
4F11427 
4F 11428 
4F11429 
4F11430 

•4F11431 
4F11432 
4F 11433 
4F11434 
4F11435 
4F11436 
4F11437 
4F11438 
4F11439 
4F 11440 
4F11441 
4F 11442 
4F11443 

•4F11444 
4F11445 

.4F11446 

.4F11447 
4F11448 



03400 1 00000 00004 DIAG TXI 



CMA.EMK»BEG<TYP)*VRA(VRD>. 

(CA000 ALSO CALLS THE DIAGNOSTIC AFTER ALL STATEMENTS HAVE 
BEEN PROCESSED. IF THERE HAVE BEEN NO PREVIOUS CALLS TO 
THE DIAGNOSTIC DURING SECTION ONE* THEN 1PRIME IS CALLED.) 
4,0 * 60 GET THE DIAGNOSTIC. 

END OF DIAGNOSTIC CALLERS. 
♦ ♦a******************** 

ROUTINE TO COMPILE FLOW TRACING INSTRUCTIONS. 



******* 



03401 


-0 


63400 


4 


03437 


FLTROO 


SXD 


FLTR05.4 


03402 





50000 





00030 




CLA 


EIFNO 


03403 





62100 





02067 




STA 


ENT 


03404 





77100 





00022 




ARS 


18 


03405 





62100 





02070 




STA 


NZE 


03406 


-0 


53400 


4 


01122 




LXD 


ARGCTRt4 


03407 


-3 


00000 


4 


03413 




TXL 


FLTR01.4»0 


03410 





60000 





01107 




STZ 


1C+2 


03411 





50200 





01454 




CLS 


2E18 


03412 





02000 





03423 




TRA 


FLTR03 


03413 





50000 





00365 


FLTR01 


CLA 


SBDFCN 


03414 


-0 


10000 





03420 




TNZ 


FLTR02 


03415 





60000 





01107 




STZ 


1C+2 


03416 





60000 





OHIO 




STZ 


1C+3 


03417 





02000 





03424 




TRA 


FLTR04 


03420 





50000 





01523 


FLTR02 


CLA 


DOLSGN 


03421 





60100 





01107 




STO 


1C+2 


03422 





50000 





01457 




CLA 


D2 


03423 





60100 





OHIO 


FLTR03 


STO 


1C+3 


03424 





07400 


4 


01731 


FLTR04 


TSX 


CIT00t4 


03425 





00000 





01406 




PZE 


L(0) 


03426 





00000 





02067 




PZE 


ENT 


03427 





00000 





01510 




PZE 


15P 


03430 





00000 





01457 




PZE 


D2 


03431 





07400 


4 


01731 




TSX 


CIT00*4 


03432 





00000 





01406 




PZE 


L(0) 


03433 





00000 





02070 




PZE 


NZE 


03434 





00000 





01107 




PZE 


1C+2 


03435 





00000 





OHIO 




PZE 


1C+3 


03436 


-0 


53400 


4 


03437 




LXD 


FLTR05.4 


03437 


1 


00000 





01731 


FLTR05 


TXI 


CITOO.O.** 



4F11449 
4F11450 
4F11451 
4F11452 
4F11453 
4F11454 
♦4F11455 
4FH456 
4F11457 
SAVE CALLING TAG. 4F114571 

GET LAST INTERNAL AND EXTERNAL FORMULA N0S.4F1 14572 
PLACE LAST EFN IN DEC OF NTR INSTRUCTION. 4F114573 

4F114574 
PLACE LAST IFN IN DEC OF PZE 4F114575 

4F114576 
4F114577 
4F114578 
4F 114579 
4FH457A 
4F11457B 
4F11457C 
4FU457D 
4F11457E 
4FH457F 
4F11457G 
4F11457H 
4F11457I 
4F11457J 
4F11457K 
4F11457L 
4F11457M 
4F11457N 
4F 114570 
4F11457P 
COMPILE PZE ALPHA.O.JFN 4F114S7Q 

WHERE ALPHA IS FOR MAIN PROGRAM* $+2 FOR 4F11457R 
SUBPROGRAM. OR -1 FOR FN FUNCTION IN EITHER4F11457S 



IS THIS AN FN FUNCTION. NO SKIP. 

SET ADDRESS TO -1 

IS THIS A MAIN PROGRAM OR SUBPROGRAM. 
SKIP ON SUBPROGRAM 
SET ADDRESS TO 



SET ADDRESS TO $+2 



SET RELATIVE ADDRESS WORD OF CIT. 



COMPILE 



NTR *+2*0»EFN 



MAIN OR SUBPROGRAM. 



GO COMPILE 



LXD M(*4 OR 7JTYPE=»4 



END OF THE COMMON PART OF SECTION ONE. 



************* 



**************** 





00000 


ORG 


00000 


00004 00471 


PZE 


00001 


00000 00600 


PZE 




00471 


ORG 



SECTION 1 / INITIALIZATION * 

704 FORTRAN MASTER RECORD CARD / INITIALIZATION = F0150000. 



F0RSUB»»1T0CS 

DMWR98 

FORSUB 

INITIALIZATION OCCUPIES FORSUB BUFFER AND IS WRITTEN OVER 

BY FORSUB ENTRIES IF THERE ARE ANY FORTRAN FUNCTIONS IN THE 



4F11457T 
4F11457U 
4F11457V 
4F11457W 
4F11458 
4F11459 
4F11460 
*4FH461 
4F11462 
4F 11463 
4F11464 
4F114641 
4F114642 
4F114643 
4FH465 
4F11466 
4F11467 



u 



r\ 



r^ 



00471 
00472 
00473 
00474 
00475 
00476 
00477 
00500 
00501 



©0502 
00503 
00504 
00505 
00506 
00507 
00510 
00511 
00512 
00513 
00514 
00515 
00516 
00517 
00520 
00521 
00522 
00523 
00524 
00525 
00526 
00527 
00530 
00531 
00532 
00533 
00534 
00535 
00536 
00537 
00540 
00541 
00542 
00543 
00544 
00545 
00546 



PROGRAM. 

PART 1 / CLEAR DRUMS 1*2 

53400 1 00575 CLDROO LXA CLDR07»1 

766O0 1 00305 CLDR01 WRS 197*1 

-0 53400 2 00575 LXD CLDR07»2 

70000 00576 CLDR03 CPY CLDR08 

2 OOOOl 2 00474 TIX CLDR03»2»1 

2 00001 1 00472 TIX CLDR01*1*1 

77200 00222 REW 146 

77200 00223 REW 147 

77200 00224 REW 148 

END OF INITIALIZATION / 

#■*»•**»****.* 

PART 2 / WRITE STATES A* 

53400 4 01411 DMWR01 LXA L(3)»4 

02000 00513 TRA DMWR11 

53400 4 01407 DMWR03 LXA LC1>»4 

02000 00513 TRA DMWR11 

53400 4 01410 DMWR06 LXA L<2)»4 

02000 00513 TRA DMWR11 

53400 4 01412 DMWR09 LXA L(4)»4 

50000 00600 CLA DMWR98 

62100 00546 STA DMWR40 

50000 4 02437 DMWR11 CLA ZETA+4t4 

-0 73400 2 00000 POX »2 

-0 63400 2 00574 SXD CHECK»2 

77100 00022 ARS 18 

40000 02430 ADD MTR3 

62100 00523 STA DMWR20 

62100 00533 STA DMWR26 

-0 75400 OQOOO PXD »0 

36100 2 00000 DMWR20 ACL **»2 

2 00001 2 00523 TIX DMWR20»2»1 

60200 01103 SLW DRCKSM 

53400 1 01413 LXA ORMERCtl 

76600 4 00305 DMWR23 WDR 5*4 

-0 53400 2 00574 LXD CHECK»2 

46000 4 02437 LDA ZETA+4*4 

70000 01103 CPY DRCKSM 

70000 2 00000 DMWR26 CPY *»»2 

2 00001 2 00533 TIX DMWR26»2*1 

76200 4 00305 RDR 5»4 

-0 53400 2 00574 LXD CH£CK»2 

46000 4 02437 LDA ZETA+4»4 

-0 75400 OOOOO PXD *0 

-0 70000 00573 CAD GARBGE 

76000 00006 COM 

-0 70000 00573 DMWR32 CAD 6AR8GE 

2 00001 2 00543 TIX DMWR32»2»1 

O 76000 00006 COM 

10O00 00004 DMWR40 TZE 1T0CS 



»3»4» AND REWIND TAPES 2»3»4 - 

CLEAR DRUMS 1»2»3*4 TO +0. 

X 

X 

X 

X 

X 

REWIND WORKING TAPES 2»3»4. 

X 

X 
PART 1. 
• ******«* * * ******* 



4F11468 

♦4F11469 

4F11470 

4F11471 

4F 11472 

4F11473 

4F11474 

4F11475 

4F11476 

4F11477 

4F11478 

4FU479 

4F11480 

4F11481 

♦4F11482 

4F11483 

B»C»D ON DRUMS1»3.4»2= 4F11484 

dpfd,*pp tq WRITE STATE D ON DRUM 2.4F114S5 

X* ~ 4F11486 

PREPARE TO WRITE STATE C ON DRUM 4.4F11487 

x 4F11488 

PREPARE TO WRITE STATE B ON DRUM 3.4F11489 

X 4F11490 

PREPARE TO WRITE STATE A ON DRUM 1.4F11491 

THIS IS FINAL STATE TO BE WRITTEN* 4F11492 

CHANGE ADDRESS TO GET OUT OF LOOP. 4F 11493 

GET LENGTH OF CURRENT STATE. 4F11494 

LENGTH OF STATE TO IR2. 4F11495 

SAVE LENGTH. 4F 11496 

LENGTH + ORIGIN TO PREPARE FOR CK 4F11497 

SUM AND COPY LOOPS. 4F11498 

X 4F11499 

X 4F11500 

CLEAR AC AND COMPUTE CK SUM. 4F11501 

X 4F11502 

X 4F11503 

X 4F11504 

SET FOR FIVE ATTEMPTS. 4F11505 

PREPARE TO WRITE DRUM. 4F11506 

X 4F11507 

X 4F11508 

WRITE CK SUM ON DRUM. 4F11509 

WRITE STATE ON DRUM. 4F11510 

X 4F11511 

PREPARE TO READ STATE BACK. 4F11512 

X 4F11513 

X 4F11514 

CLEAR AC AND READ BACK CK SUM AND 4F11515 

STATE. 4FU516 

X 4F11517 

RECOMPUTE CK SUM. 4F11518 

X 4F11519 

X 4F11520 

CK SUMS AGREE* GO GET NEXT STATE^ 4F11521 







00547 


2 


00001 


1 


00527 




TIX 


DMWR23.1.1 


00550 





50000 





00577 




CLA 


DMWR89 


00551 





60100 





02402 




STO 


STATEA 


00552 


-3 


0000 3 


4 


00554 




TXL 


DMWR80.4.3 


00553 





07400 


4 


03400 




TSX 


DIAG.4 


00554 


-3 


00002 


4 


00561 


DMWR80 


TXL 


DMWR82»4»2 


00555 





76200 





00221 




RTB 


1 


00556 





76200 





00221 




RTB 


1 


00557 





76200 





00221 




RTB 


1 


00560 





07400 


4 


03400 




TSX 


DIAG»4 


00561 


-3 


00001 


4 


00564 


DMWR82 


TXL 


DMWR84.4»1 


0O5A2 





76200 





00221 




RTB 


1 


00563 





07400 


4 


03400 




TSX 


DIAG»4 


00564 





76200 





00221 


0MWR84 


RTB 


1 


00565 





76200 





00221 




RTB 


1 


00566 





07400 


4 


03400 




TSX 


DIAG»4 


00567 





53400 


4 


01406 


DMWR88 


LXA 


L(0)*4 


00570 





02000 





03400 




TRA 


01 AG 


00571 





07400 


4 


05702 


DMWR99 


TSX 


CA100»4 


00572 





02000 





03440 




TRA 


CA010 
END OF IN 

* * « * * i 

PART 3 / VI 










00573 


GARBGE 


BSS 


I 


00574 





00000 





00000 


CHECK 


PZE 


»»** 


00575 





04000 





00004 


CLDR07 


P2E 


4**2048 


00576 





00000 





00000 


CLOR08 


PZE 





00577 





02000 





00567 


0MWR89 


TRA 


DMWR88 


00600 





00000 





00571 


0MWR98 


PZE 


DMWR99 



00000 
00001 



* 
* 

INITIALIZATION / PART 
********** 



00510 
00000 



00000 
03440 
07306 



OKd 

pze 

PZE 



SECTION 1 / STATEA * 

704 FORTRAN MASTER RECORD CARD 



0RGA»»DMWR09 

ENDA-1 



NAME 

PART 1 

CAOOO 

CDOOO 

CBOOO 

CCOOO 

PART 2 

C0100 

C0200 

C0300 

C0400 

C0500 

C0600 

C07OO 



FUNCTION 

ASSEMBLE AND CLASSIFY ALL 

ASSEMBLE 



/ PROCESS CONTROL 



CK SUM FAILED* TRY UP TO 5 TIMES. 4F11522 
SET MONITOR TO RETURN TO THIS 4F11523 
PROGRAM INSTEAD OF TO STATE A. 4F11524 
TEST FOR STATE A IN PROGRESS. 4F11525 
STATE A CANNOT BE WRITTEN ON DRUM1.4F11526 
TEST FOR STATE D IN PROGRESS. 4F11527 
SPACE OVER STATE C RECORD* 4F11528 

SPACE OVER STATE B RECORD. 4F11529 

SPACE OVER STATE A RECORD. 4F11530 

STATE D CANNOT BE WRITTEN ON DRUM2.4F11531 
TEST FOR STATE B IN PROGRESS. 4F11532 
SPACE OVER STATE A RECORD. 4F11533 

STATE B CANNOT BE WRITTEN ON DRUM3.4F11534 
SPACE OVER STATE B RECORD. 4F11535 

SPACE OVER STATE A RECORD. 4F11536 

STATE C CANNOT BE WRITTEN ON DRUM4.4F11537 
SET 1R4 TO TO CAUSE DIAGNOSTIC T04F11538 
PRINT END LINE AND STOP. 4F11539 

GO TO SUBROUTINE TO LOAD FT REGION. 4F11540 
GO BEGIN STATE A OF SECTION ONE. 4F11541 
2. 4F11542 

*************** *4F11543 

4F11544 
4F11545 
4F11546 
4F11547 
4F 11548 
4F11549 
4F11550 
4F11551 
4F11552 
♦4F11553 
4F11554 
4F1I555 
4F11556 
4FU557 
4F115571 
4F115572 
4F115573 
4F1155S 
4F11559 
STATEMENTS* 4F11560 

STATEMENT. 4F11561 

SCAN FOR HOLLERITH AND ILLEGAL CHS.4F11562 
CLASSIFY=ARITHMET1C/N0N-ARITHMETIC.4F11563 
CLASSIFY=WHICH NON-ARITHMETIC. 4F11564 
AND SPECIFICATION STATEMENTS= 4F11565 
DO. 4F11566 

GO TO. 4F11567 

IF. 4F11568 

IF ISENSE SWITCH. 4F11569 

IF (SENSE LIGHT. 4F11570 

IF DIVIDE CHECK. 4F11571 

IF AC OVERFLOW. 4F11572 



VARIABLES AND CONSTANTS USED BY INITIALIZATION* 
ERASABLE STORAGE. 

SAVING CELL FOR LENGTH OF STATE. 
CONSTANT FOR CLEARING DRUMS. 
CONSTANT FOR CLEARING DRUMS. 
CONSTANT FOR ERROR ROUTINE. 
CONSTANT FOR ADDRESS MODIFICATION. 
END OF INITIALIZATION / PART 3. 
**************** 



************** 



/ STATE A « F0190000. 



60 



u 



n 



KJ 



IF MQ OVERFLOW. 
PAUSE. 
ASSIGN* 
SENSE LIGHT. 
DIMENSION. 
STOP. 
FREQUENCY. 
EQUIVALENCE. 
CONTINUE. 
SUBROUTINE / 
COMMON. 
^ RETURN. 
N ^ALL. 
END. 



FUNCTION. 



C0800 

CO90O 

C1O00 

CI 100 

C1200 

CJ300 

C1400 

C1500 v 

C1600 

C3000IC3500) 

C3100 

C3200 

C3300 

C3400 k 

PART 3 / PROCESS INPUT-OUTPUT -STATEMENTS* 

RDC READ *ARP« 

gIT READ INP#T TAPE. 

RDP PRINT* 

tf 0T WRITE OUTPUT TAPE. 

POC PUNCH. 

WB T WRITE TAPE. 

RBT READ TAPE. 

WRD WRITE DRUM. 

ROD READ DRUM. 

EFT END FILE. 

RWN REWIND. 

BSP BACKSPACE. 

FOR FORMAT. 

RSC RESET AND SCAN. 

LISTR CONTROL FOR LIST SCAN. 

L p R LEFT PARENTHESIS IN LIST SCAN. 

E0S EQUAL SIGN IN LIST SCAN. 

SPCTR CONTROL FOR SPECIFICATION SCAN. 

SPC SU8SCRIPT SPECIFICATIONS* 

RPR RIGHT PARENTHESIS IN LIST SCAN. 

CMA COMMA IN LIST SCAN. 

£ M < ENDMARK IN LIST SCAN. 

PART 4 / SUBROUTINES USED BY STATE A= 

BEG(TYP)t4 BEGINNING SCAN AND TYPE TEST. 

BEGTR CONTROL FOR BEGINNING SCAN. 

BRWf 4 BINARY READ OR WRITE COMPILER. 

BSS.2 COMPILES* I FN BSS 0. 

CA100.4 READ SOURCE PROGRAM TAPE. 

CC500.4 SCAN DICTIONARY. 

ETMtLTMJSW.4 IF SW=NOP, COMPILES ETMUTM). SL=0 

IFFIX.l SETS UP FORVAR OR FORVAL ENTRY. 

IN(0UT)PUT*2 COMPILES CAL *» AND XIT (LEVJ. 

L IB,1 MAKES CLOSUB ENTRY. COMPILES CIT. 

VRAIVRDI.4 MAKES FORVAR* FIXCON. CIT ENTRIES. 

PART 5 / CONSTANTS AND VARIABLES USED BY STATE A. 

OIC DICTIONARY. 

T TRANSFER TABLE. 

THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING* 



4FU573 
4F11574 
4FU575 
4F11576 
4F11S77 
4F11578 
4F 11579 
4F11580 
4F11581 
4F11582 
4F11583 
4F11584 
4FU585 
4FU586 
4F11587 
4F11588 
4F11589 
4FU590 
4F11591 
4F11592 
4F11593 
4F11594 
4F11595 
4F11596 
4F11597 
4F11598 
4F11599 
4FI1600 
4F11601 
4F11602 
4F11603 
4F11604 
4F11605 
4F11606 
4F11607 
4F11608 
4F11609 
4F11610 
0F11611 
4FI1612 
4F11613 
4F11614 
4F11615 
4F11616 
.4F11617 
4F11618 
4F11619 
4F11620 
4F11621 
4F11622 
4F11623 
4F11624 
4F11625 
4F11626 



a 



03440 0R6A 



ORG 



** IN THE ADDRESS* TAG* OR DECREMENT OF AN INSTRUCTION 
INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM. 

* IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF 
THIS LOGICAL BLOCK OR SUBROUTINE. 

C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED. 
P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH!. 

• it**************************** 

STATEA/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS= 
1824 

***************** 



****#*****»* 



CAOOO/ CALLS=CA100»SR6DC1 »TETOO»DI AG. 
CAOOO ASSEMBLES STATEMENT IN 



03440 


-0 


53400 


4 


02575 


CA010 


LXD 


ENDWRD»4 




03441 


-3 


00000 


4 


03400 




TXL 


DIAG»4»0 




03442 


-0 


53400 


1 


00030 




LXD 


E1FN0.1 




03443 


1 


00001 


1 


03444 




TXI 


CA013»ltl 




03444 


-0 


63400 


1 


00030 


CA013 


SXD 


EIFNO, 1 




03445 


-0 


50000 





01333 




CAL 


FT 




03446 





77100 





00006 




ARS 


6 




03447 





60200 





01151 




SLW 


F-l 




03450 


-0 


53400 


1 


01670 




LXD 


DCF*1 




03451 





53400 


2 


01400 


CA018 


LXA 


Ldll.2 




03452 





56000 


2 


01347 


CA019 


LDQ 


FT+12.2 




03453 


-0 


60000 


1 


00000 




STQ 


0*1 




03454 


2 


00001 


1 


03455 




T1X 


CA020.1»1 




03455 


2 


00001 


2 


03452 


CA020 


TIX 


CA019.2.1 




03456 





07400 


4 


05702 




TSX 


CA100.4 




0345? 


-0 


50000 





01333 




CAL 


FT 




03460 


-0 


32000 





01374 




ANA 


L(63) 




03461 





10000 





03464 




TZE 


CA021 




03462 





40200 





01430 




SUB 


ABLANK 




03463 


-0 


10000 





03451 




TNZ 


CA018 




03464 





50000 





61526 


CA021 


CLA 


BLANKS 




03465 





34000 


1 


77777 


CA022 


CAS 


-1.1 




03466 





02000 





03470 




TRA 


CA023 




03467 


1 


00001 


1 


03465 




TXI 


CA022»1»1 




03470 





560O0 





01531 


CA023 


LDQ 


360NES 




03471 


-o 


60000 


1 


00000 




STQ 


0*1 




03472 


-0 


50000 





01151 




CAL 


F-l 




03473 





34000 





01477 




CAS 


5BLANS 




03474 





02000 





03476 




TRA 


CA015 




03475 





02000 





03503 




TRA 


CDOOO 




03476 





76500 





00043 


CA015 


LRS 


35 




03477 





07400 


1 


02566 




TSX 


SR6DC1.1 




03500 





62100 





00030 




STA 


EIFNO 




03501 





07400 


1 


03321 




TSX 


TETOOtl 




03502 





00000 





00000 




PZE 



END OF PROGRAM 


CAOOO* 
* # * # 



4F11627 
4F11628 
4F11629 
4F11630 
4F11631 
4F11632 
4F11633 
4F11634 
*4F11635 
4F11636 
4F11637 
4F11638 
♦4F11639 
4F11640 
4F11641 
THE F-REGION AND ASSIGNS AN IFN.4F11642 
IF THE FINAL STATEMENT HAS BEEN 4F11643 
PROCESSED* THEN GO CALL DIAGNOSTIC. 4F11644 
KEEP INTERNAL FORMULA NUMBER 4F11645 
IDECR PART OF EIFNO) 4F11646 

UP TO DATE BY ADDING 1. 4F11647 

OBTAIN HOLLERITH CODED 5-DIGIT 4F11648 
EXTERNAL FORMULA NO IN ACC. 4F11649 
AND RETAIN IN F-01. 4FI1650 

INITIALIZE INDEX A TO COMPL OF F. 4F11651 
SET UP LOOP FOR 11 CYCLES. 4F11652 

MOVE WORD FROM REGION FT 4F11653 

TO REGION F. 4F11654 

KEEP F-REGION ADDRESS UP-TO-DATE. 4F11655 
TEST END OF LOOP. 4F11656 

GO READ NEXT NON-BLANK CARD. 4F11657 
TEST RIGHTMOST CHARACTER OF 4F11658 
FIRST WORD FOR CONTINUATION MARK. 4F11659 
IF ZERO OR BLANK* 4F11660 

DISCONTINUE READING* 4F11661 

OTHERWISE CONTINUE. 4F11662 

BEGIN SCANNING REGION F BACKWARDS 4F11663 
TO FIND FIRST NON BLANK WORD. 4F11664 
NOT BLANK. 4F11665 

BLANK* SO CONTINUE SCAN. 4F11666 

PLACE BINARY ONES IN FIRST WORD 4F11667 
FOLLOWING RIGHTMOST NONBLANK WORD. 4F11668 
PICK UP EXTERNAL FORMULA NUMBER AND4F11669 



COMPARE WITH /0 /. 
NOT COMPARE. 

* TAKE EXTFORMNO, IF ANY. AND 

GO TO CONVERSION SUBROUTINE AND 

* RETURN HERE WITH RESULT IN ACC. 
STORE RESULT IN ADDRESS OF EIFNO. 

* GO TO PROGRAM TET TO ENTER EIFNO 
INTO TABLE TEIFNO JTABLE OJ. 



4F11670 
4F11671 
4F11672 
4F11673 
4F11674 
4F11675 
4F11676 
4F11677 
4F11678 
*4F11679 
4F11680 



<,v 



O 



o 



rs 



CDOOO/ CALLS=C0190X.C0190.DIAG. 

COOOO SCANS FOR HOLLERITH AND ILLEGAL CHARACTERS. 



4F11681 
4F11682 





03503 





07400 


4 


01671 


CDOOO 


TSX 


C0190X»4 






03504 





07400 


1 


03534 


CDOOl 


TSX 


CD900»1 






03505 





34000 





01376 




CAS 


COMMA 







03506 


1 


00000 





03510 




TXI 


CD002»0 







03507 


1 


00000 





03512 




TXI 


CD003.0 






03510 





40200 





01375 


CD002 


SUB 


OPEN 






03511 


-0 


10000 





03504 




TNZ 


CDOOl 






03512 





07400 


1 


03534 


CD003 


TSX 


CD900»1 






03513 





40200 





0X373 




SUB 


L(10> 






03514 





12000 





03504 




TPL 


CDOOl 






03515 





07400 


1 


03534 


CD004 


TSX 


CD900»1 






03516 





34000 





01417 




CAS 


LC9) 







03517 


1 


00000 





03522 




TXI 


C0005»0 







03520 


1 


00000 





03515 




TXI 


CD004tO 







03521 


1 


00000 





03515 




TXI 


CD004»0 






03522 


o 


34000 


n 


01423 


CD005 


CAS 


L«H» 




D 


03523 


1 


00000 





03505 




TXI 


CD001+1*0 







03524 


1 


00000 





03526 




TXI 


CD700.0 




D 


03525 


1 


00000 





03505 




TXI 


CD001+1.0 






03526 





07400 


4 


01707 


CD700 


TSX 


C0190»4 






03527 





34000 





01374 




CAS 


ENDMK 




D 


03530 


1 


00000 





03532 




TXI 


CD701»0 







03531 


1 


00000 





03616 




TXI 


CC0OO»O 






03532 





07400 


1 


03543 


CD701 


TSX 


CD600»1 




D 


03533 


1 


00000 





03526 




TXI 


CD700»0 






03534 





07400 


4 


01707 


CD900 


TSX 


C0190.4 






03535 





34000 





01374 




CAS 


ENDMK 







03536 


1 


00000 





03540 




TXI 


CD800»0 




D 


03537 


1 


00000 





03562 




TXI 


CBOOO»0 






03540 





34000 





01427 


CD800 


CAS 


SPECOP 




D 


03541 


1 


00000 





03546 




TXI 


CD601»0 






03542 





07400 


4 


03400 




TSX 


DIAGt4 






03543 





34000 





01435 


CD600 


CAS 


PM 






03544 





02000 


1 


00001 




TRA 


1>1 






03545 





07400 


4 


03400 




TSX 


DIAG.4 






03546 





34000 





01426 


CD601 


CAS 


CHAR3 






03547 





02000 


1 


00001 




TRA 


1.1 






03550 





07400 


4 


03400 




TSX 


DIAG.4 






03551 





34000 





01424 




CAS 


CHAR2 






03552 





02000 


1 


00001 




TRA 


ltl 






03553 





07400 


4 


03400 




TSX 


DIAG.4 






03554 





34000 





01420 




CAS 


MINUS 






03555 





02000 


1 


00001 




TRA 


1*1 






03556 





07400 


4 


03400 




TSX 


DIAG.4 






03557 





40200 





01373 




SUB 


TEN 






03560 


-0 


10000 


1 


00001 




TNZ 


1.1 






03561 





07400 


4 


03400 




TSX 


DIAG.4 

END OF PROGRAM 
******** 


CDOOO. 

* * * * 



* SET SCAN TO PICK UP 1ST CHARACTER. 4F11683 

* IF NOT ENOMARK OR ILLEGAL CHARACTER4F 11684 
SCAN 4FU685 
FOR 4F 11686 
HOLLERITH 4F11687 
SPECIFICATION 4F 11688 
WHICH 4F11689 

« CAN BE= 4F11690 

♦ N H 4F11691 

OR = ( N H. 4F11692 

* IF NOT ENDMARK OR ILLE6AL CHARACTER4F11693 



CONTINUE SCAN. 

N 

IS 

A 

FIXED 

POINT 

INTEGER. 

X 

* GO GET NEXT NONBLANK CHARACTER. 
AND IF ENDMARK. 

THEN SKIP 

* TO NON-ARITHMETIC CLASSIFICATION. 

* SINCE HOLLERITH HAS BEEN FOUND. 
THEN $ IS LEGAL IN FORMAT TEXT. 

* OBTAIN NEXT NONBLANK CHARACTER. 
AND IF NOT 

ENDMARK. THEN SKIP 

* EXIT TO ARITH/NON-ARITH SCAN. 
CHECK FOR $ 

WHICH. UNLESS HOLLERITH. IS AN 

* ERROR — GO TO DIAGNOSTIC. 
CHECK FOR RECORD MARK 
WHICH IS AN 

* ERROR — GO TO DIAGNOSTIC. 
CHECK FOR MINUS ZERO 
WHICH IS AN 

* ERROR — GO TO DIAGNOSTIC. 
CHECK FOR PLUS ZERO 
WHICH IS AN 

* ERROR — GO TO DIAGNOSTIC. 
CHECK FOR MINUS SIGN 
WHICH IS AN 

* ERROR — GO TO DIAGNOSTIC. 
CHECK FOR TEN 

WHICH IS AN 

* ERROR — GO TO DIAGNOSTIC. 

****************** 



CBOOO/ CALLS=C0190X.C0190.DIA6. 

CBOOO CLASSIFIES STATEMENT AS ARITHMETIC OR NONPAR 1THMET I C. 



4F11694 
4F11695 
4F11696 
4F11697 
4F11698 
4F11699 
4F11700 
4F11701 
4F11702 
4F11703 
4F11704 
4F11705 
4F11706 
4F11707 
4F11708 
4F11709 
4F11710 
4F11711 
4F11712 
4F11713 
4F11714 
4F11715 
4F11716 
4F11717 
4F11718 
4F11719 
4F11720 
4F11721 
4F11722 
4F11723 
4F11724 
4F11725 
4F11726 
4F11727 
4F11728 
4F11729 
4F11730 
*4F11731 
4F11732 
4F11733 
4F11734 



f,3 



1 >/ V 





03562 





53400 


1 01407 


CBOOO 


LXA 


L«l)»l 






03563 





07400 


4 01671 




TSX 


C0190X»4 


* 




03564 





07400 


4 01707 


CB001 


TSX 


C0190.4 


* 




03565 





340.00 


01400 




CAS 


AEQUAL 







03566 


1 


00000 


03570 




TXI 


CB005.0 




D 


03567 


1 


00000 


03601 




TXI 


CB200.0 






03570 





34000 


01375 


CB005 


CAS 


ALPAR 







03571 


1 


00000 


03573 




TXI 


CB006»0 






03572 


1 


00001 


1 03564 




TXI 


CB001.1.1 






03573 





34000 


01377 


CB006 


CAS 


ARPAR 







03574 


1 


00000 


03576 




TXI 


CB0Q7.0 




D 


03575 


1 


00000 


03614 




TXI 


CB500.0 






03576 





40200 


01374 


CB007 


SUB 


ENDMK 






03577 


-0 


10000 


03564 




TNZ 


CB001 







03600 


1 


00000 


03616 




TXI 


CC 000.0 


* 




03601 


2 


00001 


1 03616 


CB200 


TIX 


CCOOO»1»1 


* 




03602 





07400 


4 01707 


CB201 


TSX 


C0190.4 


* 




03603 





34000 


01375 




CAS 


ALPAR 




D 


03604 


1 


00000 


03606 




TXI 


CB205,0 




D 


03605 


1 


00000 


02404 




TXI 


ARITH.O 


* 




03606 





34000 


01376 


CB205 


CAS 


ACOMMA 







03607 


1 


00000 


03611 




TXI 


CB206.0 







03610 


1 


00000 


03616 




TXI 


CCOOOtO 


* 




03611 





40200 


01374 


CB206 


SUB 


ENDMK 






03612 


-0 


10000 


03602 




TNZ 


CB201 




D 


03613 


1 


00000 


02404 




TXI 


ARITH.O 


* 




03614 


2 


00001 


1 03564 


CB500 


TIX 


CB001.1.1 






03615 





07400 


4 03400 




TSX 


DIAG»4 
END OF PROGRAM CBOOO* 

************ 


* 
* 
















CCOOO/ CALLS=CC500»C0190X 
















CCOOO CLASSIFIES STATEM 


EN 




03616 





60000 


01113 


CCOOO 


STZ 


2G 






03617 





53400 


3 01406 




LXA 


H0I»3 






03620 





07400 


4 01671 


CC001 


TSX 


C0190X.4 


* 




03621 





07400 


4 05743 




TSX 


CC500.4 


• 




03622 





34000 


01374 




CAS 


ENDMK 






03623 





02000 


03272 




TRA 


ERR77P 


* 




03624 





07400 


4 034 00 




TSX 


DIAG.4 


• 


D 


03625 


1 


00000 


03632 




TXI 


CC004.0 






03626 





07400 


4 05743 


CC002 


TSX 


CC500.4 


* 




03627 





34000 


01374 




CAS 


ENDMK 




D 


03630 


1 


00000 


03272 




TXI 


ERR77P.0 


* 


D 


03631 


1 


00000 


03644 




TXI 


CC007.0 






03632 





60100 


01105 


CC004 


STO 


1C 






03633 


-0 


60000 


01106 




STQ 


1C+1 






03634 





07400 


4 01707 




TSX 


C0190.4 


* 




03635 





56000 


01106 




LDQ 


1C+1 






03636 





40200 


01105 




SUB 


1C 






03637 





10000 


03626 




TZE 


CC002 






03640 





07400 


4 05743 


CC005 


TSX 


CC500.4 


* 




03641 





40200 


01374 




SUB 


ENDMK 






03642 


-0 


10000 


03640 




TNZ 


CC005 





SET XR1 TO COUNT PARENTHESES. 

RESET CHCTR AND FWA TO BEGIN SCAN. 

EXAMINE NEXT NON-BLANK CHARACTER, 

IF AN EQUAL SIGN. 

THEN 

GO TEST PAREN-COUNT. 

IF A LEFT PARENTHESIS. 

THEN 

UPDATE PAREN-COUNT BY 1. 

IF A RIGHT PARENTHESIS. 

THEN 

GO TEST PAREN-COUNT. 

IF NOT ENDMARK. THEN 

GO EXAMINE NEXT CHARACTER. 

OTHERWISE, GO TO DIC LOOK-UP. 

IF EQUAL WAS NOT WITHIN PARENS. 

THEN EXAMINE NEXT CHARACTER. 

IF LEFT PARENTHESIS. 

THEN 

THIS IS AN ARITHMETIC FORMULA* 

IF A COMMA. 

THEN 

60 TO NON-ARITHMETIC DIC LOOK-UP. 

IF NOT ENDMARK. THEN 

GO EXAMINE NEXT CHARACTER. 

THIS IS AN ARITHMETIC FORMULA. 

IF PAREN-COUNT DOES NOT BALANCE, 

ERROR-GO TO DIAGNOSTIC ROUTINE. 



**#***» 



*»•****** 



SET DICTIONARY WORD TAG. AND 
CHARACTER COUNT AND ENTRY COUNT. 
RESET CHCTR AND FWA TO BEGIN SCAN. 
EXAMINE NEXT DICTIONARY CHARACTER. 
TEST FOR CONSECUTIVE ENDMARKS. 
MACHINE ERROR. GO TO DIAGNOSTIC. 
ERROR * NOT FOUND IN DICTIONARY. 
GO BEGIN COMPARISON. 
EXAMINE NEXT DICTIONARY CHARACTER. 
TEST FOR END OF 01 C ENTRY. 
MACHINE ERROR, GO TO DIAGNOSTIC. 
IF END OF ENTRY. LOOK NO FURTHER. 
OTHERWISE, SAVE CHARACTER 
AND REMAINDER OF DICTIONARY WORD. 
GO GET NEXT FORMULA CHARACTER, 
AND RESTORE DICTIONARY WORD. 
IF CHARACTERS ARE EQUAL. 
THEN GO COMPARE NEXT CHARACTERS. 
OTHERWISE, EXAMINE NEXT DIC CHAR. 
CONTINUE UNTIL AN ENDMARK IS 
FOUND. THEN 



4F11735 
, 4F11736 
4F11737 
4F11738 
4F11739 
4F11740 
4F11741 
4F11742 
4F11743 
4F11744 
4F11745 
4F11746 
4F11747 
4F11748 
4F11749 
4F11750 
4F11751 
4F11752 
4F11753 
4F11754 
4F11755 
4F11756 
4F11757 
4F11758 
4F11759 
4F11760 
4F11761 
4F11762 
4F11763 
♦4F11764 
4F11765 
4F11766 
4F11767 
4F11768 
4F11769 
4F11770 
4F11771 
4F11772 
4F11773 
4F11774 
4F11775 
4F11776 
4F11777 
4F11778 
4F11779 
4F11780 
4F11781 
4F11782 
4F11783 
4F11784 
4F11785 
4F11786 
4F11787 
4F11788 



cH 



o 



o 



r> 



03643 


1 77777 1 03620 




TXI CC001.1»-1 


03644 


50000 1 06246 


CC007 


CLA T»l 


03645 


12000 1 06246 




TPL T»l 


03646 


-0 63400 1 01107 




SXD 1C+2*1 


03647 


07400 1 03321 




TSX TET0O.1 


03650 


00000 00016 




PZE 14 


03651 


-0 53400 1 01107 




LXD 1C+2.1 


03652 


02000 1 06246 


CC008 


TRA Ttl 

END OF PROGRAM CCOOO. 















CO 100/ CALLS=GET 














CO 100 PROCESSES 


03653 





07400 


4 


02366 C0100 


TSX 


0ETIFN.4 


03654 





07400 


4 


01707 


TSX 


C0190*4 


03655 





07400 


4 


03315 


TSX 


TESTI0.4 


03656 





07400 


2 


01655 


TSX 


CO180*2 


03657 





60100 





01113 


STO 


2G 


03660 





50000 





01112 


CLA 


1G 


03661 





62100 





01105 


STA 


1C 


03662 





50000 





01113 


CLA 


2G 


03663 





07400 


2 


01624 


TSX 


C0160»2 


03664 





50000 





01112 


CLA 


1G 


03665 





60100 





01106 


STO 


1C+1 


03666 





07400 


2 


01604 


TSX 


C0150»2 


03667 





50000 





01112 


CLA 


1G 


03670 





60100 





01107 


STO 


1C+2 


03671 


-0 


50000 





01353 


CAL 


I 


03672 





77100 





00022 


ARS 


18 


03673 


-0 


60200 





01105 


ORS 


1C 


03674 





07400 


2 


01604 


TSX 


C0150.2 


03675 





07400 


4 


03247 


TSX 


TESTA0»4 


03676 


-0 


10000 





03701 


TNZ 


CO 113 


03677 


-0 


77300 





00037 


ROL 


31 


03700 


-0 


60000 





01365 


STQ 


RESIDU 


03701 





50000 





01112 C0113 


CLA 


1G 


03702 





60100 





OHIO 


STO 


1C+3 


03703 


-0 


50000 





01353 


CAL 


I 


03704 





77100 





00023 


ARS 


19 


03705 


-0 


60200 





01105 


ORS 


1C 


03706 





07400 


2 


01604 


TSX 


C0150»2 


03707 





07400 


4 


03271 


TSX 


TESTD0»4 


03710 





50000 





01112 


CLA 


1G 


03711 





60100 





01111 


STO 


1C+4 


03712 


-0 


50000 





01353 


CAL 


I 


03713 





77100 





00024 


ARS 


20 


03714 


-0 


60200 





01105 


ORS 


1C 


03715 





07400 


1 


03321 


TSX 


TET00»1 


03716 





00000 





00001 


PZE 


1 


03717 


1 


00000 





03440 


TXI 


CA010.0 



COUNT ENTRY* AND BEGIN AGAIN* 
IF THE CURRENT STATEMENT IS 
OF THE NON-EXECUTABLE TYPE* 
THEN 

* GO ENTER EIFNO IN THE 
NONEXC TABLE. 

AND THEN 

* TAKE INDICATED TRANSFER. 

*****♦**#**«******* 



STATEA/2-PR0CESS CONTROL AND SPECIFICATION STATEMENTS= 

• ♦•a************************** 



IFN»C0190»TEST..»C0180»C0160»C0150»TET00. 
DO STATEMENTS. 

* GET INTERNAL FORMULA NUMBER IN 1C. 

* OBTAIN 1ST NON-BLANK CHARACTER 

* WHICH SHOULD BE NUMERIC. 

* OBTAIN IN 1G THE BIN EQUIV OF BETA 
SAVE THE 1ST CHAR OF SUBSCRIPT. 
TAKE CONVERTED RESULT FOR BETA 
AND STORE IN ADDR OF 1C. 
1C IS NOW COMPLETE EXCEPT FOR TAG. 

* OBTAIN IN 1G THE SUBSCRIPT. 
STORE SUBSCRIPT 
IN 1C+1. 

* OBTAIN IN 1G THE PROPER Nl. 
STORE Nl 
IN 1C+2. 

OBTAIN I IN LOGICAL ACC AND 
STORE IN POS 18 OF 1C 
IF NUMERIC* OR 1 IF NON-NUMERIC. 

* OBTAIN IN 1G THE PROPER N2. 

* TEST THE AC FOR COMMA OR ENDMARK. 
IF ENDMARK. THEN 
CREATE ONE IN MQ FOR N3 
AND PLACE IN RESIDU. 
STORE N2 
IN 1C+3. 

OBTAIN I IN LOG ACC AND 
STORE IN POS 19 OF 1C 
IF NUMERIC* OR 1 IF NON-NUMERIC. 

* OBTAIN IN 1G THE PROPER N3. 
» THE AC SHOULD CONTAIN AN ENDMARK. 

STORE N3 

IN 1C+4* 

OBTAIN I IN LOG ACC AND 

STORE IN POS 20 OF 1C 

IF NUMERIC* OR 1 IF NON-NUMERIC. 

* GO TO TET PROGRAM TO ENTER 
lC»lC+l».«lC+4 IN TDO TABLE ir. _. 

* EXIT TO PROCESS NEXT STATEMENT. "" 



4F11789 
4F11790 
4F11791 
4F11792 
4F11793 
4F11794 
4F11795 
4F11796 
4F11797 

•4F11798 
4F11799 
4F11800 
4F11801 

•4F11802 
4F11803 
4F11804 
4F11805 
4F11806 
4F11807 
4F11808 

•4F11809 
4F11810 
4F11811 
4F11812 
4F11813 
4F11814 
4F11815 
4F11816 
4F11817 
4F11818 
4F11819 
4F11820 
4F11821 
4F11822 
4F 118*3 
4F11824 
4F11825 
4F11826 
4F11827 
4F11828 
4F11829 
4F11830 
4F11831 
4F11832 
4F11833 
4F11834 
4F11835 
4F11836 
4F11837 
4F11838 
4F11839 
4F11840 
4F11841 

•*F 11842 

X 



END OF PROGRAM COIOO. 

* *************************** 



* * 



















C0200/ CALLS=GETIFN 


















CI TOO » SSOOO ( CSAOOO » 


















C0200 PROCESSES 60 




03720 





07400 


4 


02366 


C0200 


TSX 


GETIFN*4 




03T21 





60100 





01107 




STO 


1C+2 




03722 





07400 


4 


01707 




TSX 


C0190»4 




03723 





34000 





01417 




CAS 


L(9) 


D 


03724 


1 


00000 





03733 




TX1 


C0205»0 




03725 





76100 





OOOOO 




NOP 






03726 





07400 


2 


01655 




TSX 


C0180.2 




03727 





07400 


4 


03271 




TSX 


TESTD0.4 




03730 





50000 





01112 




CLA 


1G 




03731 





60100 





01106 




STO 


1C+1 





03732 


1 


00000 





04030 




TXI 


C0202.0 




03733 





34000 





01375 


C0205 


CAS 


ALPAR 





03734 


1 


00000 





03736 




TXI 


C0210.0 





03735 


1 


00000 





03746 




TXI 


C0212»0 




03736 





07400 


2 


01624 


C0210 


TSX 


C0160*2 




03737 





07400 


4 


03305 




TSX 


TESTG0.4 




03740 





50000 





01112 




CLA 


1G 




03741 





60100 





OHIO 




STO 


1C+3 




03742 





07400 


4 


01707 




TSX 


C0190»4 




03743 





07400 


4 


03275 




TSX 


TESTE0»4 




03744 





50000 





01407 




CLA 


L(l) 




63745 





02000 





03747 




TRA 


C0213 




03746 





50000 





01410 


C0212 


CLA 


L(2) 




03747 





62100 





01105 


C0213 


STA 


1C 




03750 


-0 


53400 


2 


04032 




LXD 


CTRAD.2 




03751 


-0 


75400 


2 


OOOOO 




PXD 


»2 




03752 





60100 





01106 




STO 


1C+1 




03753 





07400 


4 


01707 


C0215 


TSX 


C0190.4 




03754 





07400 


2 


01655 




TSX 


C0180t2 




03755 





60100 





01113 




STO 


2G 




03756 





07400 


1 


03321 




TSX 


TETOO.l 




03757 





OOOOO 





00003 




PZE 


3 




03760 


-0 


53400 


2 


04032 




LXD 


CTRAD.2 




03761 


2 


00001 


2 


03762 




TIX 


C0216»2»l 




03762 


-0 


63400 


2 


04032 


C0216 


SXD 


CTRAD.2 




03763 





50000 





01113 




CLA 


2G 




03764 





07400 


4 


03255 




TSX 


TESTB0»4 




03765 


-0 


10000 





03753 




TN2 


C0215 




03766 





50000 





04032 




CLA 


CTRAO 




03767 





77100 





00022 




ARS 


18 




03770 





62100 





01106 




STA 


1C+1 




03771 





50000 





01105 




CLA 


1C 




03772 





76000 





00001 




LBT 






03773 





02000 





04004 




TRA 


C0220 




03774 





07400 


4 


01707 




TSX 


C0190»4 




03775 





07400 


4 


03271 




TSX 


TESTD0»4 




03776 





07400 


4 


01731 




TSX 


CIT00.4 




03777 





OOOOO 





01107 




PZE 


1C+2 



,DIAG»TEST..»C0190»C0180*TETOO*C0160» 

TO STATEMENTS. 

* GET INTERNAL FORMULA NUMBER IN 1C 
AND IN K>2. 

* OBTAIN IN ACC NEXT NB CHARACTER 
AND COMPARE IT WITH 9. 

IF NON-NUMERIC, GO COMPARE WITH (. 
IF NUMERIC* THEN 

* OBTAIN IN 1G THE BINARY EQUV BETA. 

* THE AC SHOULD CONTAIN AN ENDMARK. 
STORE BETA IN 1C+1 TO CONSTRUCT 
THE 2ND WORD OF TIFGO TABLE ENTRY. 
GO TO ENTER 1C»1C+1 INTO TIFGO. 
TEST CHARACTER FOR Ai>" --A3ETIC. 

IF NOT ALPHABETIC. THE'- 
THIS IS TYPE= SOTO ( »» i. 

* TYPE= GO TO N.O.SO OBTAIN IN 1G N 

* WHICH SHOULD BE FOLLOWED BY COMMA. 
SAVE THE SYMBOL N IN 1C+3 

FOR COMPILED INSTRUCTION. 

* OBTAIN IN ACC NEXT NB CHARACTER* 

* WHICH SHOULD BE A LPAREN. 
PREPARE TO SET ADDRESS PART OF 1C 
TO 1 TO INDICATE CLASS OF TRANSFER 
PREPARE TO SET ADDR OF 1C TO 2. 
STORE 1 OR 2 IN ADDR OF 1C. 
OBTAIN 250-(NO. TRAD ENTRIES). AND 
PLACE IN THE DECREMENT OF THE AC 
AND STORE IN 1C+1* 

* OBTAIN IN ACC NEXT NB CHAR. 

* OBTAIN IN 16 THE BIN EOU OF BETA. 
SAVE CHAR IN ACC. 

* GO TO ENTER 16 

INTO TRAD TABLE (TABLE 3>. 

REDUCE COUNTER 

CTRAO 

BY 1. 

RESTORE CHAR TO ACC. 

* TEST FOR COMMA OR RPAREN. 
IF RIGHT PARENTHESIS* THEN 
OBTAIN IN ADDR OF ACC 250-NO. OF 
ENTRIES IN TRAD TABLE. AND STORE 
IN ADDR OF lC+1. 

OBTAIN 1C IN ACC 

AND TEST LOW ORDER BIT. 

THIS IS A TYPE GO TO (1*1 FORMULA. 

* OBTAIN NEXT NB CHAR AND 
» TEST FOR ENDMK. 

* GO MAKE THE FOLLOWING CIT ENTRY= 
WORD 1 — DECR= INTFORMNO (LOCATION) 



4F11843 
•4F11844 
4F11845 
4F11846 
4FH847 
4F11848 
4F11849 
4F11850 
4F11851 
4F11852 
4F11853 
4F11854 
4F11855 
4F11856 
4F11857 
4F11858 
4F11859 
4F11860 
4F11861 
4F11862 
4F11863 
4F11864 
4F11865 
4F11866 
4F11867 
4F11868 
4F11869 
.4F11870 
4F11871 
4F11872 
4F11873 
4F11874 
4F11875 
4F11876 
4F11877 
4F11878 
4F11879 
4F11880 
4F11881 
4F118S2 
4F11883 
4F11884 
4F11885 
4F11886 
4F11887 
4F11888 
4F11889 
4F11890 
4F11891 
4F11892 
4F11893 
4F11894 
4F11895 
4F11896 



o 



n 



r\ 



04000 





00000 





01601 


PZE 


L(TRA) 


04001 





00000 





OHIO 


PZE 


1C+3 


04002 





00000 





01406 


PZE 


L(0) 


04003 





02000 





04030 


TRA 


C0202 


04004 





07400 


4 


01707 C0220 


TSX 


C0190.4 


04005 





07400 


4 


03305 


TSX 


TESTG0t4 


04006 





07400 


4 


01707 


TSX 


C0190t4 


04007 





07400 


2 


01624 


TSX 


C0160.2 


04010 





07400 


4 


03271 


TSX 


TESTD0»4 


04011 





50000 





01407 


CLA 


LQ) 


04012 





60100 





01131 


STO 


E+3 


04013 





60100 





01100 


STO 


DIMCTR 


04014 





50000 





01112 


CLA 


1G 


04015 





60100 





01132 


STO 


E+4 


04016 





60000 





01137 


STZ 


E+9 


04017 





074O0 


4 


03027 


TSX 


CSA000»4 


04020 





50000 





01126 


CLA 


E 


04021 





77100 





00030 


ARS 


24 


04022 





60100 





01113 


STO 


2G 


04023 





07400 


4 


01731 


TSX 


CIT00*4 


04024 





00000 





01107 


PZE 


1C+2 


04025 





00000 





01601 


PZE 


L(TRA) 


04026 





00000 





01406 


PZE 


LIO) 


04027 





00000 





01113 


PZE 


26 
C0200= E 


04030 





07400 


1 


03321 C0202 


TSX 


TETOO.l 


04031 





00000 





00002 


PZE 


2 


04032 


1 


00372 





03440 CTRAD 


TXI 


CA010.0. 



WORD 2—TRAOOO (OP AND DECR) 4F11897 
WORD 3 — VARIABLE N (ADDRESS) 4FU898 
WORD 4 — 000000 (REL ADDR AND TAG). 4F11899 
60 TO ENTER IC.lC+l INTO TIFGO. 4F11900 

* EXAMINE NEXT NB CHARACTERt 4FH901 

* WHICH SHOULD BE A COMMA. 4F11902 

* OBTAIN IN ACC NEXT NB CHAR* AND 4F11903 

* OBTAIN IN 16 THE FXD-PT. VARIABLE. 4F11904 

* WHICH SHOULD BE FOLLOWED 8Y ENDMK. 4F11905 
PREPARE PROPER FORM OF SUBSCRIPT 4F11906 
COMBINATION AS 
INPUT TO SUBSCRIPT ANALYSIS* 
E+3 = 1ST COEFFICIENT! 
E+4 * 1ST SUBSCRIPT VARIABLE* 
E+9 » ADDEND OF SUBSCRIPT* 

* DIMCTR « DIMENSION OF VARIABLE. 
OUTPUT FROM CSA IS FOUND IN 
E * I — TAUTAG (GENERAL TA6) 1-11* 
ADJUST AND SAVE FOR COMP. INSTR. 

* GO MAKE THE FOLLOWING CIT ENTRY= 
WORD 1 — DECR-INTFORMNOI LOCATION) 
WORD 2 — TRA000(OP AND DECR) 
WORD 3 — 000000 (ADDRESS) 
WORD 4 — ADDR » TAUTAG FOR I 

C0200= ENTRY POINT USED BY C04O0»C1000. 

* GO TO TET TO ENTER 1C AND 1C+1 
INTO TIFGO TABLE (TABLE 2). 

* EXIT TO PROCESS NEXT STATEMENT. 
END OF PROGRAM C0200. 



C0300/ CALLS=C0190X.C0190»C0390»TEST..»DIAG*C0180»TETOO» 

STATES. 

C0300 PROCESSES IF STATEMENTS. 



4F11907 
4F11908 
4F11909 
4F11910 
4F11911 
4F11912 
4F11913 
4F11914 
4F11915 
4F11916 
4F11917 
4F11918 
4F11919 
4F11920 
4F11921 
4F11922 
4F11923 
4F11924 
4F11925 
*4F11926 
4F11927 
4F11928 
4F11929 
4F11930 



04033 


-0 


53400 


4 


00030 C0300 


LXD 


EIFN0.4 


04034 


-0 


75400 


4 


00000 


PXD 


*4 


04035 


-0 


76000 





00003 


SSM 




04036 





60100 





01105 


STO 


1C 


04037 





07400 


4 


01671 


TSX 


C0190X.4 


04040 





07400 


4 


01707 


TSX 


C0190»4 


04041 





56000 





01433 


LDQ 


L(X) 


04042 





07400 


4 


01675 


TSX 


C0390.4 


04043 





560O0 





01373 


LDO 


L(10) 


04044 





07400 


4 


01675 


TSX 


C0390*4 


04045 





07400 


4 


03275 


TSX 


TESTE0»4 


04046 





56000 





01400 


LDO 


AEQUAL 


04047 





07400 


4 


01675 


TSX 


C0390»4 


04050 





53400 


2 


01407 


LXA 


Ul)»2 


04051 





02000 





04053 


TRA 


*+2 


04052 





07400 


4 


01707 C0302 


TSX 


C0190»4 


04053 





34000 





01374 


CAS 


ENDMK 


04054 





02000 





03272 


TRA 


ERR77R 


04055 





07400 


4 


03400 


TSX 


DIAG.4 


04056 





34000 





01375 


CAS 


ALPAR 



PLACE THE CURRENT INTERNAL FORMULA 4F11931 

NUMBER IN THE DECREMENT OF 1C 4F11932 

WITH SIGN SET TO MINUS 4F11933 

FOR FUTURE TIFGO ENTRY. 4F 11934 

* SET CHCTR AND FWA TO BEGIN SCAN. 4F11935 

* OBTAIN IN AC THE 1ST NB CHAR (I). 4F11936 
REPLACE THE CHARACTER I 4F 11937 

* WITH THE CHARACTER X. 4F11938 
REPLACE THE CHARACTER F 4F11939 

* WITH THE CHARACTER 001010. 4F11940 

* IF NOT LPAREN — THEN ERROR. 4F11941 
REPLACE THE CHARACTER LPAREN 4F11942 

* WITH THE CHARACTER EQUAL. 4F11943 
SET XR2 FOR COUNTING PARENTHESES. 4F11944 

4F11945 

* MAKE SURE THAT NEXT NB CHARACTER 4F11946 
IS NOT AN ENDMARK. 4F11947 

* MACHINE ERROR* GO TO DIAGNOSTIC. 4F11948 

* PROGRAM ERROR* GO TO DIAGNOSTIC. 4F11949 
IF IT IS A LPAREN* 4FH950 



01 



vv 



0*057 
04060 
04061 
04062 
04063 
04064 
04065 
04066 
04067 
04070 
04071 
04072 
04073 
04074 
04075 
04076 
04077 
04100 
04101 
04102 
04103 
04104 
04105 



04106 
04107 
04110 

04111 
04112 
04113 
04114 
04115 
04116 
04117 
04120 
04121 

04122 
04123 
04124 
04125 
04126 
04127 
04130 
04131 
04132 
04133 
04134 
04135 



00000 
00001 
40200 
10000 
00001 
56000 
07400 
07400 
07400 
50000 
62100 
07400 
07400 
07400 
50000 
76700 
60100 
07400 
07400 
07400 
50000 
62100 
00000 



04061 
04052 
01377 C0303 



04052 
04052 
01374 
01675 
01655 
03305 
01112 
01105 
01707 
01655 
4 03305 
01112 
00022 
01106 
4 01707 
2 01655 
03271 
01112 
01106 
02404 



50000 01441 C0400 
60100 01115 
50000 01565 



60100 
07400 
07400 
07400 
50000 
60100 
50000 



01116 C0401 

01707 

01655 

03301 

01411 

01105 

01112 



4000O 01115 
76700 00022 



60100 
53400 
75400 
62200 
60100 
07400 
07400 
07400 
50000 
76700 
60100 
07400 



OHIO C0402 

00030 

00000 

01105 

01107 

01707 

01655 

03305 

01112 

00022 

01106 

01707 



TXI 
TXI 
SUB 
TNZ 
TIX 
LDQ 
TSX 
TSX 
TSX 
CLA 
STA 
TSX 
TSX 
TSX 
CLA 
ALS 
STO 
TSX 
TSX 
TSX 
CLA 
STA 
TXI 



CLA 
STO 
CLA 

STO 
TSX 
TSX 
TSX 
CLA 
STO 
CLA 
ADO 
ALS 

STO 
LXD 
PXD 
STD 
STO 
TSX 
TSX 
TSX 
CLA 
ALS 
STO 
TSX 



C0303*0 
C0302.2.1 

ARPAR 

C0302 

C0302*2*l 

ENDMK 

C0390»4 

C0180.2 

TESTG0«4 

1G 

1C 

C0190»4 

C0180.2 

TESTG0.4 

1G 

18 

1C+1 

C0190»4 

C0180»2 

TESTD0»4 

1G 

1C+1 

ARITH»0 

END OF PROGRAM CQ300. 
************ 



2H 

C0190»4 

C0180»2 

TESTF0.4 

L(3) 

1C 

1G 

1H 

18 



THEN ADD 1 TO PAREN COUNT* AND 4F11951 
GO EXAMINE NEXT CHARACTER. 4F11952 

IF IT IS A RPAREN» 4F11953 

THEN TEST PAREN COUNT* AND IF IT 4F11954 
CAN NOT BE REDUCED*MATE IS FOUND. 4F11955 
SO REPLACE THE CHARACTER RPAREN 4F11956 
WITH THE CHARACTER ENDMK. 4F11957 

BINARY EQUIVALENT OF BETA 1. 4F11958 
THIS SHOULD BE FOLLOWED BY A C0MMA.4F11959 
MOVE BETA1 4F11960 

TO ADDRESS OF 1C. 4F11961 

AND PROCEED TO FORM 4F11962 

THE BINARY EQUIVALENT OF 8ETA 2. 4F11963 
THIS SHOULD BE FOLLOWED BY A COMMA. 4F11964 
MOVE BETA2 4F11965 

TO DECR PART 4F11966 

OF 1C+1. 4F11967 

AND PROCEED TO FORM 4F11968 

THE BINARY EQUIVALENT OF BETA 3. 4F11969 
THIS SHOULD BE FOLLOWED BY ENDMARK.4F11970 
MOVE BETA3 4F11971 

TO ADDRESS OF 1C+1. 4F11972 

EXIT TO ARITH FOR FINAL PR0CESSING.4F11973 

4F11974 
*##*****#*#***#** #4F11975 

4F11976 
4F11977 
4F11978 
4F11979 
4F11980 
4F11981 
4F11982 
4F11983 
4F11984 
4F11985 



C040G/ CALLS=C0190»C0180»TEST..»CITOO»C0200. 

C0400 PROCESSES IF {SENSE SWITCH STATEMENTS. 

L(112) FOR SENSE SWITCH 

1H SET 1H TO 112» AND PREPARE TO 

LfPSE) SET 2H TO PSE. 

C0401= ENTRY POINT USED BY C0500. 



SET 2H FOR SENSE SWITCH OR LIGHT. 

* PROCEED TO FORM THE BINARY 

* EQUIVALENT OF SW OR SL NUMBER. 

* THIS SHOULD BE FOLLOWED BY RPAREN. AF11986 



STORE 3 

IN ADDRESS OF 1C. 

ADD THE PROPER INCREMENT TO THE 

NUMBER OF SENSE SWITCH OR LIGHT* 

AND ADJUST TO THE DECREMENT. 



C0402= ENTRY POINT USED BY C0600. 



1C+3 

EIFN0»4 

»4 

1C 

1C+2 

C0190.4 

C0180*2 

TESTG0»4 

1G 

18 

1C+1 

C0190.4 



SET 1C+3 FOR CIT ENTRY. 



4F11987 
4F11988 
4F11989 
4FH99G 
4F11991 
4F11992 
4F11993 



PLACE THE CURRENT INTERNAL FORMULA 4F11994 
NUMBER IN THE DECREMENT OF 4F11995 

1C FOR FUTURE TIFGO ENTRY* AND 4F11996 
1C+2 FOR FUTURE CIT ENTRY. 4F11997 

PROCEED TO FORM THE BINARY 4F11998 

EQUIVALENT OF BETA 1* 4F11999 

WHICH SHOULD BE FOLLOWED BY COMMA. ^F12000 
BRING UP* 4F12001 

ADJUST AND 4F12002 

STORE BETA1 IN DECR OF 1C+1. 4F12003 
PROCEED TO FORM THE BINARY 4F12004 



f,Y 



n 



r\ 





04136 


07400 2 01655 


TSX C0180*2 * EQUIVALENT OF BETA 2. 4F12005 






04137 


07400 4 03271 


TSX TESTDQ.4 * WHICH SHOULD BE FOLLOWED BY ENDMK. 4F12006 






04140 


50000 01112 


CLA 1G BRING UP AND 4F12007 






04141 


62100 01106 


STA 1C+1 STORE BETA2 IN ADDR OF 1C+1. 4F12008 






04142 


07400 4 01731 


TSX CIT00»4 * GO MAKE THE FOLLOWING CIT ENTRY= 4F12009 






04143 


00000 01107 


PZE 1C+2 W0RD1 — DECR = INTFORMNO (LOCATION) 4F12010 






04144 


00000 01116 


PZE 2H W0RD2 — PSEtMSEtDCT*TOV»OR TOO. 4F12011 






04145 


00000 01406 


PZE LiO) W0RD3 — 000000 (ADDRESS) 4F12012 






04146 


00000 OHIO 


PZE 1C+3 W0RD4 — DECR=SS OR SL N0.» OR 0000004F12013 







04147 


1 00000 04030 


TXI C0202»0 * MAKE TIFGO ENTRY* AND RETURN TO CA.4F12014 

END OF PROGRAM C0400. 4F12015 

♦******»»**#******»*********** *4F12016 

4F12017 
C0500/ USES-C0400. 4F12018 
C0500 PROCESSES IF (SENSE LIGHT STATEMENTS. 4F12019 






04150 


50000 01440 C0500 


CLA LC96) STORE 96 IN 4F12020 






04151 


60100 01115 


STO 1H 1H AND 4F12021 






04152 


50000 01563 


CLA L(MSE) OBTAIN (MSEOOO) IN ACC. 4F12022 






04153 


02000 04111 


TRA C0401 * AND CONTINUE BY USING PROGRAM C04. 4F12023 

END OF PROGRAM C0500. 4F12024 

ft***************************** *4F12025 

4F12026 
C0600/ US£S=C0400. 4F12027 
C0600 PROCESSES IF DIVIDE CHECK STATEMENTS. 4F12028 






04154 


50000 01545 C0600 


CLA L(DCT) STORE (DCTOOO) 4F12029 






04155 


60100 01116 


STO 2H IN 2H 4F12030 






04156 


50000 01412 


CLA L(4) AND PICK UP 4 TO SET 1C. 4F12031 
C0601= ENTRY POINT USED BY C0700. 4F12032 






04157 


60100 01105 C0601 


STO 1C SET 1C FOR FUTURE TIFGO ENTRY. 4F12033 






04160 


-0 75400 00000 


PXD tO CLEAR THE AC» 4F12034 






04161 


02000 04122 


TRA C0402 * AND CONTINUE BY USING PROGRAM C04. 4F12035 

END OF PROGRAM C0600. 4F12036 

»************#**#**»*##»#*»*** *4F12037 

4F12038 
C0700/ USES C0600. 4F12039 
C0700 PROCESSES IF AC OVERFLOW STATEMENTS. 4F12040 






04162 


50000 01577 C0700 


CLA L(TOV) PICKUP TOVOOO TO SET 2H. 4F12041 
C0701= ENTRY POINT USED BY C0800. 4F12042 






04163 


60100 01116 C0701 


STO 2H SET 2H FOR FUTURE CIT ENTRY. 4F12043 






04164 


50000 01413 


CLA L(5) PICKUP 5 TO SET 1C» AND 4F12044 






04165 


02000 04157 


TRA C0601 * CONTINUE BY USING PROGRAM C06. 4F12045 

END OF PROGRAM C0700. 4F12046 

**'*«***»***«*#»***»****»****#* *4F12047 

4F12048 
C0800/ USES=C0700. 4F12049 
C0800 PROCESSES IF MQ OVERFLOW STATEMENTS. 4F12050 






04166 


50000 01600 C0800 


CLA L(TQO) PICKUP TQOOOO TO SET 2H» 4F12051 






04167 


02000 04163 


TRA C0701 * AND CONTINUE BY USING PROGRAM C07. 4F12052 

END OF PROGRAM C0800. 4F12053 

#*■#•*##***********#***»******* *4Fl2054 

4F12055 
C0900/ CALLS=C0190»CIT00*DIAG. CALLER=C1300. 4F12056 
C0900 PROCESSES PAUSE STATEMENTS. 4F12057 






04170 • 


-0 53400 2 04175 C0900 


LXD C090X.2 SET XR2 FOR EXIT TO CAOOO. 4F12058 


^ 



' V 



C0901= ENTRY POINT USED BY C1300. 



04171 





60000 





01112 


C0901 


STZ 


10 


04172 





07400 


4 


01707 


C0902 


TSX 


CQ190.4 


04173 





34000 





01374 




CAS 


ENDMK 


04174 





02000 





03272 




TRA 


ERR77P 


04175 


1 


74341 





04202 


C090X 


TXI 


C09O3.0.-CA010+1 


04176 





40000 





01112 




ADO 


1G 


04177 





76700 





00003 




ALS 


3 


04200 





60100 





01112 




STO 


16 


04201 


1 


00000 





04172 




TXI 


C0902»0 


04202 





50000 





01112 


C0903 


CLA 


1G 


04203 





76700 





00017 




ALS 


15 


04204 





60100 





01105 




STO 


1C 


04205 


-0 


53400 


4 


00030 




LXD 


EIFN0*4 


04206 


-0 


75400 


4 


00000 




PXD 


»4 


04207 





60100 





01106 




STO 


1C+1 


04210 





07400 


4 


01731 




TSX 


CIT00»4 


0*211 





00000 





01106 




PZE 


1C+1 


04212 





00000 





01554 




PZE 


L(HPR) 


04213 





00000 





01406 




PZE 


LtO) 


04214 





00000 





011C5 




PZE 


1C 


04215 





02000 


2 


00001 




TRA 


1*2 
END OF PROGRAM C0900. 



4F12059 

CLEAR 1G. 4F12060 

TEST NEXT NON-BLANK CHARACTER 4F12061 

FOR END OF STATEMENT MARK. 4F 12062 

MACHINE ERROR* GO TO DIAGNOSTIC. 4F12063 

IF NOT END OF STATEMENT* THEN 4F12064 

ADD 1G TO DIGIT. 4F12065 

MULTIPLY BY 8. 4F12066 

AND STORE BACK IN 16. 4F12067 

CONTINUE UNTIL END OF STATEMENT. 4F12068 

THEN PLACE OCTAL ALPHA 4F12069 

IN THE DECREMENT 4F12070 

OF 1C FOR FUTURE CIT ENTRY. 4F12071 

PLACE THE CURRENT INTERNAL FORMULA 4F12072 



4F12073 
4F12074 
4F12075 
4F12076 
4F12077 
4F12078 
4F12079 
4F12080 
4F12081 
•4F12082 
4F12083 
C1000/ USES=C0200. CALLS=GETIFN»C0190»C0180.DIAG*C0160*TEST..4F12084 



NUMBER IN THE DECREMENT 

OF 1C+1.WITH ZEROS ELSEWHERE. 

GO MAKE THE FOLLOWING CIT ENTRY= 

W0RD1 — DECR = INTFORMNO (LOCATION) 

W0RD2 — HPROOO (OP AND DECR) 

W0RD3 — 000000 {ADDRESS) 

W0RD4 — DECR - ALPHA* REST ZEROS. 

EXIT TO CAOOO* OR TO C1300. 



* * • # * 



*********** 



CI TOO. 

C1000 PROCESSES ASSIGN STATEMENTS* 



04216 


07400 


4 02366 C1000 


TSX 


GETIFN»4 


04217 





60100 


01107 


STO 


1C+2 


04220 





50000 


01414 


CLA 


L(6) 


04221 





62100 


01105 


STA 


1C 


04222 





07400 


2 01654 


TSX 


C0180X»2 


04223 





40200 


01432 


SUB 


LCTJ 


04224 





10000 


04226 


TZE 


*+2 


04225 





07400 


4 03400 


TSX 


DIAG*4 


04226 





07400 


4 01707 


TSX 


C0190.4 


04227 





40200 


01425 


SUB 


L(0) 


04230 


-0 


10000 


04225 


TNZ 


*-3 


04231 





50000 


01112 


CLA 


16 


04232 





60100 


01106 


STO 


1C+1 


04233 





07400 


4 01707 


TSX 


C0190*4 


04234 





07400 


2 01624 


TSX 


C0160»2 


04235 





07400 


4 03271 


TSX 


TESTD0*4 


04236 





07400 


4 01731 


TSX 


CIT00.4 


04237 





00000 


01107 


PZE 


1C+2 


04240 





00000 


01541 


PZE 


L(CLA) 


04241 





OOOOO 


01406 


PZE 


L.O) 


04242 





00000 


01406 


PZE 


LIO) 


04243 





07400 


4 01731 


TSX 


CIT00.4 


04244 





OOOOO 


01406 


PZE 


LtO) 


04245 





OOOOO 


01572 


PZE 


L.STO) 


04246 





OOOOO 


01112 


PZE 


1G 


04247 


J) 


OOOOO 


_D._0J.4O6 


P2E 


L(Q) 



GET INTERNAL FORMULA NUMBER IN 1C 

AND 1C+2»WITH ZEROS ELSEWHERE. 

STORE 6 IN 

ADDRESS OF 1C. 

GO FORM BINARY EQUIV OF ALPHA. 

IF NEXT CHARACTER IS NOT T» THEN 

THIS 15 AN 

ERROR - GO TO THE DIAGNOSTIC. 

EXAMINE NEXT NON-BLANK CHARACTER 

AND" IF IT IS NOT 0, THEN 

ERROR* GO TO DIAGNOSTIC. 

PUT BIN EQUIV OF ALPHA 

IN ADDRESS OF 1C+1. 

PROCEED TO ASSEMBLE IN 1G 

THE SYMBOL N. 

THE NEXT NB CHAR SHOULD BE ENDMK. 

GO MAKE THE FOLLOWING CIT ENTRY= 

W0R01 — DECR = INTFORMNO [LOCATION) 

W0RD2— CLAOOO (OP AND DECR) 

W0RD3 — 000000 (ADDRESS) 

W0RD4 — 000000 (RELADDR AND TAG). 

STORE SECOND COMPILED INSTRUCTION= 4F12109 

W0RD1 — 000000 (ALL ZEROS) 4F12110 

W0RD2 — STOOOO (OP AND DECR) 4F12111 

W0RD3 — SYMBOL N (ADDRESS) 4F12112 

W0RD4 — 000000 (REL ADDR AND TAG). 4F12U3 



4F12085 
4F12086 
4F12087 
4F12088 
4F12089 
4F12090 
4F12091 
4F12093 
4F12094 
4F12095 
4F12096 
4F12097 
4F12098 
4F12D99 
4F12100 
4F12101 
4F12102 
4F12103 
4F12104 
4F12105 
4F12106 
4F12107 
4F12108 



n 



n 



04250 02000 0*030 



TRA C02O2 

END OF PROGRAM C1000. 



* CONTINUE BY USING PROGRAM C02. 
****************** 



CI 100/ CALLS=C0190»C0180*TEST..»GETIFN«CIT0Q. 
CI 100 PROCESSES SENSE LIGHT STATEMENTS. 



4F12114 
4F12US 
*4F12116 
4F12117 
4F12118 
4F12U9 



04251 





07400 


2 


01654 


CI 100 


TSX 


C0180X«2 


* 


04252 





07400 


4 


03271 




TSX 


TESTD0»4 


* 


04253 





50000 





01112 




CLA 


16 




04254 





40000 





01440 




ADO 


L(96) 




04255 





76700 





00022 




ALS 


18 




04256 





60100 





01112 




STO 


1C 




04257 





07400 


4 


02366 




TSX 


GETIFN.4 


* 


04260 





07400 


4 


01731 




TSX 


CIT00»4 


* 


04261 





00000 





01105 




PZE 


1C 




04262 





00000 





01565 




PZE 


L(PSE) 




04263 





00000 





01406 




PZE 


HO) 




04264 





00000 





01112 




PZE 


16 




04265 


1 


00000 





03440 




TXI 


CA010.0 
END OF PROGRAM 


* 
C1100. 

* * * » * 
















0200/ CALLS=C0190»C0160» 
















C1200 PROCESSES 


DIMENSION 


04266 





07400 


4 


01707 


C1200 


TSX 


C0190.4 


* 


04267 





07400 


2 


01624 




TSX 


C0160.2 


# 


04270 





07400 


4 


03275 




TSX 


TESTE0.4 


* 


04271 





50000 





01112 




CLA 


16 




04272 





60100 





01105 




STO 


1C 




04273 





60100 





01130 




STO 


E+2 




04274 





07400 


4 


01771 




TSX 


DIMlSRt4 


* 


04275 





02000 





04277 




TRA 


C1280 




04276 





02000 





04304 




TRA 


C1299 




04277 





07400 


4 


01775 


C1280 


TSX 


DIM2SR.4 


* 


04300 





02000 





04302 




TRA 


C1281 




04301 





02000 





04304 




TRA 


C1299 




04302 





07400 


4 


02005 


C1281 


TSX 


DIM3SR.4 


* 


04303 





02000 





04305 




TRA 


C1282 




04304 





07400 


4 


03400 


C1299 


TSX 


0IAG»4 


* 


04305 





07400 


2 


01654 


C1282 


TSX 


C0180X.2 


* 


04306 





40200 





01377 




SUB 


CLOS 




04307 





10000 





04330 




TZE 


C1210 




04310 





50000 





01112 




CLA 


16 




04311 





76700 





00022 




ALS 


18 




04312 





60100 





01106 




STO 


1C+1 




04313 





07400 


2 


01654 




TSX 


C0180X.2 


• 


04314 





40200 





01377 




SUB 


CLOS 




04315 





10000 





04334 




TZE 


C1220 




04316 





50000 





01112 




CLA 


16 




04317 





62100 





01106 




STA 


1C+1 




04320 





07400 


2 


01654 




TSX 


C0180X#2 


* 


04321 





40200 





01377 




SUB 


CLOS 




04322 





10000 





04324 




TZE 


*+2 




04323 





07400 


4 


03400 




TSX 


DIA6»4 


* 



GO FORM BINARY EQUIV OF SL NUMBER. 4F12120 
THE NEXT NB CHARACTER SHD BE ENDMK.4F12122 



STORE SENSE LIGHT NUMBER 

PLUS 96 

IN DECR 

OF 16. 

GET INTERNAL FORMULA NUMBER IN 1C. 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — DECR = INTFORMNO (LOCATION) 

W0RD2 — PSEOOO I OP AND DECREMENT) 

W0RD3 — 000000 (ADDRESS PART) 

W0RD4 — DECR = 96+ALPHA»REST ZEROS. 

EXIT TO PROCESS NEXT STATEMENT. 



4F12123 
4F12124 
4F12125 
4F12126 
4F12127 
4F12128 
4F12129 
4F12130 
4F12131 
4F12132 
4F12133 
4F12134 
•4F12135 
4F12136 
4F12137 
4F12138 
4F12139 
4F12140 



STATEMENTS. 

PROCEED TO ASSEMBLE IN 16 
THE VARIABLE SYMBOL. 
NEXT NB CHARACTER SHOULD BE LPAREN.4F12141 

PUT VARIABLE SYMBOL 4F12142 

IN 1C. 4F12143 

ALSO IN E+2. THEN 4F12144 

GO SEARCH DIM1 TABLE. 4F12145 

THEN IF NOT 4F12146 

FOUND. 4F12147 

GO SEARCH DIM2 TABLE. 4F12148 

THEN IF NOT 4F12149 

FOUND* 4F12150 

GO SEARCH D1M3 TABLE. 4F12151 

DO NOT CONTINUE IF 4F12152 

VARIABLE PREVIOUSLY APPEARED. 4F12153 

GO FORM BINARY EQUIV OF 01. 4F12154 

IF NOT 1 DIMENSION. 4F12156 

THEN 4F12157 

PUT Dl 4F12158 

IN DECR 4F12159 

OF 1C+1. 4F1216Q 

GO FORM BINARY EQUIV OF D2. 4F12161 

IF NOT 2 DIMENSION* 4F12163 

THEN 4F12164 

PUT 02 4F12165 

IN ADDRESS OF 1C+1. 4F12166 

GO FORM BINARY EQUIV OF 03. 4F12168 

IF MORE THAN 3 DIMENSION* 4F12169 

THIS IS AN 4F12170 

ERROR - GO TO THE DIAGNOSTIC. 4F12171 



H 



V V 



04324 
04325 
04326 
04327 
04330 
04331 
04332 
04333 
04334 
04335 
04336 
04337 
04340 
04341 
04342 



04343 
04344 
04345 
04346 
04347 
04350 
04351 
04352 
04353 






1 




1 






-0 

1 



50000 

60100 

07400 

00000 

50000 

60100 

07400 

00000 

50000 

62100 

07400 

07400 4 

07400 4 

10000 

00000 



C1201 



07400 
00000 
07400 
07400 
00000 
00000 
00000 
00000 
00000 



01112 

01107 

00467 

04337 

01112 C1210 

01106 

00455 

04337 

01112 C1220 

01106 

00462 

01707 

03247 

04266 

03440 



03321 C1300 

00017 

04171 

01731 

01406 

01601 

01106 

01406 

03440 



04354 





07400 


2 


01654 C1400 


04355 





07400 


4 


03275 


04356 





50200 





01112 


04357 





60100 





01112 


04360 





07400 


1 


03321 


04261 





QQQQO 





00007 


04362 





07400 


2 


01654 C1401 


04363 





60100 





01105 


04364 





07400 


1 


03321 


04365 





00000 





00007 


04366 





50000 





01105 


04367 





07400 


4 


03255 


04370 


-0 


10000 





04362 


04371 





07400 


4 


01707 


04372 





07400 


4 


03247 


04373 


-0 


10000 





04354 


04374 


1 


00000 





03440 



CLA 1G 
STO 1C+2 
TSX DIM3IX«4 
TXI C1201.0 
CLA 1G 
STO 1C+1 
TSX DIM1IX,4 
TXI C1201.0 
CLA 1G 
STA 1C+1 
TSX DIM2IX*4 
TSX C0190»4 
TSX TESTA0.4 
TNZ C1200 
TXI CA010»0 

END OF PROGRAM 



C1200. 

* * * -i 



IF 3 DIMENSION, PUT D3 
IN 1C+2* AND 

* GO MAKE DIM3 ENTRY. 

GO TO TEST FOR END OF STATEMENT. 
IF 1 DIMENSION. PUT Dl 
IN 1C+1» AND 

* GO MAKE DIM1 ENTRY. THEN 

GO TO TEST FOR END OF STATEMENT. 
IF 2 DIMENSION, PUT D2 IN 
ADDRESS PART OF 1C+1. AND 

* GO MAKE DIM2 ENTRY. THEN 

* OBTAIN N8 CHAR FOLLOWING RPAREN. 

* TEST FOR COMMA OR ENDMARK. 

IF CHARACTER IS ENDMARK, THEN 

* EXIT TO PROCESS NEXT STATEMENT. 



0300/ CALLS=C0901»TETOO»CITOO. 
C1300 PROCESSES STOP STATEMENTS. 



TSX 
P2E 
TSX 
TSX 
P2E 
PZE 
PZE 
PZE 
TXI 



TSX 
TSX 
CLS 
STO 
TSX 
PZE 
TSX 
STO 
TSX 
PZE 
CLA 
TSX 
TNZ 
TSX 
TSX 
TNZ 
TXI 



TETCO.l 
15 

C0901.2 
CITO0,4 
L(0) 
L(TRA) 
1C+1 
L(0) 
CA010.0 
END OF PROGRAM C1300. 



60 MAKE EIFNO ENTRY 
IN TSTOP TABLE. 

* USE C0900 TO BEGIN PROCESSING. 

* GO MAKE FOLLOWING CIT ENTRY= 
W0RD1 — ALL ZEROS 

W0RD2 — TRAOOO (OP+DECR) 

V0RD3 — decR = INTFORMNO I SYMBOL) 

W0RD4 — ZEROS (REL ADDR AND TAG! 

* EXIT TO PROCESS NEXT STATEMENT. 

****************** 



0400/ CALLS=C0 

O400 PROCESSES 

C0180X,2 

TESTE0»4 

1G 

1G 

TET00,1 

7 

C0180X,2 

1C 

TETOO.l 

7 

1C 

TESTB0,4 

C1401 

C0190»4 

TESTA0.4 

C1400 

CA010»0 

END OF PROGRAM 
******** 



190 »C0 180 » TEST.. »TETOO. 
FREQUENCY STATEMENTS. 

* GO FORM BINARY EQUIV OF EFN. 

* CHARACTER SHOULD BE A LPAREN. 
CHANGE SIGN OF SYMBOL 

TO MINUS. 

* GO TO PROGRAM TET TO ENTER 
SYMBOL INTO FRET I TABLE 7>t AND 

* 60 FORM BINARY EQUIV OF M<1). 
SAVE CHAR IN ACC. 

* 60 TO PROGRAM TET TO ENTER M(1J 
INTO TABLE FRET (TABLE7), AND 
RESTORE CHAR IN ACC, AND 

* TEST FOR , OR ). 

IF RIGHT PARENTHESIS, THEN 

* OBTAIN IN ACC NEXT NBCHAR, AND 

* TEST FOR COMMA OR ENDMARK. 

IF ENDMARK, THIS STATEMENT IS DONE 

* EXIT TO PROCESS NEXT STATEMENT. 



C1400. 
* * * 



******************* 



4F12172 
4F12173 
4F12174 
4F12175 
4F12176 
4F12177 
4F12178 
4F12179 
4F12180 
4F12181 
4F12182 
4F12183 
4F12184 
4F12185 
4F12186 
4F12187 

♦4F12188 
4F12189 
4F12190 
4F12191 
4F12192 
4F12193 
4F12194 
4F12195 
4F12196 
4F12197 
4F12198 
4F12199 
4F12200 
4F12201 

*4F12202 
4F12203 
4F12204 
4F12205 
4F122006 
4F12208 
4F12209 
4F12210 
4F12211 
4F12212 
4F12213 
4F12215 
4F12216 
4F12217 
4F12218 
4F12219 
4F12220 
4F12221 
4F12222 

•4F12223 
4F12224 
4F12225 

*4F12226 
4F12227 



1> 



n 



n 



D 





04375 
04376 
04377 
04400 
04401 
04402 
04403 
04404 
04405 
04406 
04407 
04410 
04411 
04412 
04413 
04414 
04415 
04416 
04417 
04420 
04421 
04422 
04423 
04424 
04425 
04426 
04427 
04430 
04431 
04432 



04433 
04434 
04435 
04436 
04437 



04440 
04441 
04442 
04443 
04444 
04445 
04446 



07400 4 

07400 4 

50000 

60100 

07400 

07400 

56000 

60000 

34000 

00000 

00000 

00000 

07400 

07400 

50000 



C 60100 



07400 
07400 
10000 
07400 
00000 
00000 
50200 
60100 
07400 
00000 
07400 
07400 
10000 
00000 






1 




o 





-0 

1 



07400 
07400 
07400 

07400 

1 00000 



50000 
63000 
53400 
00001 
07400 
50000 
76000 



01707 C1500 

03275 

01407 C1501 

01106 

01707 

01624 

01112 

01105 

01375 

04416 

04411 

04416 

01654 C1502 

03301 

01112 

fit 1 ft£. 

vi ivO 

01707 

03255 C1503 

04423 

03321 

00010 

04377 

01106 C1504 

01106 

03321 

00010 

01707 

03247 

04375 

03440 



TSX 
TSX 
CLA 
STO 
TSX 
TSX 
LDQ 
STQ 
CAS 
TXI 
TXl 
TXI 
TSX 
TSX 
CLA 
STO 
TSX 
TSX 
TZE 
TSX 
PZE 
TXI 
CLS 
STO 
TSX 
PZE 
TSX 
TSX 
TNZ 
TXI 



0500/ CALLS=CO 

C1500 PROCESSES 

C0190»4 

TESTE0.4 

L(l) 

1C+1 

C0190*4 

C0160*2 

16 

1C 

ALPAR 

C1503.0 

0502*0 

C1503.0 

C0180X.2 

TESTF0.4 

16 

1C+1 

C0190»4 

TESTB0»4 

C1504 

TETOO.l 

8 

O501»0 

1C+1 

1C+1 

TETOO.l 

8 

C0190.4 

TESTAQ.4 

O500 

CA010»0 

END OF PROGRAM 
#»»#♦#** 



19Q.TEST...C0160.C0180.TETOO. 
EQUIVALENCE STATEMENTS. 

* OBTAIN NEXT NBCHAR IN ACC. 

* CHARACTER SHOULD BE A LPAREN. 
INITIALIZE 1C 
TO 1* 

* OBTAIN NEXT NBCHAR IN ACC AND 

* OBTAIN IN 16 THE SYMBOL V. 
MOVE V 
INTO 1C. 

EXAMINE CHARACTER LEFT IN THE AC. 
AND IF 

CHARACTER IS A LEFT PARENTHESIS. 
THEN 

» 60 FORM BINARY EQUIV OF N. 

* 1ST NON-NUMERIC SHOULD BE A RPAREN 
PUT BIN EQUIV OF N 
IN 1C*1» 

OBTAIN NEXT NBCHAR IN AC. AND 
TEST FOR COMMA OR RPAREN. 
IF COMMA. THEN 

GO TO PROGRAM TET TO ENTER SYMBOL 
AND N IN EQUIT I TABLE 8). AND 
RETURN TO CONTINUE PROCESSING X. 
MAKE SIGN OF N MINUS SINCE 
THIS IS LAST ITEM. 
GO TO PROGRAM TET TO ENTER SYMBOL 
AND N IN EQUIT {TABLE 8). AND 
OBTAIN NEXT NBCHAR IN ACC. AND 
TEST FOR COMMA OR ENDMARK. 
IF ENDMARK. THEN 
EXIT TO PROCESS NEXT STATEMENT. 






C1500. 

* * » 



# * 



***************** 



0600/ CALLS»C0190»TEST..»GIF,BSS. 
C1600 PROCESSES CONTINUE STATEMENTS. 



C1600 



01707 
03271 
02375 
05674 
03440 



00422 C3500 
04454 
00030 C3000 



TSX CO 190 .4 
TSX TESTD0.4 
TSX GIF. 4 
TSX BSS.2 
TXI CA010.0 

END OF PROGRAM C1600. 



* OBTAIN NEXT NBCHAR IN ACC. 

* CHARACTER SHOULD BE AN ENDMARK. 

* GET INTERNAL FORMULA NUMBER. AND 

* GO COMPILE" IFN BSS 0. 

* EXIT TO PROCESS NEXT STATEMENT. 

#*#*****♦******»*» 



0000/ CALLS=DIAG.C0190»CO160.TEST...SUBX0O»TETO0.TESTFX, 
C3000 PROCESSES SUBROUTINE AND FUNCTION STATEMENTS. 
CAL TXHOP 



04445 
03400 
01121 
00003 



STP C3003 
LXD EIFN0.4 
TXL *+2.4.1 
TSX DIAG.4 
CLA ARGCNT 
SSP 



EXAMINE INTERNAL FORMULA NO., AND 
IF NOT THE 1ST STATEMENT. THEN 
ERROR - GO TO THE DIAGNOSTIC. 
SET ARGCNT TO INDICATE TO LATER 
RETURN THAT THERE WAS A PRECEEDlNG 



4F12228 
4F12229 
4F 12230 
4F12231 
4F12232 
4F12233 
4F12234 
4F12235 
4F12236 
4F12237 
4F12238 
4F12239 
4F12240 
4F12241 
4F12242 

.4F12244 
4F12245 
4F12246 
4F12247 
4F12248 
4F12249 
4F12250 
4F12251 
4F12252 
4F12253 
4F12254 
4F12255 
4F12256 
4F12257 
4F12258 
4F12259 
4F12260 
4F12261 

*4F12262 
4F12263 
4F12264 
4F12265 
4F12266 
4F12267 
4F12268 
4F12269 
4F12270 
4F12271 

»4F12272 
4F12273 
4F12274 
4F12275 
4F 12276 
4F12277 
4F12278 
4F12279 
4F12280 
4F12281 
4F12282 



73 



04447 





60100 





01121 




STO 


ARGCNT 




0^450 





07400 


4 


01707 




TSX 


C0190.4 


# 


04451 





07400 


4 


03311 




TSX 


TESTH0t4 


• 


04452 





07400 


2 


01624 




TSX 


C0160f2 


* 


04453 





07400 


4 


03263 




TSX 


TESTC0»4 


* 


04454 


-3 


00000 





04457 


C3003 


TXL 


*+3»0 




04455 





50000 





01112 




CLA 


1G 




04456 





60100 





01332 




STO 


FSNAME 




04457 





07400 


4 


03224 




TSX 


SUBX0O*4 


* 


04460 





07400 


1 


03321 




TSX 


TET00»1 


# 


04461 





00000 





00013 




PZE 


11 




04462 


-0 


53400 


4 


00030 




LXD 


EIFN0.4 




04463 


-0 


75400 


4 


00000 




PXD 


.4 




04464 





60100 





01347 




STO 


G 




04465 


1 


00000 





04506 




TXI 


C3002.0 




04466 





40000 





01374 


C3001 


ADD 


ENDMK 




04467 





07400 


4 


03311 




TSX 


TESTH0.4 


• 


04470 





60100 





01331 




STO 


FIRSTC 




04471 





07400 


2 


01624 




TSX 


C0160»2 


* 


04472 





07400 


4 


03255 




TSX 


TESTB0.4 


* 


04473 





50000 





01112 




CLA 


1G 




04474 





60100 





01350 




STO 


G+l 




04475 





07400 


1 


03241 




TSX 


TESTFX.l 


* 


04476 


1 


00000 





04501 




TXI 


C3004»0 




04477 





07400 


1 


03321 




TSX 


TET00»1 


* 


04500 





00000 





00006 




PZE 


6 




04501 





07400 


1 


03321 


C3004 


TSX 


TET00»1 


• 


04502 





00000 





00013 




PZE 


11 




04503 





50000 





01121 




CLA 


ARGCNT 




04504 





40000 





01454 




AOO 


01 




04505 





60100 





01121 




STO 


ARGCNT 




04506 





07400 


4 


01707 


C3002 


TSX 


CO 190. 4 


* 


04507 





40200 





01374 




SUB 


ENDMK 




04510 


-0 


10000 





04466 




TNZ 


C3001 




04511 


1 


00Q00 





03440 




TXI 


CA010.0 
END OF PROGRAM C3000. 

C3100/ CALLS=C0190»DIAG 
C3100 PROCESSES COMMON 


* 
• 

.TE 

ST/ 


04512 





07400 


4 


01707 


C3100 


TSX 


C0190»4 


* 


04513 





07400 


4 


03311 




TSX 


TESTH0.4 


* 


04514 





07400 


2 


01624 




TSX 


CO160.2 


* 


04515 





07400 


4 


03247 




TSX 


TESTA0.4 


* 


04516 





73400 


4 


00000 




PAX 


.4 




04517 





07400 


1 


03321 




TSX 


TETOO.l 


* 


04520 





00000 





00014 




PZE 


12 




04521 





50000 





00365 




CLA 


SBDFCN 




04522 





10000 





04534 




TZE 


C3101 




04523 





50000 





01454 




CLA 


2E18 




04524 





60100 





01347 




STO 


G 




04525 


-0 


50000 





01112 




CAL 


1G 




04526 





60200 





01350 




SLW 


G+l 




04527 





77100 





00036 


_ 


ARS 


30 





SUBROUTINE OR FUNCTION STATEMENT. 4F12283 
IF 1ST CHARACTER OF NAME IS 4F12284 
NUMERIC* THEN GO TO THE DIAGN0STIC.4F12285 
ASSEMBLE NAME IN 1G« 4F12286 

NEXT CHAR SHD BE LPAREN OR ENDMARK.4F12287 

4F12288 
4F12289 
4F12290 
4F12291 
4F12292 
4F12293 
4F12294 
4F12295 
4F12296 
4F12297 
4F12298 
4F12299 
4F12300 
4F12301 
4F12302 
4F12303 
4F12304 
4F12305 



FILL OUT NAME WITH BLANKS* 

GO ENTER NAME 

IN SUBDEF TABLE. 

PLACE 

INTERNAL FORMULA NUMBER 

IN G. 

GO TEST FOR END OF STATEMENT. 

IF NOT ENDMARK. RESTORE CHARACTER 

WHICH SHOULD BE NON-NUMERIC 

1ST CHARACTER OF ARGUMENT, 

ASSEMBLE ARGUMENT IN 16. 

NEXT CHAR SHD 8E COMMA OR RPAREN. 

MOVE ARGUMENT 

INTO 6+1. 

GO TEST FOR FIXED OR FLOATING PT. 

IF FLOATING PTes SKIP FORVAL ENTRY.4F12306 



IF FIXED POINT. GO MAKE ENTRY 

IN FORVAL TABLE. 

IN BOTH CASES. MAKE ENTRIES IN 

SUBDEF TABLE. 

UPDATE 

ARGUMENT COUNT 

BY 1. AND 

EXAMINE NEXT NON-BLANK CHARACTER. 

IF NOT ENDMARK* THEN 

GO PROCESS NEXT ARGUMENT. 

OTHERWISE. EXIT TO CAOOO. 



4F12307 
4F12308 
4F12309 
4F12310 
4F12311 
4F12312 
4F12313 
4F12314 
4F12315 
4F12316 
4F12317 
4F12318 
♦4F12319 
4F12320 
:ST..»C0160,TETO0. 4F12321 

iTEMENTS. 4F12322 

GET FIRST NON-BLANK CHAR OF SYMBOL 4F12323 
WHICH SHOULD BE NON-NUMERIC. 4F12324 
ASSEMBLE SYMBOL IN 1G. AND TEST 4F12325 
NEXT CHARACTER FOR COMMA OR ENDMK. 4F12326 



SAVE RESULT OF TEST IN XR4. 

GO ENTER THIS SYMBOL 

IN COMMON TABLE. 

ANY ENTRIES IN SUBDEF 

INDICATE THIS IS NOT A 

MAIN PROGRAM. SINCE THIS 

IS A COMMON 

STATEMENT WHICH 

APPEARS IN A SUBPROGRAM 

ENTER ANY 



AND 



4F12327 

4F12328 

4F12329 

4F123291 

4F123292 

4F123293 

4F123294 

4F123296 

4F123297 

4F123298 



Tl 



o 



n 



r> 



04530 





07400 


1 


032*2 


TSX 


TESTFX+1»1 


04531 





02000 





0*53* 


TRA 


C3101 


04532 





07400 


1 


03321 


TSX 


TETOO.l 


04533 





00000 





00006 


PZE 


6 


04534 


3 


00000 


* 


0*512 C3101 


TXH 


C3100»4»0 


04535 


1 


00000 





03**0 


TXI 


CA010»0 

END OF PROGRAM C3100. 
• *•**••**** 

C3200/ CALLS=C0190»TES 
C3200 PROCESSES RETURN 


04536 





07400 


* 


01707 C3200 


TSX 


C0190*4 


04537 





07400 


* 


03271 


TSX 


TESTDO** 


04540 





07400 


4 


02366 


TSX 


GETIFN** 


04541 





07400 


* 


02372 


TSX 


J1F.* 


04542 





50000 





01121 


CLA 


ARGCNT 


04543 





12000 





0*5*5 


TPL 


*+2 


04544 





07400 


* 


03*00 


TSX 


DIAG.4 


04545 





50000 





01332 


CLA 


FSNAME 


04546 





10000 





0*555 


TZE 


*+7 


0*547 





07400 


4 


01731 


TSX 


CI TOO** 


04550 





00000 





01105 


PZE 


1C 


04551 





ooooo 





015*1 


PZE 


L(CLA) 


04552 





00000 





01332 


PZE 


FSNAME 


04553 





ooooo 





01*06 


PZE 


L(0) 


04554 





60000 





01105 


STZ 


1C 


04555 





07400 


* 


01731 


TSX 


CI TOO** 


04556 





ooooo 





01105 


PZE 


1C 


©4557 





OOOOO 





01561 


PZE 


L(LXD) 


04560 





OOOOO 





01523 


PZE 


DOLSGN 


04561 





OOOOO 





01*07 


PZE 


L(l) 


04562 





07400 


* 


01731 


TSX 


CITOO** 


04563 





OOOOO 





01*06 


PZE 


L(0) 


04564 





ooooo 





01561 


PZE 


L(LXO) 


04565 





ooooo 





01523 


PZE 


DOLSGN 


04566 





ooooo 





01*56 


PZE 


ABTAG2 


04567 





07*00 


* 


01731 


TSX 


CITOO** 


04570 





ooooo 





01*06 


PZE 


L<0) 


04571 





ooooo 





01570 


PZE 


LtQXO) 


04572 





ooooo 





01523 


PZE 


DOLSGN 


04573 





ooooo 





01*60 


PZE 


A8TAG3 


0*574 





07*00 


* 


01731 


TSX 


CITOO** 


04575 





ooooo 





01367 


PZE 


SL 


04576 





ooooo 





01567 


PZE 


LJQPR) 


04577 





ooooo 





01*06 


PZE 


L(0> 


04600 





ooooo 





01121 


PZE 


ARGCNT 


04601 





07*00 


* 


01731 


TSX 


CITOO** 


04602 





ooooo 





01*06 


PZE 


L(0) 


04603 


,0 


ooooo 





01601 


PZE 


L(TRA» 


04604 





ooooo 





01367 


PZE 


SL 


04605 





ooooo 





01*06 


PZE 


LtO) 


04606 


1 


ooooo 





03**0 


TXI 


CA010.0 
END OF PROGRAM C3200. 



* FIXED POINT 
VARIABLES 

* IN 

FORVAL TABLE. 

IF CHARACTER WAS COMMA* REPEAT. 

* IF ENDMK* EXIT TO CAOOO. 



190»TEST..*GETIFN»DIAG*CIT00*JIFCGIF). 
STATEMENTS. 

* EXAMINE NEXT NON-BLANK CHARACTER* 

* WHICH SHOULD BE AN ENDMARK. 

* GET INTERNAL FORMULA NUMBER IN 1C» 

* SET SL TO ALPHA+1. 
TEST ARGCNT FOR PRECEEDING 
SUBROUTINE - IF NONE* THEN 

* ERROR - GO TO THE DIAGNOSTIC. 



60 MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 0(1 FN J 000 

W0RD2 — CLAOOO 

WORD3 — NAME OF FUNCTION 

WORD* — 000000 

CLEAR 1C. 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 0(IFN)000 

W0RD2— LXDOOO 

WORDS — * 

WORD* — 000001 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 000000 

W0R02 — LXDOOO 

WORD3—-S 

WORD* — 001002 

GO MAKE THE FOLLOWING CIT ENTRY= 

WORD1 — OOOOOO 

W0RD2 — QXDOOO 

WORDS— $ 

WORD* — 002000 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 0(IFN+i)000 

W0RD2— QPROOO 

WOR03 — OOOOOO 

W0RD4— -OiN+UOO* 

GO MAKE THE FOLLOWING CIT ENTRY= 

W0RD1 — OOOOOO 

W0RD2— TRAOOO 

W0RD3— 0(IFN+1»000 

WORD*—000000 

EXIT TO PROCESS NEXT STATEMENT. 



*F123299 

4F12330 

4F123301 

4F123302 

4F123303 

*F12331 

4F12332 

**F12333 
4F1233* 
*F12335 
*F12336 
*F12337 
*F12338 
4F12339 
*F123*0 
*F123*1 
*F123*2 
*F123*3 
4F1234* 
4F12345 
*F123*6 
*F123*7 
4F 12348 
4F12349 
4F12350 
4F12351 
*F12352 
*F12353 
*F1235* 
4F12355 
*F12356 
4F12357 
4F12358 
4F12359 
4F12360 
4F12361 
4F12362 
4F12363 
4F1236* 
4F12365 
*F12366 
*F12367 
*F12368 
*F12369 
*F12370 
*F12371 
*F12372 
*F12373 
*F1237* 
*F12375 
*F12376 
*F12377 
*F12378 

**F12379 



/ 



P 



V V 



C3300/ CALLS=C0390.C0190X»C0190*TEST.. »ARITH»SUBX00. 
C3300 PROCESSES CALL STATEMENTS. 



04607 





07400 


4 


01707 C3300 


TSX 


C0190.4 


04610 





07400 


4 


03311 


TSX 


TESTH0*4 


04611 





07400 


2 


01624 


TSX 


C0160*2 


04612 





07400 


4 


03263 


TSX 


TESTC0»4 


04613 





10000 





04632 


TZE 


C3301 


04614 





07400 


4 


01671 


TSX 


C0190X»4 


04615 





07400 


4 


01707 


TSX 


C0190.4 


04616 





56000 





01434 


LDQ 


L(Z) 


04617 





07400 


4 


01675 


TSX 


C0390»4 


04620 





56000 





01373 


LDQ 


L(10) 


04621 





07400 


4 


01675 


TSX 


C0390.4 


04622 





56000 





01400 


LDQ 


EQUAL 


04623 





07400 


4 


01675 


TSX 


C0390.4 


04624 





56000 





01430 


LDQ 


BLANK 


04625 





07400 


4 


01675 


TSX 


C0390*4 


04626 





50000 





00030 


CLA 


EIFNO 


04627 





77100 





00022 


ARS 


18 


04630 





62100 





01123 


STA 


CALLNM 


04631 


1 


00000 





02404 


TXI 


ARITHtO 


04632 





07400 


A 


03224 C3301 


TSX 


SU8X00*4 


04633 





50000 





01112 


CLA 


16 


04634 





60100 





01347 


STO 


G 


04635 





07400 


1 


03321 


TSX 


TETOO.l 


04636 





00000 





00011 


PZE 


9 


04637 





07400 


4 


02366 


TSX 


6ET1FN.4 


04640 





07400 


4 


01731 


TSX 


CITQ0.4 


04641 





00000 





01105 


PZE 


1C 


04642 





00000 





01575 


PZE 


L(SXO) 


04643 





00000 





01505 


PZE 


X( 


04644 





00000 





01412 


PZE 


L(4) 


04645 





07400 


4 


01731 


TSX 


CITOO** 


04646 





00000 





01406 


PZE 


L(0) 


04647 





00000 





01602 


PZE 


L(TSX) 


04650 





00000 





01112 


PZE 


1G 


04651 





00000 





01412 


PZE 


L(4) 


04652 





07400 


4 


03401 


TSX 


FLTR00»4 


04653 





ooooo 





©1406 


PZE 


H0) 


04654 





00000 





01561 


PZE 


L(LXD) 


04655 





ooooo 





01505 


PZE 


X< 


04656 





ooooo 





01412 


PZE 


L<4> 


04657 


1 


ooooo 





03440 


TXI 


CA010.0 
END OF PROGRAM C3300. 

C3400/ CALLS=C0190»DIA 
C3400 PROCESSES END ST 


04660 





53400 


2 


01413 C3400 


LXA 


L(5)*2 


04661 





07400 


4 


01707 C3405 


TSX 


C0190t4 


04662 





34000 





01410 


CAS 


L(2) 


04663 





07400 


4 


03400 


TSX 


DIAGt4 


-04664 


4 


OOOOO 





04666 


TXI 


C3410»0 



4F12380 
4F12381 
4F12382 
IF 1ST CHARACTER OF NAME IS 4F12383 
NUMERIC* THEN GO TO THE DIAGNOSTIC.4F12384 
COLLECT THE REST OF THE NAME* WHICH4F12385 
SHD BE FOLLOWED BY LPAREN OR ENDMK.4F12386 
IF LPAREN, THEN CHANGE CALL TO A 4F12387 
PSEUDO-ARITHMETIC FORMULA CZ10=>. 4F12388 
PICKUP THE CHARACTER Ci 



AND 

REPLACE 

AND 

REPLACE 

AND 

REPLACE 

AND 

REPLACE 

PUT 1ST 



C WITH Z. 
A WITH TEN. 
FIRST L WITH =. 



SECOND L WITH BLANK. 

IFN OF THIS CALL IN CALLNM 
FOR LATER TABLE ENTRY OF 
FIRST / LAST NUMBERS OF CALLS. 
THEN EXIT TO ARITH TO PROCESS. 
IF THERE ARE NO ARGUMENTS. THEN 



4F12389 
4F12390 
4F12391 
4F12392 
4F12393 
4F12394 
4F12395 
4F12396 
4F12397 
4F12398 
4F12399 
4F12400 
4F12401 
4F12402 



AFTER COMPLETING NAME WITH BLANKS. 4F12403 



MOVE IT INTO G» AND 

GO ENTER NAME 

IN CLOSUB TABLE* 

PUT INTERNAL FORMULA NUMBER IN 1C. 

GO MAKE THE FOLLOWING C1T ENTRY= 

W0RD1 — 0( IFN) 000 

W0RD2 — SXDOOO 

W0RD3— 700000 

W0RD4— 000004 

GO MAKE THE FOLLOWING CIT ENTRY= 

W0RD1 — 000000 

W0RD2— TSXOOO 

W0RD3 — <NAME) 

W0RD4 — 000004 

GO MAKE FLOW TRACING INSTRUCTIONS. 

WORD1 — OOOOOO 

W0RD2— -LXDOOO 

W0RD3 — 700000 

W0KD4 — 000004 

EXIT TO PROCESS 



NEXT STATEMENT. 



«»#»****#»»****«*** 



PREPARE TO SET 5 SS SIMULATORS. 

* PICKUP CONSTANT* 

WHICH SHOULD BE 0*1* OR 2. 

* OTHERWISE* GO TO THE DIAGNOSTIC. 
SIMULATOR IS PRESET TO 2. 



4F12404 
4F12405 
4F12406 
4F12407 
4F12408 
4F12409 
4F12410 
4F12411 
4F12412 
4F12413 
4F12414 
4F12415 
4F12416 
4F12417 
4F12418 
4F 12419 
4F12420 
4F12421 
4F12422 
4F12423 
4F12424 
*4F12425 
4F12426 
4F12427 
4F12428 
4F12429 
4F12430 
4F12431 
4F12432 
4F12433 



tt 



o 



o 



r*\ 



04665 
04666 





60100 2 


00036 


STO 


ENDI 1+5.2 


IF OR 1. SET PROPER SIMULATOR. 


*F12434 





07400 4 


01707 C3410 


TSX 


C0190*4 * 


SKIP NEXT NON-BLANK CHARACTER. AND 


4F12435 


04667 


2 


00001 2 


04661 


TIX 


C3405*2»l 


REPEAT PROCESS FOR 5 CONSTANTS. 


4F12436 


04670 





07400 4 


01707 


TSX 


C0190»4 * 


EXAMINE NEXT NON-BLANK CHARACTER. 


4F12437 


04671 





07400 4 


03271 


TSX 


TEST00»4 * 


WHICH SHOULD BE AN ENDMK. 


4F12438 


04672 


1 


00000 


03440 


TXI 


CA010»0 * 

END OF PROGRAM C3400. 
• •*••******** 


EXIT TO PROCESS NEXT STATEMENT. 
***************** 


4F12439 

4F12440 

♦4F12441 

4F12442 












STATEA/3-PR0CESS INPUT-OUTPUT STATEMENTS= 


4F 12443 
4F12444 












******* * * » * * * 


***************** 


♦4F12445 
4F12446 












ROC/ CALLS* INPUT tBEG*DI AG 


.ETMSW.LIB.CIT.JIF. 


4F 12447 












ROC PROCESSES READ STATEMENTS. 


4F12448 


04673 





50000 


01437 ROC 


CLA 


A81 


SET THE ADDRESS FIELD OF 


4F12449 


04674 





62100 


02067 


STA 


ENT 


ENT (NTROOO) TO 81. 


4F12450 


04675 





07400 2 


06002 


TSX 


INPUT. 2 * 


GO COMPILE CAL *♦ AND XIT (LEV). 


4F12451 


04676 





50000 


06127 


CLA 


CSH 

TSC= ENTRY POINT USED BY 


PICKUP (CSH) TO 
RIT. 


4F12452 
4F12453 


04677 





60100 


06143 TSC 


STO 


TSA 


SET TSA. 


4F12454 


04700 


-0 


50000 


06133 


CAL 


RTN 


MOVE (RTN) 


4F12455 


04701 





60200 


06141 


SLW 


END 


INTO END. 


4F12456 


04702 





50000 


06130 


CLA 


DBC 

TTC* ENTRY POINT USED BY 


PICKUP (DBC) TO 
RDP. 


4F12457 
4F12458 


04703 
04704 
04705 
04706 
04707 
04710 





60100 


06144 TTC 


STO 


TTA 


SET TTA. 


4F12459 


o 


07400 4 


05603 


TSX 


BEG*4 * 


CONVERT CONSTANT FORMAT NUMBER. 


4F12460 


o 


07400 4 


03400 


TSX 


DIA6»4 * 


ATTEMPT TO USE VARIABLE FORMAT NO. 


4F12461 


-0 


10000 4 


00004 


TNZ 


4*4 


GO TO THE DIAGNOSTIC. IF THERE WAS 


4F12462 


o 


07400 4 


03400 


TSX 


DIAG»4 * 


NO FORMAT NUMBER GIVEN. 


4F12463 





62100 


01366 


STA 


SET 


MOVE BINARY FORMAT NUMBER INTO SET 


•4F12464 


04711 


-0 


50000 


06114 


CAL 


NTR 


MOVE NTROOO 


4F12465 


04712 





60200 


07401 


SLW 


OP 


INTO OP. 


4F12466 


04713 





50000 


00415 


CLA 


TXLOP 


SET OP-SWITCHES. 


4F12467 


04714 


O 


63000 


057 54 


STP 


ETMSW 


ETMSW AND LTMSW. 


4F 12468 


04715 





63000 


05757 


STP 


LTMSW 


TO NO TRANSFER CASE. 


4F12469 


04716 





07400 4 


05754 


TSX 


ETMSW.4 * 


GO COMPILE ETM. 


4F12470 


04717 





07400 4 


06023 


TSX 


LIB. 4 * 


MAKE CLOSUB ENTRY. AND COMPILE" 


4F12471 


04720 





OOOOO 


01406 


PZE 


L(0) 


W0RD1 — 000000 


4F 12472 


04721 





OOOOO 


01537 


PZE 


CAL 


W0RD2 — CALOOO 


4F12473 


04722 





OOOOO 


06144 


PZE 


TTA 


WORD3 — (DBC) OR (BDC) 


4F12474 


04723 





OOOOO 


01406 


PZE 


L(0) 


W0RD4— 000000 


4F12475 


04724 
04725 





07400 4 


01731 


TSX 


CIT.4 * 


GO MAKE THE FOLLOWING CIT ENTRY* 


4F12476 





OOOOO 


01406 


PZE 


L(0) 


W0RD1 — 000000 


4F12477 


04726 





OOOOO 


06120 


PZE 


SLW 


W0RD2 — SLWOOO 


4F 12478 


04727 





ooooo 


01406 


PZE 


1.(0) 


W0RD3 — 000000 


4F12479 


04730 
04731 





ooooo 


01454 


PZE 


Dl 


WORD4 — 001000 


4F12480 





07400 4 


06023 


TSX 


LIB»4 * 


MAKE CLOSUB ENTRY. AND COMPILE* 


4F12481 


04732 





OOOOO 


01406 


PZE 


LIO) 


W0RD1 — 000000 


4F12482 


04733 





OOOOO 


01537 


PZE 


CAL 


W0RD2— CALOOO 


4F12483 


04734 





OOOOO 


06143 


PZE 


TSA 


WORD3 — (CSH) OR (TSH) 


4F12484 


04735 
04736 
04737 





OOOOO 


01406 


PZE 


LCO) 


W0RD4 — 000000 


4F12485 





07400 4 


01731 


TSX 


CIT.4 * 


GO MAKE THE FOLLOWING CIT ENTRY= 


4F12486 





OOOOO 


01371 


PZE 


TL 


W0RD1— 0(IFN)0(248) 


4F12487 



11 



0*7*0 





00000 





02067 


PZE 


0*741 





00000 





01366 


PZE 


0*7*2 





00000 





01*06 


PZE 


0*7*3 





07*00 


* 


02372 


TSX 



0*7** 1 00000 051*1 BXT 



TX1 



0*7*5 


07*00 2 06002 


RIT 


TSX INPUT. 2 


* 


0*7*6 


07*00 * 05603 




TSX BEG.* 


* 


0*7*7 


07*00 * 06036 




TSX VRO.* 


* 


0*750 


62100 02067 




STA ENT 




0*751 


50000 06137 




CLA TSH 




0*752 


1 00000 0*677 




TXI TSC.O 

END OF PROGRAM RIT. 


* 
* * 



ENT W0RD2 — NTR0C81. OR UNIT. OR 00) *F12*88 

SET W0RD3 — 800 (FORMAT NUMBER) *F12*89 

L(0> WORD* — OOOOOC *F 12*90 

JIF»* * GO JUMP IFN» AND SET SL AND TL. *F12*91 

BXT = EXIT SWITCH TO RSC OR LAST* USED BY WBT»RBT.WRD. *F12*92 
RSC.O * EXIT TO SCAN LIST. IF THERE IS 0NE.*F12493 

END OF PROGRAM RDC. *F12*9* 

***»*****»**»»**«*****»#****** *4F12*95 

*F12*96 
*F12*97 
*F12*98 
4F12*99 



RIT/ CALLS= INPUT .BEG »VRD« USES=RDC. 

RIT PROCESSES READ INPUT TAPE STATEMENTS. 



GO COMPILE CAL *» AND XIT (LEV). 

SCAN AND TEST TYPE OF UNIT SYMBOL. *F12500 

IF VARIABLE. ENTER FORVAR AND CITS.4F12501 

IF CONSTANT* SET ENT= NTRO(UNIT). *F12502 

PICKUP (TSH) TO SET TSA. AND 

CONTINUE BY USING PROGRAM RDC. 



0*753 


-0 75*00 00000 


RDP 


PXD .0 


0*75* 


62100 02067 




STA ENT 


0*755 


07*00 2 0600* 




TSX OUTPUT. 2 


0*756 


50000 06135 




CLA SPH 

TSD» ENTRY POINT USED B 


0*757 


60100 061*3 


Ten 

• WW 


STO TSA 


0*760 


-0 50000 06131 




CAL FIL 


0*761 


60200 061*1 




SLW END 


0*762 


50000 06126 




CLA BDC 


0*763 


1 00000 0*703 




TXI TTC.O 

END OF PROGRAM RDP. 



0*76* 





07*00 


2 0600* 


WOT 


TSX 


0*765 





07*00 


* 05603 




TSX 


0*766 





©7*00 


* 06036 




TSX 


0*767 





62100 


02067 




STA 


0*770 





50000 


06136 




CLA 


0*771 


1 


00000 


0*757 




TXI 



WOT/ CALLS*OUTPUT»BEG»VRD. USES=RDP. 

WOT PROCESSES WRITE OUTPUT TAPE STATEMENTS. 

OUTPUT. 2 

BEG** 

VRD+* 

ENT 

STH 

TSD.O 

END OF PROGRAM WOT. 
************ 



*F12503 
*F1250* 
*F12505 

**F12506 
*F12507 
*F12508 
*F12509 
*F12510 
*F12511 
*F12512 
*F12513 
*F1251* 
*F12515 
*F12516 
*F12517 
*F12518 
*F12519 
*F12520 

**F12521 
*F12522 
*F12523 
*F1252* 

* GO COMPILE CAL *» AND XIT (LEV). *F12525 

* SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12526 

* If VARIABLE* ENT€R FORVAR AND CITS.*fl252? 
IF CONSTANT. SET ENT* NTRO(UNIT). *F12528 
PICKUP (STH) TO SET TSA. AND 

* CONTINUE BY USING PROGRAM RDP. 



**••*•*******•*•• 

RDP/ CALLS=OUTPUT. USES=RDC. 
RDP PROCESSES PRINT STATEMENTS. 

RESET ENT 

TO NTROOO. 
* GO COMPILE CAL *. AND XIT (LEV). 

PICKUP (SPH). AND 



SET TSA. 
MOVE (FIL) 
INTO END. 

PICKUP (BDC) TO SET TTA. AND 
* CONTINUE BY USING PROGRAM RDC. 

****************** 



0*772 


-0 


75*00 





00000 


PDC 


PXD 


0*773 





62100 





02067 




STA 


0*77* 





07*00 


2 


0600* 




TSX 


0*775 





50000 





0613* 




CLA 


0*776 


1 


00000 





0*757 




TXI 



****************** 

PDC/ CALLS=0UTPUT. USES=RDP. 
PDC PROCESSES PUNCH STATEMENTS. 
.0 RESET ENT 

ENT TO NTROOO. 

OUTPUT. 2 * GO COMPILE CAL *. AND XIT (LEV). 

SCH PICKUP (SCH) TO SET TSA. AND 

TSD.O * CONTINUE BY USING PROGRAM RDP. 

END OF PROGRAM PDC. 



*F12529 
*F12530 
*F12531 
**F12532 
*F12533 
*F1253* 
*F12535 
*F12536 
*F12537 
*F12538 
*F12539 
*F125*0 
*F125*1 



tf 



U" 



n 






****** 



*********************** 



WBT/ CALLS=0UTPUT»8RW»CIT. 

WBT PROCESSES WRITE TAPE STATEMENTS. 



0*777 


-0 50000 





06124 WBT 


CAL 


WTB 




05000 


60200 





07401 


SLW 


OP 




05001 


07400 


2 


06004 


TSX 


OUTPUT »2 


* 


05002 


-0 50000 





01475 


CAL 


BTA 




05003 


07400 


4 


05646 


TSX 


BRW.4 


• 


05004 


07400 


4 


01731 


TSX 


CIT.4 


• 


05005 


00000 





01406 


PZE 


L(0) 




05006 


00000 





01544 


PZE 


CPY 




05007 


00000 





01504 


PZE 


ZER 




05010 


00000 





01457 


PZE 


02 




05011 


1 00000 





04744 


TXI 


BXT»0 

END OF PROGRAM WBT. 
************ 


* 
* 












RBT/ CALLS*INPUT.BRW»CIT. 












RBT PROCESSES READ TAPE 


S 


05012 


-0 50000 





06117 RBT 


CAL 


RTB 




05013 


60200 





07401 


SLW 


OP 




05014 


07400 


2 


06002 


TSX 


INPUT* 2 


* 


05015 


-0 50000 





01475 


CAL 


BTA 




05016 


07400 


4 


05646 


TSX 


BRW»4 


* 


05017 


07400 


4 


01731 


TSX 


CIT*4 


* 


05020 


00000 





01406 


PZE 


L(0) 




05021 


00000 





01544 


PZE 


CPY 




05022 


00000 





01500 


PZE 


OMP 




05023 


00000 





01406 


PZE 


L(0) 




05024 


07400 


4 


01731 


TSX 


CIT.4 


* 


05025 


00000 





01406 


PZE 


LIO) 




05026 


00000 





06125 


PZE 


XIT 




05O27 


e eooeo 


o 


GISIO 


PZE 


15P 




05030 


00000 





01461 


PZE 


D3CN 




05031 


07400 


4 


01731 


TSX 


CIT*4 


* 


05032 


ooooo 





01406 


PZE 


L(0) 




05033 


ooooo 





01554 


PZE 


HPR 




05034 


ooooo 





01406 


PZE 


L(0) 




05035 


ooooo 





01406 


PZE 


LIO) 




05036 


07400 


4 


01731 


TSX 


CIT.4 


• 


05037 


ooooo 





01406 


PZE 


LIO) 




05040 


o ooooo 





06125 


PZE 


XIT 




05041 


ooooo 





01371 


PZE 


TL 




05042 


ooooo 





01406 


PZE 


L(0> 




05043 


1 ooooo 





04744 


TXI 


BXT.O 

END OF PROGRAM RBT. 
************ 


* 
* 



MOVE WTBOOO 

INTO OP* 

GO COMPILE CAL *. AND XIT (LEV). 

PICKUP BINARY TAPE ADDRESS. AND 

COMPILE INSTRS TO SET UNIT DESIG. 

GO MAKE THE FOLLOWING CIT ENTRY= 

WORD1—0 OOOOO 

WOR02 — CPYOOO 

W0RD3 — 600000 

W0RD4 — 002000 

EXIT TO SCAN LIST. IF THERE 

***************** 



STATEMENTS. 



05044 07400 2 06004 WRD 

05045 -0 50000 06122 



MOVE RTBOOO 

INTO OP. 

GO COMPILE CAL *» AND XIT (LEV). 

PICKUP BINARY TAPE ADDRESS* AND 

COMPILE INSTRS TO SET UNIT DESIG. 

GO MAKE THE FOLLOWING CIT ENTRY= 

W0RD1 — 000000 

W0RD2 — CPYOOO 

W0RD3 — 100000 

W0RD4 — 000000 

GO MAKE THE FOLLOWING CIT ENTRY= 

WORD1 — 000000 

W0RD2 — XITOOO 

WORD3 — *OO0OO 

W0RD4 — 003000 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — OOOOOO 

W0RD2 — HPROOO 

W0RD3 — OOOOOO 

W0RD4 — OOOOOO 

GO MAKE THE FOLLOWING CIT ENTRY= 

W0RD1— OOOOOO 

W0RD2 — XITOOO 

W0RD3— O(IFN) 0(248) 

W0RD4 — OOOOOO 

EXIT TO SCAN LIST. IF THERE IS 0NE.4F12587 

4F12588 

***************** *4F12589 

4F12590 

WRD/ CALLS=OUTPUT»BRW»CIT. 4F12591 

WRD PROCESSES WRITE DRUM STATEMENTS. 4f 12592 

TSX OUTPUT. 2 * GO COMPILE CAL *. AND XIT (LEV). 4F12593 

CAL WDR PICKUP WDROOO. AND 4F12594 

XDR* ENTRY POINT USED BY RDD. 4F12595 



•4F12542 
4F12543 
4F12544 
4F12545 
4F12546 
4F12547 
4F12548 
4F12549 
4F12550 
4F12551 
4F12552 
4F12553 
4F12554 
4F12555 
IS 0NE.4F12556 
4F12557 

•4F12558 
4F12559 
4F12560 
4F12561 
4F12562 
4F12563 
4F12564 
4F12565 
4F12566 
4F12567 
4F12568 
4F12569 
4F12570 
4F12571 
4F12572 
4F12573 
4F12574 
4F 12575 
4F12576 
4F12577 
4F12578 
4F12579 
4F12580 
4F12581 
4F12582 
4F12583 
4F12584 
4F12585 
4F12586 



7'1 



vv 



05046 





60200 





07401 


05047 


-0 


50000 





01476 


05050 





07400 


4 


05646 


05051 


-0 


50000 





01566 


05052 





60200 





07401 


05053 


-0 


75400 





OOOOO 


05054 





07400 


4 


05646 


05055 





07400 


4 


01731 


05056 





ooooo 





01406 


05057 





00000 





01555 


05060 





OOOOO 





01371 


05061 





OOOOO 





01406 


05062 


1 


OOOOO 





04744 



XDR 



05063 07400 2 06002 RDD 

05064 -0 50000 06115 

05065 1 OOOOO 05046 



05066 -0 50000 06123 EFT 



05067 
05070 
05071 
05072 
05073 
05074 
05075 
05076 
05077 
05100 
05101 
05102 
05103 
0510* 
05105 
05106 



60200 
50000 
60200 
07400 
50000 
62100 
07400 
07400 
76700 
60100 
07400 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 



07401 TPO 

01475 

06140 

02375 

02377 

05102 

05603 

06032 

00022 

07402 
4 01731 
01367 TPOA 

07401 

01406 

07402 

05567 



05107 -0 50000 06116 RWN 
05110 1 OOOOO 05067 



SLW 
CAL 
TSX 
CAL 
SLW 
PXD 
TSX 
TSX 
P2E 
PZE 
PZE 
PZE 
TXI 



TSX 
CAL 
TXI 



CAL 

SLW 
CAL 
SLW 
TSX 
CLA 
STA 
TSX 
TSX 
ALS 
STO 
TSX 
PZE 
PZE 
PZE 
PZE 
TXI 



WEF 

TPO= ENTRY POINT USED BY 

OP 

BTA 

CON 

GIF.4 * 

L(SL> 

TPOA 

BEG. 4 * 

VRA*4 * 

18 

RA 

CIT.4 * 

SL 

OP 

L(0) 

RA 

FINI»0 * 

END OF PROGRAM EFT. 
• ••********* 



SET OP. 4F12596 

PICKUP BINARY DRUM ADDRESS* AND 4F12597 
COMPILE INSTRS TO SET UNIT DESIG. 4F12598 
MOVE PXDOOO 4F 12599 

INTO OP* 4F12600 

CLEAR THE AC* AND 4F12601 

COMPILE INSTRS TO SET DRUM LOC. 4F12602 
GO MAKE THE FOLLOWING CIT ENTRY= 4F12603 
W0RD1 — 000000 4F12604 

WORD2 — LDAOOO 4F12605 

W0RD3 — OU FN) 0(248) 4F12606 

W0RD4 — OOOOOO 4F12607 

EXIT TO SCAN LIST* IF THERE IS ONE.4F12608 

4F12609 
***************** *4F12610 

4F12611 
4F12612 
4F12613 
4F12614 
4F12615 
4F12616 
4F12617 
*4F12618 
4F12619 
4F12620 
4F12621 
4F12622 
4F 12623 
4F 12624 
4F12625 
4F 12626 
4F12627 
4F12628 
4F12629 



OP 
BDA 

BRW*4 • 

PXD 
OP 
»0 

BRW*4 * 

CIT»4 * 

L(0) 
LDA 
TL 

LCO) 

BXT.0 * 

END OF PROGRAM WRD. 



RDD/ CALLS*INPUT. USES=WRD. 

RDD PROCESSES READ DRUM STATEMENTS. 

INPUT»2 * GO COMPILE CAL *, AND XIT (LEV). 

RDR PICKUP RDROOO TO SET OP* AND 

XDR.O * CONTINUE BY USING PROGRAM WRD. 

END OF PROGRAM ROD. 
• -• ***************************i 

EFT/ CALLS=6IF*BEG»VRAX*CIT. 

EFT PROCESSES WRITE END OF FILE STATEMENTS. 



AND 



PICKUP WEFOOO* 
RWN* BSP. 
SET OP. 

MOVE BINARY TAPE ADDRESS 
INTO CON. 

GET IFN INTO SL AND TL. 
RESET TPOA ADDRESS 
TO SL. 

SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12630 
IF VARIABLE* ENTER FORVAR AND CITS.4F12631 



IF CONSTANT* ADJUST AND 

PLACE IN THE DECREMENT OF RA. 

GO MAKE THE FOLLOWING CIT ENTRY= 

MQRD1— OJIENIOOQ OR O^IFN)0(24S) 

WORD2 — (WEF»REW»OR BSP)000 

W0RD3 — OOOOOO 

W0RD4 — 0( CON) 000 OR OOOOOO 

GO RESET BXT» AND TEST FOR EFN. 



CAL 
TXI 



RWN/ USES=EFT. 

RWN PROCESSES REWIND TAPE STATEMENTS. 

REW PICKUP REWOOO TO SET OP. AND 

TPO*0 * CONTINUE BY USING PROGRAM EFT. 

END OF PROGRAM RWN. 
##«**#*#»»«***#*#*#•»*«*♦***** 



4F12632 
4F12633 
4F12634 
4F1263S 
4F12636 
4F12637 
4F12638 
4F12639 
4F 12640 

•4F12641 
4F 12642 
4F12643 
4F12644 
4F12645 
4F12646 
4F12647 

♦4F12648 
4F 12649 



%> 



u 



r^ 



r\ 



05111 -0 50000 06111 BSP 

05112 1 00000 05067 



05113 


-0 50000 





00030 


FOR 


CAL 


EIFNO 


05114 


62100 





01366 




STA 


SET 


05115 


-0 50000 





01366 




CAL 


SET 


05116 


60200 





01347 




slw 


G 


05117 


-0 53400 


1 


01724 




LXD 


CHCTR.l 


05120 


-0 53400 


2 


01614 




LXD 


FWA»2 


05121 


-3 00001 


1 


05137 




TXL 


NFFW.1.1 


05122 


1 77777 


1 


05123 




TXI 


*+l»l»-l 


05123 


56000 





01365 




LDQ 


RESIDU 


05124 


-0 50000 





01526 




CAL 


BLANKS 


05125 


-0 76300 





00006 


NFC 


LGL 


6 


05126 


2 00001 


1 


05125 




TIX 


NFC»1»1 


05127 


60200 





01350 


NFW 


SLW 


G+l 


05130 


07400 


1 


03321 




TSX 


TET00»1 


05131 


00000 





00012 




PZE 


10 


05132 


-0 50000 





01350 




CAL 


G+l 


05133 


-0 32000 





01374 




ANA 


ENDMK 


05134 


40200 





01374 




SUB 


ENDMK 


05135 


10000 





03440 




TZE 


CA010 


05136 


60000 





013*7 




STZ 


G 


05137 


-0 50000 


2 


00000 


NFFW 


CAL 


Ot2 


05140 


1 77777 


2 


05127 




TXI 


NFW»2»-1 
ENO OF PROGRAM FOR. 



05141 -0 50000 05361 RSC 

05142 62100 01372 

05143 60000 07400 

05144 60000 01351 

05145 -0 50000 05204 LSC 

05146 62100 05156 CXS 

05147 53*00 2 01414 NXS 

05150 -0 63400 2 05637 

05151 60000 07404 

05152 07400 4 01707 NXC 

05153 53400 * 02652 CLOAD 



BSP/ USE5=EFT. 

BSP PROCESSES BACKSPACE TAPE STATEMENTS. 
CAL BST PICKUP BSTOOO TO SET OP* AND 

TXI TPO.O * CONTINUE BY USING PROGRAM EFT. 

ENO OF PROGRAM BSP. 

♦ •♦♦•••a********************** 

FOR/ CALLS=TET00. 

FOR PROCESSES FORMAT STATEMENTS. 

MOVE EXTERNAL FORMULA NUMBER 

INTO THE ADDRESS OF SET* 

AND MOVE SET (8000<EFNJ) 

INTO G. 

SET XR1 = CHARACTER COUNT. 

SET XR2 » -{CURRENT F-WORD ADDR). 

UNLESS POSITIONED AT THE 

BEGINNING OF A FORMAT WORD* 

THEN PICKUP AND 

PRECEED WITH BLANKS ANY 

CHARACTERS 

REMAINING IN THE MQ. AND 

MOVE FORMAT WORDS INTO G+l. 

* GO ENTER THEN IN 
THE FORMAT TABLE. 
WHEN THE 

END OF STATEMENT MARK 
HAS BEEN ENTERED* 

* EXIT TO PROCESS NEXT STATEMENT. 
PRECEED ALL BUT 1ST ENTRY WITH 0. 
PICKUP NEXT FORMAT WORD* 
UPDATE SCAN INDEX* AND CONTINUE. 

RSC/ CALLS=C0 190*01 AG. 

RSC SCANS EACH CHARACTER IN A STATEMENT UNTIL EQUALITY IS 

FOUND ON ONE OF THE PUNCTUATION MARKS IN THE CTEST BLOCK IN 

COMMON. THEN A TAGGED EXIT IS MADE THROUGH THE BLOCK OF 

CONTROL TRANSFERS INDICATED BY THE ADDRESS STORED IN CEXIT. 

RSC » ENTRY POINT FROM THE BXT SWITCH IN RDC* AND FROM SPC. 
CAL FLINE RESET TEMPORARY 

STA TLINE TABLE LINE COUNTER. 

STZ DOLEV CLEAR DO LEVEL COUNTER. 

STZ GTAG CLEAR GENERALIZED TAG. 

LSC = ENTRY POINT FROM SPC. 
CAL LISTR SET CONTROL TRANSFER 

CXS « ENTRY POINT FROM EQS* BEG. 
STA CEXIT FOR LIST SCAN. 

NXS * ENTRY POINT FROM LPR* SPC* CMA. 
LXA L(6)*2 RESET SYMBOL CHARACTER COUNT 

SXD CSJ.2 AND SHIFT COUNT. 

STZ SYM CLEAR SYMBOL WORKING STORAGE. 

NXC * ENTRY POINT FROM CMA. 
TSX C0190.4 * OBTAIN NEXT NB CHARACTER IN THE AC 

LXA CTESTX.4 SET XR4 TO PICK CONTROL CHARACTERS 



4F12650 
4F12651 
4F12652 
4F12653 
4F 12654 

*4F12655 
4F12657 
4F12658 
4F12659 
4F12660 
4F12661 
4F12662 
4F12663 
4F12664 
4F12665 
4F12666 
4F12667 
4F12668 
4F12669 
4F12670 
4F12671 
4F12672 
4F12673 
4F12674 
4F 12675 
4F12676 
4F12677 
4F12678 
4F12679 
4F12680 
4F12681 

•4F12682 
4F12683 
4F12684 
4F 12685 
4F12686 
*F12687 
4F12688 
4F12689 
4F12690 
4F 12691 
4F12692 
4F12693 
4F 12694 
4F12695 
4F 12696 
4F12697 
4F12698 
4F12699 
4F12700 
4F12701 
4F12702 

•4F12703 

•4F12704 



V V 







D 



D 
D 



05154 
05155 
05156 
05157 
05160 
05161 
05162 
05163 
05164 
05165 
05166 
05167 
05170 
05171 



05172 
05173 
05174 
05175 
05176 
65177 
05200 
05201 
05202 
05203 
05204 



34000 
00000 
02000 
00001 
53400 
60100 
00001 
76700 
63400 
60200 
00006 
00044 
07400 
77777 



01406 
05160 
4 00000 
4 05154 
05637 
07316 
05167 
00044 
4 05637 
07404 
05152 
05171 
03400 
05164 



CCOMP CAS 
TXL 

CEXIT TRA 
TIX 
BUILD LXD 
STO 
TNX 
ALS 
CSZ SXD 
ORS 
TXI 

LCT TXL 
TSX 

LCS TXI 



CTEST.4 

BUILD. 

**»4 

CCOMP* 4.1 

CSJ»4 

CHR.4 

LCT.4tl 

36*2 

CSJ»4 

SYM 

NXC.2.6 

LCS*2.36 

DIAG»4 

CSZ»4*-1 

END OF PROGRAM 
******** 



RSC. 
• * 



COMPARE CHARACTER WITH CONSTANTS. 
IF EQUALITY IS FOUND ON SOME 

* CONTROL CHAR. EXIT TO TRA LIST. 
CONTINUE THROUGH PUNCTUATION. 
BUILD A 

SYMBOL 

COMPOSED OF 

SIX OR LESS CHARACTERS. 

SAVE SYMBOL CHARACTER COUNT. 

ALSO* SAVE EACH 

CHARACTER SEPARATELY. 

GO TO DIAGNOSTIC IF 

* MORE THAN 6 CHARACTERS IN SYMBOL. 
ADJUST COUNT* AND CONTINUE SCAN. 

a******************* 



LISTR/ CONTROL TRANSFERS FOR LIST SCAN= 



00000 
00000 
00000 
OOOOO 
00000 
00000 
07400 
00000 
00000 
00000 
00000 



05547 
05205 
05413 
05377 
05261 
05200 
03400 
05200 
05200 
05200 
05204 



TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TSX 
TXI 
TXI 
TXI 
LISTR PZE 



ILC 



EMK»0 

LPR»0 

CMA»0 

RPR»0 

EQS.O 

1LC»0 

DIAG»4 

ILC.O 

ILC»0 

ILC.O 

LISTR 

* * * 



********** 



ENDMARK 
I 

» 
) 

M 

- (ILLEGAL CHARACTER 
/ (ILLEGAL CHARACTER 

• (ILLEGAL CHARACTER 
+ (ILLEGAL CHARACTER 

* (ILLEGAL CHARACTER 
INDEXING ADDRESS FOR ABOVE LIST. 
***************** 



IN 
IN 
IN 
IN 
IN 



I/O LIST). 
I/O LIST). 
I/O LIST). 
I/O LIST). 
I/O LIST). 



05205 


-0 


50000 


07404 LPR 


CAL 


SYM 


05206 





10000 


05230 


TZE 


LPRD 


05207 





07400 4 


05624 


TSX 


TYP*4 


05210 





02000 4 


00003 


TRA 


3*4 


05211 


1 


OOOOO 


05416 


TXI 


ERRC.O 


05212 


^■0 


500(MX 03404 


CAL. 


SYM 


05213 





60200 


01130 


SLW 


E+2 


05214 





6020O 


07403 


SLW 


SA 


05215 





07400 4 


02614 


TSX 


SS000*4 


05216 





07400 4 


02437 


TSX 


RA000.4 


05217 





07400 4 


01707 


TSX 


C0190»4 


05220 





34000 


01377 


CAS 


CLOS 


05221 





02000 


05226 


TRA 


*+5 


05222 





02000 


05224 


TRA 


«+2 


05223 





02O00 


05226 


TRA 


*+3 


05224 





60000 


07400 


STZ 


DOLEV 


05225 





07400 4 


01707 


TSX 


C0190*4 


05226 





07400 4 


03247 


TSX 


TESTA0.4 


05227 


1 


OOOOO 


05421 


TXI 


CMA7»0 


05230 


-0 


50000 


07400 LPRO 


CAL 


DOLEV 



LPR/ CALLS»TYP»SSO0O»RAOQO»C019O*TEST*.»LTMSW.CIT*JIF»DIAG» 

BSS. USES-CMA.RSC. 

LPR ■ ENTRY POINT TAKEN WHEN LPAREN IS MET IN LIST SCAN. 

TEST FOR SUBSCRIPT OR DO NEST. 

IF SUBSCRIPT. THEN 

* IF VARIABLE SYMBOL CONTAINS LESS 
THAN 6 CHARACTERS* ADD A BLANK. 

* ON CONSTANT RETURN* GO TO DIAG. 
MOVE SYMBOL 
INTO E+2. AND 
COMPILE SYMBOLIC ADDRESS. 

* GO SCAN AND PROCESS SUBSCRIPT. 

* THEN GO COMPUTE RELATIVE ADDRESS. 

* EXAMINE NEXT NON-BLANK CHARACTER 



* FOR EITHER COMMA OR ENDMARK. 

* AND CONTINUE BY USING PROGRAM CMA. 
IF THE BEGINNING OF A DO NEST* 



4F12705 
4F12706 
4F12707 
4F12708 
4F12709 
4F 12710 
4F12711 
4F12712 
4F12713 
4F12714 
4F12715 
4F12716 
4F12717 
4F12718 
4F12719 
♦4F12720 
4F12721 
4F12T22 
4F12723 
4F12724 
4F12725 
4F12726 
4F12727 
4F 12728 
4F12729 
4F12730 
4F12731 
4F12732 
4F12733 
*4F12734 
4F12735 
4F12736 
4F12737 
4F12738 
4F12739 
4F12740 
4F12741 
4F12742 
4F12743 
4F12744 
4F12745 
4F 12746 
4F12747 
4F12748 
4F12749 
4F12750 
4F12751 
4F12752 
4F12753 
4F12754 
4F12755 
4F12756 
4F12757 
4F12758 



y 



o 



o 



05231 

05232 

05233 -3 

05234 

05235 1 

05236 -0 

05237 

05240 

05241 

05242 -O 

05243 1 

05244 -0 

05245 

05246 -0 

05247 
05250 
05251 
05252 
05253 
05254 
05255 

05256 -0 

05257 -3 
05260 



05261 
05262 
05263 
05264 
05265 
05266 
05267 
05270 
05271 
05272 
05273 
05274 
05275 
05276 
05277 
05300 
05301 
05302 
05303 
05304 



10000 
53400 
00000 
07400 
00000 
50000 
10000 
07400 
07400 
53400 
00001 
75400 
60200 
50000 
62100 
60100 
40000 
62100 
50200 
60100 
07400 
53400 
00003 
07400 



53400 
00000 
07400 
50000 
62100 
62100 
40000 
62100 
40000 
62100 
53400 
63400 
50000 
00044 
50000 
76700 
50100 
60200 
50000 
00 000 



LPRE 



05242 

07400 

05236 

05757 

05241 

01367 

05241 

05674 

02372 LPR4 

07400 LPR3 

05244 

00000 LPR1 

07400 

01372 

05254 

07400 

01413 

01372 

01371 

00000 LPR2 

02372 

07400 

05147 

03400 



07400 EQS 

05264 

03400 

07400 

05331 

05345 

01407 

05302 

01412 

05333 

01411 

05304 

07404 

05302 

01430 

00044 

07404 

00000 

05317 

05146 NSJ 



EQS2 



EQS1 



TZE LPR3 
LXA DOLEV* 4 
TXL LPRE»4»0 
TSX LTMSW*4 
TXl LPR4»0 
CAL SL 
TZE »+2 
TSX BSS*2 
TSX JIF»4 
LXD D0LEV»4 
TXI LPR1»4*1 
PXD *4 
SLW DOLEV 
CAL TLINE 
STA LPR2 
STO D0LEV#4 
ADO L(5) 
STA TLINE 
CLS TL 
STO ** 
TSX JIF»4 
LXO D0LEV»4 
TXL NXS»4*3 
TSX DIAG»4 

END OF PROGRAM LPR. 



AND DOLEV IS NOT 2ER0» THEN 
TEST FOR NULL FORMULA. 
IF NULL* 00 ESTABLISH POSITION* 
« OTHERWISE* COMPILE LTM* AND 
AND GO JUMP IFN* 
IF C(SL) DO NOT * 0* 
THEN 

* 60 COMPILE* IFN BSS 0. 

* GO JUMP IFN* AND SET SL AND TL* 
INCREASE THE C (DOLEV Di 

BY 1* AND 

SET THE C( DOLEV A) 

TO ZERO* 

NOTE AT 

THIS LEVEL 

THE LOCATION IN TLDO 

OF THIS DO FORMULA 

AND INCREASE LINE IN TLINE* 

MOVE -(©(IFN)©<248)) INTO THE 

LOCATION WORD OF CURRENT TEMP DO* 

* 60 JUMP IFN* AND SET SL AND TL* 
IF 3 OR FEWER LEVELS IN LIST DO* 

* RETURN TO LIST SCAN* 

* OTHERWISE. GO TO DIAGNOSTIC* 

*♦*»****»*«»»**»**# 



EQS/ CALLS=DIAG. USES=RSC. 

EOS - ENTRY POINT WHEN EQUAL SIGN 



IS MET IN LIST CAN. 



LXD D0LEV.4 
TXH EQS2»4*0 
TSX DIAG.4 
CAL D0LEV.4 
STA SPC2 
STA SPC5 
ADD L(l) 
STA EQS1 
ADD L(4) 
STA SPC3 
LXA L(3I»4 
SXD NSJ»4 
CAL SYM 
TXH EQS1»2»36 
CAL BLANK 
ALS 36*2 
ORA SYM 
SLW ** 
CAL SPCTR 
TXI CXS»0»** 

END OF PROGRAM EQS* 
********** 



TEST THE LEGALITY OF EQUAL SIGN* 

AND 60 TO DIA6 ON THE ATTEMPT TO 

SPECIFY SUBSCRIPT RANGE WITHOUT ( 

INITIALIZE SPECIFICATION 

OF GENERATED DO FORMULA 

AT CURRENT LEVEL. 

PREPARE TO ENTER FORMULA NUMBERS 

IN LOCATION WORD*SUBSCRIPT IN 

SYMBOL WORD* AND SUBSCRIPT SPECS 

IN TEMPDO ENTRY* 

PREPARE TO COUNT THE 

NUMBER OF SPECIFICATIONS. 

OBTAIN SUBSCRIPT 

FOR THIS DO* AND 

STORE IN PROPER 

LINE OF TEMPORARY 

LIST DO TABLE. 

(SUBSCRIPT SYMBOL WORD) 

SET CONTROL LOOP FOR 

EXIT TO SPECIFICATION. 



**»###*■## 



»****#*#*# 



05305 07400 4 03400 



SPCTR/ CONTROL TRANSFERS FOR SPECIFICATION SCAN= 
TSX DIAG.4 * E (ILLEGAL IN CONTROL FOR LIST DO! 



4F12759 
4F12760 
4F12761 
4F12762 
4F12763 
4F12764 
4F12765 
4F12766 
4F12767 
4F12768 
4F12769 
4F12770 
4F12771 
4F12772 
4F12773 
4F12774 
4F12775 
4F12776 
4F12777 
4F12778 
4F12779 
4F12780 
4F12781 
4F12782 
4F12783 

•4F127S4 
4F12785 
4F12786 
4F12787 
4F12788 
4F12789 
4F12790 
4F12791 
4F 12792 
4F12793 
4F12794 
4F12795 
4F12796 
4F12797 
4F12798 
4F12799 
4F12800 
4F12801 
4F12802 
4F12803 
4F12804 
4F12805 
4F12806 
4F12807 
4F12808 

♦4F12809 
4F12810 
4F12811 

•4F12812 



Z3 





05306 





07400 


4 


03400 





05307 


1 


00000 





05322 





05310 


1 


00000 





05320 


D 


05311 


1 


00000 





05306 


D 


05312 


1 


00000 





05306 


D 


05313 


1 


ooooo 





05306 





05314 


1 


00000 





05306 





05315 


1 


ooooo 





05306 


D 


05316 


1 


ooooo 





05306 




05317 





ooooo 





05317 



D 









ICC TSX DIAG.4 

TXI SPC.O 

TXI SPCX#0 

TXI ICC.O 

TXI ICC»0 

TXI ICC»0 

TXI ICC.O 

TXI ICC»0 

TXI ICC»0 

SPCTR PZE SPCTR 

****** 



* < (ILLEGAL IN CONTROL FOR LIST DO) 



(ILLEGAL IN CONTROL FOR LIST DO J 

(ILLEGAL IN CONTROL FOR LIST DO! 

(ILLEGAL IN CONTROL FOR LIST DOI 

(ILLEGAL IN CONTROL FOR LIST DO) 

(ILLEGAL IN CONTROL FOR LIST DO) 



(ILLEGAL IN CONTROL FOR LIST DO) 
INDEXING ADDRESS FOR ABOVE LIST. 
*********************** 



05320 
05321 

05322 
05323 
05324 
05325 
05326 
05327 
05330 
05331 
05332 
05333 
05334 
05335 
05336 
05337 
05340 
05341 
05342 
05343 
05344 

05345 
05346 
©5347 
05350 
05351 
05352 
05353 
05354 
05355 
05356 
05357 
05360 
05361 
05362 
05363 
05364 
05365 



-0 50000 05336 
60100 05336 



07400 

OOOOO 

53400 

OOOOO 

53400 

50000 

77100 

60200 

50000 

60200 

00001 4 

63400 4 

OOOOO 

50000 

OOOOO 

S0200 

60100 

50000 

77100 



62100 

53400 

OOOOO 

07400 

07400 

53400 

77777 

75400 4 

60200 

OOOOO 4 

50000 

62100 

73400 

70373 

53400 

50000 

60100 



05624 
05326 
05304 
05333 
05304 
01453 
00003 
OOOOO 
07404 
OOOOO 
05341 
05304 
05147 
01407 
05333 
05336 
05336 
00030 
00022 

OOOOO 
07400 
05352 
05757 
02372 
07400 
05354 
OOOOO 
07400 
05145 
01372 
05364 
07405 
05363 
01413 
OOOOO 
01112 



SPCX 
SPC 

SPCS 

SPC2 
SPC3 

SPC1 

SPC4 

SPC5 

SPCR 
SPC6 

FLINE 

SPC9 
SPC 7 



SPC/ CALLS*TYP.LTMSW»JIF»TETOO. USES=RSC. 

SPCX = ENTRY POINT WHEN RPAREN IS MET IN SPECIFICATION SCAN. 
CAL SPC1 PREPARE FOR END OF SPECIFICATION. 

STO SPC1 SET SPC1 OP-SWITCH TO NOP CASE. 

SPC » ENTRY POINT WHEN COMMA IS MET IN SPECIFICATION SCAN. 
TSX TYP.4 * 60 TEST TYPE OF SUBSCRIPT SPEC. 



TXI SPCStO 
LXD NSJ»4 
TXI SPC3.0 
LXD NSJ.4 
CAL TAG4 
ARS 3.4 
ORS ** 
CAL SYM 
SLW **»4 
TNX SPC4.4.1 
SXD NSJ.4 
TXL NXS.O 
CAL L(l) 
TXI SPC3.0 
CLS SPC1 
STO SPC1 
CAL EIFNO 
ARS 18 

SPCS 
STA ** 
LXA DOLE V* 4 
TXL 5PCR.4.0 
TSX LTMSW.4 
TSX JIF.4 
LXD D0LEV.4 
TXI SPC6»4»-1 
PXD »4 
SLW DOLEV 
TXH LSC.4.0 
CLA TLINE 
STA SPC7 
PAX TLD0S.2 
TXI *+l»2»-TLD0S 
LXA L(5)»4 
CLA **»2 
STO lC+5»4 



IF FIXED POINT CONSTANT* 

SET C(XR4) * SPECIFICATION COUNT. 

AND GO ENTER CONSTANT IN TABLE. 

OTHERWISE. SET SPEC COUNT AND 

IF VARIABLE. NOTE BY 

PLACIN6 BIT IN TAG FIELD 

OF TABLE ENTRY. 

PICKUP VARIABLE SYMBOL AND 

ENTER N SUB J IN TABLE. 

REDUCE J. 

SAVE SPEC COUNT. AND 

* EXIT TO SCAN. IF SWITCH IS TXL. 
SET N SUB 3 » 1 IF NOT 
OTHERWISE SPECIFIED. 
RESTORE SPC1 EXIT. 
(3 SPECS HAVE BEEN TREATED) 
ALSO RESTORE INTERNAL FORMULA NO. 
(PUT BETA IN TEMPDO TABLE) 

ENTRY POINT USED BY RPR. 

SET BETA EQUAL TO IFNO. 

EXAMINE DOLEV ADDRESS FOR ZERO TO 

TEST NEED FOR LTtt* JIF AFTER )• 

* GO COMPILE LTM. 

* GO JUMP IFN. AND SET SL AND TL» 
DECREASE DOLEV D 

BY 1. AND INDICATE A TREATED LEVEL 
IF NOT ZERO. 
THEN ALL LEVELS ARE NOT TREATED. 

* RETURN TO SCAN NEXT LEVEL. 
IF LEVEL IS ZERO 
ENTER GENERATED 
DO FORMULAS IN TDO BY 
SUBROUTINE TET. 
(MOVE EACH 
TEMPDO TABLE ENTRY 
INTO 1C...1C+4. 



•4F12813 
4F12814 
4F12815 
♦4F12816 
.4F12817 
•4F12818 
•4F12819 
.4F12820 
.4F12821 
4F12822 
*4F12823 
4F 12824 
4F12825 
4F12826 
4F12827 
4F12828 
4F12829 
4F12830 
4F12831 
4F12832 
4F12833 
4F12834 
4F12835 
4F12836 
4F12837 
4F12838 
4F12839 
4F12840 
4F12841 
4F12842 
4F12843 
4F 12844 
4F12845 
4F 12846 
4F12847 
4F12848 
4F12849 
4F12850 
4F12851 
4F12852 
4F12853 
4F12854 
4F12855 
•4F12856 
4F12857 
4F12858 
4F12859 
4F12860 
4F12861 
4F12862 
4F12863 
4F12864 
4F12865 
4F12866 



'1 



o 



n 



O 



05366 


-2 


00001 


2 


05370 




05367 


2 


00001 


4 


05364 




85370 





53400 


4 


01105 


SPC8 


65371 


-3 


00000 


4 


05374 




05372 





07400 


1 


03321 




05373 





00000 





00001 




05374 


3 


00001 


2 


05363 


SPCT 


05375 





07400 


4 


02372 




05376 


1 


00000 





05141 


RESET 



05377 
05400 
05401 
05402 
05403 
05404 
05405 
05406 

05407 
05410 
05411 
05412 



53400 
00000 
07400 
50000 
62100 
50000 
62100 
00006 



07400 RPR 

05402 

03400 

07400 RPS 

05345 

05411 

05546 

05414 



50000 05336 RPT 

62100 05546 

-0 75400 05407 RPA 

1 00000 05345 



05414 
05415 
05416 
05417 
05420 

05421 
05422 
05423 
05424 
05425 
05426 
05427 
05430 
05431 
05432 
05433 
05434 
05435 



07400 
02000 
07400 
50000 
60200 



53400 
3 O0000 
07400 

-0 50000 
40000 
60100 
50000 
60100 
10000 
50000 

-0 10000 

62100 

1 00000 



05624 CMA1 
00003 

03400 ERRC 
07404 
07403 CMA4 

07400 CMA7 

05424 

05754 

07400 CMA6 

01407 

07400 

01351 

07402 

05436 

01147 

05537 

07402 

05537 



TNX SPC8*2»1 
TIX SPC7»4»1 
LXA 1C*4 
TXL SPCT»4»0 
TSX TETOO.l 
PZE 1 

TXH SPC9.2*1 
TSX J1F»4 
TX1 RSC»0 

END OF PROGRAM SPC. 
********** 



AND THEN 

WHEN DONE* 

TEST TO SHIP 

NULL DO* 

60 MAKE AN ENTRY 

IN TOO TABLE.! AND WHEN THE WHOLE 

DO NEST HAS BEEN ENTERED* 

GO JUMP IFN* AND SET SL AND TL. 

THEN EXIT TO CONTINUE LIST SCAN. 



******************** 



LXD 
TXH 
TSX 
CAL 
STA 
CLA 
STA 
TXH 

CLA 
STA 
PXD 
TXI 



RPR/ CALLS=DIAG. USES=CMA»SPC. 

RPR ■ ENTRY POINT WHEN RPAREN IS MET IN LIST SCAN. 

D0LEV.4 TEST LEGALITY OF )* 

RPS.4.0 IF THERE ARE TOO MANY ) IN LIST* 

DIAG*4 * 60 TO THE DIAGNOSTIC. 

D0LEV*4 NULLIFY DO AT CURRENT LEVEL. 

SPC5 SET SPC5 ADDRESS* 

RPA SET CMA3 SWITCH TO RETURN TO 

CMA3 RPT. AND IF ANY CHARACTERS 

CMA1.2»6 * WERE COLLECTED* EXIT TO CMA. 

RPT » REENTRY POINT USED BY CMA. 



SPC1 
CMA3 
RPT.O 
SPC5*0 

END OF PROGRAM RPR. 
• **•**•••• 



RESET CMA3 SWITCH 
TO NXS* 

CLEAR THE AC* AND 
* CONTINUE BY USING PROGRAM SPC. 

*#»***************** 



05413-3 00006 2 05152 CMA TXL 



TSX 
TRA 
TSX 

CAL 
SLW 

LXA 
TXH 
TSX 
CAL 
ADD 
STO 
CLA 
STO 
TZE 
CLA 
TN2 
STA 
TXI 



CMA/ CALLS=TYP»DIAG»ETMSW*DIM.SR»IFFIX»TETOO*DRTABS*JIF*CIT» 

LTMSW. USES=RSC. 

CMA « ENTRY POINT WHEN COMMA IS MET IN LIST SCAN. 

NXC»2*6 * IF NOTHING COLLECTED* RETURN -SCAN 

CMA1 = ENTRY POINT USED BY EMK. 



TYP»4 

3*4 

DIAG*4 

SYM 

SA 



TYPE TEST FOR NON-SUBSCR. VAR. 
ILLEGAL USE OF CONSTANT IN LIST* 
60 TO THE DIAGNOSTIC. 
MOVE VARIABLE SYMBOL 
INTO SA. AND 



CMA7 ■ ENTRY POINT USED BY LPR. 



D0LEV*4 

CMA6»4»0 

ETMSW*4 

DOLEV 

L(l) 

DOLEV 

GTAG 

RA 

DIMSR 

EPS 

CMA5 

RA 

CMA5»0 



IF DOLEV ADDRESS » 0* AND IF 

ETMSW IS SET TO TXH (NOP CASE I* 

GO COMPILE ETM* AND CLEAR SL. 

IN ANY CASE* 

UPDATE DOLEV ADDRESS 

BY 1* AND THEN 

SET GENERALIZED TAG* 

(RELATIVE ADDRESS) 

IF THIS VARIABLE HAS A SUBSCRIPT. 

AND IF SUBSCRIPT 

IS A CONSTANT* 

THEN CLEAR THE ADDRESS OF RA. 

THEN GO MAKE CIT ENTRY. 



4F12867 
4F12868 
4F12669 
4F12870 
4F12871 
4F12872 
4F12873 
4F 12874 
4F12875 
4F12876 

♦4F12877 
4F12878 
4F12879 
4F12880 
4F12881 
4F12882 
4F12883 
4F12884 
4F12S85 
4F12886 
4F12887 
4F12888 
4F12889 
4F12890 
4F12891 
4F 12892 
4F12893 
4F12894 

•4F12895 
4F 12896 
4F12897 
4F 12898 
4F12899 

•4F12900 
4F 12901 
4F12902 
4F12903 
4F 12904 
4F12905 
4F12906 
4F12907 
4F12908 
4F12909 
4F12910 
4F12911 
4F12912 
4F12913 
4F12914 
4F12915 
4FI2916 
4F12917 
4F12918 
4F12919 
4F12920 



/ 



vv 





05436 


-0 


50000 





07403 


DIMSR 


CAL 


SA 




05*37 





60200 





01130 




SLW 


E+2 




05440 





07400 


4 


01771 


RD1 


TSX 


DIM1SR*4 





05441 


1 


00000 





05444 




TXI 


RD2»0 




05442 





50000 





01101 


CS1 


CLA 


012 





05443 


1 


00000 





05467 




TXI 


DVS»0 




05444 





07400 


4 


01775 


RD2 


TSX 


DIM2SR»4 


D 


05445 


1 


00000 





05455 




TXI 


R03.0 




05446 





56000 





01101 


CS2 


LDQ 


012 




05447 





60000 





01361 




STZ 


N2 




05450 


-0 


62000 





01361 




SLQ 


N2 




05451 


-0 


76300 





00022 




L6L 


18 




05452 





20000 





01361 




MPY 


N2 




05453 





77100 





00001 




ARS 


1 


D 


05454 


1 


00000 





05467 




TXI 


DVS*0 




05455 





07400 


4 


02005 


RD3 


TSX 


DIM3SR*4 


D 


05456 


1 


00000 





05533 




TXI 


NODIM.O 




05457 





56000 





01101 


CS3 


LDQ 


012 




05460 





60000 





01361 




STZ 


N2 




05461 


-0 


62000 





01361 




SLQ 


N2 




05462 


-0 


76300 





00022 




LGL 


18 




05463 





20000 





01361 




MPY 


N2 




05464 





76500 





00022 




LRS 


18 




05465 





20000 





01102 




MPY 


03 




05466 





76300 





00021 




LLS 


17 




05467 





40200 





01407 


DVS 


SUB 


L(l) 




05470 





10000 





05533 




TZE 


NODIM 




05471 





76700 





00022 




ALS 


18 




05472 





60100 





01347 




STO 


G 




05473 





07400 


4 


00417 




TSX 


FXCNIX*4 




05474 





76700 





00022 




ALS 


18 




05475 





62200 





01364 




STD 


RAT 




05476 





07400 


4 


02372 




TSX 


JIF.4 




05477 





07400 


4 


01731 




TSX 


CIT.4 




05S00 





00000 





01367 




PZE 


SL 




05501 





00000 





01561 




PZE 


LXO 




05502 





00000 





01501 




PZE 


2P 




05503 





00000 





01364 




PZE 


RAT 




05504 





07400 


4 


02372 




TSX 


JIFt4 




©5505 





07400 


4 


05754 




TSX 


ETM5W.4 




05506 





07400 


4 


01731 




TSX 


CITt4 




05507 





00000 





01367 




PZE 


SL 




05510 





ooooo 





07401 




PZE 


OP 




05511 





ooooo 





07403 




PZE 


SA 




05512 





00000 





01416 




PZE 


ST 




05513 





60000 





01367 




STZ 


SL 




05514 





07400 


4 


05757 




TSX 


LTMSW.4 




05515 





07400 


4 


02375 




TSX 


GIF. 4 




05516 





07400 


4 


01731 




TSX 


CIT.4 




05517 





OOOOO 





01406 




PZE 


LIO) 




05520 





OOOOO 





01576 




PZE 


TIX 




05521 





OOOOO 





01367 




PZE 


SL 




05522 





OOOOO 





01416 




PZE 


ST 




05523 





60000 





01367 




STZ 


SL 



IF THIS VARIABLE 4F12921 

DOES NOT HAVE A SUBSCRIPT. THEN 4F12922 

GO SEARCH OIMI TABLE. 4F12923 

IF FOUND* THEN 4F12924 

PICKUP DIMENSION 1 4F12925 

AND GO TEST SIZE. OTHERWISE* 4F12926 

GO SEARCH DIM2 TABLE. 4F12927 

AND IF FOUND* 4F12928 

PICKUP 4F12929 

DIMENSION 1 AND 4F12930 

DIMENSION 2 4F12931 

AND MULTIPLY 4F12932 

THEM TOGETHER. 4F12933 

THEN 4F12934 

GO TEST THE PRODUCT. OTHERWISE* 4F12935 

GO SEARCH DIM3 TABLE. 4F12936 

AND IF FOUND* 4F12937 

PICKUP 4F12938 

DIMENSION 1» 4F12939 

DIMENSION 2* 4F12940 

AND DIMENSION 3. 4F12941 

MULTIPLY 1 4F12942 

THEM TOGETHER* 4F12943 

AND IF 4F12944 

THEIR 4F12945 

PRODUCT IS 4F12946 

GREATER THAN 1» THEN 4F12947 

PLACE DIMENSION-! IN THE 4F12948 

DECREMENT OF Si AND 4F 12949 

GO ENTER IN FIXCON* AND GET TAG. 4F12950 

ADJUST* AND STORE TAG IN THE 4F12951 

DECREMENT OF RAT. THEN 4F12952 

GO JUMP IFN* AND SET SL AND TL. 4F12953 

60 MAKE THE FOLLOWING CIT ENTRY= 4F12954 

WORD1 — 0( IFN 1000 4F12955 

W0RD2— LXDOOO 4F12956 

W0RD3 — 200000 4F12957 

W0RD4 — 0JFIXCON TAG)008 4F12958 

GO JUMP IFN. AND SET SL AND TL. 4F12959 

IF ETMSW « NOP* COMPILE ETM* SL=0. 4FI2960 

GO MAKE THE FOLLOW IN6 CIT ENTRY= 4F12961 

W0RD1 — 0( IFN) 000 OR 000000 4F12962 

W0RD2— (OPERATION CODE) 4F12963 

W0R03— (SYMBOLIC ADDRESS) 4F12964 

W0RD4 — 000008 4F12965 

CLEAR SL» AND 4F 12966 

IF LTMSW = NOP. COMPILE LTM. SL=0. 4F12967 

GET IFN IN SL AND TL. 4F12968 

60 MAKE THE FOLLOWING CIT ENTRY= 4F 12969 

W0RD1 — OOOOOO 4F12970 

W0RD2-— TIX001 4F12971 

W0RD3— OCIFNJOOO 4F12972 

W0RD4 — 000008 4F12973 

CLEAR SL* AND 4F12974 



& 



o 



n 



n 



D 
D 



05524 
05525 
05526 
05527 
05530 
05531 
05532 
05533 
05534 
05535 
05536 
05537 
05540 
05541 
05542 
05543 
05544 
05545 
05546 



07400 
07400 
00000 
00000 
00000 
00000 
00000 
07400 
00000 
07400 
00000 
07400 
00000 
00000 
00000 
00000 
60000 
60000 
00000 



05754 
01731 
01406 
01546 
01406 
01416 
05537 
05773 
05537 
03321 
00000 
01731 
01367 
07401 
07403 
07402 
01367 
01351 
05147 



TSX 
TSX 
PZE 
PZE 
PZE 
PZE 
TXI 
N0D1M TSX 
TXI 
TSX 
INOUT PZE 

CMA5 TSX 
PZE 
PZE 
PZE 
PZE 
STZ 
STZ 

CHA3 TXI 



05547 


3 


00006 


2 


05414 


05550 


-0 


53400 


4 


07400 


©5551 


-3 


00000 


4 


05553 


05552 





07400 


4 


03400 


05553 





07400 


4 


05757 


05554 





07400 


U 


02372 


05555 





07400 


4 


01731 


05556 





00000 





01367 


05557 





00000 





01537 


05560 





00000 





01510 


05561 





00000 





01406 


05562 





07400 


4 


06023 


05563 





00000 





01406 


05564 





00000 





06125 


05565 





00000 





06141 


05566 





00000 





01406 


05567 





50000 





05376 


05570 





62100 





04744 


05571 





50000 





01151 


05572 





40200 





01477 


05573 





10000 





03*40 


05574 


-0 


50000 





01520 


05575 


-0 


60200 





00030 


05576 





07400 


1 


03321 


05577 





00000 





00000 


05600 


-0 


50000 





00030 


05601 





60100 





00030 


05602 


1 


00000 





03440 



EMK 



FIN 



LAST 



FINI 



ETMSW.4 

CIT*4 

UO) 

OEO 

LCOJ 

ST 

CMA5»0 

IFFIX.l 

CMA5.0 

TETOOtl 

** 

CIT.4 

SL 

OP 

SA 

RA 

SL 

6TAG 

NXS*0 

END OF 
* * * * 



* IF ETMSW - NOP* COMPILE ETM» SL=0. 

* GO MAKE THE FOLLOWING CIT ENTRY= 
W0RD1 — 000000 

W0RD2 — DEOOOO 
WORM— 000000 
W0RD4 — 000008 
IF THE PRODUCT 



OF DIMENSIONS IS 



4F12975 
4F12976 
4F12977 
4F12978 
4F12979 
4F12980 
4F12981 



* LESS THAN 2, TEST TYPE OF VARIABLE *4F12982 



PROGRAM 
* » * * 



CMA, 

* * 



AND IF FIXED POINT* 

* GO ENTER VARIABLE IN 

EITHER FORVAL OR FORVAR TABLE. 

* GO MAKE THE FOLLOWING CIT ENTRY= 
W0RD1 — OtIFNJOOO OR 000000 
W0RD2 — NTROOO OR CPYOOO 

W0RD3 — (SYMBOL) 

W0RD4 — I RELATIVE ADDRESS) 

CLEAR SL» AND 

CLEAR GTAG« THEN TAKE EXIT 

* SW ITCH TO RPT OR NXS. 

ft******************* 



EMK/ CALLS=DIA6»LTMSW,JIF»CIT»LIB»TET00. USES=CMA. 



TXH 
LXD 
TXL 
TSX 
TSX 
TSX 

TSX 
PZE 
PZE 
PZE 
PZE 
TSX 
PZE 
PZE 
PZE 
PZE 

CLA 
STA 
CLA 
SUB 
TZE 
CAL 
ORS 
TSX 
PZE 
CAL 
STO 
TXI 



EMK = ENTRY POINT WHEN AN 

CMA1»2»6 * 

00LEV.4 

FIN, 4,0 

DIAG.4 * 

LTMSWt4 * 



JIF.4 

LAST * ENTRY POINT SET 

CIT»4 

SL 

CAL 

15P 

LCO) 

LIB»4 

L(0) 

XIT 

END 

LCO) 

FINI * ENTRY POINT USED 

RESET 

BXT 

F-l 

5BLANS 

CA010 

MINUSO 

EIFNO 

TET00*1 



EIFNO 

EIFNO 

CAOlOtO 



ENDMARK IS MET IN LIST SCAN. 
IF NO CHARACTERS REMAIN. THEN 
CHECK THE NUMBER OF PARENTHESES. 
IF THERE ARE TOO MANY LPARENS. 
GO TO THE DIAGNOSTIC. OTHERWISE. 
IF LTMSW ■ NOP. COMPILE LTM. SL*Q. 

* GO JUMP IFN* AND SET SL AND TL. 
BY BXT SWITCH. 

* GO MAKE THE FOLLOWING CIT ENTRY* 
W0RD1 — 0(IFN)000 
W0RD2 — CALOOO 
W0RD3 — *00000 
W0RD4 — 000000 

* MAKE CLOSUB ENTRY, AND COMPILE* 
W0RD1 — 000000 
W0RD2 — XITOOO 
W0RD3— (RTN) OR (FID 
WOR04 — 000000 

BY EFT. 

RESET BXT SWITCH 

TO RSC. 

TEST FOR AN EXTERNAL 

STATEMENT NUMBER* AND IF NONE* 

* EXIT TO PROCESS NEXT STATEMENT. 
OTHERWISE, SET THE SIGN 
OF EIFNO TO MINUS, AND 

* GO ENTER -(EIFNO) 
IN THE TE1FN0 TABLE. 
THEN RESTORE 
EIFNO* AND 

* EXIT TO PROCESS NEXT STATEMENT. 



4F12983 
4F12984 
4F12985 
4F12986 
4F12987 
4F12988 
4F12989 
4F12990 
4F12991 
4F12992 
4F12993 
4F12994 
*4F12995 
4F12996 
4F12997 
4F12998 
4F12999 
4F13000 
4F13001 
4F13002 
4F13003 
4F13004 
4F13005 
4F13006 
4F13007 
4F13008 
4F13009 
4F13010 
4F13011 
4F13012 
4F13013 
4F13014 
4F13015 
4F13016 
4F13017 
4F13018 
4F13019 
4F13020 
4F13021 
4F13022 
4F13023 
4F13024 
4F13025 
4F13026 
4F13027 
4F13028 



>1 



.V vv 



END OF PROGRAM EMK. 4F13029 

****************************** *4F13030 

4F13031 
STATEA/4- SUBROUTINES USED BY STATE A= 4F13032 



***** 



********* * * ******* 






D 



D 



05603 
05604 
05605 



05606 
05607 
05610 
05611 
05612 
05613 
05614 
05615 
05616 
05617 
05620 



-0 63400 4 05605 

-0 50000 05620 

1 00000 05146 



BEG SXD 

CAL 

BEX TXI 



BEG(TYP>»4/ CALLS=DIAG. USES RSC. 

BEG * ENTRY POINT USED BY RDC.RIT.WOT. EFT. 

BEX.4 SAVE CIXR4) FOR RETURN. 

BEGTR SET CONTROL TRANSFER 

CXS.O.** * AND GO EXECUTE BEGINNING SCAN. 

****************************** 

BEGTR/ CONTROL TRANSFERS FOR BEGINNING SCAN= 



00000 
07400 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 



05621 
03400 
05623 
05607 
05607 
05607 
05607 
05607 
05607 
05607 
05620 



IBC 



'TXI 
TSX 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
BEGTR PZE 



NLS.O 

DIAG»4 

CMB.O 

IBC.O 

IBC»0 

IBC»0 

IBC»0 

IBC.O 

IBC.O 

IBC.O 

BEGTR 

* * * 



ENDMARK (NO LIST SCAN) 



(ILLEGAL CHARACTER IN 



********** 



» (ILLEGAL CHARACTER IN 
« (ILLEGAL CHARACTER IN 
- (ILLEGAL CHARACTER IN 
/ (ILLEGAL CHARACTER IN 

• (ILLEGAL CHARACTER IN 
+ (ILLEGAL CHARACTER IN 

* (ILLEGAL CHARACTER IN 
INDEXING ADDRESS FOR ABOVE LIST. 
*•••**•******•**• 



****** 

4F13033 

4F13034 

4F13035 

4F13036 

4F13037 

4F13038 

•4F13039 

4F13040 

4F13041. 

4F13042 

I/O SETUP U4F13043 

4F 13044 

I/O SETUP). 4F13045 

I/O SETUP). 4F13046 

I/O SETUP). 4F13047 

I/O SETUPI.4F13048 

I/O SETUP) .4F13049 

I/O SETUP). 4F13050 

I/O SETUP). 4F13051 

4F13052 

♦4F13053 



05621 
05622 



50000 06105 
62100 04744 



05623 -0 53400 4 05605 CMB LXD 



NLS - ENTRY POINT WHEN AN ENDMARK IS MET IN BEGINNING SCAN. 

NLS CLA NLA IF ENDMARK IS MET* 

STA BXT SET BXT SWITCH TO LAST. 

CMB * ENTRY POINT WHEN A COMMA IS MET IN BEGINNING SCAN. 

BEX.4 RESTORE THE CIXR4). AND 
TYP " ENTRY POINT USED BY LPR.SPC.CMA. 

05624 50000 07310 TYP CLA CHR-6 TEST FIRST CHARACTER 

05625 40200 01404 SUB PLUS FOR VARIABLE 

05626 -0 12000 05634 TMI ABS OR CONSTANT. 

05627 3 00044 2 05633 TXH SMB.2.36 IF VARIABLE* 

05630 -0 50000 01430 CAL BLANK ADD A BLANK 

05631 767DO 2 0OO44 ALS 36.2 IF SYMBOL CONTAINS 

05632 -0 60200 07404 ORS SYM LESS THAN 6 CHARACTERS. AND 

05633 02000 4 00001 SMB TRA 1.4 * TAKE VARIABLE EXIT TO CALLER. 

05634 53400 2 01413 ABS LXA L(5)»2 IF CONSTANT. 

05635 50000 2 07315 CLA CHR-1.2 THEN 

05636 60100 07307 STO BIN CONVERT 

05637 -3 00000 2 05645 CSJ TXL INT.2.** BCD 

05640 76700 00002 ALS 2 DIGITS 

05641 40000 07307 ADD BIN TO THEIR 

05642 76700 00001 ALS 1 BINARY 

05643 40000 2 07316 ADD CHR.2 EQUIVALENT. 

05644 1 77777 2 05636 TXI CSJ-1.2.-1 AND WHEN DONE. 

05645 02000 4 00002 INT TRA 2.4 * TAKE CONSTANT EXIT TO CALLER. 



END OF PROGRAM BEG (TYP). 
* * *********** 



*************** 



4F13054 
4F13055 
4F13056 
4F13057 
4F13058 
4F13059 
4F13060 
4F13061 
4F13062 
4F13063 
4F13064 
4F13065 
4F13066 
4F13067 
4F13068 
4F13069 
4F13070 
4F13071 
4F13072 
4F13073 
4F13074 
4F13075 
4F13076 
4F13077 
4F13078 
4F13079 
* * *4F13080 



tf 



o 



n 



n 



65646 
05647 
05650 
05651 
05652 
05653 
05654 
05655 
05656 
05657 
05660 
05661 
05662 
05663 
05664 
05665 
05666 
05667 
05670 
05671 
05672 
05673 



05674 
05675 
05676 
05677 
05700 



63400 
60200 
07400 
07400 
07400 
76700 
60100 
07400 
00000 
00000 
00000 
00000 
50000 
60200 
50000 
63000 
63000 
50000 
60200 
60000 
53400 
02000 



06054 8RW 

06140 

02372 

05603 

06032 

00022 

07402 

01731 

01371 

07401 

01406 

07402 

01544 

07401 

00415 

05754 

05757 

06133 

06141 

01367 

06054 



4 00001 



07400 4 
00000 
00000 
00000 
00000 



01731 
01367 
01536 
01406 
01406 



05701 02000 2 O0001 



BSS 



CALLS* JIF*BE6»VRA. CI T« CALLERS=WBT»RBT.WRD. 
SAVE THE C(XR4)> AND 
SET CON ■ OR »»144 OR »»192. 

* 60 JUMP IFN* AND SET SL ANO TL. 

* 60 SCAN AND TEST TYPE OF SYMBOL. 



BRW»4/ 
SXD XRW*4 
SLW CON 
TSX JIF.4 
TSX BEG* 4 
TSX VRA.4 
ALS 18 
STO RA 
TSX CIT.4 
PZE TL 
PZE OP 
PZE L<0) 
PZE RA 
CAL CPY 
SLW OP 
CAL TXLOP 
STP ETMSW 
STP LTMSW 
CAL RTN 
SLW END 
STZ SL 
LXD XRW»4 
TRA 1»4 

END OF PROGRAM BRW. 

************ 



4F13081 
4F13082 
4F13083 
4F13084 
4F13085 
4F13086 



IF VARIABLE* ENTER FORVAR AND CITS.4F13087 



IF CONSTANT* ADJUST CONVERTED 
NUMBER* AND SET RA. 

* GO MAKE THE FOLLOWING CIT ENTRY* 
W0RD1 — QUFN)0<248) 
W0RD2 — (WTB»RBT»WRD*RDDiOOO 
W0RD3 — 000000 

W0RD4— 000000 OR (UNIT) 000 
MOVE CPYOOO 
INTO OP. 

SET OP-SWITCHES. 
ETMSW AND LTMSW* 
TO THE TRA CASE. 
MOVE CRTNJ 
INTO END. 
CLEAR SL* 
RESTORE THE C(XR4)» AND 

* EXIT TO CALLER. 

****************** 



BSS»2/ CALLS-CITOO. CALLERS=LPR»C1600. 
BSS COMPILES- I FN BSS 0. 



TSX 
PZE 
PZE 
PZE 



CIT00»4 
SL 

L(BSS) 
L(0) 



PZE L(0) 
TRA 1*2 



END OF PROGRAM BSS. 

************ 



CA100.4/ CALLS-DIAG. CALLER-CAOOO. 
CA100 READS NEXT SOURCE PROGRAM CARD 



05702 





53400 


2 


01413 


CA100 


LXA 


TERC.2 


05703 


-0 


63400 


2 


01112 




SXD 


1G*2 


05704 


-0 


76000 





00012 




RTT 




05705 





76100 





00000 




NOP 




05706 





76200 





00202 


CA101 


RDS 


130 


05707 





53400 


2 


01420 




LXA 


L(12)*2 


05710 





70000 


2 


01347 


CA102 


CPY 


FT+12»2 


05711 





02000 





05721 




TRA 


CA103 


05712 





02000 





05740 




TRA 


CA120 


05713 


-0 


53400 


2 


01112 


CA130 


LXD 


1G»2 


05714 


2 


00001 


2 


05716 




TIX 


CA131»2»1 


05715 





07400 


4 


03400 




TSX 


DIAG»4 


05716 


-0 


63400 


2 


01112 


CA131 


SXD 


1G»2 



4F13088 
4F13089 
4F13090 
4F13091 
4F13092 
4F13093 
4F13094 
4F13095 
4F13096 
4F13097 
4F13098 
4F13099 
4F13100 
4F13101 
4F13102 
4F13103 
4F13104 
4F13105 
♦4F13106 
4F13107 
4F13108 
4F13109 
4F13110 
4F13111 
4F13H2 
4F13113 
4F13114 
4FI3115 
4F13116 
•4F13117 
4F13118 
4F13119 
4F13120 
4F13121 
4F13122 
4F13123 
4F13124 
4F13125 
CYCLES 0F4F13126 
4F13127 
4F13128 
4F13129 

END OF FILE* GO FINISH LAST STATEM.4F13130 
TEST TAPE ERROR COUNTER 4F13131 

BY TRYING TO REDUCE BY 1. 4F13132 

FAILEO 5 TIMES IN READING TAPE 2. 4F13133 
SAVE REDUCED VALUE IN COUNTER. 4F13134 



* GO MAKE FOLLOWING CIT ENTRY= 
W0RD1 — 0(IFN)000 
W0RD2 — BSSOOO 
W0RD3 — 000000 
W0RD4 — 000000 

* EXIT TO CALLER+1. 

******•••**•****•* 



(1 TAPE RECORD) • 



PREPARE TO COUNT 

TAPE READING ERRORS. 

TURN OFF TAPE CHECK INDICATOR. 

PROCEED TO NEXT INSTRUCTION. 

SELECT SOURCE TAPE FOR READING 

INITIALIZE INDEX B FOR 12 

COPY LOOP. 

COPY INTO FT REGION 

NEXT SOURCE PROGRAM CARD. 



V V 



05717 
05720 
05721 
05722 
05723 
05724 
05725 
05726 
05727 
05730 
05731 
05732 
05733 
05734 
05735 
05736 
05737 
057*0 
05741 
05742 



76400 
02000 
00001 
76600 
76000 
00000 
53400 
50000 
40200 
10000 
00001 
02000 
50000 
77100 
40200 
10000 
02000 
60000 
63400 



02000 



05743 -0 

05744 2 

05745 -0 

05746 

05747 1 

05750 -0 

05751 

05752 -0 

05753 



75400 
00001 
53400 
56000 
77777 
63400 
53400 
76300 
02000 



00202 

05706 

05710 CA103 

00333 

00012 

05713 

01420 

01526 CA112 

01347 

05733 

05726 

05702 

01333 CA113 

00036 

01421 

05702 

00001 

01333 CA120 

02575 

00001 



00000 CC500 

05752 

01113 

06145 

05750 

01113 CC501 

01414 

00006 CC502 

00001 



05754 
05755 
05756 

05757 
05760 
05761 
05762 
05763 
05764 
05765 
05766 
05767 
05770 
05771 



-3 0OQQ0 05772 ETMStf 
-0 50000 06112 
1 00000 05761 XR4X 



00000 
50000 
60200 
63400 
07400 
00000 
00000 
00000 
00000 
60000 
53400 



05772 LTMSW 

06113 

06142 SETOP 

05756 

01731 

01367 

06142 

01406 

01406 

01367 

05756 



BST 130 

TRA CA101 

TIX CA102s2sl 

IOD 

RTT 

TXI CA130»0 

LXA LC12J.2 

CLA BLANKS 

SUB FT+12*2 

TNZ CA113 

TIX CA112i2»l 

TRA CA100 

CAL FT 

ARS 30 

SUB LIC) 

TZE CA100 

TRA 1.4 

ST2 FT 

SXD ENDWRD»0 

TRA 1*4 

END OF PROGRAM CA100. 



BACKSPACE FORMULA TAPE. 4F13135 

AND 60 BACK TO READ AGAIN* 4F13136 

TEST EXIT FROM LOOP. 4F13137 

DELAY UNTIL TAPE DISCONNECTS* 4F13138 

CHECK READING OF TAPE. 4F13139 

IF INCORRECTt 60 CHECK ERROR COUNT. 4F13140 

PREPARE TO SCAN 12 WORDS OF CARD. 4F13141 

TEST 

FOR 

BLANK 

CARD. 

IF BLANK. GO TO READ NEXT CARD. 

IF NOT BLANK. 

EXAMINE FIRST 

CHARACTER TO 

TEST FOR COMMENT CARD. 

EXIT IF NEITHER BLANK NOR COMMENT. 

INDICATE THAT FINAL 

STATEMENT HAS BEEN READ IN. 

EXIT TO MAIN ROUTINE TO FINISH. 



***************** 



CC500.4/ CALLER=CCOOO. 

CC500 BRINGS NEXT CHARACTER OF DICTIONARY 



INTO AC( 30-35). 



PXD .0 

TIX CC502.2.1 

LXD 26*2 

LDQ DIC. 2 

TXI CC501.2.-1 

SXD 2G.2 

LXA L(6)»2 

LGL 6 

TRA 1*4 

END OF PROGRAM CC500. 



CLEAR THE AC. 

IF NO DICTIONARY CHARACTERS 
REMAIN IN THE MQ* THEN 
REFILL WITH NEXT DICTIONARY WORD. 
RESET THE 

DICTIONARY WORD TAG* AND 
SET THE CHARACTER COUNT » 6. 
SHIFT CHAR INTO AC (30-35)* 
• AND RETURN TO CALLER. 

»*«♦»*##**#»*#**#* 



TXL 
CAL 
TXI 

TXL 
CAL 
SLW 
SXD 
TSX 
PZE 
P2E 
PZE 
PZE 
5TZ 
LXD 



ETMSWC LTMSW ) *4/ CALLS=CIT. CALLERS=RDC»LPR»SPC»CMA.EMK. 

ETMSW ■ ENTRY POINT USED BY RDC.CMA. 

NOTTM.O SWITCH tTXL*TRA. TXH=NOP). 

ETM PICKUP ETMOOO. AND 

SETOP.O*** GO SET OP. 

LTMSW ■ ENTRY POINT USED BY LPR.SPC.CMA.EMK. 



NOTTM.O 

LTM 

TOP 

XR4X*4 

CIT.4 

SL 

TOP 

L(0) 

L(0) 

SL 

XR4X»4 



SWITCH (TXL=TRA» TXH=N0P). 

PICKUP LTMOOO. AND 

SET TOP. 

SAVE THE C(XR4)» AND 

GO MAKE THE FOLLOWING CIT ENTRY* 

WORD I — OUFNJOOO 

W0RD2 — ETMOOO OR LTMOOO 

W0RD3 — 000000 

W0RD4 — 000000 

CLEAR SL* 

RESTORE THE CtXR4)» AND 



4F13142 
4F13143 
4F13144 
4F13145 
4F13146 
4F13147 
4F13148 
4F13149 
4F13150 
4F13151 
4F13152 
4F13153 
4F13154 
4F13155 
♦4F13156 
4F13157 
4F13158 
4F13159 
4F13160 
4F13161 
4F13162 
4F13163 
4F13164 
4F13165 
4F13166 
4F13167 
4F13168 
4F13169 
•4F13170 
4F13171 
4F13172 
4F13173 
4F13174 
4F13175 
4F13176 
4F13177 
4F13178 
4F13179 
4F13180 
4F13181 
4F13182 
4F13183 
4F13184 
4F13185 
4F13186 
4F13187 
4F13188 



qo 



o 



05772 02000 4 00001 NOTTM TRA 1*4 



* EXIT TO CALLER. 
END OF PROGRAM ETMSWi LTMSW) . 
********************* 



********* 



TO 









1FFIX*1/ 


USES: 


=TESTFX. 


CALLERS=CMA»VRACVRD»« 


05773 


-0 $0000 00030 


IFFIX 


CAL EIFNO 










SET 


05774 


60000 01347 




STZ G 










G TO 


05775 


62200 01347 




STD G 










(O(IFN)OOO). 


05776 


-0 50000 07404 




CAL SYM 










MOVE SYMBOL 


05777 


60200 01350 




SLW G+l 










INTO 6+1. 


06000 


-0 50000 07310 




CAL CHR-6 










PICKUP 1ST CHARAC 


06001 


1 00000 03242 




TXI TESTFX+1 


»0 






* 


GO TEST FOR FIXED 








END OF 


PROGRAM 


IFFIX. 










* * * * 


*• * * 


* 


* * * 


* * 


********* 



06002 
06003 

06004 
06005 
06006 
06007 
06010 
06011 
06012 
06013 
06014 
06015 
06016 
06017 
06020 
06021 
06022 



06023 
06024 
06025 
06026 
06027 
06030 
06031 



50000 01414 INPUT 

1 00000 06005 



50000 
60100 
07400 
07400 
00000 
00000 
00000 
00000 
07400 
00000 
00000 
00000 
00000 
60000 
02000 



50000 
62100 
50000 
60200 
07400 
00000 
00000 



01413 OUTPUT 

05536 

02375 

01731 

01367 

01537 

01510 

01406 

06023 

01406 

06125 

06132 

01406 

01367 

00001 



CLA 
TXI 

CLA 
STO 
TSX 
TSX 
PZE 
PZE 
PZE 
PZE 
TSX 
PZE 
PZE 
PZE 
PZE 
STZ 
TRA 



00003 LIB 

06025 

00000 LIC 

01347 

03321 

00011 

01731 



CAL 
STA 
CAL 
SLW 
TSX 
PZE 
TXI 



******** 

INPUT! OUTPUT )*2/ CALLS=GIF»CIT*LIB. 

CALLERS=RDC»RIT»RDP»WOT,PDC»WBT»RBT*WRD»RDD. 

INPUT * ENTRY POINT USED BY RDC»RIT»RBT.RDD. 

L(6> PICKUP 6 TO 

OUTPUT+l GO SET INOUT FOR FORVAL ENTRY. 

OUTPUT ■ ENTRY POINT USED BY RDP»WOT»PDC»WBT»WRD. 



L(5) 

INOUT 

GIF»4 * 

CIT»4 * 

SL 

CAL 

15P 

L(0) 

LIB»4 * 

L(0) 

XIT 

LEV 

L(0) 

SL 

1.2 

END OF PROGRAM INPUT10UTPUT ) . 
**************** 



LIB*1/ CALLS=TETOO*C1T. 

3»4 
LIC 
•• 

G 

TETOO.l 
9 
CIT.O 

END OF PROGRAM LIB. 
************ 



4F13189 
4F13190 

♦4F13191 
4F13192 
4F13193 
4F13194 
4F13195 
4F13196 
4F13197 
4F13198 
SYMBOL* AND4F13199 
FIXED OR FLOATING PT. 4F13200 

4F13201 

♦4F13202 
4F13203 
4F13204 
4F13205 
4F13206 
4F13207 
4F13208 
4F13209 
4F13210 
4F13211 
4F13212 
4F13213 
4F13214 
4F13215 
4F13216 
4F13217 
4F13218 
4F13219 
4F13220 
4F13221 
4F13222 
4F13223 
4F13224 
4F13225 

*4F 13226 
4F13227 
4F13228 
4F13229 
4F13230 
4F13231 
4F13232 
4F13233 
4F13234 



PICKUP 5 TQ 

SET INOUT FOR FORVAR ENTRY. 

SET SL * I FN, 000. 

GO MAKE THE FOLLOWING CIT ENTRY* 

WORD1 — 0(IFN)000 

WORD2 — CALOOO 

WORD3 — * 00000 

WORD4 — 000000 

MAKE CLOSUB ENTRY* AND COMPILE* 

WORD1 — 00000 

W0RD2— XITOOO 

W0RD3-— (LEVI 

W0RD4 — 000000 

CLEAR SL, AND 

EXIT TO CALLER. 



• ******•••*** 



CALLERS=RDC , EMK , INPUT ( OUTPUT ) • 
MOVE NAME OF SUBROUTINE* 
ADDRESS OF WHICH 
IS IN W0RD3 OF CALLING SEQ, 
INTO G» AND 

* GO ENTER IN THE 
CLOSUB TABLE. 

* MAKE CIT ENTRY* AND 



*********** 



06032 50000 02400 VRA 



CLA 



EXIT TO CALLER. 4F13235 
4F13236 
******* *4F13237 
4F13238 
VRAJVRD>»4/ CALLS=IFFIX.DIAG*TETOO,CIT»DRTABS.JIF. 4F13239 

CALLERS=RIT*WOT*EFT. 4F13240 

VRA « ENTRY POINT USED BY EFT. 4F13241 

LCTL) RESET TPOA ADDRESS 4F13242 



vv 



06033 
06034 
06035 

06036 
06037 
06040 
06041 
06042 
06043 
06044 
06045 
06046 
06047 
06050 
06051 
06052 
06053 
06054 
06055 
06056 
06057 
06060 
06061 
06062 
06063 
06064 
06065 
06066 
06067 
06070 
06071 
06072 
06073 
06074 
06075 
06076 
06077 
06100 
06101 
06102 
06103 
06104 
06105 
06106 
06107 



62100 05102 
-0 50000 00415 

1 77777 4 06037 



50000 
63000 
63400 
07400 
07400 
07400 
00000 
07400 
00000 
00000 
00000 
00000 
00000 
50000 
00000 
50000 
10000 
60100 
07400 
76700 
60100 
07400 
00000 
00000 
00000 
00000 
07400 
00000 
00000 
00000 
00000 
50000 
60200 
07400 
07400 
00000 
00000 
00000 
00000 
75400 
53400 
02000 



VRX 

XRW 
VDA 



00415 VRD 

06052 VRD1 

06052 

05773 

03400 

03321 

00005 

01731 

01367 

01537 

07404 

01406 

06055 

06121 

06076 

06140 

06070 

01347 

00417 

00022 

07402 
4 01731 
01406 

01532 

01501 

07402 

01731 

01406 

01535 

01406 

01466 

01571 

06142 

02372 
4 01731 
01406 

06142 

01371 

01406 

05555 

06052 

00001 



SOA 



RVX 



NLA 



STA 
CAL 
TXI 

CLA 
STP 
SXD 
TSX 
TSX 
TSX 
PZE 
TSX 
PZE 
PZE 
PZE 
PZE 
TXH 
CAL 
TXI 
CLA 
TZE 
STO 
JSX 
ALS 
STO 
TSX 
PZE 
PZE 
PZE 
PZE 
TSX 
PZE 
PZE 
PZE 
PZE 
CAL 
SLW 
TSX 
TSX 
PZE 
PZE 
PZE 
PZE 
PXD 
LXO 
TRA 



TPOA 
TXLOP 
VRD1»4*-1 

VRD « EMTRY POINT USED 
TXLOP 
VRX 
VRX»4 
IFFIX.l 
DIAG>4 
TET00»1 
5 

CITt4 
SL 
CAL 
SYM 
LtO) 

VDA.O*** 
STO 

RVX*0»** 
CON 
SDA 
G 

FXCNIX»4 
18 
RA 

ClTt4 
LtO) 
ADO 
2P 
RA 

CIT»4 
LtO) 
ARS 
LtO) 
018 
STA 
TOP 
JIF.4 
CIT. 4 
LtO) 
TOP 
TL 

LtO) 
LAST.O 
VRX. 4 
1.4 
END OF PROGRAM VRAtVRD 



TO TL. 4F13243 

PREPARE TO SET OP-SWITCH TO TRA. 4F 13244 
SET RETURN TO TSX+2. AND GO SET 0P.4F13245 



BY RIT.WOT. 

PREPARE TO SET OP- SWITCH TO NOP. 

SET VRX OP-SWITCH. 

SAVE THE CfXR4) FOR RETURN. 

* SET UP 1FN AND SYMBOL FOR FORVAR. 
« ILLEGAL USE OF FLOATING VARIABLE. 

* IF SYMBOL IS FXD-PT* GO MAKE 
ENTRY IN FORVAR TABLE. 

* GO MAKE THE FOLLOWING CIT ENTRY= 
W0RD1— OtIFN)000 

W0RD2 — CALOOO 

W0RD3 — (FXD-PT SYMBOL) 

W0RD4 — OOOOOO 

SWITCH CTXL*TRA* TXH=NOPL 

PICKUP STDOOO* AND 

GO SET TOP. 

IF CON 

IS NOT ZERO* 

THEN 

* ENTER CON IN FIXCON.AND GET TAG. 
ADJUST TAG* AND 

SET RA. 

* SO MAKE THE FOLLOWING CIT ENTRY. 
W0RD1 — OOOOOO 

W0RD2 — ADDOOO 
W0RD3 — 200000 
W0RD4— <FIXC0N TAG) 

* GO MAKE THE FOLLOWING CIT ENTRY* 
W0RD1 — OOOOOO 

W0RD2 — ARSOOO 
W0RD3 — OOOOOO 
WORD* — 0(18)000 
PICKUP STAOOO* AND 
SET TOP TO STA OR STD. 

* GO JUMP IFN» AND SET SL AND TL. 

* GO MAKE THE FOLLOWING CIT ENTRY* 
W0RD1— OOOOOO 

W0RD2 — STAOOO OR STDOOO 

W0RD3— OtIFN)000 

WORD* — OOOOOO 

CLEAR THE AC. 

RESTORE THE CtXR4)» AND 

* EXIT TO CALLER. 
I. 



STATEA/5-CONSTANTS AND VARIABLES USED BY STATE A= 



06110 222324000000 BCD 

06111 226263000000 BST 

06112 256344000000 ETM 



BCD 1BCD000 
BCD 1BSTOO0 
BCD 1ETM000 



CONSTANT USED BY I0T. 
CONSTANT USED BY IOT. 
CONSTANT USED BY IOT. 



4F13246 
4F13247 
4F13248 
4F13249 
4F13250 
4F13251 
4F13252 
4F13253 
4F13254 
4F13255 
4F13256 
4F13257 
4F13258 
4F13259 
4F13260 
4F13261 
4F13262 
4F13263 
4F13264 
4F13265 
4F13266 
4F13267 
4F13268 
4F13269 
4F13270 
4F13271 
4F13272 
4F13273 
4F13274 
4F13275 
4F13276 
4F13277 
4F13278 
4F13279 
4F13280 
4F13281 
4F 132*2 
4F13283 
4F13284 
4F13285 
4F13286 
4F13287 
4F 13288 
4F13289 
•4F13290 
4F13291 
4F13292 
4F13293 
4F13294 
4F13295 
4F13296 



$y 



n 



O 



06113 


436344000000 


LTM 


BCD 1LTM0OO 


CONSTANT 


USED 


BY 


IOT. 


4F13297 




06114 


456351000000 


NTR 


BCD INTROOO 


CONSTANT 


USED 


BY 


IOT. 


4F 13298 




06115 


512451000000 


ROR 


BCD 1RDR000 


CONSTANT 


USED 


BY 


IOT. 


4F13299 




06116 


512566000000 


REW 


BCD 1REWOO0 


CONSTANT 


USED 


BY 


IOT* 


4F13300 




06117 


516322000000 


RTB 


BCD 1RTB000 


CONSTANT 


USED 


BY 


IOT. 


4F13301 




06120 


624366000000 


SLW 


BCD 1SLW000 


CONSTANT 


USED 


BY 


IOT. 


4F13302 




06121 


626324000000 


STD 


BCD 1STD000 


CONSTANT 


USED 


BY 


IOT. 


4F13303 




06122 


662451000000 


WOR 


BCD 1WDR000 


CONSTANT 


USED 


BY 


IOT. 


4F13304 




06123 


662526000000 


WEF 


BCD 1WEF000 


CONSTANT 


USED 


BY 


IOT. 


4F13305 




06124 


666322000000 


WTB 


BCD 1WTB000 


CONSTANT 


USED 


BY 


IOT. 


4F13306 




06125 


673163000000 


XIT 


BCD 1XIT000 


CONSTANT 


USED 


BY 


IOT. 


4F13307 




06126 


742224233460 


BDC 


BCD KBDCJ 


CONSTANT 


USED 


BY 


IOT. 


4F13308 




06127 


742362303460 


CSH 


BCD 11 CSH) 


CONSTANT 


USED 


BY 


IOT. 


4F13309 




06130 


742422233460 


DBC 


BCD KDBC) 


CONSTANT 


USED 


BY 


IOT. 


4F13310 




06131 


742631433460 


FIL 


BCD 1(FIL> 


CONSTANT 


USED 


BY 


IOT. 


4F13311 




06132 


744325653460 


LEV 


BCD KLEV) 


CONSTANT 


USED 


BY 


IOT. 


4F13312 




06133 


745163453460 


RTN 


BCD It RTN J 


CONSTANT 


USED 


BY 


IOT. 


4F13313 




06134 


746223303460 


SCH 


BCD l(SCH) 


CONSTANT 


USED 


BY 


IOT. 


4F13314 




06135 


746247303460 


SPH 


BCD KSPH) 


CONSTANT 


USED 


BY 


IOT. 


4F13315 




06136 


746263303460 


STH 


BCD l(STH) 


CONSTANT 


USED 


BY 


IOT. 


4F13316 




06137 


746362303460 


TSH 


BCD l(TSH) 


CONSTANT 


USED 


BY 


IOT. 


4F13317 
4F13318 






06140 


CON 


BSS 1 


VARIABLE 


USED 


BY 


IOT. 


4F13319 




06141 


00000 00000 


END 


P2E ** 


VARIABLE 


USED 


BY 


IOT. 


4F13320 






06142 


TOP 


BSS 1 


VARIABLE 


USED 


BY 


IOT. 


4F13322 




06143 


00000 00000 


TSA 


PZE ** 


VARIABLE 


USED 


BY 


IOT. 


4F13323 




06144 


00000 00000 


TTA 


PZE ** 


VARIABLE 


USED 


BY 


IOT. 


4F13324 
4F13325 










DIC/ DICTIONARY OF NON-ARITHMETIC STATEMENTS (USED BY CC500) .4F13326 




06145 


♦244677274663 


DIC 


OCT 244677274663 


DO-GOT 








4F13327 




06146 


-067731267462 




OCT -67731267462 


0-IF<S 








4F13328 




06147 


+254562256266 




OCT 254562256266 


ENSESW 








4F13329 




06150 


+316323307731 




OCT 316323307731 


ITCH-I 








4F13330 




06151 


+267462254562 




OCT 267462254562 


F(SENS 








4F13331 




06152 


+254331273063 




OCT 254331273063 


ELIGHT 








4F13332 




06153 


-373126243165 




OCT -373126243165 


-IFOIV 








4F13333 




06154 


+312425233025 




OCT 312425233025 


IDECHE 








4F13334 




06155 


+234277312621 




OCT 234277312621 


CK.-IFA 








4F13335 




06156 


+232364446443 




OCT 232364446443 


CCUMUL 








4F13336 




06157 


+216346514665 




OCT 216346514665 


ATOROV 








4F13337 




06160 


♦255126434666 




OCT 255126434666 


ERF LOW 








4F13338 




06161 


-373126506446 




OCT -373126506446 


-IFQUO 








4F13339 




06162 


-233125456346 




OCT -233125456346 


TIENTO 








4F 13340 




06163 


-252551264346 




OCT -252551264346 


VERFLO 








4F13341 




06164 


-267731267721 




OCT -267731267721 


W-IF-A 








4F13342 




06165 


-226231274577 




OCT -226231274577 


SS1GN- 








4F13343 




06166 


-226346477747 




OCT -226346477747 


STOP-P 








4F13344 




06167 


♦216462257762 




OCT 216462257762 


AUSE-S 








4F13345 




06170 


+254562254331 




OCT 254562254331 


ENSELI 








4F13346 




06171 


+273063772431 




OCT 273063772431 


GHT-DI 








4F13347 




06172 


-042545623146 




OCT -42545623146 


MENS 10 








4F13348 




06173 


-057725506431 




OCT -57725506431 


N-EQUI 








4F13349 




06174 


-252143254523 




OCT -252143254523 


VALENC 








4F13350 


</3 


06175 


+257726512550 




OCT 257726512550 


E-FREQ 








4F13351 



T.V V 



06176 
06177 
06200 
06201 
06202 
06203 
06204 
06205 
06206 
06207 
06210 
06211 
06212 
06213 
06214 
06215 
06216 
06217 
06220 
06221 
06222 
06223 
06224 
06225 
06226 
06227 
06230 
06231 
06232 
06233 



-242545237077 
+234645633145 
-242577512521 
+246321472577 
-112521243145 
-076463632147 
+257751252124 
+245164447751 
+252124776651 
+316325632147 
+257766513163 
^254664634764 
-236321472577 
-265131632524 
-116444774751 
+314563774764 
-052330775125 
-263145247722 
+212342624721 
+232577254524 
+263143257726 
-065144216377 
-226422514664 
-233145257723 
-064444464577 
-112563645145 
-372321434377 
+254524747726 
-244523633146 
-057777777777 

06234 






06246 





06247 





06250 





06251 





©6*52 


D 


06253 


D 


06254 





06255 


D 


06256 





06257 





06260 


D 


06261 


D 


06262 





06263 





06264 





06265 


D 


06266 





06267 


D 


06270 



OCT -242545237077 
OCT 234645633145 
OCT -242577512521 
OCT 246321472577 
OCT -112521243145 
OCT -76463632147 
OCT 257751252124 
OCT 245164447751 
OCT 252124776651 
OCT 316325632147 
OCT 257766513163 
OCT 254664634764 
OCT -236321472577 
OCT -265131632524 
OCT -116444774751 
OCT 314563774764 
OCT -52330775125 
OCT -263145247722 
OCT 212342624721 
OCT 232577254524 
OCT 263143257726 
OCT -65144216377 
OCT -226422514664 
OCT -233145257723 
OCT -064444464577 
OCT -112563645145 
OCT -372321434377 
OCT 254524747726 
OCT -244523633146 
OCT -057777777777 
BSS 10 

END OF DICTIONARY. 
********** 



UENCY- 
CONTIN 
UE-REA 
DTAPE- 
REAOIN 
PUTTAP 
E>-READ 
DRUM-R 
EAD-WR 
ITETAP 
E-WRIT 
EOUTPU 
TTAPE- 
WRITEO 
RUM-PR 
INT-PU 
NCH-RE 
WIND-B 
ACKSPA 
CE-END 
FILE-F 
ORMAT- 
SUBROU 
TINE-C 
OMMON- 
RETURN 
-CALL- 
END (-F 
UNCTIO 



******** * * ********** 











T/ TRANSFER TABLE (USED BY CCOOO). 


1 00000 





03653 T 


TXI 


C0100*0 


00. 


1 00000 





03720 


TXI 


C0200.0 


00 TO. 


1 00000 





04106 


TXI 


C04O0.O 


IF (SENSE SWITCH. 


1 00000 





04150 


TXI 


C050O.0 


IF (SENSE LIGHT. 


1 00000 


o 


04154 


TXI 


€0600*0 


IF OlViOE CHECK. 


1 00000 





04162 


TXI 


C0700»0 


IF AC OVERFLOW. 


1 00000 





04166 


TXI 


C0800*0 


IF MO OVERFLOW. 


1 00000 





04033 


TXI 


C0300*0 


IF. 


1 00000 





04216 


TXI 


C1000.0 


ASSIGN. 


1 00000 





04343 


TXI 


C1300»0 


STOP. 


1 00000 





04170 


TXI 


C0900»0 


PAUSE. 


1 00000 





04251 


TXI 


C1100.0 


SENSE LIGHT. 


3 00000 





04266 


TXL 


C1200.0 


DIMENSION. 


3 00000 





04375 


TXL 


C1500.0 


EQUIVALENCE. 


3 00000 





04354 


TXL 


C1400*0 


FREQUENCY. 


1 00000 





04433 


TXI 


C1600»0 


CONTINUE. 


1 00000 





05012 


TXI 


RBT.O 


READ TAPE. 


1 00000 





04745 


TXI 


RIT.O 


READ INPUT TAPE. 


1 00000 





05063 


TXI 


RDDtO 


READ DRUM. 



4F13352 
4F13353 
4F13354 
4F13355 
4F13356 
4F13357 
4F 13358 
4F13359 
4F13360 
4F13361 
4F13362 
4F 13363 
4F13364 
4F13365 
4F13366 
4F13367 
4F 13368 
4F13369 
4F13370 
4F13371 
4F13372 
4F13373 
4F 13374 
4F13375 
4F13376 
4F13377 
4F13378 
4F13379 
4F13380 
4F13381 
4F133815 
4F13382 
•4F13383 
4F13384 
4F13385 
4F13386 
4F13387 
4F13388 
4F13389 
4F 13390 
4F13391 
4F13392 
4F13393 
4F13394 
4F13395 
4F13396 
4F13397 
4F13398 
4F13399 
4F13400 
4F13401 
4F13402 
4F13403 
4F13404 



H 



o 



n 



o 



J 



D 

D 
D 


D 

D 
D 
D 


D 
D 
D 



06271 
06272 
06273 
06274 
06275 
06276 
06277 
06300 
06301 
06302 
06303 
06304 
06305 
06306 
06307 
06310 



00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
-3 00000 
-3 00000 
00000 
00000 
00000 
00000 



04673 
04777 
04764 
05044 
04753 
04772 
05107 
05111 
05066 
05113 
04442 
04512 
04536 
04607 
04660 
04440 
06311 



TXI RDC.O 
TXI W8T*0 
TXI WQT.O 
TXI WRD.O 
TXI RDP»0 
TXI POC»0 
TXI RWN.O 
TXI BSP.O 
TXI EFT»0 
TXL FOR.O 
TXL C3000»0 
TXL C3100»0 
TXI C3200.0 
TXI C3300»0 
TXL C3400.0 
TXL C3500»0 
BSS 10 

END OF TRANSFER TABLE. 



READ CARD* 

WRITE TAPE. 

WRITE OUTPUT TAPE. 

WRITE DRUM* 

PRINT. 

PUNCH. 

REWIND. 

BACKSPACE. 

END FILE. 

FORMAT. 

SUBROUTINE. 

COMMON. 

RETURN. 

CALL. 

END. 

FUNCTION. 



06323 ENDADR BSS 



******************* 



****** 



07307 ENDA 
07307 BIN 
07316 CHR 
07316 
07400 DOLEV 



07401 
07402 
07403 



OP 
RA 
SA 



07404 SYM 

07405 TLDOS 



ORG 3783 
BSS 1 
BES 6 
BSS 50 
BSS 
BSS 
BSS 
BSS 
BSS 



BSS 250 

END OF 

# * * * 



WORKING STORAGE 
******** 



VARIABLE USED BY IOT. 

VARIABLE USED BY IOT. 

PARAMETERS FOR TLDOS TABLE -IOT. 

PARAMETERS FOR TLDOS TABLE -IOT. 

VARIABLE USED BY IOT. 

VARIABLE USED BY 

VARIABLE USED BY 

VARIABLE USED BY 

DO TABLE USED BY 
USED BY STATEA. 
********** 



IOT. 
IOT. 
IOT. 
IOT. 



******** 



END OF THE NON-ARITHMETIC PART OF SECTION ONE. 

• ♦•••ft************************ 



/ STATE B = F0180000. 









ARITHMETIC / STATE B= 








704 FORTRAN MASTER RECORD CARD 




00000 




ORG 


00000 


00506 03440 




PZE ORGB..DMWR06 


00001 


00000 05214 




PZE ENDB-1 




03440 


ORGB 


ORG 1824 



THIS IS A RECODED VERSION OF STATE B OF SECTION ONEt 704 
FORTRAN II. THE SCAN HAS BEEN COMPLETELY RECODED AND LEVEL 
ANALYSIS HAS BEEN FOLDED OVER. 

STATE B CONSISTS OF TWO PARTS.. ..SCAN AND LEVEL ANALYSIS. 
THE SCAN IS LEFT TO RIGHT OVER THE SOURCE STATEMENT WHICH IS 
IN THE F REGION OF COMMON AND IS IN BCD. 
EACH FIXED POINT CONSTANT. FLOATING POINT CONSTANT. AND BCD 



4F13405 
4F13406 
4F13407 
4F13408 
4F13409 
4F13410 
4F13411 
4F13412 
4F13413 
4F13414 
4F13415 
4F13416 
4F13417 
4F13418 
4F13419 
4F13420 
4F134205 
4F13421 
4F134215 
•4F13422 
4F13423 
4F13424 
4F13425 
4F13426 
4F13427 
4F13428 
4F13429 
4F13430 
4F13431 
4F13432 
4F13433 
4F13434 
•4F13435 
4F13436 
4FI343T 
4F13438 
*4F13439 
4F 13440 
4F13441 
4F13442 
4F 134421 
4F134422 
4F 13442 3 
4F13443 
4F 13444 
4F13445 
4F13446 
4F13447 
4F 13448 
4F 13449 
4F13450 
4F13451 
4F13452 
4F13453 



/ 



?'■ 



I HOLLERITH) ARGUMENT IN CALL NAME STATEMENTS ARE ENTERED IN 4F13454 
TABLES AND GIVEN AN INTERNAL VARIABLE NAME. 4F13455 

LEVEL ANALYSIS IS PREFORMED FOR EACH ELEMENT OF THE STATEMENT4F13456 
WHERE AN ELEMENT IS DEFINED AS A VARIABLE. FUNCTION NAME OR (4F13457 



AND THE OPERATOR WHICH PRECEDES IT. 



03440 





76000 





00140 




SLF 




03441 





50000 





04741 




CLA 


SI61ST 


03442 





60100 





00445 




STO 


SIG1IX-3 


03443 





60000 





01122 




STZ 


ARGCTR 


03444 





60000 





01124 




STZ 


CHSAVE 


©3445 





60000 





01117 




STZ 


3LBAR 


03446 





60000 





01360 




STZ 


NBAR 


03447 





60000 





05277 




STZ 


CBAR 


03450 





60000 





05300 




STZ 


ABAR 


03451 





60000 





05301 




STZ 


FSTYPE 


03452 


-0 


53400 


4 


01507 




LXD 


1BAR.4 


03453 


-0 


63400 


4 


01360 




SXD 


NBAR .4 


03454 


-0 


50000 





01500 




CAL 


E( 


03455 





60200 





01120 




SLW 


ARERAS 


03456 





07400 


4 


01671 




TSX 


C0190X.4 


03457 


-0 


50000 





00422 




CAL 


TXHOP 


03460 





63000 





03563 




STP 


MS093 


03461 





63000 





03767 




STP 


MS310 


03462 





63000 





03750 




STP 


MS321 


03463 


-0 


50000 





01512 


MS010 


CAL 


ADPLUS 


03464 





60200 





01127 


MS030 


SLW 


E+l 


03465 





60000 





05303 




STZ 


FNBITS 


03466 





60000 





05304 




STZ 


FNCTR 


03467 





60000 





01347 




STZ 


G 


03470 





50200 





01406 




CLS 


HO) 


©3471 





60100 





01126 




STO 


E 


03472 





53400 


2 


01414 




LXA 


L(6)*2 


03473 


-0 


50000 





01124 


MS040 


CAL 


CHSAVE 


03474 


-0 


10000 





03476 




TNZ 


MS041 


03475 





07400 


4 


01707 




TSX 


C0190.4 


03476 





34000 





01417 


MS041 


CAS 


H9) 


03477 





02000 





03504 




TRA 


MS050 


03500 


3 


00000 





04417 


MS4007 


TXH 


CM4100.C 


03501 





07400 


4 


04463 




TSX 


R0YCNV.4 


0^502 





02000 





04030 




TRA 


HOLL 


03503 





02000 





04076 




TRA 


LATXH 


03504 





53400 


4 


01373 


MS050 


LXA 


L(10) .4 


03505 





34000 


4 


01406 


MS051 


CAS 


CTESTt4 


03506 





02000 





03510 




TRA 


MS052 


03507 





02000 





03543 




TRA 


MS090 


03510 


2 


00001 


4 


03505 


MS052 


TIX 


MS051»4.1 


03511 





76700 


2 


00044 


MS060 


ALS 


36.2 


03512 


-0 


60200 





01347 




ORS 


G 


03513 


1 


00006 


2 


03514 




TXI 


MS061.2.6 


03514 





07400 


4 


01707 


MS061 


TSX 


C0190.4 


03515 





53400 


4 


01373 


MS070 


LXA 


H10J.4 


03516 





34000 


4 


01406 


MS071 


CAS 


CTEST.4 


03517 





02000 





03521 




TRA 


MS072 


03520 





02000 





03545 




TRA 


MS091 



FWA F AND CHCTR - 

SWITCHES FOR LEFT SCAN. 



CLEAR 

X 

X 

X 

X 

X 

X 

SET NBAR=-1 

X 

SET ARERAS - E( 

X 

SET 

SET 

X 

X 

X 

SET OP TO ADDITION 

X 

CLEAR FUNCTION NAME INDICATOR 

CLEAR FUNCTION ARG COUNTER* 

CLEAR RECEIVING CELL. 

SET E = -0 

X 

SET IR2 FOR SIX CHARS. 

CHAR IN CHSAVE. IF ANY. TO AC. 

X 

CHSAVE EMPTY. GET NEXT CHAR. 

IS CHAR. NUMERIC. 

H/» TAK.E TRA 

X 

RETURN 1» THIS WAS HOLLERITH. 

THIS WAS FIXED OR FLOATING CONSTANT. 

PREPARE TO TEST FOR PUNCTUATION. 

X 

CHAR IS SOME PUNCTUATION. 

X 

POSITION CHAR FOR BUILDING SYMBOL. 

ADD CHAR TO THOSE IN G. 

UPDATE POSITIONING TAG. 

GET NEXT CHAR. 

PREPARE TO TEST FOR PUNCTUATION. 

X 

X 

CHAR IS SOME PUNCTUATION. 



4F13458 

4F13459 

4F13460 

4F13461 

4F13462 

4F13463 

4F 13464 

4F 13465 

4F13466 

4F13467 

4F13468 

4F 13469 

4F13470 

4F13471 

4F13472 

4F13473 

4F13474 

4F13475 

4F13476 

4F13477 

4F13478 

4F 13479 

4F13480 

4F 13481 

4F13482 

4F13483 

4F13484 

4F13485 

4F13486 

4F13487 

4F13488 

4F13489 

4F13490 

4F 13491 

4F 13492 

4^13493 

4F13494 

4F 13495 

4F 13496 

4F13497 

4F13498 

4F13499 

4F13500 

4F13501 

4F13502 

4F13503 

4F13504 

4F13505 

4F13506 

4F13507 



U 



o 



o 



r\ 



03521 


2 


00001 


4 


03516 


MS072 


TIX 


MS071.4*! 


03522 


-3 


00022 


2 


03511 




TXL 


MS060*2*16 


03523 





34000 





01422 




CAS 


LIF5 


03524 





02000 





03526 




TRA 


MS073 


03525 





02000 





03530 




TRA 


MS080 


03526 


-3 


00044 


2 


03511 


MS073 


TXL 


MS060»2»36 


03527 





07400 


4 


03400 


MS074 


TSX 


DIAG»4 


03530 





07400 


4 


01707 


MS080 


TSX 


C0190»4 


03531 





34000 





01375 




CAS 


OPEN 


03532 





02000 





03534 




TRA 


MS081 


03533 





02000 





03555 




TRA 


MS092 


03534 





60100 





01331 


MS081 


STO 


FIRSTC 


03535 


-0 


50000 





01422 




CAL 


L(F) 


03536 





76700 


2 


00044 




ALS 


36*2 


03537 


-0 


60200 





01347 




ORS 


G 


03540 


3 


00044 


2 


03527 




TXH 


MS074.2.36 


03541 





50000 





01331 




CLA 


FIRSTC 


03542 


1 


00006 


2 


03515 




TXI 


MS070.2.6 


03543 





60000 





01124 


MS090 


STZ 


CHSAVE 


03544 





02000 


4 


03677 




TRA 


TRBLKA»4 


03545 





60200 





01124 


MS091 


SLW 


CHSAVE 


03546 


-0 


50000 





01430 




CAL 


BLANK 


03547 





76700 


2 


00044 




ALS 


36*2 


03550 


-0 


60200 





01347 




ORS 


G 


03551 





56000 





01347 




LDQ 


G 


03552 


-0 


60000 





01130 




STQ 


E+2 


03553 


-0 


60000 





01350 




STQ 


G+l 


03554 





02000 


4 


03727 




TRA 


TRBLKB»4 


03555 


-0 


75400 





OOOOO 


MS092 


PXD 


.0 


03556 





56000 





01526 




LDQ 


BLANKS 


03557 


-0 


76300 


2 


00052 




LGL 


42*2 


03560 


-0 


50100 





01347 




ORA 


G 


03561 





60200 





01347 




SLW 


G 


03562 





60200 





01130 




SLW 


E+2 


03563 




ooooo 





04026 


MS093 


«** 


MS335.0 


03564 


-0 


53400 


4 


00470 




LXO 


BK»4 


03565 





60200 


4 


00471 




SLW 


FOR SUB » 4 


03566 


-0 


50000 





00030 




CAL 


EIFNO 


03567 


-0 


32000 





01527 




ANA 


MASK1 


03570 





60100 


4 


00472 




STO 


FORSUB+1.4 


03571 


1 


77776 


4 


03572 




TXI 


FS010.4.-2 


03572 


-0 


63400 


4 


00470 


FS010 


SXD 


BK»4 


03573 





07400 


4 


01707 


FS020 


TSX 


C0190*4 


03574 





34000 





01400 




CAS 


EQUAL 


03575 





02000 





03577 




TRA 


FS030 


03576 





02000 





03755 




TRA 


MS322 


03577 





34000 





01417 


FS030 


CAS 


L<9> 


03600 





02000 





03603 




TRA 


FS040 


03601 


3 


OOOOO 





04427 


MS9002 


TXH 


CM4200*0 


03602 





07400 


4 


03400 




TSX 


D1AG»4 


03603 





07400 


2 


01624 


FS040 


TSX 


C0160»2 


03604 





07400 


4 


03255 




TSX 


TESTB0»4 


03605 


-0 


53400 


2 


01122 




LXO 


ARGCTR.2 


03606 





56000 





01112 




LDQ 


1G 



IF THIS IS CHAR 1* 2 /R 3 GO BUILD G« 

IS THIS AN F ENDING FUNCTION NAME. 

X 

MAYBE» GO LOOK AT NEXT CHAR. 

TEST FOR UNDER 7 CHARS. 

BUILD G* 7TH CHAR IS ERROR. 

GET NEXT CHAR. 

TEST FOR i. 

X 

YES* THIS IS A FUNCTION NAME. 

NO. SAVE CURRENT CHAR. 

ADD F TO CONTENTS OF 6. 

X 

X 

TEST FOR 7TH CHAR. YES IS ERROR. 

RESTORE CURRENT CHAR. 

UPDATE POSITIONING TAG. 

CLEAR 

OP IS IN NEXT ELEMENT. SAVE. 

ADD BLANK TO CHARS IN G. 

X 

X 

MOVE G TO E+2 AND TO G+l. 

X 

X 

NOW BRANCH TO INDIVIDUAL ROUTINE 

CLEAR 

ADD BLANKS TO SUBROUTINE NAME IN G. 

X 
X 
X 

MOVE FUNCTION NAME TO E+2. 

TXH FOR LEFT SIDE. TXL FOR RIGHT SIDE. 

THIS IS ARITH FUNCTION STATEMENT. 

ENTER FUNCTION NAME IN FORSUB TABLE. 

ENTER INTERNAL FORMULA NO IN FORSUB. 

X 

X 

UPDATE COUNT OF ENTRIES IN FORSUB. 

X 

GET FIRST CHAR OF ARGUMENT. 

TEST FOR EQUAL. 

X 

60 MOVE FROM E» E+l» E+2 TO LEFT. LEFT+1 

TEST FOR ILLEGAL ARGUMENT. 

LEGAL* CONTINUE 

BEGINS NUMERIC* ERROR. 

COLLECT ARGUMENT NAME IN 1G. 

TEST CHAR FOLLOWING ARG FOR » OR) 

GET COUNT OF ARGUMENTS 

ENTER ARGUMENT NAME IN ARGREG TABLE. 



4F13508 
4F13509 
4F13510 
4F13511 
4F13512 
4F13513 
4F13514 
4F13515 
4F13516 
4F13517 
4F13518 
4F13519 
4F13520 
4F13521 
4F13522 
4F13523 
4F13524 
4F13525 
4F13526 
4F13527 
4F13528 
4F13529 
4F13530 
4F13531 
4F13532 
4F13533 
. 4F13534 
4F13535 
4F13536 
4F13537 
4F13538 
4F13539 
4F13540 
4F13541 
4F13542 
4F13543 
4F13544 
4F13545 
4F13546 
4F13547 
4F13548 
4F13549 
4F13550 
4F13551 
4F13552 
.+24F13553 
4F13554 
4F13555 
4F13556 
4F13557 
4F13558 
4F13559 
4F13560 
4F13561 



*; 



03607 


-0 


60000 


2 


05215 




STQ 


AR6REG»2 


03610 


1 


77777 


2 


03611 




TXI 


FS050»2»-1 


03611 


-0 


63400 


2 


01122 


FS050 


SXO 


ARGCTR*2 


03612 


3 


77716 


2 


03573 




TXH 


FS020»2»-50 


03613 





07400 


4 


03400 




TSX 


DIAG.4 


03614 





07400 


4 


04470 


MS200 


TSX 


DECPNT.4 


03615 





07400 


4 


03400 




TSX 


DIAG.4 


03616 





02000 





04076 




TRA 


LATXH 


03617 





76000 





00141 


MS210 


SLN 


1 


03620 


-0 


53400 


1 


01117 




LXO 


3LBAR»1 


03621 


-0 


53400 


4 


05300 




LXD 


ABAR.4 


03622 





50200 


4 


05301 




CLS 


ALPHA-4»4 


03623 





60100 


1 


05520 




STO 


LAMBDA »1 


03624 


-0 


50000 





01522 




CAL 


ADSPOP 


03625 





60200 


1 


05521 




SLW 


LAMBDA+1»1 


03626 





50000 





01360 




CLA 


NBAR 


03627 





77100 





00022 




ARS 


18 


03630 





60100 


1 


05522 




STO 


LAMBDA+2 1 1 


03631 


1 


77775 


1 


03632 




TXI 


MS211»l»-3 


03632 


-0 


63400 


1 


01117 


MS211 


SXD 


3LBAR»1 


03633 


-0 


53400 


1 


01360 




LXD 


NBARtl 


03634 


-0 


63400 


1 


05277 




SXD 


CBAR»1 


03635 


1 


77777 


1 


03636 




TXI 


MS212»1»-1 


03636 


-0 


63400 


1 


01360 


MS212 


SXO 


NBAR»1 


03637 


1 


00003 


4 


03640 




TXI 


MS213»4.3 


03640 


-0 


63400 


4 


05300 


MS213 


SXO 


ABAR.4 


03641 





02000 





03463 




TRA 


MS010 


03642 


-0 


53400 


4 


05300 


MS220 


LXD 


ABARt4 


03643 





50000 


4 


05301 




CLA 


ALPHA-4»4 


03644 





73400 


1 


00000 




PAX 


♦ 1 


03645 


-0 


63400 


1 


05277 




SXD 


CBARtl 


03646 


1 


00004 


4 


03647 




TXI 


MS221»4»4 


03647 


-0 


63400 


4 


05300 


MS221 


SXD 


ABAR.4 


03650 





02000 





0*425 




TRA 


MS020 


03651 


-0 


53400 


4 


05300 


MS230 


LXD 


ABAR*4 


03652 


1 


00003 


4 


03653 




TXI 


MS231»4»3 


03653 


-3 


00000 


4 


03655 


MS231 


TXL 


MS232»4*0 


03654 





07400 


4 


03400 




TSX 


DIAG»4 


03655 


-0 


53400 


4 


01122 


MS232 


LXD 


ARGCTR.4 


03656 


-3 


00000 


4 


02406 




TXL 


STATEC»4»0 


03657 


-0 


50000 





05301 




CAL 


FSTYPE 


03660 





40000 





01407 




ADD 


LU> 


03661 


-0 


53400 


1 


00470 




LXD 


BK*1 


03662 





62100 


1 


00*70 




STA 


FORSUB-lfl 


03663 


-0 


60200 





01120 




ORS 


ARERAS 


03664 





02000 





02406 




TRA 


STATEC 


03665 





02000 





03651 




TRA 


MS230 


03666 





02000 





03712 




TRA 


MS260 


03667 





02000 





03617 




TRA 


MS210 


03670 





02000 





03642 




TRA 


MS220 


03671 





07400 


4 


03400 


MSERR= 


TSX 


DIAG»4 


03672 





02000 





03707 




TRA 


MS250 


03673 





02000 





03707 




TRA 


MS250 


©3674 





O2000 





03614 




TRA 


MS200 



UPDATE COUNT OF ARGUMENTS. 

TEST FOR ARGREG TABLE OVERFLOW. 

YES* ERROR. 

CONVERT BCD NUMBER TO BINARY 

HOLLERITH RETURN* ERROR. 

FLOATING POINT CONSTANT RETURN. 

TURN * LITE ON. 

PERFORM LEVEL ANALYSIS FOR • 



PERFORM LEVEL ANALYSIS FOR ) 



PERFORM LEVEL ANALYSIS FOE ENDMK. 

FINISHED* HAS LEVEL BEEN REDUCED TO ZERO. 

NO* ERROR* 

WAS THIS AN ARITH FUNCTION STATEMENT 

YES* UPDATE FUNCTION TYPE AND 

COMPLETE FORSUB ENTRY BY ASSIGNING 

TYPE NUMBER. 

X 

ALSO SAVE FOR LATER REFERENCE. 

ENDMK 
t 
* 
» 



4F13562 

4F13563 

4F13564 

4F13565 

4F13566 

4F13567 

4F13568 

4F13569 

4F13570 

4F13571 

4F13572 

4F13573 

4F13574 

4F13575 

4F13576 

4F13577 

4F13578 

4F13579 

4F13580 

4F13581 

4F13582 

4F13583 

4F13584 

4F13585 

4F 13586 

4F13587 

4F13588 

4F13589 

4F13590 

4F13591 

4F13592 

4F13593 

4F13594 

4F13595 

4F13596 

4F13597 

4F13598 

4F13599 

4F13600 

4F13601 

4F13602 

4F13603 

4F13604 

4F13605 

4F13606 

4F13607 

4F13608 

4F13609 

4F13610 

4F13611 

4F13612 

4F13613 

4F13614 

4F13615 



w 



u 



o 



o 



r\ 



03675 





02000 





03707 




TRA 


MS250 


* 


4F13616 


03676 





76700 





00036 


MS240 


ALS 


30 


* SAVE * 


4F 13617 










03677 


TRBLKA 


BSS 







4F13618 


03677 





60200 





01127 




SLW 


E+l 


X 


4FI3619 


03700 





07400 


4 


01707 




TSX 


C0190»4 


GET NEXT CHAR. 


4F13620 


03701 





34000 





01405 




CAS 


STAR 


IS IT * 


4F13621 


03702 





02000 





03476 




TRA 


MS041 


X 


4F 13622 


03703 





02000 





03705 




TRA 


MS241 


YES* THIS WAS ** 


4F13623 


03704 





02000 





03476 




TRA 


MS041 


N0» GO COMPARE TO OTHER PUNCTUATION. 


4F13624 


03705 


-0 


50000 





01525 


MS241 


CAL 


STRSTR 


REPLACE * WITH ** 


4F13625 


03706 





02000 





03710 




TRA 


MS251 


X 


4F13626 


03707 





76700 





00036 


MS250 


ALS 


30 


POSITION CHAR WHICH IS + OR - OR / 


4F13627 


03710 





60200 





01127 


MS251 


SLW 


E+l 


PUT CURRENT OP IN E+l. 


4F13628 


03711 





02000 





03473 




TRA 


MS040 


NOW GO COLLECT SYMBOL. 


4F13629 


03712 





76700 





00036 


MS260 


ALS 


30 


t TO SYMBOL WORD 


4F13630 


03713 





60200 





01130 




SLW 


E+2 


X 


4F13631 


03714 





02000 





04074 




TRA 


LATXL 


GO PERFORM LEVEL ANALYSIS FOR ( 


4F13632 


03715 





02000 





03726 




TRA 


MS300 


ENDMK 


4F13633 


03716 





02000 





03747 




TRA 


MS 320 


( 


4F13634 


03717 





02000 





03726 




TRA 


MS300 


* 


4F13635 


03720 





02000 





03726 




TRA 


MS 3 00 


) 


4F13636 


03721 





02000 





03767 




TRA 


MS310 


X 


4F13637 


03722 





02000 





03726 




TRA 


MS300 


- 


4F13638 


03723 





02000 





03726 




TRA 


MS 300 


/ 


4F13639 


03724 





07400 


4 


03400 




TSX 


DIAG»4 


• 


4F 13640 


03725 





02000 





03726 




TRA 


MS300 


+ 


4F 13641 


03726 


-0 


75400 





00000 


MS300 


PXO 


• 


* CLEAR 


4F13642 










03727 


TRBLKB 


BSS 





BASE ADDRESS FOR TAGGED TRANSFER. 


4F13643 


03727 


-0 


76300 





00006 




LGL 


6 


GET FIRST CHAR OF SYMBOL. 


4F13644 


03730 





07400 


1 


03242 




TSX 


TESTFX+1»1 


TEST FOR FIXED OR FLOATING POINT. 


4F13645 


03731 





02000 





04074 




TRA 


LATXL 


FLOATING* GO PERFORM LEVEL ANALYSIS. 


4F13646 


03732 


-0 


50000 





00030 




CAL 


EIFNO 


FIXED* PREPARE FORVAR ENTRY. 


4F13647 


03733 


-0 


32000 





01527 




ANA 


MASK1 


X 


4F 13648 


03734 





60200 





01347 




SLW 


G 


X 


4F13649 


03735 





07400 


1 


03321 




TSX 


TETOOtl 


MAKE FORVAR ENTRY. 


4F13650 


03736 





00000 





00005 






5 


X 


4F13651 


03737 


-0 


75400 





00000 




PXO 


*0 




4F13652 


03740 





56000 





01356 




LDO 


LEFT+2 




4F13653 


03741 


-0 


76300 





00014 




LGL 


12 




4F13654 


03742 





40200 





01451 




SUB 


CALLER 




4F13655 


03743 


-0 


10000 





04074 




TNZ 


LATXL 




4F13656 


03744 





07400 


1 


03321 




TSX 


TETOO.l 




4F13657 


03745 





00000 





00006 






6 




4F13658 


03746 





02000 





04074 




TRA 


LATXL 


GO PERFORM LEVEL ANALYSIS. 


4F13659 


03747 





60000 





01124 


MS320 


STZ 


CHSAVE 


CLEAR CELL FOR OP. 


4F13660 


03750 




00000 





04003 


MS321 


*** 


MS330»0 


TXH ON LEFT* TXL ON RIGHT OF = SIGN. 


4F13661 


03751 





07400 


4 


04450 




TSX 


SS000X»4 


GO PROCESS SUBSCRIPT COMBINATION. 


4F13662 


03752 





07400 


4 


01707 




TSX 


C0190»4 


6ET NEXT CHAR. 


4F 13663 


03753 





40200 





01400 




SUB 


EQUAL 


TEST FOR EQUAL SIGN. 


4F13664 


03754 


-0 


10000 





03671 




TNZ 


MSERR= 


NO* ERROR. 


4F13665 


03755 





53400 


4 


01411 


MS322 


LXA 


L(3>»4 


MOVE CONTENTS OF E WORDS TO LEFT WORDS. 


4F13666 


03756 





56000 


4 


01131 


MS323 


LOQ 


E+3.4 


X 


4F 13667 


03757 


-0 


60000 


4 


01357 




STQ 


LEFT+3»4 


X 


4F13668 


03760 


2 


00001 


4 


03756 




TIX 


MS323.4.1 


X 


4F 13669 



1? 



' V 



03761 


-0 


50000 





00415 


MS311 


CAL 


TXLOP 


63762 





63000 





03563 




STP 


MS093 


03763 





63000 





03767 




STP 


MS310 


03764 





63000 





03750 




STP 


MS321 


03765 





76000 





00141 




5LN 


1 


03766 





02000 





03463 




TRA 


MS010 


03767 




00000 





03671 


MS310 


*** 


MSERR=»0 


03770 





60000 





01124 




STZ 


CHSAVE 


03771 


-0 


75400 





00000 




PXD 


.0 


03772 


-0 


76300 





00006 




LGL 


6 


03773 





07400 


1 


032*2 




TSX 


TESTFX+ltl 


03774 





02000 





03755 




TRA 


MS322 


03775 


-0 


50000 





00030 




CAL 


EIFNO 


03776 


-0 


32000 





01527 




ANA 


MASK1 


03777 





60200 





01347 




SLW 


6 


04000 





07400 


1 


03321 




TSX 


TETOO.l 


04001 





00000 





00006 






6 


04002 





02000 





03755 




TRA 


HS322 


04003 





07400 


4 


01771 


MS330 


TSX 


0IM1SR»4 


04004 





02000 





04006 




TRA 


MS331 


04005 





02000 





04013 




TRA 


MS333 


04006 





07400 


4 


01775 


MS331 


TSX 


DIM2SR.4 


04007 





02000 





04011 




TRA 


MS332 


04010 





02000 





04013 




TRA 


MS333 


04011 





07400 


4 


02005 


MS332 


TSX 


DIM3SR»4 


04012 





02000 





04015 




TRA 


MS334 


04013 





07400 


4 


04450 


MS333 


TSX 


SS000X*4 


04014 





02000 





04076 




TRA 


LATXH 


04015 


-0 


50000 





01471 


MS334 


CAL 


FNIND 


04016 





60200 





05303 




SLW 


FNBITS 


04017 


-0 


75400 





00000 




PXD 


• 


04020 





56000 





01526 




LOO 


BLANKS 


04021 


-0 


76300 


2 


00052 




LGL 


42 » 2 


04022 


-0 


60200 





01347 




ORS 


G 


04023 


-0 


60200 





01130 




ORS 


E+2 


04024 





07400 


1 


03321 




TSX 


TETOO.l 


04025 





00000 





00011 






9 


04026 





76000 





00142 


MS335 


SLN 


2 


04027 





02000 





04074 




TRA 


LATXL 


04030 





60000 





01124 


HOLL 


ST2 


CHSAVE 


04031 


-0 


50000 





01352 




CAL 


HOLCNT 


04032 





60200 





01130 




SLW 


E+2 


04033 





53400 


2 


01103 




LXA 


Nt2 


04034 


-0 


53400 


4 


01724 




LXO 


CHCTR.4 


04035 





56000 





01365 




LDQ 


RESIDU 


04036 





53400 


1 


01414 


C3351 


LXA 


L(6).l 


04037 


-0 


75400 





00000 




PXD 


0*0 


04040 


-2 


00001 


4 


04033 


C3352 


TNX 


C3354.4«l 


04041 


-0 


76300 





00006 


C33525 


LGL 


6 


04042 





60200 





01112 




SLW 


1G 


04043 


-0 


32000 





01374 




ANA 


ENDMK 


04044 





40200 





01374 




SUB 


ENDMK 


04045 


-0 


10000 





04047 




TNZ 


C3353 


04046 





07400 


4 


03400 




TSX 


DIAG.4 



SET SWITCHES FOR RIGHT SIDE SCAN. 

X 

X 

X 

TURN a OR ) LITE ON. 

GO SCAN NEXT ELEMENT. 

TXH FOR LEFT* TXL FOR RIGHT OF EQUAL SIGN* 

CLEAR 

CLEAR AC. 

GET FIRST CHAR OF SYMBOL* 

TEST FOR FIXED OR FLOATING POINT 

FLOATING. 

FIXED* PREPARE FORVAL ENTRY. 

X 

X 

MAKE FORVAL ENTRY. 

X 

SEARCH FOR THIS NAME IN THE DIM1. DIM2* 

AND DIM3 TABLES. IF IT IS FOUND IN ONE OF 

THESE TABLES IT IS A SUBSCRIPTED VARIABLE 

OF THAT NUMBER OF DIMENSIONS. IF IT IS NOT 4F13690 

FOUND IN ANY DIMENSION TABLE THEN IT IS 4F13691 

ASSUMED TO BE THE NAME OF A FORTRAN II 4F13692 

SUBROUTINE OR FUNCTION COMPILED SEPARATELY»4F13693 



4F13670 

4F13671 

4F13672 

4F13673 

4F 13674 

4F13675 

4F13676 

4F13677 

4F136775 

4F13678 

4F13679 

4F13680 

4F13681 

4F13682 

4F13683 

4F13684 

4F13685 

4F13686 

4F13687 

4F13688 

4F13689 



GO PROCESS SUBSCRIPT COMBINATION. 

GO PERFORM LEVEL ANALYSIS. 

NOT FOUND, TREAT AS FUNCTION NAME. 

X 

X 

COMPLETE NAME WITH BLANKS. 

X 

X 

X 

ENTER NAME IN CLOSUB TABLE. 

X 

TURN FUNCTION LITE ON. 

GO PERFORM LEVEL ANALYSIS. 

CLEAR CHSAVE 

GET CURRENT Hl+I WORD 

GET NUMBER OF CHARACTERS IN THIS ARG 

GET CURRENT RESIDUE CHAR COUNT 

6ET CURRENT RESIDU WORD 

SET TO COLLECT SIX CHARS 

CLEAR AC 

TEST FOR NO MORE CHARS IN RESIDU 

GET NEXT CHAR 

STORE WORD 

BLANK ALL EXCEPT CURRENT CHAR 

TEST FOR INTERNAL ENDMK 

YES. ERROR. 60 TO DIAGNOSTIC. 



4F13694 

4F13695 

4F 13696 

4F13697 

4F13698 

4F13699 

4F13700 

4F13701 

4F13702 

4F13703 

4F13704 

4F13705 

4F13706 

4F13707 

4F13708 

4F13709 

4F13710 

4F13711 

4F13712 

4F13713 

4F13714 

4F13715 

4F13716 

4F13717 

4F13718 

4F13719 

4F13720 

4F13721 

4F13722 



u 



















04047 


-0 


50000 





01112 


C3353 




04050 


-2 


00001 


2 


04063 






04051 


-2 


0O001 


1 


04061 






04052 





02000 





04040 






04053 


-0 


53400 


4 


01614 


C3354 




04054 





56000 


4 


00000 






04055 


1 


77777 


4 


04056 






04056 


-0 


63400 


4 


01614 


C3355 




04057 





53400 


4 


01414 






04060 





02000 





04041 






04061 





07400 


1 


04437 


C3356 




04062 


1 


00000 





04036 


C3357 




04063 


-0 


60000 





01365 


C3358 




04064 


-0 


63400 


4 


01724 






04065 


-2 


00001 


1 


04071 






04066 





56000 





01526 






04067 


-0 


76300 





00006 


C3359 




04070 


2 


00001 


1 


04067 






04071 





07400 


1 


04437 


C3360 




04072 


-0 


50000 





01531 






04073 





07400 


1 


04437 






0407<t 


-0 


50000 





00415 


LATXL 




04075 





02000 





04077 






04076 


-0 


50000 





00422 


LATXH 




04077 





63000 





04424 






04100 





53400 


1 


01406 


LAOOOO 




04101 





50000 





01130 






04102 


-0 


76000 





00142 






04103 





02000 





04144 






04104 





76000 





00142 






04105 


-0 


53400 


4 


00470 






04106 


-3 


00000 


4 


04115 






04107 


-0 


63400 


4 


04114 






04110 





34000 


1 


00471 






04111 


1 


77776 


1 


04114 






04112 


.0 


02000 





04117 






04113 


1 


77776 


1 


04114 






04114 


3 


00000 


1 


04110 






04115 





60000 





05302 






04116 





02000 





04131 






04117 


-0 


50000 


1 


00472 






04120 


-0 


32000 





01452 






04121 


-0 


53400 


4 


01122 






04122 


-3 


00000 


4 


04126 






04123 





34000 





05301 






04124 





62100 





05301 






D 04125 


3 


00000 





00000 






04126 





76700 





00007 






04127 


-0 


50100 





01464 






04130 





60200 





05302 






04131 


-0 


53400 


1 


01117 






04132 


-0 


53400 


2 


01360 






04133 


-0 


53400 


4 


05300 




*■*■■ 


















CAL 16 

TNX C3358*2»l 
TNX C3356»l«l 
TRA C3352 
LXO FWA»4 
LOQ 0*4 
TXI C3355»4t-1 
SXD FWA»4 
LXA L(6).4 
TRA C33525 
TSX C3390»l 
TXI C3351»0t** 
STQ RESIDU 
SXD CHCTR»4 
TNX C3360»l»l 
LDQ BLANKS 
LGL 6 

TIX C3359tl»l 
TSX C3390»l 
CAL ALL1 
TSX C3390»l 

LEVEL ANALYSIS 
CAL TXLOP 
TRA LATXL+3 
CAL TXHOP 
STP CM4105 
LXA L(0)»A 
CLA E+2 
SLT 2 

TRA LA0000+36 
SLN 2 
LXD BK»C 

TXL LAO000+13*C»O 
SXD LA0OO0+12»C 
CAS FORSUB «A 
TXI LA00O0+12tA»-2 
TRA LA0000+15 
TXI LA0000+12»A»-2 
TXH LA0000+8»A»0 
STZ FSBITS 
TRA LA0000+25 
CAL FORSUB+l.A 
ANA MASK2 
LXD AR6CTR»C 
TXL LAOOO0+22»C»O 
CAS FSTYPE 
STA FSTYPE 
TXH OiO 
ALS 7 
ORA FSIND 
SLW FSBITS 
LXD 3LBAR»A 
LXD NBAR»B 
LXD ABAR»C 



RETREIVE WORD 

TEST FOR ALL CHARS COLLECTED 

TEST FOR SIX CHARS COLLECTED 

NOT SIX CHARS YET* CONTINUE COLLECTI 

LOAD MQ WITH NEXT F RE6I0N WORD 

UPDATE FWA 

RESET MQ CHAR COUNT TO SIX 

CONTINUE COLLECTING 

GO TO ENTER WORD IN HOLARG TABLE 

RETURN TO CONTINUE COLLECTING 

UPDATE RESIDU 

UPDATE CHCTR 

TEST FOR SIX CHARS IN AC» DEC IR1 

NOT SIX CHARS* PREPARE TO ADD BLANKS 

ADD BLANKS 

GO TO ENTER WORD IN HOLARG TABLE 

GET WORD OF ONES 

GO TO ENTER WORD IN HOLARG TABLE 



IS THIS A FUNCTION NAME 

NO 

YES - TURN F LITE BACK ON 

IS FORSUB EMPTY 

YES. GO SET FS BITS TO 

SEARCH FN NAME IN FORSUB 



SET FSBITS TO O 

FN NAME IN FORSUB 

EXTRACT TYPE NUMBER 

IS THIS A FUNCTION STATEMENT 

NO 

YES - UPDATE FS TYPE 



LOAD LA COUNTERS 



4F13723 
4F13724 
4F13725 
NG4F13726 
4F13727 
4F13728 
4F13729 
4F13730 
4F13731 
4F13732 
4F13733 
4F13734 
4F13735 
4F13736 
4F13737 
4F13738 
4F13739 
4F13740 
4F13741 
4F13742 
4F13743 
4F13744 
4F 13745 
4F13746 
4F13747 
4F 13748 
4F13749 
4F13750 
4F13751 
4F13752 
4F13753 
4F13754 
4F13755 
4F 13756 
4F13757 
4F13758 
4F13759 
4F13760 
4F13761 
4F13762 
4F13763 
4F13764 
4F13765 
4F13766 
4F13767 
4F13768 
4F13769 
4F13770 
4F13771 
4F13772 
4F13773 
4F13774 
4F13775 
4F13776 



III 






64134 
04135 
04136 
04137 
04140 
04141 
04142 
04143 
04144 
04145 
04146 
04147 
04150 
04151 
04152 
04153 
04154 
04155 
04156 
04157 
04160 
04161 
04162 
04163 
04164 
04165 
04166 
04167 
04170 
04171 
04172 
04173 
04174 
04175 
04176 
04177 
04200 
04201 
04202 
04203 
04204 
04205 
04206 
04207 
04210 
04211 
04212 
04213 
04214 
04215 
04216 
04217 
04220 
04221 



00000 
75520 
07400 
77323 
07400 
00000 
77565 
07400 
53400 
00000 
63400 
34000 
77777 
02000 
77777 
00000 
02000 
75400 
77100 
02000 
50O00 
62100 
75400 
56000 
60000 
60000 
60000 
76300 
60100 
40200 
10000 
50000 
76000 
02000 
76000 
50000 
62100 
50000 
60100 
60100 
60100 
50000 
60200 
60200 
60200 
75400 
56000 
60000 
76300 
34000 
02000 
02000 
76000 
02000 





-0 

-0 







-0 





04160 
04137 
03^00 
04141 
03400 
04160 
04160 
03400 
01122 
04115 
04153 
05215 
04153 
04155 
04153 
04147 
04115 
00000 
00013 
04127 
03601 
04366 
00000 
01130 
05533 
05530 
05525 
00006 
01331 
01375 
04201 
03500 
00142 
04200 
00142 
04227 
04366 
01126 
05531 
05526 
05523 
01522 
05535 
05532 
05527 
00000 
01127 
05521 
00006 
01405 
04262 
04252 
00142 
04236 



TXL 
TXH 
TSX 

LA0001 TXH 
TSX 

LA0002 TXL 
TXH 
TSX 
LXO 
TXL 
SXO 
CAS 
TXI 
TRA 
TXI 
TXH 
TRA 

MS1018 PXD 
ARS 
TRA 

LA0003 CLA 
STA 
PXD 
LDQ 
STQ 
STQ 
STQ 
LG'- 
STO 
SUB 
T2E 
CLA 
SLT 
TRA 
SLN 
CLA 

UA002 STA 

LA003 CLA 
STO 
STO 
STO 
CAL 
SLW 
SLW 
SLW 
PXD 
LDQ 
STQ 
LGL 
CAS 
TRA 
TRA 
SLT 
TRA 



LA0003«A»0 

LA0001»A»-1200 

DIAGt4 

LA0002#B*-301 

D1AG»4 

LA0003»C»0 

LA0003.C»-139 

DIAG»4 

ARGCTR»C 

LAO0OO+13»C*0 

LA0OOO+43»C 

ARGREG»A 

LA0000+43»A»-1 

MS 10 18 

LA0000+43tA»-l 

LA0000+39»A»0 

LAO0O0+13 

O.A 

11 

LA0000+23 

MS9002 

LA4320 

OtO 

E+2 

LAMBDA+11»A 

LAMBDA+8»A 

LAMBDA+5»A 

6 

FIRSTC 

OPEN 

LA003 

MS4007 

2 

LA002 

2 

FINI03 

LA4320 

E 

LAMBDA+9«A 

LAMBDA+6»A 

LAMBDA+3fA 

ADSPOP 

LAMBDA+13»A 

LAMBDA+10»A 

LAMBDA+7»A 

»0 

E+l 

LAMBDA+liA 

6 

STAR 

LA0015 

LA0010 

2 

LA0044 



ERROR*. LAMBDA TABLE EXCEEDED* 
ERROR.. BETA TABLE EXCEEDED 



ERROR. .ALPHA TABLE EXCEEDED 
VARIABLE OR { 

MOT AN FS - GO SET FS BITS TO 
FUNCTION STATEMENT 
SEARCH FREE VARIABLE TABLE 



NOT PRESENT - GO SET FSBITS TO 
PRESENT - STORE TYPE IN FSBITS 



/ SIGN 

* OR ** SIGN 

+ OR - SIGN 



4F 13777 

4F13778 

4F13779 

4F13780 

4F13781 

4F13782 

4F13783 

4F13784 

4F13785 

4F13786 

4F 13787 

4F13788 

4F13789 

4F13790 

4F13791 

4F13792 

4F13793 

4F13794 

4F13795 

4F13796 

4F13797 

4F13798 

4F 13799 

4F13800 

4F13801 

4F13802 

4F13803 

4F13804 

4F13605 

4F13806 

4F13807 

4F13808 

4F13809 

4F13810 

4F13811 

4F13812 

4F13813 

4F13814 

4F13815 

4F13816 

4F13817 

4F13818 

4F13819 

4F13820 

4F13821 

4F13822 

4F13823 

4F13824 

4FI3825 

4F13826 

4F13827 

4F13628 

4F13829 

4F13830 



I'f 






O 



n 






04222 


1 


77775 


2 


04223 




TXI 


MS1033»B»-3 


04223 


-0 


75400 


2 


00000 


MS1033 


PXD 


»B 


04224 





77100 





00022 




ARS 


18 


04225 





60100 


1 


05536 




STO 


LAMBDA+14»A 


04226 


1 


00001 


2 


04227 




TXI 


FINI03.B.1 


©4227 


-0 


75400 


2 


04432 


FINI03 


PXD 


CM4300»B 


04230 





77100 





00022 




ARS 


16 


04231 


-0 


76000 





00003 




SSM 




04232 





60100 


1 


05534 




STO 


LAMBDA+12»A 


04233 


-0 


76000 





00141 


LA0041 


SLT 


1 


04234 


1 


00001 


2 


04330 




TXI 


L43130»B»1 


04235 


1 


00001 


2 


04272 




TXI 


L13130.B*1 


04236 





50000 





01331 


LA0044 


CLA 


FIRSTC 


04237 


c 


34000 





01375 




CAS 


OPEN 


04240 





02000 





04242 




TRA 


LA0050 


04241 


1 


77775 


2 


04245 




TXI 


LA0058»B»-3 


04242 


-0 


76000 





00141 


LA0050 


SLT 


1 


04243 


1 


77777 


2 


04334 




TXI 


LA4000»B»-1 


04244 


1 


77777 


2 


04276 




TXI 


LA1000»B»-1 


04245 


-0 


75400 


2 


00000 


LA0058 


PXD 


♦ B 


04246 





77100 





00022 




ARS 


18 


04247 





60100 


1 


05533 




STO 


LAMBDA+11»A 


04250 





40000 





01407 




AOO 


L(l) 


04251 


1 


00001 


2 


04233 




TXI 


LA0041»2tl 


04252 





16200 





04262 


LA0010 


TQP 


LA0015 


04253 


-0 


76000 





00142 




SLT 


2 


04254 





02000 





04256 




TRA 


LA0072 


04255 


1 


77777 


2 


04311 




TXI 


L23000.B.-1 


04256 





50000 





01331 


LA0072 


CLA 


FIRSTC 


04257 





40200 





01375 




SUB 


OPEN 


04260 


-0 


10000 





04324 




TNZ 


LA2000 


04261 


1 


77777 


2 


04304 




TXI 


L22000.B.-1 


04262 


-0 


76000 





00142 


LA0015 


SLT 


2 


04263 





02000 





04265 




TRA 


LA0021 


04264 


1 


77776 


2 


04374 




TXI 


L3300O*B»-2 


04265 





50000 





01331 


LA0021 


CLA 


FIRSTC 


04266 





34000 





01375 




CAS 


OPEN 


04267 


1 


77777 


2 


04407 




TXI 


LA3000»B»-1 


04270 


1 


77776 


2 


04367 




TXI 


L320Q0.B»-2 


04271 


1 


77777 


2 


04407 




TXI 


LA3000»B»-1 


04272 





60200 


4 


05310 


L13130 


SLW 


ALPHA+3»C 


04273 





50200 





01406 




CLS 


L(0) 


04274 





60100 


1 


05531 




STO 


LAMBDA+9»A 


04275 





76000 





00141 




SLN 


1 


04276 





50200 





05277 


LA10O0 


CLS 


CBAR 


04277 





77100 





00022 




ARS 


18 


04300 





60200 


4 


05305 




SLW 


ALPHA.C 


04301 


1 


77775 


4 


04302 




TXI 


LA1040»C»-3 


04302 


-0 


634O0 


4 


05300 


LA1040 


SXD 


ABAR»C 


04303 





02000 





04335 




TRA 


LA4010 


04304 


-0 


75400 


2 


00000 


L22000 


PXD 


• B 


04305 





77100 





00022 




ARS 


18 


04306 





60100 


1 


05525 




STO 


LAMB0A+5»A 


04307 





40000 





01407 




AOO 


LCI) 



-N TO -(N+3J 



STO (N+3) IN LAMBDA+3 (L+4)+2 
-<N+3) TO - (N+2) 



STO -J N+2) IN LAMBDA+3 (L+4) 

UNARY... -(N+2) TO -(N+l) 
BINARY. ♦* -(N+2) TO - (N+l) 

EXAMINE SYMBOL 

-N TO -(N+3) 

UNARY. •• -NTO -(N+l) 
BINARY... -N TO -(N+l) 



STO S(N+3) IN LAMBDA +3(L+3)+2 
FORM -(N+2) IN ADD (ACC) 

GO TO * ROUTINE 

#* 

-N TO -(N+l) 



-N TO -(N+l) 
* OR / 

-N TO -(N+2) 



-N TO -N(+2) 

STO -(N+2) IN ALPHA+A+3 

STO -0 IN LAMBDA +3(L+3) 



STO -C IN ALPHA+A 
-A TO - (A+3) 



STO S(N+li IN LAMBDA+3 (L+D+2 



4F13831 
4F13832 
4F13833 
4F13834 
4F13835 
4F13836 
4F13837 
4F13838 
^F13839 
4F13840 
4F13841 
4F13842 
4F13843 
4F13844 
4F13845 
4F13846 
4F13847 
4F13848 
4F 13849 
4F13850 
4F13851 
4F13852 
4F13853 
4F13854 
4F13855 
4F13856 
4F13857 
4F13858 
4F13859 
4F13860 
4F13861 
4F13862 
4F13863 
4F13864 
4F13865 
4F 13866 
4F13867 
4F13868 
4F13869 
4F13870 
4F13871 
4F13872 
4F13873 
4F13874 
4F13875 
4F13876 
4F13877 
4F13878 
4F13879 
4F13880 
4F13881 
4F13882 
4F13883 
4F13884 



/'3 



04310 


1 


00001 


2 


04320 




TXI 


L23130tB»l 


04311 


-0 


75400 


2 


00000 


L23000 


PXD 


»B 


04312 





77100 





00022 




ARS 


18 


04313 





60100 


1 


05530 




STO 


LAMBDA+8»A 


04314 





40000 





01407 




ADO 


L(l) 


04315 


-0 


76000 





00003 




SSM 




04316 


1 


00001 


2 


04317 




TXI 


L23090«B*1 


04317 





60100 


1 


05526 


L23090 


STO 


LAMBDA+6»A 


04320 





60200 


4 


05305 


L23130 


SLW 


ALPHA»C 


04321 





50200 





01406 




CLS 


LtO) 


04322 





60100 


1 


05523 




STO 


LAMB0A+3»A 


04323 





76000 





00141 




SLN 


1 


04324 





50200 


4 


05304 


LA2000 


CLS 


ALPHA-1»C 


04325 





60100 


1 


05520 




STO 


LAMBDA* A 


04326 





50000 





01360 




CLA 


NBAR 


04327 


1 


00006 


1 


04355 




TXI 


LA4180»A»6 


04330 





60200 


4 


05305 


L43130 


SLW 


ALPHA. C 


04331 





50200 





01406 




CLS 


LCO) 


04332 





60100 


1 


05531 




STO 


LAMBDA+9»A 


04333 





76000 





00141 




SLN 


1 


04334 





50200 


4 


05302 


LA4000 


CLS 


ALPHA-3»C 


04335 





60100 


1 


05520 


LA4010 


STO 


LAMBDA »A 


04336 





50200 





01360 




CLS 


NBAR 


04337 





77100 





00022 




ARS 


18 


04340 





60200 


4 


05303 




SLW 


ALPHA-2*C 


04341 





60200 


1 


05522 




SLW 


LAMBDA+2»A 


04342 





60100 


1 


05523 




STO 


LAMBDA+3 »A 


04343 


-0 


75400 


2 


00000 




PXD 


♦ B 


04344 





77100 





00022 




ARS 


18 


04345 





60100 


1 


05525 




STO 


LAMBDA+5 «A 


04346 





60100 


4 


05304 




STO 


ALPHA-1»C 


©4347 


-0 


76000 





00003 




SSM 




04350 





60100 


1 


05526 




STO 


LAMBDA+6»A 


04351 


1 


77777 


2 


04352 




TXI 


LA4150*B»-1 


04352 


-0 


50000 





01524 


LA4150 


CAL 


ADSTAR 


04353 





60200 


1 


05524 




SLW 


LAMBDA+4»A 


04354 


-0 


75400 


2 


00000 


LA4170 


PXD 


»B 


04355 





77100 





00022 


LA4180 


ARS 


18 


04356 





60100 


1 


05530 




STO 


LAMBDA+8»A 


04357 


-0 


60200 


1 


05531 




ORS 


LAMBDA+9.A 


04360 


-0 


50000 





01525 




CAL 


STRSTR 


04361 





60200 


1 


05527 




SLW 


LAMBDA+7»A 


04362 


-0 


50000 





01522 




CAL 


ADSPOP 


04363 


-0 


50100 





05302 




ORA 


FSBITS 


04364 


-0 


50100 





05303 




ORA 


FNBITS 


04365 





60200 


1 


05532 




SLW 


LAMBDA+10»A 


04366 


1 


77767 


1 


00000 


LA4320 


TXI 


**»A»-9 


04367 


-0 


75400 


2 


00000 


L32000 


PXD 


»B 


04370 


a 


77100 





00022 




ARS 


18 


04371 





60100 


1 


05530 




STO 


LAMBDA+8YA 


04372 





40000 





01407 




ADD 


L(l) 


04373 


1 


00001 


2 


04403 




TXI 


L33130.B.1 


04374 


-0 


75400 


2 


ooooc 


L33000 


PXD 


»B 


04375 





77100 





00022 




ARS 


18 



-<N+1) TO -N 



STO SCN+1) IN LAMBDA+3 < L+2 >+2 



-{N+l> TO -N 

STO -N IN LAMBDA+3 (L+2) 

STO -N IN ALPHA +A 

STO -0 IN LAMBDA+3CL+1J 



STO CiALPHA+A-1) IN LAMBDA+3L 

STO -(N+2) IN ALPHA+A 
STO -0 IN LAMBDA+3 ( L+3 ) 

STO CIALPHA+A-3) IN LAMBDA+3L 



STO-N IN ALPHA+A-2 

STO S(N) IN LAMBDA+3L+2 

STO -N IN LAMBDA+3 iL+1) 



STO S(N+1) IN LAMBDA+3 (L+D+2 
STO-JN+1) IN ALPHA+A-1 

STO -<N+1) IN LAMBDA+3 { L+2 I 
-IN+l) TO -<N+2> 

STO * IN LAMBDA+3U+1> + 1 



STOSfN+2) IN LAMBDA+3 ( L+2 )+2 
STO -(N+2) IN LAMBDA+3 (L+3) 

STO SPOP IN LAMBDA+3 U+2) + l 



STO SPOP IN LAMBDA+3U+3J + 1 

STO 5 (N+2) IN LAMBDA+3 { L+2 J+2 
-<N+2) TO -CN+1) 



4F13885 

4F138S6 

4F13887 

4F13888 

4F13889 

4F13890 

4F13891 

4F13892 

4F13893 

4F13894 

4F13895 

4F13896 

4F13897 

4F13898 

4F13899 

4F13900 

4F13901 

4F13902 

4F 13903 

4F13904 

4F13905 

4F13906 

4F13907 

4F13908 

4F13909 

4F13910 

4F13911 

4F13912 

4F13913 

4F13914 

4F139J5 

4F13916 

4F13917 

4F13918 

4F13919 

4F13920 

4F13921 

4F13922 

4F13923 

4F13924 

4F13925 

4F13926 

4F13927 

4F13928 

4F13929 

4F13930 

4F13931 

4F13932 

4F13933 

4F13934 

4F13935 

4F13936 

4F13937 

4F13938 



A/ 



u 



O 



D 



C\ 



04376 
©4377 
04400 
04401 
04402 
©4403 
04404 
04405 
04406 
04407 
04410 
04411 
04412 
04413 
04414 
04415 
04416 
04417 
04420 
04421 
04422 
04423 
04424 
04425> 
04426 
04427 
04430 
04431 
04432 
04433 
04434 
04435 
04436 



04437 
04440 
04441 
04442 
04443 
04444 
04445 
04446 
04447 



04450 
04451 
04452 
04453 
04454 



60100 
40000 
76000 
00001 
60100 
60200 
50200 
60100 
76000 
50200 
60100 
50200 
77100 
60200 
60200 
60100 
00003 
77775 
63400 
63400 
77777 
63400 
00000 
50000 
02000 
77775 
63400 
77777 
77772 
63400 
77777 
63400 
77777 



63400 
60200 
07*00 
0000O 
50000 
40000 
60100 
53400 
02000 



05533 
01407 
00003 
04402 
05531 
05305 
01406 
05526 
00141 
05303 
05520 
01360 
00022 
05304 
05522 
05523 
04354 
04420 
01117 
05277 
04423 
01360 
03463 
01524 
03464 
04430 
01117 
04435 
04433 
01117 
04435 
4 05300 
2 04421 



L33090 
L33130 



LA3000 



CM4100 
CM4101 
CM4102 

CM4104 
CM4105 
MS020 

CM4200 
CM4201 

CM4300 
CM4301 

CM4303 



STO 
ADD 
SSM 
TXI 
STO 
SLW 
CLS 
STO 
SLN 
CLS 
STO 
CLS 
ARS 
SLW 
SLW 
STO 
TXI 
TXI 
SXD 
SXD 
TXI 
SXD 
*** 

CAL 
TRA 
TXI 
SXD 
TXI 
TXI 
SXD 
TXI 
SXD 
TXI 



LAMBDA+lltA 
L(1J 

L33090tB»l 

LAMBDA+9»A 

ALPHA »C 

LfO) 

LAMBDA+6»A 

1 

ALPHA-2»C 

LAMBDA t A 

NBAR 

18 

ALPHA- l.C 

LAMBDA+2.A 

LAMB0A+3»A 

LA4170»A>3 

CM4101.A.-3 

3LBAR»A 

CBAR»B 

CM4104.B.-1 

NBAR»B 

MS010*0 

ADSTAR 

MS030 

CM4201»A»-3 

3LBAR»A 

CM4303»C»-I 

CM4301»A»-6 

3LBAR»A 

CM4303*C»-1 

ABAR»C 

CM4102»B»-1 

****** 



STO SIN+2J IN LAMBDA+3(L+3>+2 



-CN+2) TO -IN+1J 

STO -{N+l) IN LAMBDA+31L+3) 

STO -(N+l) IN ALPHA+A 



STO C1ALPHA+A-2J IN LAMB0A+3L 



STO -N IN ALPHA+A- 1 
STO S<N) IN LAMBDA+3L+2 
STO -N IN LAMBDA+3(L+1) 

LA COUNTER MODIFICATION ROUTINES 



************************ 



CLOSED SUBROUTINE TO MAKE ENTRIES IN HOLARG TABLE 



04062 
01112 
03321 
00015 
01352 
01407 
01352 
04062 
00001 



SAVE CALLING IR 

MOVE WORO TO BE ENTERED TO 1G 

GO TO ENTER WORD IN HOLARG TABLE 



UPDATE HOLCNT 



-0 63400 4 04503 

07400 4 02614 

07400 4 02437 

-0 50000 01351 

■0 32000 01527 



C3390 SXD C3357»l 
SLW 16 
TSX TETOOtl 

13 
CLA HOLCNT 
ADD L(l) 
STO HOLCNT 

LXD C3357.1 RELOAD CALLING IR 

TRA 1»1 RETURN TO CALLER+1 

****************************** 

PROGRAM TO SIMPLIFY THE TREATMENT OF RELATIVE ADDRESSES IN 

SECTION ONE THRU THE USE OF THE RAOOO SUBROUTINE BY STATE B. 

SSOOOX SXD SSIR4.4 SAVE CALLIN6 TAG. 

TSX SS000.4 GO TO SUBSCRIPT SCAN AND ANALYSIS ROUTINE. 

TSX RA000.4 GO TO RELATIVE ADDRESS COMPUTATION ROUTINE 

CAL 6TAG 

ANA MASK1 



4F13939 
4F13940 
4F13941 
4F 13942 
4F13943 
4F 13944 
4F13945 
4F13946 
4F13947 
4F13948 
4F13949 
4F13950 
4F13951 
4F13952 
4F13953 
4F13954 
4F13955 
4F13956 
4F13957 
4F13958 
4F13959 
4F 13960 
4F13961 
4F13962 
4F13963 
4F13964 
4F13965 
4F13966 
4F13967 
4F 13968 
4F13969 
4F13970 
4F13971 

•4F13972 
4F13973 
4F13974 
4F13975 
4F13976 
4F13977 
4F13978 
4F13979 
4F13980 
4F13981 
4F13982 
4F13983 

♦4F13984 
4F13985 
4F13986 
4F13987 
4F13988 
4F13989 
4F13990 
4F13991 
4F13992 



/> 



/ 



04455 





60200 





01141 


S!_W 


E+ll 


04456 





07400 


4 


00450 


TSX 


SIG1IX.4 


04457 





76700 





00017 


ALS 


15 


04460 


-0 


60200 





01126 


ORS 


E 


04461 


-0 


53400 


4 


04503 


LXO 


SSIR4»4 


04462 





02000 


4 


00001 


TRA 


1*4 



• * * * • 



GO ENTER THIS RELATIVE ADDRESS IN SIGMA1. 

POSITION SIGMA TAG* 

ADD SIGMA TAG TO 1-TAU TAGS IN E. 

RELOAD CALLING TAG. 

RETURN TO CALLER +1. 

***♦«****#***«********»* 





04463 





60100 





01103 


ROYCNV 


STO 


N 




04464 


-0 


63400 


4 


04467 




SXD 


EXIT*4 




04465 





60000 





01100 




ST2 


DOE 




04466 





50000 





04505 




CLA 


CM1 




04467 


1 


00000 





04474 


EXIT 


TXI 


IN2»0»* 
DECPNT= 




04470 





60000 





01103 


DECPNT 


STZ 


N 




04471 


-0 


63400 


4 


04467 




SXD 


EXIT.4 




04472 





60000 





01100 




STZ 


DOE 




04473 


-0 


50000 





04505 


NC7 


CAL 


CM1 




04474 





63000 





04515 


IN2 


STP 


CM2 




04475 





63000 





04527 




STP 


CM3 




04476 





14000 





04477 




TOV 


NC5 




04477 





07400 


4 


01707 


NC5 


TSX 


C019O»4 




04500 





60200 





01124 




SLW 


CHSAVE 




04501 





34000 





01423 




CAS 


L(H) 


D 


04502 


1 


00000 





04504 




TXI 


NCltO 


D 


04503 


1 


00000 





04650 


SSIR4 


TXI 


HEXIT.O 




04504 





34000 





01373 


NCI 


CAS 


TEN 


D 


04505 


-3 


00000 





04521 


CM1 


TXL 


NC2tO 




04506 


-0 


75400 





00000 




PXD 


• 




04507 





60100 





01102 




STO 


H 




04510 





50000 





01103 




CLA 


N 




04511 





76700 





00002 




ALS 


2 




04512 





40000 





01103 




ADD 


N 




04513 





76700 





00001 




ALS 


1 




04514 





40000 





01102 




ADD 


H 


D 


04515 


3 


00000 





04536 


CM2 


TXH 


NC3.0 




04516 





14000 





04544 




TOV 


NC4 




04517 





60100 





01103 




STO 


N 





04520 


1 


00000 





04477 




TXI 


NC5.0 




04521 





34000 





01403 


NC2 


CAS 


POINT 


D 


04522 


1 


00000 





04527 




TXI 


CM3»0 


D 


04523 


1 


00000 





04473 




TXI 


NC7»0 




04524 





34000 





04657 




CAS 


HE) 


D 


04525 


1 


00000 





04527 




TXI 


CM3*0 


D 


04526 


1 


00000 





04546 




TXI 


EC1.0 


D 


04527 


3 


00000 





04605 


CM3 


TXH 


FN4.0 




04530 





50000 





01103 




CLA 


N 




04531 





76700 





00022 


MS9506 


ALS 


18 




04532 





60100 





01347 




STO 


G 



R0YCNV»4/ CALLS=C0190»FXCNIX»FLCNIX.DIAG. 

ROYCNV DOES FIXED AND FLOATING POINT CONVERSION FOR SECTION 

ARITHMETIC. 

R0YCNV= ENTRY POINT FOR FIXED OR FLOATING POINT INTEGERS. 

SAVE DECIMAL DIGIT IN N. 

SAVE CIXR4) FOR RETURN. 

CLEAR DOE (IMPLICIT EXPONENT). 

PICK UP SWITCH CONTROL* 

AND GO SET SWITCH. 
DECPNT= ENTRY POINT FOR FLOATING POINT FRACTIONS. 

CLEAR N (NO INTEGER). 

SAVE CtXR4) FOR RETURN. 

CLEAR DOE (IMPLICIT EXPONENT). 

PICK UP SWITCH CONTROL. 

SET SWITCHES CM2» AND 

CM3. 

TURN OFF OV TRIGGER. 
* 60 GET NEXT NB CHARACTER IN THE AC 

SAVE IT FOR STATE B* AND THEN 

COMPARE IT WITH H. 

IF H* GO TO HEXIT. 

IF NOT H» CONTINUE 

AND COMPARE WITH TEN. 

CHAR EXCEEDS 10» SO IS NON-NUMERIC 

CLEAR THE AC (MACHINE ERROR). 

CHARACTER IS NUMERIC. SO HOLD IT. 

MULTIPLY THE PREVIOUS 

PARTIAL RESULT (OR ZERO) 

BY 10* 

AND ADD IN 

THE CURRENT DIGIT. 

SWITCH (NO TRANSFER IF INTEGER). 

TEST OVERFLOW. AND 

IF NONE* SAVE NEW PARTIAL RESULT. 

THEN GO PICK UP NEXT CHARACTER. 

COMPARE NON-NUMERIC WITH A POINT. 

IF GREATER THAN 27, GO OUT. 

IF POINT* GO BACK AND SET SWITCH. 

IF LESS THAN 27* COMPARE WITH E. 

IF GREATER THAN 21* GO OUT. 

IF E» GO TO EXPONENT ROUTINE. 

SWITCH (NO TRANSFER IF INTEGER). 

PICK UP CONVERTED CONSTANT* AND 

STORE IN THE 

DECREMENT OF G, AND 
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GO MAKE FIXCON ENTRY. 4F14047 

CREATE INTERNAL FXD-PT VARIABLE»AND4F14048 

SO TAKE EXITR. 4F14049 

IF THERE WAS NO OVERFLOW. 

SAVE PARTIAL RESULT* AND 

SUBTRACT 1 FROM DOE 

TO ADJUST EXPONENT 

IN FINAL RESULT* 

THEN 60 PICK UP NEXT CHARACTER. 

ADD 1 TO DOE • 

IF THERE WAS INTEGER OVERFLOW. 

GO GET NEXT NB CHARACTER IN 

SAVE IT FOR STATE B* AND 

CLEAR EKE (EXPLICIT EXPONENT). 

COMPARE CHARACTER WITH A DASH. 

IF GREATER THAN 32 » GO OUT. 

IF A DASH* SET EKE MINUS. 



4F14050 
4F14051 
4F14052 
4F14053 
4F14054 
4F14055 
4F14056 
4F14057 
THE AC.4F14058 
4F14059 
4F14060 
4F14061 
4F14062 
4F14063 



IF LESS THAN 32* COMPARE WITH PLUS.4F14064 

IF GREATER THAN 16 » GO OUT. 4F14065 

IF PLUS* GO EXAMINE NEXT CHAR. 4F14066 
IF LESS THAN 16*CQMPARE WITH MINUS.4F14067 

IF GREATER THAN 12* GO OUT. 4F14068 

IF MINUS* SET EKE TO -0. 4F14069 

COMPARE WITH TEN. 4F14070 
IF NON-NUMERIC* GO EXAMINE NEXT CH.4F14071 

CLEAR ACC* 4F14072 

SAVE PARTIAL RESULT(OR OS IN EKE. 4F14C73 
GO GET NEXT NB CHARACTER IN THE AC.4F14074 

SAVE IT FOR STATE B» 4F14075 

AND COMPARE WITH TEN. 4F14076 
CHAR EXCEEDS 10* SO IS NON-NUMERIC. 4F14077 

CLEAR THE AC (MACHINE ERROR). 4F14078 

CHARACTER IS NUMERIC* SO HOLD IT. 4F14079 

MULTIPLY THE PREVIOUS 4F14080 

PARTIAL RESULT (OR ZERO) 4F14081 

BY 10. 4F140S2 

AND ADD IN 4F14083 

THE CURRENT DIGIT. 4F14084 

CONTINUE UNTIL NON-NUMERIC IS MET. 4F14085 

COMBINE EXPLICIT EXPONENT 4F14086 

WITH IMPLICIT EXPONENT. 4F14087 

AND SAVE IN DOE. 4F14088 

IF N CONTAINS ZERO, TAKE 4F14089 

FLO PT CONSTANT RETURN. 4F14090 

PUT INTEGER INTO FLO PT WORD. 4F14091 

ADJUST* AND 4F 14092 

IF MORE THAN 15 BITS IN LENGTH 4F14093 

AFFIX CORRECT EXPONENT. 4F14094 

THEN FLOATING ADD THE RESULT 4F14095 

OF INTEGER CONVERSION. AND 4F14096 

ROUND —TO OBTAIN 4F 14097 

NORMALIZED RESULT. 4F14098 

EXAMINE THE C(DOE)» AND 4F14099 

IF ZERO* TAKE FLO PT RETURN. 4F14100 
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335000000000 
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43000000000 
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+375536246150 
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+372430204754 
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+366700324573 
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IF GREATER THAN 50* THEN 

ERROR. — GO TO DIAGNOSTIC. 

DETERMINE WHETHER INTEGER WAS 

TO THE RIGHT OR TO THE LEFT OF DP. 

IF TO THE RIGHT* DIVIDE BY A 

SUITABLE CONSTANT 

TO ADJUST RESULT 

AND TEST FOR OUT OF RANGE. 

IF P=l» SKIP TO ARITH RETURN. 

ERROR. — GO TO DIAGNOSTIC. 

STORE IN Gt AND 

GO MAKE FLOCON ENTRY. 

CREATE INTERNAL FLO-PT VARIABLE. 

SAVE VARIABLE IN E+2. 

RESTORE THE CUR4). AND 

RETURN TO MAIN ROUTINE. 

IF INTEGER WAS SITUATED 

TO THE LEFT OF THE DECIMAL POINT. 

MULTIPLY BY A SUITABLE 

CONSTANT TO ADJUST AND TEST RANGE. 

IF P=l. SKIP TO ERROR. 

RETURN TO ARITHMETIC ROUTINE. 

CONVERSION ERROR. GO TO DIAGNOSTIC 

RESTORE THE CIXR4J. AND 

RETURN TO MAIN ROUTINE. 



CONSTANT USED 
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BY ROYCNV. 
BY ROYCNV. 
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BY ROYCNV. 
BY ROYCNV. 



48-TABLE 
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40-TA8LE 
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4F14101 
4F14102 
4F14103 
4F14104 
4F14105 
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4F14109 
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4F14111 
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4F14113 
4F14114 
4F14115 
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4F14117 
4F14118 
4F14119 
4F14120 
4F14121 
4F14122 
•4F14123 
4F14124 
4F14125 
4F14126 
4F14127 
4F14128 
4F14129 
4F14130 
4F14131 
4F14132 
4F14133 
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4F14136 
4F14137 
4F14138 
4F14139 
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4F14147 
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4F14149 
4F14150 
4F14151 
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4F14154 
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04705 +267635456171 

04706 +264512676456 

04707 +261410545213 

04710 +255647410337 

04711 +252522640262 
0*712 +247417031702 

04713 +243661534466 

04714 +240532743536 

04715 +235425434430 

04716 +231674055530 

04717 +226543212741 

04720 +223434157116 

04721 +217706576512 

04722 +214553630410 

04723 +211443023471 

04724 +205721522451 

04725 +202564416672 

04726 +177452013710 

04727 +173734654500 

04730 +170575360400 

04731 +165461132000 

04732 +161750220000 

04733 +156606500000 

04734 +153470400000 

04735 +147764000000 

04736 +144620000000 

04737 +141500000000 
04740 +136400000000 



TAB 



OCT 267635456171 
OCT 264512676456 
OCT 261410545213 
OCT 255647410337 
OCT 252522640262 
OCT 247417031702 
OCT 243661534466 
OCT 240532743536 
OCT 235425434430 
OCT 231674055530 
OCT 226543212741 
OCT 223434157116 
OCT 217706576512 
OCT 214553630410 
OCT 211443023471 
OCT 205721522451 
OCT 202564416672 
OCT 177452013710 
OCT 173734654500 
OCT 170575360400 
OCT 165461132000 
OCT 161750220000 
OCT 156606500000 
OCT 153470400000 
OCT 147764000000 
OCT 144620000000 
OCT 141500000000 
OCT 136400000000 

END OF PROGRAM ROYCNV. 
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SIG1ST PZE SIGMA1+2»»1 
ENDBDR BSS 

ENDB ORG 2701 
ARGREG BSS 50 
CBAR BSS 1 
ABAR BSS 1 
FSTYPE BSS 1 
FSBITS BSS 1 
FN8ITS BSS 1 
FNCTR BSS 1 
ALPHA BSS 139 
LAMBDA BSS 1200 
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»********#******** 



END OF ARITHMETIC / STATE B* 
♦ ♦♦••if************************ 



00000 
00001 



00000 
00504 03440 
00000 05043 



ARITHMETIC / STATE C= 

704 FORTRAN MASTER RECORD CARD 
ORG 

PZE 0R6C..DMWR03 
PZE ENDC-1 



/ STATE C = F0170000* 



STATE C. PERFORMS OPTIMIZATION ON LAMBDA TABLE. 
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03501 


-0 


50000 





01527 


R03200 


CAL 


MASK1 


03502 





32000 


1 


05515 




ANS 


LAMBDA-3»A 


03503 





50000 


1 


05512 




CLA 


LAMBDA-6»A 


03504 


-0 


50100 


1 


05515 




OR A 


LAMBDA-3»A 


03505 





60200 


1 


05512 




SLW 


LAMBDA-6»A 


03506 


-0 


50000 


1 


05516 




CAL 


LAMBDA-2.A 


03507 


-0 


32000 





01470 




ANA 


MASK5 


03510 


-0 


60200 


1 


05513 




ORS 


LAMBDA-5 »A 


03511 


-0 


50000 


1 


05517 




CAL 


LAMBDA-1»A 


03512 





60200 


1 


05514 




SLW 


LAM8DA-4»A 


03513 





60000 


2 


05044 




STZ 


BETAtS 


03514 





60000 


1 


05515 




ST2 


LAMBDA-3»A 


03515 


1 


00003 


1 


03465 




TXI 


R01800»A»3 


03516 





60000 





01347 


R04200 


STZ 


G 


03517 





53400 


7 


01406 




LXA 


LC0)»7 


03520 





50000 


2 


05044 


R04500 


CLA 


BETA»B 


03521 





10000 





03526 




TZE 


R05100 


03522 





56000 





01347 




LDQ 


G 


03523 


-0 


62000 


2 


05044 




SLQ 


BETA»B 



CLEAR MQ 
LDXA WITH -N 



CLEAR XA»XB*XCt 



ADD INTO GAMMA COUNTERS 



t-3)*2**18+(-3) 



-3L IN XA AT END 

EXIT FROM SINGLE ELEMENT REDUCTION 



SINGLE ELEMENT 
EXAMINE OPERATION 



SINGLE ELEMENT* NON-UNARY OP 
EXTRACT TAGS AND STORE BACK 



EXTRACT FS BITS AND STORE 8ACK 



STORE BACK SYMBOL 

REDUCE GAMMA COUNT TO 
CLEAR TAG WORD 
RESUME SCAN-BACK 

CLEAR XA»XB»XC 

SET ORIGINS OF SCRIPL TABLE 



4F 14205 

4F14206 

4F14207 

4F14208 

4F 14209 

4F14210 

4F14211 

4F14212 

4F14213 

4F14214 

4F14215 

4F14216 

4F14217 

4F14218 

4F14219 

4F14220 

4F14221 

4F14222 

4F14223 

4F14224 

4F14225 

4F14226 

4F14227 

4F14228 

4F 14229 

4F14230 

4F14231 

4F14232 

4F14233 

4F14234 

4F14235 

4F14236 

4F14237 

4F14238 

4F14239 

4F 14240 

4F14241 

4F 14242 

4F14243 

4F14244 

4F14245 

4F 14246 

4F14247 

4F14248 

4F14249 

4F14250 

4F14251 

4F14252 

4F14253 

4F14254 

4F 14255 

4F14256 

4F14257 

4F14258 



I/O 



O 



n 



o 



03524 





40000 





01347 




ADD 


G 


03525 





62200 





01347 




STD 


G 


03526 


1 


77777 


2 


03527 


R05100 


TXI 


R05200»B»-1 


03527 


3 


00000 


2 


03520 


R05200 


TXH 


R04500»B»0 


03530 


-0 


50000 


1 


05520 


R05300 


CAL 


LAMBDA t A 


03531 





10000 





03540 




T2E 


R06100 


03532 





60200 


4 


05520 




SLW 


LAMBDA »C 


03533 





50000 


1 


05521 




CLA 


LAMBDA+1*A 


03534 





60100 


4 


05521 




STO 


LAMBDA+ltC 


03535 





50000 


1 


05522 




CLA 


LAMBDA+2»A 


03536 





60100 


U 


05522 




STO 


LAMBDA+2»C 


03537 


1 


77775 


4 


03540 




TXI 


R06100»C.-3 


03540 


1 


77775 


1 


03541 


R06100 


TXI 


R06200»At-3 


03541 


3 


00000 


1 


03530 


R06200 


TXH 


R05300*A»0 


03542 


-0 


63400 


4 


03563 




SXD 


R0780Q.C 


03543 


-0 


63400 


4 


03707 




SXD 


CS0760»C 


03544 





53400 


1 


01406 




LXA 


HO)»A 


03545 





50000 


1 


05520 


R06400 


CLA 


LAMBDA *A 


03546 





73400 


2 


OOOOO 




PAX 


OtB 


03547 





50000 


2 


05044 




CLA 


BETA»B 


03550 


-0 


73400 


4 


OOOOO 




PDX 


O.C 


03551 





50000 


1 


05520 




CLA 


LAMBDA»A 


03552 





60100 


4 


06650 




STO 


SCR I PL »C 


03553 





50000 


1 


05521 




CLA 


LAMBDA+1»A 


03554 





60100 


4 


06651 




STO 


SCRIPL+1»C 


03555 





50000 


1 


05522 




CLA 


LAMBDA+2*A 


03556 





60100 


4 


06652 




STO 


SCRIPL+2tC 


03557 


1 


77775 


4 


03560 




TXI 


R07500tC*-3 


03560 


-0 


75400 


4 


OOOOO 


R07500 


PXD 


0»C 


03561 





62200 


2 


05044 




STD 


BETAtB 


03562 


1 


77775 


1 


03563 




TXI 


R07800.A»-3 


03563 


3 


00000 


1 


03545 


R07800 


TXH 


R06400tAtO 


03564 





56000 





01406 


CSOOOO 


LDQ 


L(0) 


03565 


-0 


50000 


1 


06645 


CS0010 


CAL 


SCRIPL-3.A 


03566 





10000 





03575 




TZE 


CS0080 


03567 





73400 


2 


OOOOO 


CS0030 


PAX 


OtB 


03570 


-3 


00000 


2 


03675 




TXL 


CS0660*B»0 


03571 





62100 





03567 




STA 


CS0030 


03572 





50000 


2 


05044 




CLA 


BETAtB 


03573 





73400 


4 


OOOOO 


CS0060 


PAX 


OtC 


03574 


-3 


77772 


4 


03576 




TXL 


CS0090*C»-6 


03575 


1 


00003 


1 


03565 


CS0080 


TXI 


CS0010tAt3 


03576 


-0 


63400 


1 


03651 


CS0090 


SXD 


CS0470tA 


03577 


-0 


63400 


4 


01357 




SXD 


LENGTH tC 


03600 


-3 


00000 


4 


03603 


CS0100 


TXL 


CS0130»CtO 


03601 


1 


00003 


1 


03602 




TXI 


CS0120tAt3 


03602 


1 


00003 


4 


03600 


CS0120 


TXI 


CS0100tCt3 


03603 


-0 


50000 


1 


06645 


CS0130 


CAL 


SCRIPL-3tA 


03604 


-0 


10000 





03606 




TN2 


CS0151 


03605 


1 


00003 


1 


03603 




TXI 


CS0130tAt3 


03606 





73400 


2 


OOOOO 


CS0151 


PAX 


OtB 


03607 


-3 


00000 


2 


03670 




TXL 


CS0610tB*0 


03610 





62100 





03573 




STA 


CS0060 


03611 





50000 


2 


05044 




CLA 


BETAtB 



DEC(KJ=DEC(ACC)=-3P AT END 

STRING BEADS.** COMPRESS LAMBDA TABLE 



-3P IN XC AT END 

STORE ORDEREDt REDUCED LAMBDA TABLE 
IN SCR I PL TABLE 



-3P IN XA AT END 
ELIMINATE COMMON SEGMENTS 

ERASED SEGMENT - CONTINUE BACK-SCAN 

EXIT FROM -CS ROUTINE 



AT LEAST TWO ELEMENTS 

ONE ELEMENT OR ERASED SEGMENT 

SAVE XA 

SAVE XCt CONTAINING LENGTH OF SEGMENT 

SEARCH UP FOR MATCHING SEGMENT 



ERASED SEGMENT 

GO ON TO NEXT SEGMENT 



4F14259 
4F14260 
4F14261 
4F 14262 
4F14263 
4F 14264 
4F 14265 
4F14266 
4F14267 
4F14268 
4F14269 
4F 14270 
4F14271 
4F14272 
4F14273 
4F14274 
4F14275 
4F14276 
4F14277 
4F14278 
4F14279 
4F14280 
4F14281 
4F14282 
4F 14283 
4F14284 
4F 14285 
4F14286 
4F 14287 
4F14288 
4F14289 
4F 14290 
4F14291 
4F14292 
4F14293 
4F 14294 
4F14295 
4F 14296 
4F14297 
4F14298 
4F 14299 
4F14300 
4F14301 
4F14302 
4F14303 
4F14304 
4F14305 
4F14306 
4F14307 
4F14308 
4F14309 
4F14310 
4F14311 
4F14312 



/// 



03612 





73400 


4 


OOOOO 




PAX 


O.C 


03613 


-0 


75400 


4 


OOOOO 




PXO 


O.C 


03614 





40200 





01357 




SUB 


LENGTH 


03615 


-0 


10000 





03600 




TNZ 


CS0100 


03616 


-0 


53400 


2 


03651 




LXD 


CS0470«B 


03617 


-0 


63400 


1 


03667 




SXD 


CS0600»A 


03620 


-3 


00000 


4 


03645 


CS0250 


TXL 


CS0430»C»0 


03621 





50000 


2 


06647 




CLA 


SCRIPL-1»B 


03622 





40200 


1 


06647 




SUB 


SCRIPL-1»A 


03623 


-0 


10000 





03600 




TNZ 


CS0100 


03624 


-0 


50000 


2 


06645 




CAL 


SCRIPL-3»B 


03625 


-0 


32000 





01527 




ANA 


MASK1 


03626 





60200 





01347 




SLW 


G 


03627 


-0 


50000 


1 


06645 




CAL 


SCRIPL-3»A 


03630 


-0 


32000 





01527 




ANA 


MASK1 


03631 





76000 





00006 




COM 




03632 





36100 





01347 




ACL 


G 


03633 





76000 





00006 




COM 




03634 


-0 


10000 





03600 




TNZ 


CS0100 


03635 





50000 


2 


06646 




CLA 


SCRIPL-2#B 


03636 





77100 





00006 




ARS 


6 


03637 





76700 





00006 




ALS 


6 


03640 





40200 


1 


06646 




SUB 


SCRIPL-2»A 


03641 


-0 


10000 





03600 




TNZ 


CS0100 


03642 


1 


00003 


1 


03643 




TX1 


CS0360*A»3 


03643 


1 


00003 


2 


03644 


CS0360 


TXI 


CS0370tB»3 


03644 


1 


00003 


4 


03620 


CS0370 


TXI 


CS0250»C»3 


03645 


-0 


50000 


1 


06650 


CS0430 


CAL 


SCRIPL.A 


03646 


-0 


32000 





01452 




ANA 


MASK2 


03647 





34000 


1 


06647 


CS0450 


CAS 


SCRIPL-ltA 


03650 


1 


00003 


1 


03647 




TXI 


CS0450»A»3 


03651 


1 


00000 





03653 


CS0470 


TXI 


CS0490»0»0 


03652 


1 


00003 


1 


03647 




TXI 


CS0450»A»3 


03653 





50000 





03567 


CS0490 


CLA 


CS0030 


03654 





62100 


1 


06647 




STA 


SCRIPL-1»A 


03655 


-0 


53400 


4 


01357 




LXD 


LENGTH. C 


03656 


-0 


53400 


1 


03667 




LXD 


CSO60O*A 


03657 


-3 


00000 


4 


03663 


CS0530 


TXL 


CS0570*CtO 


03660 


-0 


60000 


1 


06645 




STQ 


SCRIPL-3»A 


03661 


1 


00003 


1 


03662 




TXI 


CS0560»A*3 


03662 


1 


00003 


4 


03657 


CS0560 


TXI 


CS0530.C*3 


03663 





53400 


4 


03573 


CS0570 


LXA 


CS0060»C 


03664 


-0 


60000 


4 


05044 




STQ 


BETAK 


03665 


-0 


50000 





01401 




CAL 


HZ 


03666 


-0 


60200 


2 


06651 




ORS 


SCRIPL+1»B 


03667 


1 


ooooo 





03603 


CS0600 


TXI 


CS0130*0»0 


03670 


-0 


53400 


1 


03651 


CS0610 


LXD 


CS0470fA 


03671 


-0 


53400 


4 


01357 




LXD 


LENGTH»C 


03672 


-3 


OOOOO 


4 


03565 


CS0630 


TXL 


CS0010#C*0 


03673 


1 


00003 


1 


03674 




TXI 


CS0650»A»3 


03674 


1 


00003 


4 


03672 


CS0650 


TXI 


CS0630tC»3 


03675 





53400 


5 


01406 


CS0660 


LXA 


LtO).5 


03676 


-0 


50000 


1 


06650 


CS0670 


CAL 


SCRIPL*A 


03677 





10000 





03706 




TZE 


CS0750 



NOT SAME LENGTH SEGMENT-CONTINUE SEARCH 
SAME LENGTH SEGMENT 

MATCHING SEGMENTS 



SYMBOLS MATCH 



TA6S MATCH 



OPS MATCH 



MATCHING SEGMENTS 
SEARCH FOR REFERENCES 



CHANGE REFERENCE 



ERASE DUPLICATE SEGMENT 



STORE CS BIT 



STRING BEADS..* COMPRESS SCRIPL TABLE 



4F24313 

4F14314 

4F14315 

4F14316 

4F14317 

4F 14318 

4F14319 

4F14320 

4F14321 

4F14322 

4F 14323 

4F14324 

4F14325 

4F 14326 

4F 14327 

4F14328 

4F14329 

4F 14330 

4F14331 

4F14332 

4F14333 

4F 14334 

4F14335 

4F14336 

4F 14337 

4F14338 

4F14339 

4F14340 

4F14341 

4F14342 

4F 14343 

4F14344 

4F14345 

4F14346 

4F14347 

4F 14348 

4F14349 

4F14350 

4F14351 

4F14352 

4F14353 

4F14354 

4F14355 

6F14356 

4F14357 

4F14358 

4F14359 

4F 14360 

4F14361 

4F14362 

4F14363 

4F14364 

4F14365 

4F14366 



»* 



u 



O 



n 



o> 



03700 


60200 4 06650 




SLW 


SCRIPL»C 




03701 


50000 1 06651 




CLA 


SCRIPL+ltA 




03702 


60100 4 06651 




STO 


SCRIPL+1»C 




03703 


50000 1 06652 




CLA 


SCRIPL+2*A 




03704 


60100 4 06652 




STO 


SCRIPL+2»C 




03705 


1 77775 4 03706 




TXI 


CS0750»C»-3 




03706 


1 77775 1 03707 


CS0750 


TXI 


CS0760»A»-3 




63707 


3 00000 1 03676 


CS0760 


TXH 


CS0670*A»0 




03710 


-0 63400 4 03724 




SXO 


PM0080»C 


-3Q IN XC AT END 


03711 


-0-63400 4 04113 




SXD 


ASlBOOtC 




03712 


-0 63400 4 04136 




SXD 


AS 3600 *C 




03713 


76000 00140 


PM0000 


SLF 




TURN OFF ALL SENSE LITES 


03714 


53400 1 01406 




LXA 


LIO)»A 


PERMUTE * AND / 


03715 


50000 1 06650 


PM0010 


CLA 


SCR I PL »A 




03716 


73400 2 00000 




PAX 


0*B 




03717 


50000 2 05044 




CLA 


BETA»B 




03720 


73400 4 00000 




PAX 


O.C 


LDXC WITH SEGMENT LENGTH 


03721 


-0 63400 4 03723 




SXD 


PM007Q*C 




03722 


-3 77767 4 03726 




TXL 


PM0100»C*-9 




03723 


1 00000 1 03724 


PM0070 


TXI 


PM0080*A»0 


LENGTH LESS THAN 3 OR OD NOT 


03724 


-3 00000 1 04071 


PM0080 


TXL 


AS0OOO»A*O 


EXIT FROM PERMUTATION ROUTINJ 


03725 


02000 03715 




TRA 


PM0010 




03726 


56000 1 06651 


PM0100 


LOG) 


SCRIPL+1»A 


SEGMENT LENGTH AT LEAST * TO 


03727 


-0 75400 00000 




PXD 


0*0 




03730 


-0 76300 00006 




LGL 


6 




03731 


40200 01405 




SUB 


STAR 




03732 


-0 10000 03723 




TNZ 


PM0070 




03733 


16200 03735 




TOP 


PM0170 




03734 


02000 03723 




TRA 


PM0070 




03735 


-0 63400 4 03744 


PM0170 


SXD 


PM0260»C 




03736 


-0 63400 4 03762 




SXD 


PM0400»C 




03737 


-0 63400 4 04013 




SXD 


PM0680»C 




03740 


53400 4 01406 




LXA 


L(0)*C 


LDXC WITH 


03741 


1 77775 1 03742 




TXI 


PM0240»A»-3 




03742 


76000 00143 


PM0240 


SLN 


3 


TURN * LITE ON 


03743 


1 77775 4 03744 


PM0250 


TXI 


PM0260»C»-3 




03744 


-3 00000 4 04025 


PM0260 


TXL 


PM0790»C*0 


EXIT 


03745 


-0 63400 4 03755 




SXD 


PM03*0»C 




03746 


-0 53400 2 03747 




LXD 


PM0290»B 




03747 


1 00000 3 03750 


PM0290 


TXI 


PM0300»3»0 


XA TO XA AND XB 


03750 


-0 75400 00000 


PM0300 


PXD 


0*0 




03751 


56000 1 06651 




LDQ 


SCRIPL+1»A 




03752 


-0 76300 00006 




LGL 


6 




03753 


34000 01402 




CAS 


SLASH 




03754 


00007 00000 


FEXUB 


HTR 


0*0t7 




03755 


-3 00000 04007 


PM0340 


TXL 


PM064O»O»0 


/ SIGN 


03756 


-0 76000 00143 




SIT 


3 


* SIGN**. IS • LITE ON 


03757 


1 77775 1 03742 




TXI 


PM024Q#A»-3 


NO 


03760 


1 77775 2 03761 




TXI 


PM039O»B.-3 


YES - SEARCH FOR / SIGN 


03761 


1 77775 4 03762 


PM0390 


TXI 


PM0400»C»-3 




03762 


-3 00000 4 04023 


PM0400 


TXL 


PM0770»C»0 


EXIT 


03763 


-0 75400 00000 




PXD 


0*0 




03764 


56000 2 06651 




LDQ 


SCRIPL+1»B 




03765 


-0 76300 00006 




LGL 


6 


- . ■ . 



TO * 



4F14367 
4F14368 
4F 14369 
4F 14370 
4F 14371 
4F14372 
4F14373 
4F14374 
4F14375 
4F14376 
4F143T7 
4F14378 
4F14379 
4F 14380 
4F14381 
4F14382 
4F14383 
4F14384 
4F14385 
4F14386 
4F14387 
4F14388 
4F 14389 
4F 14390 
4F14391 
4F14392 
4F 14393 
4F14394 
4F14395 
4F 14396 
4F 14397 
4F14398 
4F14399 
4F14400 
4F 14401 
4F 14402 
4F14403 
4F14404 
4F 14405 
4F14406 
4F14407 
4F 14408 
4F14409 
4F14410 
4F14411 
4F14412 
4F14413 
4F14414 
4F14415 
4F14416 
4F14417 
4F14418 
4F14419 
4F14420 



//3 



03766 





40200 





01402 




SUB 


SLASH 


03767 





10000 





03771 




TZE 


PM0480 


03770 


1 


77775 


2 


03761 




TXI 


PM0390fB»-3 


03771 





50000 


1 


06650 


PM0480 


CLA 


SCRIPL.A 


©3772 





56000 


2 


06650 




LOO 


SCRIPL#B 


03773 


^•0 


60000 


1 


06650 




STQ 


SCRIPL.A 


03774 





60100 


2 


06650 




STO 


SCRIPL»B 


03775 





50000 


1 


06651 




CLA 


SCRIPL+l.A 


03776 





56000 


2 


06651 




LOO 


SCRIPL+1»B 


03777 


-0 


60000 


1 


06651 




STQ 


SCRIPL+1»A 


04000 





60100 


2 


06651 




STO 


SCRIPL+1*B 


04001 





50000 


1 


06652 




CLA 


SCR1PL+2»A 


04002 





56000 


2 


06652 




LDQ 


SCRIPL+2.B 


04003 


-0 


60000 


1 


06652 




STQ 


SCRIPL+2»A 


04004 





60100 


2 


06652 




STO 


SCRIPL+2»B 


04005 


-0 


53400 


4 


03755 




LXO 


PM0340»C 


04006 


1 


77775 


1 


03743 




TXI 


PM0250»A»-3 


04007 


-0 


76000 





00143 


PM0640 


SLT 


3 


04010 


1 


77775 


2 


04012 


PM0650 


TXI 


PM0670»B»-3 


04011 


1 


77775 


1 


03743 




TXI 


PM025O»At-3 


04012 


1 


77775 


4 


04013 


PM0670 


TXI 


PM0680»C#-3 


04013 


-3 


00000 


4 


04023 


PM0680 


TXL 


PM0770»C»0 


04014 


-0 


75400 





00000 




PXD 


OtO 


04015 





56000 


2 


06651 




LOQ 


SCRIPL+1»B 


04016 


-0 


76300 





00006 




L6L 


6 


04017 





40200 





01402 




SUB 


SLASH 


04020 





10000 





04010 




TZE 


PM0650 


04021 





76000 





00143 




SLN 


3 


04022 





02000 





03771 




TRA 


PM0480 


04023 


-0 


53400 


1 


04024 


PM0770 


LXO 


PM0780tA 


04024 


1 


00000 


3 


04025 


PM0780 


TXI 


PM0790*3.0 


04025 


-0 


75400 





00000 


PM0790 


PXD 


0*0 


04026 





56000 


1 


06646 




LDQ 


SCRIPL-2»A 


04027 


-0 


76300 





00006 




L6L 


6 


04030 





40200 





01402 




SUB 


SLASH 


04031 





10000 





03724 




TZE 


PM0080 


04032 


-0 


75400 





00000 




PXD 


0*0 


04033 





56000 


1 


06643 




LDQ 


SCRIPL-5»A 


04034 


-0 


76300 





00006 




LGL 


6 


04035 





40200 





01402 




SUB 


SLASH 


04036 





10000 





03724 




TZE 


PM0080 


04037 





50000 


1 


06645 




CLA 


SCRIPt--3#A 


04040 





60100 





01126 




STO 


E 


04041 





50000 


1 


06646 




CLA 


SCRIPL-2»A 


04042 





60100 





01127 




STO 


E+l 


04043 





50000 


1 


06647 




CLA 


SCRIPL-1*A 


04044 





60100 





01130 




STQ 


E+2 


04045 


1 


00003 


1 


04046 




TXI 


PM0980»A»3 


04046 


1 


00003 


4 


04047 


PM0980 


TXI 


PM0990»C»3 


04047 


-3 


00000 


4 


04057 


PM0990 


TXL 


PM1070*C»0 


04050 





50000 


1 


06645 




CLA 


SCRIPL-3»A 


04051 





60100 


1 


06650 




STO 


SCRIPL»A 


04052 





50000 


1 


06646 




CLA 


SCRIPL-2»A 


04053 





60100 


1 


06651 




STO 


SCRIPL+1*A 



PERMUTE TA6 WORDS 



PERMUTE OP WORDS 



PERMUTE SYMBOL WORDS 



RESUME SEGMENT SCAN 
/ SIGN... IS * LITE ON 
NO 



TORN * LITE ON 
XB TO XA»XB 

••• / - EXIT FROM SEGMENT SCAN 



... / « - EXIT FROM SEGMENT SCAN 
... •* 



FINIS 



4F14421 

4F14422 

4F14423 

4F14424 

4F14425 

4F14426 

4F14427 

4F14428 

4F 14429 

4F14430 

4F14431 

4F14432 

4F14433 

4F14434 

4F14435 

4F14436 

4F14437 

4F14438 

4F 14439 

4F 14440 

4F 14441 

4F 14442 

4F 14443 

4F 14444 

4F14445 

4F 14446 

4F 14447 

4F 14448 

4F 14449 

4F14450 

4F14451 

4F 14452 

4FI4453 

4F 14454 

4F14455 

4F14456 

4F14457 

4F14458 

4F14459 

4F14460 

4F14461 

4F14462 

4F14463 

4F14464 

4F 14465 

4F 14466 

4F 14467 

4F 14468 

4F14469 

4F14470 

4F14471 

4F14472 

4F14473 

4F14474 



H 



u 



o 



o 



n 



04054 





50000 


1 


06647 




CLA 


SCRIPL-l.A 


04055 





60100 


1 


06652 




STO 


SCRIPL+2»A 


04056 


1 


00003 


1 


04046 




TXI 


PM0980.A.3 


04057 





50000 





01126 


PM1070 


CLA 


E 


04060 





60100 


1 


06650 




STO 


SCRIPL»A 


04061 





50000 





01127 




CLA 


E+l 


04062 





60100 


1 


06651 




STO 


SCRIPL+l.A 


04063 





50000 





01130 




CLA 


E+2 


04064 





60100 


1 


06652 




STO 


SCRIPL+2*A 


04065 


-0 


50000 


1 


06654 




CAL 


SCRIPL+4.A 


04066 


-0 


32000 





01401 




ANA 


112 


04067 


-0 


60200 


1 


06651 




ORS 


SCRIPL+1»A 


04070 





020O0 





03723 




TRA 


PM0070 


04071 





53400 


7 


01406 


AS0000 


LXA 


L<0)»7 


©4072 





50000 


2 


05044 


AS0100 


CLA 


BETA*B 


04073 





10000 





04100 




TZE 


AS0700 


04074 


-0 


75400 


4 


00000 




PXD 


OtC 


04075 





77100 





00022 




ARS 


18 


04076 





62100 


2 


05044 




STA 


BETA*B 


04077 


1 


77777 


4 


04100 




TXI 


AS0700.C.-1 


04100 


1 


77777 


2 


04101 


AS0700 


TXI 


ASQ8QQ.B.-1 


04101 


3 


00000 


2 


04072 


AS0800 


TXH 


AS0100»B»0 


04102 





50000 


1 


06650 


AS0900 


CLA 


SCRIPL»A 


04103 





73400 


2 


00000 




PAX 


0»B 


04104 





50000 


2 


05044 




CLA 


BETA.B 


04105 





62100 


1 


06650 




STA 


SCRIPLtA 


04106 





56000 


1 


06652 




LOQ 


SCRIPL+2»A 


04107 


-0 


76300 





00001 




L6L 


1 


04110 





76000 





00001 




LBT 




04111 





16200 





04115 




TOP 


AS2000 


04112 


1 


77775 


1 


04113 




TXI 


AS1800»A»-3 


04113 


3 


00000 


1 


04102 


AS1800 


TXH 


AS090Q.A.O 


04114 





02000 





04122 




TRA 


AS2500 


04115 


-0 


76300 





00043 


AS2000 


LGL 


35 


04116 





73400 


2 


00000 




PAX 


O.B 


04117 





50000 


2 


05044 




CLA 


BETA.B 


04120 





62100 


1 


06652 




STA 


SCRIPL+2.A 


04121 


1 


77775 


1 


04113 




TXI 


AS1800»A»-3 


04122 





53400 


3 


01406 


AS2500 


LXA 


LJ0J.3 


04123 





56000 





01406 




LDQ 


L«0> 


04124 


-0 


60000 


2 


05044 


AS2700 


STQ 


BETA.B 


04125 


1 


77777 


2 


04126 




TXI 


AS2900*B»-1 


04126 


3 


00000 


2 


04124 


AS2900 


TXH 


AS2700»B»0 


04127 





50000 


1 


06650 


AS3000 


CLA 


SCRIPL.A 


04130 





73400 


2 


00000 




PAX 


O.B 


04131 





50000 


2 


05044 




CLA 


BETA.B 


04132 





40000 





01462 




ADO 


BETA02 


04133 





62200 


2 


05044 




STD 


BETA.B 


04134 





62100 


2 


05044 




STA 


BETA.B 


04135 


1 


77775 


1 


04136 




TXI 


AS3600.A.-3 


04136 


3 


00000 


1 


04127 


AS360O 


TXH 


AS3000»A»0 


04137 


-0 


63400 


1 


01117 




SXD 


3QBAR.A 


04140 


-0 


50000 


1 


06645 


CCSOOO 


CAL 


SCRIPL-3.A 


04141 





73400 


2 


00000 




PAX 


O.B 



PRESERVE CS BIT 



RENUMBER SEGMENT OF SCRIPL 



LOXA*XB WITH 

CLEAR MQ 

RECLEAR BETA TABLE 



ADD INTO GAMMA COUNTERS 



3*2*»18+{-3) 



-30 IN XA AT END 
-3Q TO 3QBAR = 3LBAR 
ELIMINATE COMMON SUBEXPRESSIONS 
LOAD XB WITH S( I ) 



4F14475 

4F14476 

4F14477 

4F14478 

4F14479 

4F14480 

4F14481 

4F14482 

4F14483 

4F14484 

4F14485 

4F14486 

4F14487 

4F 14488 

4F14489 

4F14490 

4F14491 

4F 14492 

4F14493 

4F14494 

4F14495 

4F14496 

4F14497 

4F14498 

4F14499 

4F14500 

4F14501 

4F14502 

4F14503 

4F14504 

4F 14505 

4F14506 

4F14507 

4F14508 

4F14509 

4F14510 

4F14511 

4F14512 

4F14513 

4F14514 

4F14515 

4F14516 

4F14517 

4F14518 

4F14519 

4F14520 

4F14521 

4F14522 

4F14523 

4F14524 

4F14525 

4F14526 

4F14527 

4F14528 



Hi 



/ 



04142 


-3 


00000 


2 


04167 




TXL CCS240»B»0 


EXIT AT SCO) 


04143 


-0 


50000 


2 


05044 




CAL BETA»B 


OBTAIN LENGTH OF S(I) 


04144 





62200 





04145 




STD CCS060 


AND BACK UP TO 


04145 


1 


00000 


1 


04146 


CCS060 


TXI CCS070»A»0 


BEGINNING OF CURRENT SEGMENT 


04146 


-0 


50000 


1 


06651 


CCS070 


CAL SCRIPL+i»A 


OBTAIN 0P1 (SHI) 


04147 


-0 


32000 





01401 




ANA HZ 


EXTRACT CS-BIT 


04150 





10000 





04140 




TZE CCSOOO 


CONTINUE TO SCI-1) 


04151 


-0 


75400 


2 


ooooo 




PXO 0*B 




04152 





77100 





00022 




ARS 18 




04153 





53400 


4 


01406 




LXA LIOJ.C 


TO sm 


04154 


-0 


53400 


2 


04155 




LXD CCS140»B 


AND KEEP COUNT OF SAME 


04155 


1 


00000 


3 


04156 


CCS140 


TXI CCS150»3»0 


XA TO XA»XB 


04156 


-3 


00000 


2 


04163 


CCS150 


TXL CCS200#B*0 


SEARCH-UP FINISHED* EXAMINE 


04157 





34000 


2 


06647 




CAS SCRIPL-1»B 




04160 


1 


00003 


2 


04156 




TXI CCS150«B»3 


CONTINUE SEARCH 


04161 


1 


00001 


4 


04162 




TXI CCS190.C.1 


RAISE REF COUNTER AND 


04162 


1 


00003 


2 


04156 


CCS190 


TXI CCS150.B.3 


CONTINUE SEARCH 


04163 


3 


00001 


4 


04140 


CCS200 


TXH CCSOOO*C.l 


MULTIPLE REFERENCE 


04164 


-0 


50000 





01530 




CAL MASK4 


SINGLE REFERENCE - SO SET 


04165 





32000 


1 


06651 




ANS SCRIPL+l.A 


OP1(S(I>)30 TO 0» AND 


04166 





02000 





04140 




TRA CCSOOO 


CONTINUE FOR S(I-l) 


04167 


-0 


53400 


1 


04136 


CCS240 


LXD AS3600»A 


-3Q TO XA 


04170 


-3 


00000 


1 


04423 


PLOOOO 


TXL LK0OOO»A.O 


GO TO LINKAGE 


04171 





50000 


1 


06645 




CLA SCRIPL-3»A 




04172 





73400 


2 


OOOOO 




PAX 0»B 




04173 


-0 


50000 


2 


05044 




CAL BETA.B 




04174 





73400 


4 


OOOOO 




PAX 0«C 




04175 





62200 





04176 




STD PL0060 




04176 


1 


00000 


1 


04177 


PL 0060 


TXI PL0070»A»0 


SET XA TO BEGINNING OF S(I) 


04177 


-0 


75400 





OOOOO 


PL0070 


PXD 0»0 




04200 





56000 


1 


06651 




LOQ SCRIPL+1»A 


OBTAIN 


04201 


-0 


76300 





00006 




LGL 6 


AND 


04202 





34000 





01427 




CAS SPECOP 


EXAMINE 0P1 (S(I)I 


04203 





02000 





04300 




TRA PL0680 




04204 





02000 





04242 




TRA PL0460 




04205 


-0 


75400 





OOOOO 


PL0130 


PXO 0*0 


0P1 (SUM IS ♦» - OR * 


04206 





56000 


1 


06652 




LOQ SCRIPL+2.A 


OBTAIN 


04207 


-0 


76300 





00001 




LGL 1 


AND 


04210 





76000 





00001 




LBT 


EXAMINE SYM1 {SUM 


04211 





16200 





04223 




TOP PL0300 




04212 


-0 


76300 





00005 




LGL 5 


EX (IN)TERNAL VAR1AVLE 


04213 





34000 





01423 


PL0135 


CAS L(H) 


IS SYM1 (SUM FIX OR FLO PT 


04214 





34000 





01425 




CAS L(0) 




04215 





02000 





04220 




TRA PL0240 


FLO PT... SET 0P1 <S(I>) 32 = 


04216 





02000 





04220 




TRA PL0240 


FLO PT... DITTO 


04217 





02000 





04170 




TRA PLOOOO 


FIX PT... 0P1 CS( I ! ) 32 = 


04220 


-0 


50000 





01416 


PL0240 


CAL L(8) 


SET 0P1 (SU)I 32 = 1 


04221 


-0 


60200 


1 


06651 


PL0250 


ORS SCRIPL+1»A 




04222 


1 


00000 





04170 


PL0260 


TXI PL0000»0»0 


CONTINUE SCAN 


04223 


-0 


53400 


2 


04224 


PL0300 


LXD PL0310»B 


SYM1 (Sill) = SOME S(J) 


04224 


1 


00000 


3 


04225 


PL0310 


TXI PL0320»3*O 


XA TO XA.XB 


04225 


-o 


63400 


4 


04226 


PL0320 


SXD PL0330.C 




04226 


1 


00000 


2 


04227 


PL0330 


TXI PL0340»B»0 




04227 


-0 


50000 


2 


06650 


PL0340 


CAL SCRIPL.B 





4F14529 

4F14530 

4F14531 

4F14532 

4F14533 

4F14534 

4F14535 

4F14536 

4F14537 

4F14538 

4F14539 

4F14540 

4F14541 

4F14542 

4F 14543 

4F14544 

4F14545 

4F14546 

4F14547 

4F14548 

4F14549 

4F14550 

4F14551 

4F14552 

4F14553 

4F14554 

4F14555 

4F14556 

4F14557 

4F14558 

4F14559 

4F14560 

4F 14561 

4F14562 

4F14563 

4F14564 

4F14565 

4F14566 

4F14567 

4F14568 

4F14569 

4F14570 

4F14571 

4F14572 

4F14573 

4F14574 

4F14575 

4F14576 

4F14577 

4F14578 

4F 14579 

4F14580 

4F14581 

4F14582 



H 



o 



r\ 



04230 





73400 


4 


00000 




PAX 


0»C 


04231 


-0 


32000 





01452 




ANA 


MASK2 


04232 





40200 


1 


06652 




SUB 


SCRIPL+2»A 


04233 





10000 





04237 




T2E 


PL0420 


04234 





50000 


4 


05044 




CLA 


BETA»C 


04235 





73400 


4 


00000 




PAX 


OiC 


04236 





02000 





04225 




TRA 


PL0320 


04237 


-0 


50000 


2 


06651 


PL0420 


CAL 


SCRIPL+1»B 


04240 


-0 


32000 





01416 




ANA 


L(6) 


04241 





02000 





04221 




TRA 


PL0250 


04242 


-0 


76300 





00007 


PL0460 


L6L 


7 


04243 





16200 





04252 




TOP 


PL0465 


04244 





56000 


1 


06652 


PL0461 


LDQ 


SCRIPL+2»A 


04245 


-0 


75400 





00000 




PXD 


0.0 


04246 


-0 


76300 





00006 




LGL 


6 


04247 





40200 





01433 




SUB 


L(X) 


04250 


-0 


10000 





04220 




TNZ 


PL0240 


04251 





02000 





04170 




TRA 


PLOOOO 


04252 





76000 





00001 


PL0465 


LBT 




04253 





02000 





04260 




TRA 


PL0470 


04254 





560Q0 


1 


06652 




LDQ 


SCRIPL+2*A 


04255 


-0 


75400 





00000 




PXD 


»0 


04256 


-0 


76300 





0O006 




LGL 


6 


04257 





02000 





04213 




TRA 


PL0135 


04260 





50000 


1 


06652 


PL0470 


CLA 


SCRIPL+2.A 


04261 





53400 


2 


01406 




LXA 


L(OJ»B 


04262 





34000 


2 


04732 


PL0480 


CAS 


OPSUBtB 


04263 


1 


77777 


2 


04266 




TXI 


PL0520»B»-1 


04264 





02000 





04275 




TRA 


PL0650 


04265 


1 


77777 


2 


04266 




TXI 


PL0520.B»-1 


04266 


3 


77754 


2 


04262 


PL0520 


TXH 


PL048Q»B»-20 


04267 





60100 





01347 




STO 


G 


04270 


-0 


63400 


1 


04222 




SXD 


PL0260*A 


04271 





07400 


1 


03321 




TSX 


TETOO»A 


04272 





00000 





00011 




HTR 


9 


04273 


-0 


53400 


1 


04222 




LXD 


PL0260»A 


04274 





02000 





04244 




TRA 


PL0461 


04275 


-0 


50000 





01412 


PL0650 


CAL 


L<4) 


04276 


-0 


60200 


1 


06651 




ORS 


SCRIPL+i.A 


04277 





02000 





04244 




TRA 


PL0461 


04300 





16200 





04205 


PL0680 


TOP 


PL0130 


04301 


-0 


75400 





00000 




PXD 


0*0 


04302 





56000 


1 


06652 




LDQ 


SCRIPL+2»A 


04303 


-0 


76300 





00001 




LGL 


1 


04304 





76000 





00001 




LBT 




04305 





16200 





04363 




TOP 


PL 1000 


04306 


-0 


76300 





00005 




LGL 


5 


04307 





34000 





01423 




CAS 


L<H) 


04310 





34000 





01425 




CAS 


L<0) 


04311 





02000 





04314 




TRA 


PL0800 


04312 





02000 





04314 




TRA 


PL0800 


04313 





02000 





04316 




TRA 


PL0830 


04314 


-0 


50000 





01416 


PL0800 


CAL 


L(8) 


04315 


-0 


60200 


1 


06651 


PL0820 


ORS 


SCRIPL+lfA 



SYMKSIIM * S(J) 
EXTRACT OP1 JS(JJ) 32 AND GO 
SET 0P1 (5(11) 32 = 0P1 fS(J>) 
OP1 ISOI IS SPOP 



32 



FS NAME - 
EXAMINE SUM1 



CS(I)) S.l-5 



FLO PT... GO SET OPl (Stll) 32 ■ 1 
FIX PT ••• OPl <S(I)I 32 = 



MOT AN FS NAME 



SET OPl ($(U) 33 



OPl (SCI) IS «* 

OBTAIN AND 
EXAMINE 
SYM1 CS(1M 

EX (IN)TERNAL VARIABLE 
IS OT FIX OR FLO PT 



FIX PT 

FLO PT... SET OPl (SUM 32 = 1 



4F14583 
4F14584 
4F14585 
4F14586 
4F14587 
4F14588 
4F14589 
4F14590 
4F14591 
4F14592 
4F14593 
4F14594 
4F14595 
4F14596 
4F14597 
4F14598 
4F14599 
4F14600 
4F14601 
4F14602 
4F14603 
4F14604 
4F14605 
4F 14606 
4F14607 
4F 14608 
4F14609 
4F14M0 
4F14611 
4F14612 
4F14613 
4F14614 
4F14615 
4F14616 
4F14617 
4F14618 
4F14619 
4F14620 
4F14621 
4F14622 
4F14623 
4F14624 
4F14625 
4F14626 
4F14627 
4F14628 
4F14629 
4F14630 
4F14631 
4F14632 
4F14633 
4F14634 
4F14635 
4F14636 



"1 



04316 


-0 


75400 





00000 


PL0830 


PXD 


0*0 


04317 





56000 


1 


06655 




LOQ 


SCRIPL+5»A 


04320 


-0 


76300 





00001 




LGL 


1 


04321 





76000 





00001 




LBT 




04322 





16200 





04402 




TQP 


PL1200 


04323 


-0 


76300 





00005 




LGL 


5 


04324 





34000 





01423 




CAS 


L(HJ 


04325 





34000 





01425 




CAS 


L(0) 


04326 





02000 





04360 




TRA 


PL0940 


04327 





02000 





04360 




TRA 


PL0940 


04330 


-0 


75400 





00000 


PL0850 


PXD 


0*0 


04331 


-0 


76300 





00006 




LGL 


6 


04332 





40200 





01375 




SUB 


OPEN 


04333 


-0 


10000 





04170 




TNZ 


PLOOOO 


04334 


-0 


76300 





00031 




LGL 


25 


04335 





40000 





04352 




ADO 


PL0880 


04336 





62100 





04330 




STA 


PL0850 


04337 





76200 





00302 




RDR 


FXCODR 


04340 





46000 





04330 




LOA 


PL0850 


04341 





70000 





01347 




CPY 


G 


04342 





70000 





01350 




CPY 


G+l 


04343 





50000 





01347 




CLA 


G 


04344 





34000 





01350 




CAS 


G+l 


04345 





02000 





04347 




TRA 


»+2 


04346 





02000 





04350 




TRA 


PL1570 


04347 





07400 


4 


03400 




TSX 


DIAG»4 


04350 





10000 





04170 


PL1570 


TZE 


PLOOOO 


04351 





34000 





03754 




CAS 


FEXUB 


04352 


3 


00000 





00002 


PL0880 


TXH 


FIXCON»0»0 


04353 





02000 





04170 




TRA 


PLOOOO 


04354 





60100 


1 


06655 




STO 


SCRIPL+5»A 


04355 


-0 


50000 





01412 




CAL 


L(4) 


04356 


-0 


60200 


1 


06651 




ORS 


SCRIPL+1»A 


04357 





02000 





04170 




TRA 


PLOOOO 


04360 


-0 


50000 





01416 


PL0940 


CAL 


L(8) 


04361 


-0 


60200 


1 


06654 




ORS 


SCRIPL+4fA 


04362 





02000 





04170 




TRA 


PLOOOO 


04363 


-0 


53400 


2 


04364 


PL1000 


LXO 


PL1010.B 


04364 


1 


00000 


3 


04365 


PL1010 


TXI 


PL1020.3.0 


04365 


-0 


63400 


4 


04366 


PL1020 


SXD 


PL1030»C 


04366 


1 


00000 


2 


04367 


PL1030 


TXI 


PL1040»B»0 


04367 


-0 


50000 


2 


06650 


PL1040 


CAL 


SCRIPL*B 


04370 





73400 


4 


00000 




PAX 


O.C 


04371 


-0 


32000 





01452 




ANA 


MASK2 


04372 





40200 


1 


06652 




SUB 


SCRIPL+2»A 


04373 





10000 





04377 




TZE 


PL1130 


04374 





50000 


4 


05044 




CLA 


BETA»C 


04375 





73400 


4 


00000 




PAX 


O.C 


04376 





02000 





04365 




TRA 


PL1020 


04377 


-0 


50000 


2 


06651 


PL1130 


CAL 


SCRIPL+1»B 


04400 


-0 


32000 





01416 




ANA 


L(8) 


04401 





02000 





04315 




TRA 


PL0820 


04402 


-0 


53400 


2 


04403 


PL12O0 


LXO 


PL1210»B 


04403 


1 


00000 


3 


04404 


PL1210 


TXI 


PL1220»3»0 


o 

















OBTAIN 
AND 

EXAMINE 
SYM2 ISIIM 



SYM2 CSCU) IS FLO PT» SO GO 
SET 0P2 (Sill) 32 = 1 
SYM2(SU)> IS FIX PT 



SYM2 (S(I)> IS EXTERNAL 

SYM2 ISCIH IS INTERNAL (AND FIX PT) 



60 TO THE DIAGNOSTIC* 

* GO TO THE DIAGNOSTIC. 
EXP IS 0. SO 0P1 CS(II) 33 = 

EXP NOT LESS THAN 7# SO 

0P1 tS(I)l 33 = 

EXP LESS THAN 7* SO STORE EXP 

AS SYM2 <S(I)I AND SET 

0P1 (S(II) 33 * 1 

SYM2 ISm> IS FLO PT 
SET 0P2 CSC I>) 32 = 1 

SYM1 CS(ll) IS SOME SCJ) 
XA TO XA»X8 



SYM2 CSC I J) = SOME 
XA TO XA»XB 



SCK) 



4F14637 

4F 14638 

4F14639 

4F14640 

4F 14641 

4F14642 

4F 14643 

4F 14644 

4F14645 

4F14646 

4F 14647 

4F14648 

4F 14649 

4F14650 

4F14651 

4F14652 

4F14653 

4F14654 

4F14655 

4F14656 

4F14657 

4F14658 

4F14659 

4F14660 

4F14661 

4F 14662 

4F14663 

4F14664 

4F14665 

4F14666 

4F14667 

4F14668 

4F 14669 

4F14670 

4F14671 

4F 14672 

4F14673 

4F14674 

4F 14675 

4F 14676 

4F 14677 

4F14678 

4F 14679 

4F14680 

4F 14681 

4F14682 

4F14683 

4F14684 

4F14685 

4F 14686 

4F14687 

4F14688 

4F14689 

4F14690 



I,'/ 



o 



o 



o 



04404 


-0 


53400 


4 


04416 


PL1220 


LXO 


PL1330»C 


04405 


-0 


63400 


4 


04406 


PL1230 


SXO 


PL1240»C 


04406 


1 


00000 


2 


04407 


PL 1240 


TXI 


PL1250»B*0 


04407 


-0 


50000 


2 


06650 


PL1250 


CAL 


SCRIPLfB 


04410 





73400 


4 


00000 




PAX 


OfC 


04411 


-0 


32000 





01452 




ANA 


MASK2 


04412 





40200 


1 


06655 




SUB 


SCRIPL+5.A 


04413 





10000 





04417 




TZE 


PL 1340 


04414 





50000 


4 


05044 




CLA 


BETAfC 


04415 





73400 


4 


00000 




PAX 


0»C 


04416 


1 


7777Z 





04405 


PL1330 


TXI 


PL1230»0»-6 


04417 


-0 


50000 


2 


06651 


PL1340 


CAL 


SCRIPL+1»B 


04420 


-0 


32000 





01416 




ANA 


LI8) 


04421 


-0 


60200 


1 


06654 




ORS 


SCRIPL+4»A 


04422 





02000 





04170 




TRA 


PLOOOO 


04423 


-0 


53400 


1 


04136 


LKOOOO 


LXD 


AS3600»A 


04424 


-0 


50000 


1 


06645 


LKO030 


CAL 


SCRIPL-3.A 


04425 





73400 


2 


00000 




PAX 


0»B 


04426 


-3 


00000 


2 


04633 




TXL 


LK1610*B»0 


04427 





56000 


1 


06646 




LOQ 


SCRIPL-2»A 


04430 





50000 


2 


05044 




CLA 


BETA.B 


04431 





62200 





04432 




STD 


LK0110 


04432 


1 


00000 


1 


04433 


LK0110 


TXI 


LK.0120.A»0 


04433 


-0 


53400 


4 


04434 


LK0120 


LXD 


LK0130»C 


04434 


1 


00000 


5 


04435 


LK0130 


TXI 


LK0140»5»0 


04435 


-0 


63400 


1 


04136 


LK0140 


SXD 


AS3600*A 


04436 





50000 


2 


05043 




CLA 


BETA-1»B 


04437 


-0 


73400 


2 


00000 




PDX 


O.B 


04440 


-0 


63400 


2 


04441 




SXO 


LK0180»B 


04441 


1 


00000 


4 


04442 


LK0180 


TXI 


LK0190tC*0 


04442 





16200 





04566 


LK0190 


TOP 


LK1200 


04443 


-0 


77300 





00001 




RQL 


1 


04444 





16200 





04566 




TOP 


LK1200 


04445 


-o 


50000 





01404 




CAL 


12Z 


04446 


-0 


60200 


1 


06651 




ORS 


SCRIPL+1»A 


04447 


-0 


75400 





00000 




PXD 


0.0 


04450 





56000 


4 


06651 




LDQ 


SCRIPL+l.C 


04451 


-0 


76300 





00006 




LGL 


6 


04452 





34000 





01427 




CAS 


SPECOP 


04453 





02000 





04456 




TRA 


LK.0320 


04454 





02000 





04543 




TRA 


LK0950 


04455 





02000 





04424 




TRA 


LK0030 


04456 





16200 





04477 


LK0320 


TOP 


LK0570 


04457 


-0 


76300 





00033 




LGL 


27 


04460 


-0 


50000 


1 


06650 




CAL 


SCRIPLtA 


04461 


-0 


32000 





01452 




ANA 


MA5K2 


04462 





16200 





04472 




TOP 


LK0480 


04463 





40200 


4 


06652 




SUB 


SCRIPL+2tC 


04464 


-0 


10000 





04424 




TNZ 


LK0030 


04465 


-0 


50000 





01411 




CAL 


L(3) 


04466 


'0 


60200 


A 


06651 


LK.0430 


ORS 


SCRIPL+l.C 


04467 


-0 


50000 





01436 


LK0440 


CAL 


BIT29 


04470 


-0 


60200 


1 


06651 




ORS 


SCRIPL+l.A 


04471 





02000 





04424 




TRA 


LK0030 



LICXC WITH -6 



SYM2ISUI) = S(K) 



SET 0P2ISI1)) 32 « 0P1 (S<K)> 32 



RESUME SCAN 
-3Q TO XA 

Sfli TO XB 

EXIT UPON ENCOUNTERING SCO) 

PLACE LAST OP OP Sill IN MQ 



MOVE XA TO BEGINNING OF S( I » 
XA TO XA»XC 

LENGTH OF Stl-l) TO XB 

MOVE XC TO BEGINNING OF St 1-1 J 
S(1I TYPE AC 

Si 1) TYPE AC 

Si I) RESULTS IN MQ (TYPE MQ) 

SET 0P1 <S<I>) 31 - 1 

PLACE 0P1 (SII-D) IN MQ 



S(I)TYPTMQ. SU-DTYPEAC . 0P1 (S( I > >29=0 

S(I)TYPE MQt OPUS(I-l) = ** 

EXTRACT S(l) IN ACC 

0P1 ISI1-DI 33 = 

0P1 (Stl-IH 33 = 1. OPEN ** SUBROUTINE. 

SET OPi (5(1)) 29 = 0P1 (Stl-IH 35 = 

S(I» ■ SYM1 (S(I-D) » SO 



OPI (SU-IH = 0. CLOSED ** SUBROUTINE. 



4F14691 
4F14692 
4F14693 
4F 14694 
4F14695 
4F14696 
4F14697 
4F14698 
4F14699 
4F14700 
4F 14701 
4F14702 
4F14703 
4F14704 
4F14705 
4F14706 
4F14707 
4F14708 
4F14709 
4F14710 
4F14711 
4F14712 
4F14713 
4F14714 
4F14715 
4F14716 
4F14717 
4F14718 
4F14719 
4F14720 
4F14721 
4F14722 
4F14723 
4F14724 
4F14725 
4F14726 
4F14727 
4F14728 
4F14729 
4F14730 
4F14731 
4F14732 
4F14733 
4F14734 
4F14735 
4F14736 
4F14737 
4F14738 
4F14739 
4F14740 
4F14741 
4F14742 
4F14743 
4F14744 



H'i 



0*472 


40200 


4 


06655 


LK0480 


SUB 


SCRIPL+5.C 




4F14745 


04473 


-0 10000 





04424 




TNZ 


LK0030 


SET 0P1{S<I)J29=0P1ISII-1) )35=0 


4F14746 


04474 


-0 50000 





01407 




CAL 


Ltl) 


S( I) = SYM2 <S(I-1))» SO 


4F14747 


04475 


-0 60200 


4 


06654 




ORS 


SCR1PL+4.C 


SET 0P2 (S(I-D) 35 = 1 


4F14748 


04476 


02000 





04467 




TRA 


LK0440 




4 F 14 749 


04477 


-0 75400 





00000 


LK0570 


PXD 


0*0 


S(I1 TYPE MQ» 0P1 {SU-1H = * 


4F14750 


04500 


56000 


4 


06654 




LDQ 


SCRIPL+4*C 


PLACE P02 fS< 1-1)1 IN MQ 


4F14751 


04501 


-0 76300 





00006 




LGL 


6 


IS 0P2 (SII-11) = * 


4F14752 


04502 


40200 





01405 




SUB 


STAR 




4F14753 


04503 


-0 10000 





04424 




TNZ 


LK0030 


NO - SET 0P1 (SCI)) 29 = 0P1 (SU-l)l 35 


=04F14754 


04504 


-0 50000 





01410 




CAL 


L<2) 


YES 


4F14755 


04505 


-0 60200 


4 


06651 




ORS 


SCRIPL+1,C 


SET 0P1(SU-1)J34=1 


4F14756 


04506 


-0 50000 


1 


06650 


LK0630 


CAL 


SCRIPLtA 




4F14757 


04507 


-0 32000 





01452 




ANA 


MASK2 


SEARCH FOR S( I> IN SU-1J 


4F14758 


04510 


-3 00000 


2 


04*23 


LK0650 


TXL 


L£0000*8*0 


NOT FOUND AT ALL 


4F14759 


04511 


34000 


1 


06647 




CAS 


SCRIPL-ltA 




4F14760 


04512 


1 00003 


1 


04515 




TXI 


LK0700»A.3 




4F14761 


04513 


02000 





04516 




TRA 


LK0710 




4F14762 


04514 


1 00003 


1 


04515 




TXI 


LK0700»A»3 


NOT FOUND - CONTINUE SEARCH 


4F14763 


04515 


1 77775 


2 


04510 


LK07O0 


TXI 


LK0650»B»-3 




4F14764 


04516 


56000 


1 


06646 


LK0710 


LDQ 


SCRIPL-2*A 


S(I) IS SYMJ (SCI-l)) 


4FI4765 


04517 


-0 77300 





00001 




RQL 


1 


IS OPJ (SI I-l») = * 


4F14766 


04520 


16200 





04522 




TOP 


LK0750 




4F14767 


04521 


1 00003 


1 


04515 




TXI 


LK070O*At3 


NO... CONTINUE SEARCH 


4F14768 


04522 


50000 


4 


06650 


LK0750 


CLA 


SCR I PL *C 


YES. ..PERMUTE ELICSil-li) WITH ELJ(SU-IJ) 4F14769 


04523 


56000 


1 


06645 




LDQ 


SCRIPL-3.A 


EXCHANGE 


4F14770 


04524 


60100 


1 


06645 




STO 


SCRIPL~3,A 


TAG 


4F14771 


04525 


-0 60000 


4 


06650 




STQ 


SCRIPL#C 


WORDS 


4F14772 


04526 


-0 50000 


4 


06651 




CAL 


SCRIPL+1K 


PLACE 0P1 {SSI-1J) IN ACC 


4F14773 


04527 


56000 


1 


06646 




LDQ 


SCRIPL-2»A 


PLACE OPJ (S(I-l)l IN MQ 


4F14774 


04530 


60200 


1 


06646 




SLW 


SCRIPL-2.A 


EXCHANGE 


4F14775 


04531 


-0 60000 


4 


06651 




STQ 


SCRIPL+ltC 


OP 


4F14776 


04532 


-0 32000 





01452 




ANA 


MASK2 


WORDS AND 


4F14777 


04533 


-0 60200 


4 


06651 




ORS 


SCRIPL+1»C 


SET OPHSU-l>)30-33= OPJ<S< 1-1 )) 30-33 


4F14778 


04534 


50000 


4 


06652 




CLA 


SCRIPL+2«C 


THEN 


4F14779 


04535. 


56000 


1 


06647 




LOQ 


SCRIPL-1#A 


EXCHANGE 


4F14780 


04536 


60100 


1 


06647 




STO 


SCR1PL-1»A 


SYMBOL 


4F14781 


04537 


-0 60000 


4 


06652 




STQ 


SCRJPL+2tC 


WORDS 


4F14762 


04540 


-O 53400 


1 


04136 




LXD 


AS3600»A 


RESTORE XA 


4F14783 


04541 


-0 50000 





01407 


LK09Q0 


CAL 


L(l) 


AND 


4F14784 


04542 


02000 





04466 




TRA 


LK0430 




4F14785 


04543 


-0 77300 





00033 


LK.0950 


RQL 


27 


S(I) TYPE MQ, 0P1 (S(I-IJ) = SPOP 


4F14786 


04544 


-0 50000 


1 


06650 




CAL 


SCRIPL.A 




4F14787 


04545 


-0 32000 





01452 




ANA 


MASK2 


EXTRACT SUi IN ACC 


4F14788 


04546 


16200 





04555 




TQP 


LK1050 


0P1 tSU-l>J 33 = (CLOSED SUBROUTINE) 


4F14789 


04547 


3 00006 


2 


04424 




TXH 


LK0030*B»6 


OPEN MULTIV... SET 0P1 (S(I)J 29 = 


4F14790 


04550 


40200 


4 


06655 




SUB 


SCRIPL+5.C 


OPEN UNIV... IS St I) = SUM2 (S(I-D) 


4F14791 


04551 


-0 10000 





04424 




TNZ 


LK.0030 


NO... SET 0P1 <S<I)>29 = 0P2 (S(I-1))35 = 


04F14792 


04552 


-0 50000 





01411 




CAL 


L(3) 


AND 


4F14793 


04553 


-0 60200 


4 


06654 




ORS 


SCRIPL+4.C 


SET 0P2 (SU-1H34 = 0P2 <S(I-1)>35 = 1 


4F14794 


04554 


02000 





04467 




TRA 


LK.0440 




4F14795 


04555 


-0 77300 





00017 


LIC1050 


RQL 


15 




4F14796 


04556 


16200 





04560 




TQP 


LK1100 


TEST 0P1(S<I-1))12 


4F 14797 


04557 


02000 





04424 




TRA 


LK0030 


FN-NAME 


4F14798 



<M 



u 



O 



o 



o 



04560 


-3 


00006 


2 


04424 


LK1100 


TXL 


LK0030.B 


»6 


04561 





402O0 


4 


06660 




SUB 


SCRIPL+8 


»C 


04562 


-0 


10000 





04424 




TNZ 


LK0030 




04563 


-0 


50000 





01407 




CAL 


L(l> 




04564 


-0 


60200 


4 


06657 




ORS 


SCRIPL+7 


»C 


04565 





02000 





04467 




TRA 


LK0440 




04566 


-0 


75400 





00000 


LK1200 


PXD 


0*0 




04567 





56000 


4 


06651 




LDQ 


SCRIPL+1 


»c 


04570 


-0 


76300 





00006 




LGL 


6 




04571 





34000 





01427 




CAS 


SPECOP 




04572 





02000 





04604 




TRA 


LK1340 




04573 





02000 





04622 




TRA 


LK1470 




04574 


-o 


50000 


1 


06650 




CAL 


SCRIPL»A 




04575 


-0 


32000 





01452 




ANA 


MASK.2 




04576 


-3 


00000 


2 


04423 


LK1280 


TXL 


LKOOOO.B 


► 


04577 





34000 


1 


06647 




CAS 


SCRIPL-1 


• A 


04600 


1 


00003 


1 


04603 




TXI 


LK1330.A 


.3 


04601 





02000 





04522 




TRA 


LK0750 




04602 


i. 


00003 


1 


04603 




TXI 


LK1330.A 


>3 


04603 


1 


77775 


2 


045 76 


LH1330 


TXI 


LK1280.B< 


>-3 


04604 





16200 





04612 


LK1340 


TQP 


LK1410 




04605 


-0 


50000 


1 


06650 




CAL 


SCR1PL»A 




04606 


-0 


32000 


o 


01452 




ANA 


MASK2 




04607 





40200 


4 


06652 




SUB 


SCRIPL+2 


>c 


04610 


-0 


10000 





04424 




TNZ 


LK0030 




04611 





02000 





04541 




TRA 


LK0900 




04612 


-0 


75400 





00000 


LK1410 


PXD 


0>0 




04613 





56000 


4 


06654 




LOQ 


SCRlPL+4t 


c 


04614 


-0 


76300 





00006 




LGL 


6 




04615 





40200 





01402 




SUB 


SLASH 




04616 





10000 





04506 




TZE 


LK0630 




04617 


-0 


50000 





01410 




CAL 


L(2> 




04620 


-0 


60200 


4 


06651 




ORS 


SCRIPL+ls 


c 


04621 





02000 





04423 




TRA 


LKOOOO 




04622 


-0 


77300 





00033 


LK1470 


RQL 


27 




04623 


-0 


50000 


1 


06650 




CAL 


SCRIPL.A 




04624 


-0 


32000 





01452 




ANA 


MASK2 




04625 





16200 





04630 




TOP 


LK1530 




04626 


3 


00006 


2 


04424 




TXH 


LK0030*Bi 


6 


04627 





02000 





04472 


LK1520 


TRA 


LK0480 




04630 


-0 


77300 





00017 


UC1530 


RQL 


15 




04631 





16200 





04472 




TOP 


LK.0480 




04632 





02000 





04424 




TRA 


LK0030 




04633 


-0 


53400 


2 


05044 


LK.1610 


LXD 


BETA.B 




04634 


-0 


75400 





00000 




PXD 


0*0 




04635 





56000 


1 


06646 




LDQ 


SCRIPL-2< 


A 


04636 


3 


00003 


2 


04655 




TXH 


LK1780»Bi 


3 


04637 


-0 


76300 





00006 




LGL 


6 




04640 





40200 





01401 




SUB 


HZ 




04641 





10000 





04662 




TZE 


L1CK000 




04642 


-0 


50000 





06652 




CAL 


SCRIPL+2 




04643 


-0 


32000 





01527 




ANA 


MASK1 




04644 


-0 


10000 





04662 




TNZ 


LKKOOO 




04645 


-0 


50000 


c 


06654 




CAL 


SCRIPL+4 





CLOSED UNIV. SBRTN 
CLOSED MULT IV. SBRTN 
S<I) NOT = SYM3 (S (I-l)> 
S(I) ■ SYM3 (5(1-1) >* SO 
SET 0P3 iS{I-l>)35 » 1 

Sill TYPE AC 

PLACE 0P1 (5(1-1) > IN MQ 



S(I> TYPE AC» 0P1 (SII-D) = + OR - 
SEARCH FOR S(IJ IN S(I-l) 
NOT FOUND AT ALL 



S(H ■ SOME SYMJ CSC 1-1 1 )- •• GO PERMUTE 
NOT FOUND*.. CONTINUE SEARCH 



S(I» TYPE AC. 0P1 (SU-l)J = ** 

IS S(I) = SYM1 IS(I-l)) 

NO 

YES 

S(I) TYPE AC» 0P1 (S(I-D) = * 

IS 0P2 (SU-lll = 1 

YES 

NO 

SET 0P1 (S(I-D) 34 = 1 

S(IJ TYPE AC» OPl (SCI-IM = SPOP 

EXTRACT SU) IN ACC 

OPEN MULTIV. 



FN-NAME 

IS S(0) A SINGLE ELEMENT 



NO 

YES 

IS OP (5(0)) = + OR - 

OP (5(0)) = - 

OP (S(0)> = + 

DOES SYM CS(O)) = S(l) 

NO 

YES - PLACE OPl (S(l)l IN ACC 



4F14799 

4F 14800 

4F14801 

4F14802 

4F14803 

4F14804 

4F14805 

4F14806 

4F14807 

4F14808 

4F14809 

4F14810 

4F14611 

4F14812 

4F14813 

4F14814 

4F14815 

4F14816 

4F14817 

4F14818 

4F14819 

4F14820 

4F 14821 

4F14822 

4F14823 

4F14824 

4F 14825 

4F14826 

4F14827 

4F14828 

4F14829 

4F14630 

4F14831 

4F14832 

4F14833 

4F14834 

4F14835 

4F14836 

4F14837 

4F 14838 

4F14839 

4F14840 

4F14841 

4F14842 

4F14843 

4F14844 

4F14845 

4F 14846 

4F14847 

4F14848 

4F14849 

4F14850 

4F14851 

4F14852 



.*/ 



04646 


-0 


32000 


01404 




ANA 


12Z 


04647 





10000 


04662 




TZE 


LKKOOO 


04650 


-0 


60200 


06651 




ORS 


SCRIPL+1 


04651 





76700 


00002 




ALS 


2 


04652 


-0 


60200 


06654 




ORS 


SCRIPL+4 


04653 





77100 


00006 




ARS 


6 


04654 





02000 


04661 




7RA 


LK.1820 


04655 





16200 


04662 


LIU 780 


TOP 


LKKOOO 


04656 


-0 


77300 


00001 




RQL 


1 


04657 





16200 


04662 




TQP 


LKKOOO 


04660 


-0 


50000 


01404 




CAL 


12Z 


04661 


-0 


60200 


06651 


LK1820 


ORS 


SCRIPL+1 


04662 


-0 


53400 5 


01117 


LfcKOOO 


LXD 


3QBAR.5 


04663 


-0 


50000 4 


06645 




CAL 


SCRIPL-3.C 


04664 





73400 2 


00000 




PAX 


0»B 


04665 





50000 2 


05044 




CLA 


BETA«B 


04666 





62200 


04667 




STD 


LKX050 


04667 


1 


00000 4 


04670 


LKK050 


TXI 


LKK060»C»0 


04670 


-0 


75400 


00000 


LIOC060 


PXO 


0»0 


04671 





56000 4 


06651 




LDQ 


SCRIPL+1*C 


04672 


-0 


76300 


00006 




LGL 


6 


04673 





40200 


01405 




SUB 


STAR 


04674 


-0 


10000 


04703 




TNZ 


PCOOOO 


04675 





16200 


04677 




TQP 


LKK130 


04676 





02000 


04703 




TRA 


PCOOOO 


04677 





56000 4 


06654 


LK.K130 


LDQ 


SCRIPL+4.C 


04700 


-0 


76300 


000C2 




LGL 


2 


04701 





76000 


00001 




LBT 




©4702 


-0 


60200 4 


06651 




ORS 


SCRIPL+1. C 


04703 


-0 


53400 4 


01122 


PC00G0 


LXO 


ARGCTR.C 


04704 


3 


00000 4 


04706 




TXH 


PC0030»C»0 


04705 


1 


00001 4 


04707 




TXI 


PC0040»C»1 


04706 





53*00 4 


01406 


PC0030 


LXA 


1(0) »C 


04707 


-0 


50000 1 


06645 


PC0040 


CAL 


SCRIPL-3.A 


04710 





73400 2 


00000 




PAX 


0»B 


04711 


-3 


00000 2 


04725 




TXL 


PC0190»B.O 


04712 





50000 2 


05044 




CLA 


BETA»B 


04713 





62200 


04714 




STD 


PC0100 


©4714 


1 


0000© 1 


04715 


PC010O 


TXI 


pcone»A»o 


04715 





56000 1 


06651 


PC0110 


LDQ 


SCRIPL+1»A 


04716 


-0 


76300 


00036 




LGL 


30 


©4717 





76000 


00001 




LBT 




04720 


1 


00454 


04722 


PC0140 


TXI 


PC0160»0»300 


04721 





16200 


04707 




TQP 


PC0040 


0*722 


-0 


75400 4 


00000 


PC0160 


PXD 


0*C 


04723 





62200 2 


05044 




STD 


BETA.B 


04724 


1 


00001 4 


04707 




TXI 


PC0040»C»1 


04725 


-0 


53400 2 


04720 


PC0190 


LXD 


PC0140»B 


04726 





50000 2 


05520 


PC0200 


CLA 


BETA+300.B 


04727 





60100 2 


06650 




STO 


CPBETA+300«B 


04730 


2 


00001 2 


04726 




TIX 


PC0200»B»1 


04731 





02000 


02410 




TRA 


STATED 
********* 



0P1 (Sllll 31 = 
SET OP IS(0)J 31 = 1 

SET 0P1 {SU>> 29 = 1 



S10> TYPT AC 

SCO) TYPE AC 
SIO) TYPE MQ. SO 

-3Q TO XA»XC 



BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT 
PLACE 0P1 OF LAST SEGMENT IN MQ 



0P1 OF LAST SEGMENT IS * 



0P2 IS *» SO SET 0P1 tS(Ll) 34 = 1 
IS THIS AN FS 

NO 
YES 



EXIT AT SCO} 



PLACE 0P1 IS(D) IN MQ 



0P1 (SCI)) 29= 1 AND 0P1 {Sim 30 = 
0P1 (S(I») 29 = OR 0P1 {SUM 30 = 1 
STORE ERAS. REL. ADD. COUNT IN BETA. 
AND UPDATE FOR NEXT SEGMENT 



GO FETCH STATE D 

******************* ** 



4F14853 
4F14854 
4F14855 
4F14856 
4F14857 
4F14858 
4F14859 
4F14860 
4F14861 
4F14862 
4F14863 
4F 14864 
4F14865 
4F14866 
4F14867 
4F14868 
4F14869 
4F14870 
4F14871 
4F14872 
4F14873 
4F14874 
4F 14875 
4F14876 
4F14877 
4F14878 
4F14879 
4F14880 
4F14881 
4F14882 
4F14883 
4F14884 
4F14885 
4F14886 
4F14887 
4F14888 
4F14889 
4F14890 
4F14891 
4F14892 
4F14893 
4F14894 
4F14895 
4F14896 
4F14897 
4F14898 
4F14899 
4F14900 
4F14901 
4F14902 
4F14903 
4F149C4 
•4F14905 
4F14906 



l>* 



u 



o 



Q 








( 









DICTIONARY OF 


OPEN SUBROUTINES FOLLOWS 


4F14907 




04732 -272122626060 


OPSUB 


OCT 672122626060 


XABS 


4F14908 




04733 4212262606060 




OCT 212262606060 


ABS 


4F14909 




04734 -273145636060 




OCT 673145636060 


XINT 


4F14910 




©4735 +314563606060 




OCT 314563606060 


INT 


4F14911 




04736 -274446246060 




OCT 674446246060 


XMOD 


4F14912 




04737 -044624606060 




OCT 444624606060 


MOD 


4F14913 




04740 -274421670060 




OCT 674421670060 


XMAXO 


4F14914 




04741 -042167016060 




OCT 442167016060 


MAX1 


4F14915 




04742 -274421670160 




OCT 674421670160 


XMAX1 


4F14916 




04743 -042167006060 




OCT 442167006060 


MAXO 


4F14917 




04744 -274431450060 




OCT 674431450060 


XMINO 


4F14918 




04745-043145016060 




OCT 443145016060 


MINI 


4F14919 




04746 -274431450160 




OCT 674431450160 


XMIN1 


4F14920 




04747 -043145006060 




OCT 443145006060 


MINO 


4F14921 




04750 +264346216360 




OCT 264346216360 


FLOAT 


4F14922 




04751 -272631676060 




OCT 672631676060 


XFIX 


4F14923 




04752 -223127456060 




OCT 623127456060 


SIGN 


4F14924 




04753 -276231274560 




OCT 676231274560 


XSIGN 


4F14925 




04754 -272431446060 




OCT 672431446060 


XDIM 


4F 14926 




04755 +243144606060 




OCT 243144606060 


DIM 


4F14927 




04756 




BSS 10 




4F 14928 








***»•«* 


********************* 


* * *4F14929 




04770 


ENDCDR 


BSS 




4F149295 
4F14930 




05044 


ENDC 


ORG 2596 




4F14931 




05044 


BETA 


BSS 300 




4F14932 








END OF ARITHMETIC / STATE C» 


4F14933 








******* 


* * * * * * * * * * * * ********* 


* * *4F14934 
4F14935 








ARITHMETIC / STATE D= 


4F14936 








704 FORTRAN MASTER RECORD CARD / STATE D = F0160000. 


4F14937 




00000 




ORG 




4F149371 




00000 00471 03440 




PZE ORGDt»CLDR00 




4F 149372 




00OO1 OOOOO 06157 




PZE ENDD-1 




4F149373 
4F14938 




03440 


ORGO 


ORG 1824 




4F14939 




03440 -0 53400 1 01117 


MCOOOO 


LXO 3QBAR»A 


MODE CHECKING ROUTINE 


4F14940 




03441 -0 63400 1 03512 




SXD MC0420»A 




4F 14941 




03442 53400 1 01406 




LXA L(0)»A 




4F 14942 




03443 -0 63400 1 03461 


MC0030 


SXD XASAVE»A 




4F14943 




03444 -0 50000 1 06650 




CAL SCR I PL » A 




4F14944 




03445 73400 2 00000 


MC0050 


PAX .2 


sen TO XB 


4F14945 




03446 50000 2 06174 




CLA CPBETA.B 




4F 14946 




03447 73400 2 00454 


MC0Q70 


PAX TAU2»B 




4F14947 




03450 -0 63400 2 03511 




SXD MC0410»B 




4F 14948 




03451 -0 63400 2 03516 




SXD MC0460»B 




4F14949 




03452 3 77772 2 03511 




TXH MC0410»B»-6 


SINGLE ELEMENT - GO ONTO SU + 1) 


4F14950 




03453 76000 00140 




SLF 


TURN OFF ALL SENSE LITES 


4F14951 




03454 -0 75400 00000 




PXD 0»0 


CLEAR ACC 


4F14952 




03455 56000 1 06651 




LOG SCRIPL+1»A 


PLACE 0P1 CSUt) IN MQ 


4F14953 




03456 -0 76300 00006 




LGL 6 




4F14954 




03457 34000 01427 




CAS SPECOP 




4F14955 


i» 


03460 16200 03462 




TOP MC0180 




4F 14956 



03461 


1 


00000 





03511 


XASAVE 


TXI 


MC0410»0»0 


03462 


-0 


76300 





00032 


MC0180 


LGL 


26 


03463 





16200 





03465 




TOP 


MC0210 


03464 





76000 





00141 




SLN 


1 


03465 


-0 


75400 





00000 


MC0210 


PXD 


0*0 


03466 





56000 


1 


06652 




LDQ 


SCRIPL+2»A 


03467 


-0 


76300 





00001 




LGL 


1 


03470 





76000 





00001 




LBT 




03471 





16200 





03514 




TQP 


MC0440 


03472 


-0 


76300 





00005 




LGL 


5 


03473 





34000 





01423 




CAS 


L(H> 


03474 





34000 





01425 




CAS 


L(0) 


03475 


1 


00000 





03502 


XBSAVE 


TXI 


MC0340»0»0 


03476 





02000 





03502 




TRA 


MC0340 


03*77 


-0 


76000 





00141 


MC0310 


SLT 


1 


03500 


1 


00003 


2 


03506 




TXI 


MC038G*B*3 


03501 





07400 


4 


03400 




TSX 


DIAG»4 


03502 


-0 


76000 





00141 


MC0340 


SLT 


1 


03503 





07400 


4 


03400 




TSX 


DIAG*4 


03504 





76000 





00141 




SLN 


1 


03505 


1 


0000 3 


2 


03506 




TXI 


MC0380»Bt3 


03506 


-3 


00000 


2 


03510 


MC0380 


TXL 


MC0400»B»0 


03507 


1 


77775 


1 


03465 




TXI 


MC021Q»A»-3 


03510 


-0 


53400 


1 


03461 


MC0400 


LXD 


XASAVE* A 


03511 


1 


00000 


1 


03512 


MC0410 


TXI 


MC0420.A.0 


03512 


3 


00000 


1 


03443 


MC0420 


TXH 


MC0030»A»0 


03513 





02000 





03537 




TRA 


CPOOOO 


03514 


-0 


63400 


2 


03475 


MC0440 


SXD 


XBSAVE»B 


03515 


-0 


53400 


4 


03461 




LXD 


XASAVE »C 


03516 


1 


00000 


4 


03517 


MC0460 


TXI 


MC0470*C»0 


03517 


-0 


50000 


4 


06650 


MC0470 


CAL 


SCRIPL»C 


03520 


-0 


32000 





01452 




ANA 


MASK2 


03521 





34000 


1 


06652 




CAS 


SCRIPL+2»A 


03522 





02000 





03524 




TRA 


MC0520 


03523 





02000 





03531 




TRA 


MC0570 


03524 





73400 


2 


01226 


MC0520 


PAX 


SIGMAltB 


03525 





50000 


2 


06174 




CLA 


CPBETAtB 


03526 





73400 


2 


00000 


MC0540 


PAX 


TAU1.B 


03527 


-0 


63400 


2 


03530 




SXD 


MC0560»B 


03530 


1 


00000 


4 


03517 


MC0560 


TXI 


MC0470*C»0 


03531 


-0 


53400 


2 


03475 


MC0570 


LXD 


XBSAVEtB 


03532 


-0 


50000 


4 


06651 




CAL 


SCRIPL+ltC 


03533 





77100 





00003 




ARS 


3 


03534 





76000 





00001 




LBT 




03535 





02000 





03477 




TRA 


MC0310 


03536 





02000 





03502 




TRA 


MC0340 


03537 





76000 





00140 


CP0000 


SLF 




03540 





60000 





06160 




STZ 


FNSW 


03541 


-0 


53400 


4 


01122 




LXD 


ARGCTR.C 


03542 


-3 


00000 


4 


03550 




TXL 


CP0090«C»0 


03543 





07400 


4 


01731 




TSX 


CITOO.C 


03544 





00000 





01531 




HTR 


ALL1 


03545 





ooooo 





01531 




HTR 


ALL1 



0P1 {5(111 ■ +* - OR * 
FIX PT 
FLO PT 

PLACE SYMJ (S(lt) IN MQ - J = It... 



SYMJ tSU!> IS A VARIABLE 



FLO PT 

FLO PT 

SYMJ (SID! IS A FIX PT VARIABLE 

OK 

ERROR.. FLO PT LITE ON 

SYMJCSUJJ IS A FLO PT VARIABLE 

ERROR.. FLO PT LITE OFF 

RESTORE FLO PT LITE 

FINISHED WITH S( I) 

CONTINUE SCANNING S(I). J TO J+l 

GO TO S(I+1) 



EXIT TO COMPILER 

SYMJ (SIITT = SAME S(K) 

MOVE XC TO 1ST ELEMENT OF S(I+1> 

EXTRACT S(K) IN ACC 

AND COMPARE WITH SYMJ !S(II) 



SCK) TO XB 



SYMJ (SCI)> = S(K) FOR SOME K 
PLACE 0P1 (S(K») IN ACC 



S(K) IS FIX PT 
S(K) IS FLO PT 

TURN OFF ALL SENSE LITES 

IS THIS AN FS STATEMENT 

NO 

YES - COMPILE FOUR 36 - BIT 

STRINGS IN 1 AS A PRELUDE TO 

FS STATEMENT COMPILATION 



4F14957 
4F14958 
4F14959 
4F14960 
4F14961 
4F14962 
4F14963 
4F14964 
4F14965 
4F14966 
4F14967 
4F14968 
4F14969 
4F14970 
4F14971 
4F14972 
4F14973 
4F14974 
4F14975 
4F14976 
4F14977 
4F14973 
4F14979 
4F14980 
4F14981 
4F14982 
4F14983 
4F14984 
4F14985 
4F14986 
4F14987 
4F14988 
4F14989 
4F14990 
4F14991 
4F14992 
4F14993 
4F14994 
4F14995 
4F14996 
4F14997 
4F14998 
4F14999 
4F15000 
4F15001 
4F15002 
4F15003 
4F15004 
4F15005 
4F15006 
4F15007 
4F15008 
4F15009 
4F15010 



u 



n 



d 



03546 





00000 





01531 




HTR 


ALL1 


03547 





00000 





01531 




HTR 


ALL1 


03550 


-0 


50000 





00030 


CP0090 


CAL 


EIFNO 


03551 


-0 


32000 





01527 




ANA 


MASK1 


03552 





60200 





06164 




SLW 


CM 


03553 


-0 


53400 


1 


01117 




LXD 


3QBAR»A 


03554 





50000 


1 


06645 


CP0130 


CLA 


SCRIPL-3»A 


03555 





73400 


2 


00000 


CP0140 


PAX 


.2 


03556 





50000 


2 


06174 




CLA 


CPBETA»B 


03557 





62200 





01363 




STD 


PHI (I) 


03560 


-0 


32000 





01452 




ANA 


MASK2 


03561 





73400 


2 


01356 


CP0180 


PAX 


TAU3»B 


03562 


-0 


63400 


2 


03607 




SXD 


CP0400»B 


03563 





76000 





00006 




COM 




03564 





40000 





01407 




ADD 


LCD 


03565 





76700 





00022 




ALS 


18 


03566 





62200 





03567 




STD 


CP0240 


03567 


1 


00000 


1 


03570 


CP0240 


TXI 


CP0250*A»0 


03570 


-0 


63400 


1 


01117 


CP0250 


SXD 


3QBAR»A 


03571 





56000 


1 


06651 




LDQ 


SCRIPL+ltA 


03572 


-0 


76300 





00036 




LGL 


30 


03573 





76000 





00001 




LBT 




03574 





02000 





03576 




TRA 


CP0310 


03575 





16200 





03604 




TOP 


CP0370 


03576 





76000 





00141 


CP0310 


SLN 


1 


03577 


-0 


77300 





00001 




RQL 


1 


03600 





16200 





03602 




TOP 


CP0350 


03601 





76000 





00142 




SLN 


2 


03602 


-0 


77300 





00001 


CP0350 


RQL 


1 


03603 





02000 





03605 




TRA 


CP0380 


03604 


-0 


77300 





00002 


CP0370 


RQL 


2 


03605 





16200 





03611 


CP0380 


TQP 


CP0420 


03606 


-0 


76000 





00144 




SLT 


4 


03607 


3 


00000 





00000 


CP0400 


TXH 


0»0»0 


0361O 





O2Q00 





03612 




TRA 


CPO430 


03611 





76000 





00144 


CP0420 


SLN 


4 


03612 


-0 


75400 





00000 


CP0430 


PXO 


0.0 


03613 





56000 


1 


06651 




LDQ 


SCRIPL+1»A 


03614 


-0 


76300 





00006 




LGL 


6 


03615 





34000 





01427 




CAS 


SPECOP 


03616 


1 


00000 





03672 




TXI 


CP0960»0»0 


03617 


1 


77775 


1 


04026 




TXI 


CP20<»0»A»-3 


03620 





40200 





01401 




SUB 


112 


03621 





10000 





03650 




T2E 


CP0760 


03622 


-0 


76300 





00035 




LGL 


29 


03623 





16200 





03710 




TQP 


CP1130 


03624 


-0 


53400 


2 


03607 


CP0540 


LXD 


CP0400»B 


03625 


1 


00003 


2 


03626 




TXI 


CP0560»B»3 


03626 


-3 


00000 


2 


04622 


CP0560 


TXL 


ESO00OtB»0 


03627 


-0 


63400 


2 


03607 




SXD 


CP0400»B 


03630 


1 


77775 


1 


03631 




TXI 


CP0590tA»-3 


03631 


t0 


75400 





00000 


CP0590 


PXD 


0»0 


03632 





56000 


1 


06651 




LDQ 


SCRIPL+l.A 


03633 


-0 


76300 





00006 




LGL 


6 



STO INT. FORM. NO. IN DEC. FIELD OF CW. 

-3Q TO XA 

EXTRACT CURRENT S( I ) 



STO ERAS. REL. ADD. IN PHI (I) 



MOVE XA TO 1ST ELEMENT OF CURRENT S( I) 
EXAMINE 0P1 <S(IJ) 29»30»31»32 



OPi {Sfll) 29 * 

0P1 (S(I)l 30 = 

OPI (S(I>) 29 * OR OPI <S(I)> 30 

SET STORE LITE 

OPI |S(])| 31 * 0» SO SET STO LITE 

OPI tSUJ) 31 * 1» SO SET STQ LITE 



TEST OPI (S(I)J 32 

OPI fSCl >> 32 = 1» SO SET FLPTSW 



OPI (S(I>) 32 = 0. SO SET FXPTSW 
PLACE OPI {SU)> IN MQ 



1« 



opi tsnn = + 

OPI {SHI) 35 = 
OPI (SUM 35 = 1 

GO TO END-OF-SEGMENT SBRTN 



PLACE OPJ <SU>) IN MQ 



4F15011 
4F15012 
4F15013 
4F15014 
4F15015 
4F15016 
4F15017 
4F15018 
4F15019 
4F15020 
4F15021 
4F15022 
4F15023 
4F15024 
4F15025 
4F15026 
4F15027 
4F15028 
4F15029 
4F15030 
4F15031 
4F15032 
4F15033 
4F15034 
SO 4F15035 
4F15036 
4F15037 
4F15038 
4F15039 
4F15040 
4F15041 
4F15042 
4F15043 
4F15044 
4F15045 
4F15046 
4F15047 
4F15048 
4F15049 
4F15050 
4F15051 
4F15052 
4F15053 
4F15054 
4F15055 
4F15056 
4F15057 
4F15058 
4F15059 
4F15060 
4F15061 
4F15062 
4F15063 
4F15064 



\i: 



03634 





34000 





01405 




CAS 


STAR 


03635 





02000 





03716 




TRA 


CP1200 


03636 





02000 





03771 




TRA 


CP1720 


03637 





40200 





01401 




SUB 


112 


03640 





10000 





03663 




T2E 


CP0880 


03641 


-0 


50000 





01550 




CAL 


L(FAD) 


03642 


-0 


76000 





00144 




SLT 


4 


03643 





02000 





03646 




TRA 


CP0740 


03644 





76000 





00144 




SLN 


4 


03645 


~0 


50000 





01532 




CAL 


L(ADD> 


03646 





60200 





06165 


CP0740 


SLW 


CW+1 


03647 





02000 





03766 




TRA 


CP1690 


03650 


-0 


76300 





00035 


CP0760 


LGL 


29 


03651 





16200 





03660 




TOP 


CP0850 


03652 


-0 


50000 





01540 




CAL 


L<CHS> 


03653 





60200 





06165 




SLW 


CW+1 


03654 





60000 





06166 




ST2 


CW+2 


03655 





60000 





06167 




STZ 


CW+3 


03656 





07400 


2 


05104 




TSX 


COMP»B 


0365? 





02000 





03624 




TRA 


CP0540 


03660 


-0 


50000 





01543 


CP0850 


CAL 


LCCLS) 


03661 





60200 





06165 




SLW 


CW+1 


03662 





02000 





03712 




TRA 


CP1150 


03663 


-0 


50000 





01553 


CP0880 


CAL 


LCFSBJ 


03664 


-0 


76000 





00144 




SLT 


4 


03665 





02000 





03670 




TRA 


CP0940 


03666 





76000 





00144 




SLN 


4 


03667 


-0 


50000 





01574 




CAL 


L(SUB) 


03670 





60200 





06165 


CP0940 


SLW 


CW+1 


03671 





02000 





03766 




TRA 


CP1690 


03672 





16200 





03674 


CP0960 


TOP 


CP0980 


03673 





02000 





04363 




TRA 


CP4140 


03674 


-o 


76300 





00035 


CP0980 


LGL 


29 


03675 





76000 





00143 




SLN 


3 


03676 





76000 





00001 




LBT 




03677 





02000 





03702 




TRA 


CP1050 


03700 


-0 


76O0O 





00143 




SLT 


3 


03701 


3 


00000 





00000 




TXH 


0*0*0 


03702 





16200 





03704 


CP1050 


TOP 


CP1070 


03703 





02000 





03624 




TRA 


CP0540 


03704 


-0 


50000 





01556 


CP1070 


CAL 


L(LDQ) 


03705 


-0 


76000 





00143 




SLT 


3 


03706 





02000 





03711 




TRA 


CP1140 


03707 





76000 





00143 




SLN 


3 


03710 


-0 


50000 





01541 


CP1130 


CAL 


L(CLA) 


03711 





60200 





06165 


CP1140 


SLW 


CW+1 


03712 





07400 


4 


05112 


CP1150 


TSX 


AC 0000 *C 


03713 





07400 


2 


05104 




TSX 


C0MP»B 


0371* 





60000 





06164 




STZ 


CW 


03715 





02000 





03624 




TRA 


CP0540 


03716 


-0 


76000 





00143 


CP1200 


SLT 


3 


03717 





02000 





03731 




TRA 


CP1330 


03720 


-0 


76000 





00144 




SLT 


4 


03721 





02000 





03764 




TRA 


CP1670 



OPJ (SI I)) = / 

opj csc in = * 

opj (Sim = - 

OPJ CSCI)) = + 



FIX PT. RESTORE FXPTSW 



opi cscm = - 

0P1 (SC 1 1 J 35 » 1» SO 

COMPILE CHS FOR 1ST ELEMENT 



OPI ISI1II 35 = 0» SO 

COMPILE CLS SYM1 CS( UJ FOR 1ST ELEMENT 

opj cscm * - 



FIX PT. RESTORE FXPTSW 



opi est in = * 

TURN LITE 3 ON 

TEST OPI CSCin 34 

OPI CSC I») 34 a 0* SO LEAVE LITE 3 ON 

OPI CSCII) 34 * 1, SO TURN LITE 3 OFF 



OPI fSU>> 35 * It SO GO MODIFY J 

OPI CSCIJ) 35 = 

ELI (SHU TO MQ 

ELI CSCIII TO ACC 



ADDRESS COMPILE SYM1 CSCIJ! 

RESET CW 
GO MODIFY J 

opj cscm = / 

PREDECESSOR IN ACC 
FLO PT. 



4F15065 
4F15066 
4F15067 
4F 15068 
4F15069 
4F15070 
4F15071 
4F15072 
4F15073 
4F15074 
4F15075 
4F15076 
4F15077 
4F15078 
4F15079 
4F15080 
4F15081 
4F15082 
4F15083 
4F15084 
4F15085 
4F15086 
4F15087 
4F15088 
4F15089 
4F15090 
4F15091 
4F15092 
4F15093 
4F15094 
4F15095 
4F15096 
4F15097 
4F15098 
4F15099 
4F15100 
4F15101 
4F15102 
4F15103 
4F15104 
4F15105 
4F15106 
4F15107 
4F15108 
4F15109 
4F15110 
4F15111 
4F15112 
4F15113 
4F15114 
4F15115 
4F15116 
4F15117 
4F15118 



\l<° 



u 



O 



n 



O 



03722 





76000 





00144 


SLN 


4 


03723 





07400 


4 


01731 


TSX 


CITOO»C 


03724 





00000 





01406 


HTR 


L(0) 


03725 





ooooo 





01560 


HTR 


LCLRS1 


03726 





00000 





01406 


HTR 


L(01 


03727 





ooooo 





01472 


HTR 


OEC35 


03730 





02000 





03734 


TRA 


CP1450 


03731 


-0 


76000 





00144 


CP1330 SLT 


4 


03732 





02000 





03753 


TRA 


CP1570 


03733 





76000 





00144 


SLN 


4 


03734 





50000 





01547 


CP1450 CLA 


L(DVP) 


03735 





60100 





06165 


STO 


CW+1 


03736 





07400 


4 


05112 


TSX 


ACOOOOtC 


03737 





07400 


2 


05104 


TSX 


COMPtB 


03740 





07400 


4 


01731 


TSX 


CITOOtC 


03741 





OOOOO 





01406 


HTR 


LCO) 


03742 





OOOOO 





01542 


HTR 


LCCLM) 


03743 





OOOOO 





01406 


HTR 


L(0) 


03744 





OOOOO 





01406 


HTR 


L(0) 


03745 





07400 


4 


01731 


TSX 


CITOO.C 


03746 





OOOOO 





01406 


HTR 


L(0) 


03747 





OOOOO 





01557 


HTR 


LCLLS) 


03750 





OOOOO 





01406 


HTR 


LCO) 


03751 





OOOOO 





01466 


HTR 


DEC 18 


03752 





02000 





03624 


TRA 


CP0540 


03753 





50000 





01573 


CP1570 CLA 


LCSTQ) 


03754 





60100 





06165 


STO 


CW+1 


©3755 





50000 





01505 


CLA 


X( 


03756 





60100 





06166 


STO 


CW+2 


03757 





60000 





06167 


STZ 


CW+3 


03760 





07400 


2 


05104 


TSX 


COMPtB 


03761 





50000 





01541 


CLA 


L(CLA) 


03762 





60100 





06165 


STO 


CW+1 


03763 





07400 


2 


05104 


TSX 


COMP»B 


03764 





5O00O 





01551 


CP1670 CLA 


L t FOP ) 


©3765 





60100 





06165 


STO 


CW+1 


03766 





07400 


4 


05112 


CP1690 TSX 


ACOOOOtC 


©3767 





07400 


2 


05104 


TSX 


COMPtB 


03770 





02000 





03624 


TRA 


CP0540 


03771 


-0 


76000 





00143 


CP1720 SLT 


3 


03772 





02000 





04004 


TRA 


CP1840 


03773 





50000 





01572 


CLA 


LCSTO) 


03774 





60100 





06165 


STO 


CW+1 


03775 





50000 





01505 


CLA 


XI 


03776 





60100 





06166 


STO 


CW+2 


03777 





60000 





06167 


STZ 


CW+3 


04000 





07400 


2 


05104 


TSX 


COMPtB 


04001 





50000 





01556 


CLA 


LCLDQ) 


04002 





60100 





06165 


STO 


CW+1 


04003 





07400 


2 


05104 


TSX 


COMP.B 


04004 





76000 





00143 


CP1840 SLN 


3 


04O05 





07400 


4 


05112 


TSX 


ACOOOOtC 


04006 


-0 


76000 





00144 


SLT 


4 


04007 





02000 





04022 


TRA 


CP2000 



FIX PT» RESTORE FXPTSW 
COMPILE LRS 35 



PREDECESSOR IN MQ 

AND SEGMENT IS 

FIX PT. RESTORE FXPTSW 



ADDRESS COMPILE SYMJ IS(I»> 
COMPILE DVP SYMJ ISCIU 
COMPILE CLM 



COMPILE LLS 18 



60 MODIFY J 
PREDECESSOR IN MQ 
AND SEGMENT IS FLO PT 



COMPILE STQ 700000 



COMPILE CLA 700000 

COMPILE FOP SYMJ CSC I)) 
ADDRESS COMPILE SYMJ CSCIJ) 

GO MODIFY J 

opj«scm=* 

PREDECESSOR IN ACC 



COMPILE STO 700000 



COMPILE LDQ 700000 

TURN LATE 3 ON 

ADDRESS COMPILE SYMJCS(I>> 



4F15119 

4F15120 

4F15121 

4F15122 

4F15123 

4F15124 

4F15125 

4F15126 

4F15127 

4F15128 

4F15129 

4F15130 

4F15131 

4F15132 

4F15133 

4F15134 

4F15135 

4F15136 

4F15137 

4F15138 

4F15139 

4F15140 

4F15141 

4F15142 

4FI5143 

4F15144 

4F15145 

4F15146 

4F15147 

4F15148 

4F15149 

4F15150 

4F15151 

4F15152 

4F15153 

4F15154 

4F15155 

4F15156 

4F15157 

4F15158 

4F15159 

4F15160 

4F15161 

4F15162 

4F15163 

4F15164 

4F15165 

4F15166 

4F15167 

4F15168 

4F15169 

4F15170 

4F15171 

4F15172 



I*. 



04010 
0*011 
04012 
04013 
04014 
0401$ 
04016 
04017 
04020 
04021 
04022 
04023 
04024 
04025 

04026 -0 

04027 

04030 

04031 

04032 -0 

04033 

04034 -0 

04035 

04036 -0 

04037 -0 
04040 
04041 
04042 
04043 
04044 

04045 

04046 

04047 

04050 

04051 1 

04052 -0 

04053 
04054 
04055 
04056 
04057 

04060 -6 

04061 1 

04062 3 

04063 -0 

04064 
04065 
04066 
04067 
04070 
04071 
04072 
04073 
04074 



04075 -0 



76000 
50000 
60100 
07400 
07400 
00000 
00000 
00000 
00000 
02000 
50000 
60100 
07400 
02000 
76300 
76000 
16200 
16200 
75400 
76300 
50100 
60200 
32000 
50100 
60200 
50000 
76000 
02000 
07400 
00000 
00000 
00000 
00000 
77775 
50000 
60200 
07400 
07400 
02000 
60000 
5340© 
00003 
77772 
63400 
50000 
76000 
02000 
07400 
00000 
00000 
00000 
00000 
77775 
50000 



00144 
01562 
06165 
05104 
01731 
01406 
01533 
01406 
01465 
03624 
01552 
06165 
05104 
03624 
00007 
00001 
04150 
04473 
00000 
00017 
01503 
06162 
01452 
01505 
06163 
06651 
00001 
04052 
01731 
01406 
01572 
06162 
01406 
04057 
01541 
06165 
05112 
05104 
04044 
06164 
03607 
04062 
04125 
03607 
06651 
00001 
04075 
01731 
01406 
01573 
06162 
01454 
04102 
01556 



CP2000 



CP2040 



CP2100 

CP2150 

CP2200 
CP2230 

CP2250 
CP2300 



SLN 

CLA 

STO 

TSX 

TSX 

HTR 

HTR 

HTR 

HTR 

TRA 

CLA 

STO 

TSX 

TRA 

LGL 

LBT 

TOP 

TOP 

PXD 

LLS 

ORA 

SLW 

ANA 

ORA 

SLW 

CLA 

LBT 

TRA 

TSX 

HTR 

HTR 

HTR 

HTR 

TXI 

CAL 

SLW 

TSX 

TSX 

TRA 

STZ 

LXD 

TXI 

TXH 

SXD 

CLA 

LBT 

TRA 

TSX 

HTR 

HTR 

HTR 

HTR 

TXI 

CAL 



4 

LIMPY) 

CW+1 

C0MP#B 

CIT0O»C 

L(0) 

L(ALS) 

L(0) 

DEC 17 

CP0540 

L(FMP) 

CW+1 

C0MP»B 

CP0540 

7 

CP2650 

CP5000 

0»0 

15 

P( 

ARGORG 

MASK 2 

X( 

XRSAVE 

SCRIPL+1»A 

CP2150 

CITOO.C 

L<0> 

LCSTO) 

ARGORG 

L(0) 

CP22O0tA»-3 

UCLA I 

CW+1 

AC 0000 »C 

C0MP»B 

CP2100 

CW 

CPO40OtB 

CP2230.B.3 

CP2500*B*-6 

CP0400tB 

SCRIPL+l.A 

CP2300 

CIT00»C 

L(0) 

L(STQ) 

ARGORG 

2E18 

CP2350.A.-3 

L(LDQ) 



FIX PT. RESTORE FXPTSW 



COMPILE MPY SYMJ(SUI) 
COMPILE ALS 17 



GO MODIFY J 
FLO PT. 

COMPILE FMP SYMJIS(I)) 

GO MODIFY J. 

0P1{S(IH=SP0P 

TEST 0PltS(I))12 

LIB OR OPEN FUNCTION 

FN-FUNCTION 

FS-FUNCTION 

PUT TYPE NO IN ADO(ACC) 

FORM 4»..TYPE NO. 

AND STO IN ARGORG 

FORM 7...TYPE NO. 
AND STO IN XRSAVE 

EXAMINE OP2(S<I))35 

1ST ARG STORED 

1ST ARG IN ACC 

COMPILE STO 4. ..TYPE NO. + 



GO ON TO 0P3CSU)) 



ADDRESS COMPILE 5YM2(S(I)» 
COMPILE CLA SYM2(SU)J 

RESET CW 



FINISHED WITH S(IJ 



EXAMINE OP3(SU>>35 

2ND ARG STORED 

2ND ARG IN MO 

COMPILE STQ 4. ..TYPE NO. + 1 



GO ON TO SYM41SU) ) 



4F15173 

4F15174 

4F15175 

4F15176 

4F15177 

4F15178 

4F15179 

4F15180 

4F15181 

4F15182 

4F15183 

4F15184 

4F15185 

4F15186 

4F15187 

4F15188 

4F15189 

4F15190 

4F15191 

4F15192 

4F15193 

4F15194 

4F15195 

4F15196 

4F15197 

4F15198 

4F15199 

4F15200 

4F15201 

4F15202 

4F15203 

4F15204 

4F15205 

4F15206 

4F15207 

4F15208 

4F15209 

4F15210 

4F15211 

4F15212 

4F15213 

4F15214 

4F15215 

4F15216 

4F15217 

4F15218 

4F15219 

4F15220 

4F15221 

4F15222 

4F15223 

4F15224 

4F15225 

4F15226 



,** 



G 



O 



o 



n 



04076 





60200 





06165 


SLW 


CW+1 


0*077 





07400 


4 


05112 


TSX 


AC 0000 *C 


04100 





07400 


2 


05104 


TSX 


COMP,B 


04101 





02000 





04067 


TRA 


CP2250 


04102 





50000 





01521 


CP2350 CLA 


DECMI2 


04103 





60200 





06161 


SLW 


PCCNTR 


04104 


-0 


53400 


2 


03607 


CP2370 LXD 


CP0400»B 


04105 


1 


0O003 


2 


04106 


TXI 


CP2390»B.3 


04106 


3 


77772 


2 


04125 


CP2390 TXH 


CP2500*B.-6 


04107 


-0 


63400 


2 


03607 


SXO 


CP0400»B 


04110 


-0 


50000 





01541 


CAL 


LtCLA) 


04111 





60200 





06165 


SLW 


CW+1 


©4112 





07400 


4 


05112 


TSX 


AC0000»C 


04113 





07400 


2 


05104 


TSX 


C0MP»B 


04114 





07400 


4 


01731 


TSX 


CI TOO. C 


04115 





00000 





01406 


HTR 


L(0) 


04116 





00000 





01572 


HTR 


L(STO) 


04117 





00000 





06162 


HTR 


ARGORG 


04120 





00000 





06161 


HTR 


PKNTR 


04121 





50000 





06161 


CLA 


PCCNTR 


04122 





40000 





01454 


ADD 


2E18 


04123 





60100 





06161 


STO 


PKNTR 


04124 


1 


77775 


1 


04104 


TXI 


CP2370*A»-3 


04125 


-0 


53400 


1 


01117 


CP2500 LXD 


3QBAR»A 


04126 


-0 


50000 





01575 


CAL 


L(SXD) 


04127 





60200 





06165 


SLW 


CW+1 


04130 


-0 


50000 





06163 


CAL 


XRSAVE 


04131 





60200 





06166 


SLW 


CW+2 


04132 


-0 


50000 





01412 


CAL 


L(4) 


©4133 





60200 





06167 


SLW 


CW+3 


04134 





07400 


2 


05104 


TSX 


COMPtB 


04135 


-0 


50000 





01602 


CAL 


LJTSX) 


04136 





60200 





06165 


SLW 


cw+i 


©4137 


-0 


50000 


1 


06652 


CAL 


SCRIPL+2»A 


04140 





60200 





06166 


SLW 


CW+2 


04141 





07400 


2 


05104 


TSX 


COMP.B 


04142 


-0 


50000 





01561 


CAL 


L«LXD> 


04143 





60200 





06165 


SLW 


CW+1 


04144 


-0 


50000 





06163 


CAL 


XRSAVE 


04145 





60200 





06166 


SLW 


CW+2 


04146 





02000 





05241 


TRA 


CP6000 


04147 


1 


00000 





04622 


CP5830 TXI 


ESOOOO.O.O 


04150 


-0 


76300 





00024 


CP2650 LGL 


20 


04151 





16200 





04217 


TOP 


CP3060 


04152 





50200 





06164 


CLS 


CW 


04153 





60100 





06164 


STO 


CW 


04154 





50000 


1 


06647 


CLA 


SCRIPL-1»A 


04155 





60100 





06166 


STO 


CW+2 


04156 





07400 


2 


05104 


TSX 


COMP»B 


04157 





60000 





06164 


STZ 


CW 


04160 


-0 


53400 


2 


03607 


LXD 


CP0400»B 


04161 


-3 


77767 


2 


04203 


TXL 


CP2930»B»-9 


04162 


-0 


50000 





01531 


CAL 


ALL1 



ADDRESS COMPILE SYM3CSSI)) 
COMPILE LDQ SYM3(S(I») 

INITIALIZE DECCPCCNTR) TO 2 



FINISHED WITH SSI) 



ADDRESS COMPILE SYMJ(SU)J» J=4»»«« 
COMPILE CLA SYMJ(S(I))» J=4».«. 
COMPILE STO 4. ..TYPE NO. + J-2» J=4»... 



UPDATE PKNTR 



FINISHED WITH S<I> 



COMPILE SXD 7...TYPE NO. t 4 



COMPILE TSX SYMKS(I)J»4 



TEST 0P1(S(I))33 
0... LIB. SBRTN 
1... OPEN SBRTN 
CW TO -CW 



COMPILE FUNCTION NAME 
RESET CW 



OPEN UNIVARIATE FUNCTION 



4F15227 
4F15228 
4F15229 
4F15230 
4F15231 
4F15232 
4F15233 
4F15234 
4F15235 
4F15236 
4F15237 
4F15238 
4F15239 
4F15240 
4F15241 
4F15242 
4F15243 
4F 15244 
4F15245 
4F15246 
4F15247 
4F15248 
4F15249 
4F15250 
4F15251 
4F15252 
4F15253 
4F15254 
4F15255 
4F15256 
4F15257 
4F15258 
4F15259 
4F15260 
4F15261 
4F15262 
4F15263 
4F15264 
4F15265 
4F15266 
4F15267 
4F15268 
4F15269 
4F15270 
4F15271 
4F15272 
4F15273 
4F15274 
4F15275 
4F15276 
4F15277 
4F15278 
4F15279 
4F15280 



tf 



04163 





60200 





06164 




SLW 


CW 


04164 





50000 


1 


06651 




CLA 


SCRIPL+1»A 


04165 





76000 





00001 




LBT 




04166 





02000 





04201 




TRA 


CP2900 


04167 





77100 





00001 




ARS 


1 


04170 





56000 





01512 




LDQ 


AOPLUS 


04171 





76000 





00001 




LBT 




04172 





02000 





04174 




TRA 


CP2860 


04173 





56000 





01524 




LDQ 


AOSTAR 


04174 


-0 


60000 





06166 


CP2860 


STQ 


CW+2 


04175 





60000 





06167 




STZ 


CW+3 


04176 





07400 


2 


05104 


CP2880 


TSX 


C0MP*B 


04177 





60000 





06164 




STZ 


CW 


04200 





02000 





04622 




TRA 


ESOOOO 


04201 





07400 


4 


05112 


CP2900 


TSX 


ACOOOO»C 


04202 





02000 





04176 




TRA 


CP2880 


04203 





07400 


4 


05112 


CP2930 


TSX 


AC0000»C 


04204 


-0 


53400 


2 


03607 




LXD 


CP0400»B 


04205 


1 


00003 


2 


04206 




TXI 


CP2960«B»3 


64206 


3 


77772 


2 


04212 


CP2960 


TXH 


CP30O0»B.-6 


04207 


-0 


63400 


2 


03607 




SXD 


CP0400»B 


04210 





07400 


2 


05104 




TSX 


COMPtB 


04211 


1 


77775 


1 


04203 




TXI 


CP2930»At-3 


04212 


-0 


50000 





01531 


CP3000 


CAL 


ALL1 


04213 


c 


60200 





06164 




SLW 


CW 


04214 





07400 


2 


05104 




TSX 


COMP.B 


04215 





60000 





06164 




STZ 


CW 


04216 





02000 





04622 




TRA 


ESOOOO 


04217 


-3 


77767 


2 


04246 


CP3060 


TXL 


CP3350»8»-9 


04220 





50000 


1 


06651 




CLA 


SCRIPL+l.A 


04221 





76000 





00001 




LBT 




04222 





02000 





04240 




TRA 


CP3280 


04223 





50000 





01575 


CP3100 


CLA 


L(SXD) 


04224 





60100 





06165 




STO 


CW+1 


04225 





50000 





01505 




CLA 


Xt 


04226 





60100 





06166 




STO 


CW+2 


04227 





50000 





01412 




CLA 


L(4) 


04230 





60100 





06167 




STO 


CW+3 


04231 





07400 


2 


05104 




TSX 


COMP»B 


04232 





50000 





01602 




CLA 


LCTSX) 


04233 





6O10O 





06165 




STO 


CW+1 


04234 





50000 


1 


06647 




CLA 


SCRIPL-1»A 


04235 





60100 





06166 




STO 


CW+2 


04236 





07400 


2 


05104 




TSX 


COMP.B 


04237 





02000 





04615 




TRA 


CP5760 


04240 





50000 





01541 


CP3280 


CLA 


L(CLA) 


04241 





60100 





06165 




STO 


CW+1 


04242 





07400 


4 


05112 




TSX 


AC0000«C 


04243 





07400 


2 


05104 




TSX 


COMPtB 


04244 





60000 





06164 




STZ 


CW 


04245 





02000 





04223 




TRA 


CP3100 


04246 


-3 


77764 


2 


04272 


CP3350 


TXL 


CP3560.B»-12 


04247 





50000 


1 


06651 




CLA 


SCRIPL+l.A 


04250 





76000 





00001 




LBT 





EXAMINE 0P2 iSt I) 135 
0.*. ARG STORED 
1»». ARG NOT STORED 



COMPILE ACC OR MQ INDICATOR 
RESET CW 

ADDRESS COMPILE SYM2IS<I») 
GO COMPILE SYM2tSU>) 
OPEN MULTIVARIATE FUNCTION 



COMPILE SYMJ(SU>) 



COMPILE LAST ARGUMENT NAME 

RESET CW 

GO TO END-OF-SEGMENT SBRTN 

CLOSED UNIVARIATE FUNCTION 
EXAMINE OP2CS(I)>35 
0... ARG STORED 
1... ARG IN ACC 



COMPILE SXD7...0.4 



COMPILE TSX SYMHSO>)»4 

COMPILE FLOW TRACE INFO AND LXD 7<»4 



ADDRESS COMPILE SYM2(S(I)1 

COMPILE CLA SYM2CSUI) 

RESET CW 

GO COMPILE SXD»TSX*LXD SEQUENCE 

CLOSED BIVARIATE FUNCTION 
EXAMINE OP2ISUD35 



4F15281 

4F1S282 

4F15283 

4F15284 

4F15285 

4F15286 

4F15287 

4F15288 

4F15289 

4F 15290 

4F15291 

4F15292 

4F15293 

4F15294 

4F15295 

4F15296 

4F15297 

4F15298 

4F15299 

4F 15300 

4F15301 

4F15302 

4F15303 

4F15304 

4F15305 

4F15306 

4F15307 

4F15308 

4F15309 

4F15310 

4F15311 

4F15312 

4F15313 

4F15314 

4F15315 

4F15316 

4F15317 

4F15318 

4F15319 

4F15320 

4F15321 

4F15322 

4F15323 

4F15324 

4F15325 

4F15331 

4F15332 

4F15333 

4F15334 

4F15335 

4F15336 

4F15337 

4F15338 

4F15339 



|5° 



o 



o 



n 





04251 





02000 





04260 




TRA 


CP3450 




04252 





50000 





01556 


CP3390 


CLA 


LCLDQ) 




04253 





60100 





06165 




STO 


CW+1 




04254 


1 


77775 


1 


04255 




TXI 


CP3420*A»-3 




04255 





07400 


4 


05112 


CP342Q 


TSX 


AC 0000 »C 




04256 





07400 


2 


05104 




TSX 


COMP.B 




04257 


1 


00003 


1 


04223 




TXI 


CP3100»A»3 




04260 





50000 


1 


06654 


CP3450 


CLA 


SCRIPL+4»A 




04261 





76000 





00001 




LBT 






04262 





02000 





04264 




TRA 


CP3490 




04263 





02000 





04240 




TRA 


CP3280 




04264 





50000 





01541 


CP3490 


CLA 


L(CLA) 




04265 





60100 





06165 




STO 


CW+1 




04266 





07400 


4 


05112 




TSX 


AC0000»C 




04267 





07400 


2 


05104 




TSX 


COMPjB 




04270 





60000 





06164 




ST2 


cw 




04271 





02000 





04252 




TRA 


CP3390 




04272 





50000 


1 


06651 


CP3560 


CLA 


SCRIPL+1»A 




04273 





76000 





00001 




LBT 






04274 


1 


77772 


1 


04324 




TXI 


CP3820fA»-6 




04275 


1 


77772 


1 


04276 




TXI 


CP3600»A.-6 




04276 





50000 





01521 


CP3600 


CLA 


DECMI2 




04277 





60100 





06161 




STO 


P(CNTR 




04300 





50000 





01556 


CP3620 


CLA 


HLDQ) 




04301 





60100 





06165 




STO 


CW+1 




04302 





07400 


4 


05112 




TSX 


AC0000»C 




04303 





07400 


2 


05104 




TSX 


C0MP»B 




04304 





50000 





01573 




CLA 


L(STQ} 




04305 





60100 





06165 




STO 


CW+1 




04306 





50000 





01503 




CLA 


P< 




04307 





60100 





06166 




STO 


CW+2 




04310 





50000 





06161 




CLA 


P(CNTR 




04311 





60100 





06167 




STO 


CW+3 




04312 





40200 





01454 




SUB 


2E18 




04313 





60100 





06161 




STO 


PtCNTR 




04314 





07400 


2 


05104 




TSX 


C0MP »B 




04315 


-0 


53400 


2 


03607 




LXD 


CP0<v00«B 




04316 


1 


00003 


2 


04317 




TXI 


CP3770»B»3 




04317 


-3 


77764 


2 


04322 


CP3770 


TXL 


CP3800»Bt-12 




O4320 


-0 


53400 


1 


01117 




LXD 


3QBAR»A 




04321 


1 


77775 


1 


04252 




TXI 


CP3390»A.-3 




04322 


-0 


63400 


2 


03607 


CP3800 


SXD 


CP0400»B 




04323 


1 


77775 


1 


04300 




TXI 


CP3620*A.-3 




04324' 





50000 


1 


06646 


CP3820 


CLA 


SCRIPL-2»A 




04325 





76000 





00001 




LBT 






04326 


1 


00006 


1 


04355 




TXI 


CP4070»A«6 




04327 





50000 





01521 




CLA 


0ECMI2 




04330 





60100 





06161 




STO 


PtCNTR 




04331 





50000 





01541 


CP3870 


CLA 


LKLA) 




04332 





60100 





06165 




STO 


CW+1 




04333 





07400 


4 


05112 




TSX 


AC0O00»C 




04334 





07400 


2 


05104 




TSX 


COKP»B 




04335 





50000 





01572 




CLA 


LtSTO) 




04336 





60100 





06165 




STO 


CW+1 



0... ARG1 STORED 
!•«• ARS1 IN ACC 



ADDRESS COMPILE SYM3<SU») 

COMPILE LDQ SYM3(S(I>) 

GO COMPILE SXD.TSX.LXD SEQUENCE 

EXAMINE OP3(Sn>)35 
0... ARG2 STORED 
1.** ARG2 IN MQ 



AOORESS COMPILE SYM2JSU1) 

COMPILE CLA SYM2(S(IH 

REST CW 

GO COMPILE LDQ»SXD»TSX*LXD SEQUENCE 

CLOSED MULTIVARIATE FUNCTION 

EXAMINE OP2(S«I5)35 

0..* ARG1 STORED 

l.». ARG1 IN ACC 

INITIALIZE PfCNTR TO -2 



ADDRESS COMPILE SYMJ<S(I)> FOR J=4»5»... 
COMPILE LDQ SYMJtSU)) 



COMPILE STQ 4.».0-(J-2) 



FINISHED WITH ARG VECTOR 



GO PICK UP NEXT ARG. 

EXAMINE OP3<SU>>35 
0... ARG2 STORED 
!••• ARG2 IN MQ 



ADDRESS COMPILE SYMJ(S(IH FOR J=4>5,*»- 
COMPILE CLA SYMJ(S( I)) 



4F15340 

4F15341 

4F15342 

4F15343 

4F15344 

4F15345 

4F15346 

4F15347 

4F15348 

4F15349 

4F 15350 

4F15351 

4F15352 

4F15353 

4F15354 

4F15355 

4F15356 

4F15357 

4F15358 

4F15359 

4F15360 

4F15361 

4F153&2 

4F15363 

4F15364 

4F15365 

4F15366 

4F15367 

4F15368 

4F15369 

4F15370 

4F15371 

4F15372 

4F15373 

4F15374 

4F15375 

4F15376 

4F15377 

4F15378 

4F15379 

4F15380 

4F15381 

4F15382 

4F15383 

4F15384 

4F15385 

4F15386 

4F15387 

4F15368 

4F15339 

4F15390 

4F15391 

4F15392 

4F15393 



I?/ 



0^337 





50000 





01503 




CLA 


PC 


04340 





60100 





06166 




STO 


CW+2 


04341 





50000 





06161 




CLA 


PUNTR 


04342 





60100 





06167 




STO 


CW+3 


04343 





40200 





01454 




SUB 


2E18 


04344 





60100 





06161 




STO 


PCCNTR 


04345 





07400 


2 


05104 




TSX 


C0MP»B 


04346 


-0 


53400 


2 


03607 




LXO 


CP0400»B 


04347 


1 


00003 


2 


04350 




TXI 


CP4020»B»3 


04350 


-3 


77764 


2 


04353 


CP4020 


TXL 


CP4050»B»-12 


04331 


-0 


53400 


1 


01117 




LXO 


3QBAR.A 


©4352 


1 


77775 


1 


04240 




TXI 


CP3280»At-3 


04353 


-0 


63400 


2 


03607 


CP4050 


SXO 


CP0400*B 


04354 


1 


77775 


1 


04331 




TXI 


CP3870»A«-3 


04355 





50000 





0154.1 


CP4070 


CLA 


L(CLA) 


04356 





60100 





06165 




STO 


CW+1 


04357 





07400 


4 


05112 




TSX 


ACOOOOtC 


04360 





07400 


2 


05104 




TSX 


C0MP»B 


04361 





60000 





06164 




STZ 


CW 


04362 


1 


77772 


1 


04276 




TXI 


CP3600»At-6 


04363 


-0 


76300 





00033 


CP4140 


LGL 


27 


04364 





16200 





04415 




TOP 


CP4410 


04365 





76000 





00001 




LBT 




04366 





02000 





04371 




TRA 


CP4200 


04367 





50000 





01525 




CLA 


STRSTR 


04370 





02000 





04372 




TRA 


CP4210 


04371 





50000 





01524 


CP4200 


CLA 


AOSTAR 


04372 


e 


60100 





06165 


CP4210 


STO 


CW+1 


04373 


-0 


76300 





O0002 




LGL 


2 


04374 





16200 





04403 




TOP 


CP4310 


04375 





56000 





01524 




LDQ 


AOSTAR 


04376 





76000 





00001 




LBT 




04377 





56000 





01512 




LDQ 


ADPLUS 


04400 


-0 


60000 





06166 




STO 


CW+2 


04401 





60000 





06167 




STZ 


CW+3 


04402 





02000 





04404 




TRA 


CP4320 


04403 





07400 


4 


05112 


CP4310 


TSX 


ACOOOOtC 


04404 





50200 





06164 


CP4320 


CLS 


CW 


04405 





60100 





06164 




STO 


CW 


04406 





07400 


2 


05104 




TSX 


COMP»B 


04407 





60000 





06164 




STZ 


CW 


04410 





50000 


1 


06655 




CLA 


SCRIPL+5»A 


04411 





60100 





06166 




STO 


CW+2 


04412 





07400 


2 


05104 




TSX 


CGMPtB 


04413 





60000 





06165 




STZ 


CW+1 


04414 





02000 





04622 




TRA 


ESOOOO 


04415 


-0 


76300 





00003 


CP4410 


LGL 


3 


04416 





76000 





00001 




LBT 




04417 





02000 





04462 




TRA 


CP4860 


04420 





50000 





01556 


CP4440 


CLA 


L(LDO) 


04421 





60100 





06165 




STO 


CW+1 


04422 


1 


77775 


1 


04423 




TXI 


CP4470»A»-3 


04423 





07400 


4 


05112 


CP4470 


TSX 


AC0000*C 


04424 





07400 


2 


05104 




TSX 


COMPfB 



COMPILE STO 4»»«0-(J-2) 



FINISHED WITH ARG VECTOR 



GO PICK UP NEXT ARG 



ADORESS COMPILE SYM2CSU}) 
COMPILE CLASYM2JSUJJ 
RESET CW 

OPHSf I>)=*» 

CLOSED SBRTN SINCE 0P1CS( I )) 33=0 
OPEN SBRTN SINCE 0P1 IS( I ) 133=1 
BASE FIX PT SINCE OPUSC 11)32=0 
BASE FLO PT SINCE OPKSU I ) > 32=1 



EXAMINE OPltSII>)35 
0... BASE STORED 
1«.. BASE NOT STORED 
EXAMINE 0P1(S(I))34 
0... BASE IN ACC 
1...BASE IN MO 



ADDRESS COMPILE SYM1<S(I>) 

CW TO -CW 
COMPILE BASE 
RESET CW 



COMPILE FIX PT CONSTANT EXPONENT 
RESET CW+1 

CLOSED EXP. SBRTN 
EXAMINE OPKSCIU35 
0... BASE STORED 
!••• BASE IN ACC* 



ADDRESS COMPILE SYM2tS(l)> 
COMPILE LDQ SYM2 (SID) 



4F25394 

4F15395 

4F15396 

4F15397 

4F 15398 

4F15399 

4F15400 

4F15401 

4F15402 

4F15403 

4F15404 

4F15405 

4F15406 

4F15407 

4F15408 

4F15409 

4F15410 

4F15411 

4F15412 

4F15413 

4F15414 

4F15415 

4F15416 

4F15417 

4F15418 

4F15419 

4F15420 

4F 15421 

4F15422 

4F15423 

*F 15424 

4F15425 

4F15426 

4F15427 

4F25428 

4F15429 

4F15430 

4F15431 

4F15432 

4F15433 

4F15434 

4F15435 

4F15436 

4F15437 

4F15438 

4F15439 

4F15440 

4F15441 

4F15442 

4F15443 

4F15444 

4F 15445 

4F15446 

4F15447 



^ 



o 



n 






04425 





50000 





01575 


CP4490 CLA 


L(SXD) 


04426 





60100 





06165 


STO 


CW+1 


04427 





50000 





01505 


CLA 


xi 


04430 





60100 





06166 


STO 


CW+2 


04431 





50000 





01412 


CLA 


Li4) 


04432 





60100 





06167 


STO 


CW+3 


04433 





07400 


2 


05104 


TSX 


comp*b 


04434 





50000 





01602 


CLA 


LCTSX) 


04435 





60100 





06165 


STO 


CW+1 


04436 





50000 


1 


06651 


CLA 


SCRIPL+l.A 


04437 





77100 





00003 


ARS 


3 


04440 





76000 





00001 


LBT 




04441 


1 


00003 


1 


04447 


TXI 


CP4660*A*3 


04442 





50000 





01516 


CLA 


FLFL 


04443 





56000 


1 


06646 


LDQ 


SCRIPL-2*A 


04444 


-0 


77300 





00040 


RQL 


32 


04445 





16200 





03501 


TOP 


MC0310+2 


04446 





02000 





04454 


TRA 


CP4730 


04447 





56000 


1 


06651 


CP4660 LDQ 


SCRIPL+l.A 


04450 


-0 


77300 





00040 


RQL 


32 


04451 





50000 





01514 


CLA 


FXFX 


04452 





16200 





04454 


TQP 


CP4730 


04453 





50000 





01515 


CLA 


FLFX 


04454 





60100 





06166 


CP4730 STO 


CW+2 


04455 





60100 





01347 


STO 


G 


04456 





07400 


2 


05104 


TSX 


COMP.B 


04457 





07400 


1 


03321 


TSX 


TETOO.A 


04460 





00000 





00011 


HTR 


9 


04461 





02000 





04615 


TRA 


CP5780 


04462 





50000 





01541 


CP4860 CLA 


L(CLA) 


04463 





60100 





06165 


STO 


CW+1 


04464 





07400 


4 


05112 


TSX 


AC0000»C 


04465 





07400 


2 


05104 


TSX 


COMP.B 


04466 





60000 





06164 


STZ 


CW 


04467 





50000 


1 


06654 


CLA 


SCRIPL+4.A 


04470 





76000 





00001 


LBT 




04471 


1 


00000 





04420 


TXI 


CP4440*0»0 


04472 


1 


77775 


1 


04425 


TXI 


CP449Q.A.-3 


04473 





50000 





00030 


CP5000 CLA 


EIFNO 


04474 





40000 





01454 


ADD 


2E18 


04475 





60100 





00030 


STO 


EIFNO 


04476 





60100 





06160 


STO 


FNSW 


04477 





62200 





01105 


STD 


1C 


04500 





53400 


4 


01407 


LXA 


L(1).C 


04501 





50000 


1 


06650 


CP5050 CLA 


SCRIPL.A 


04502 


-o 


12000 





04516 


TMI 


CP5180 


04503 


-0 


63400 


2 


04147 


SXD 


CP5830»B 


04504 


-0 


63400 


4 


04577 


SXD 


STACTR»C 


04505 





07400 


4 


05112 


TSX 


ACOOOO.C 


04506 


-0 


50000 





06173 


CAL 


TAGPRT 


04507 


-0 


10000 





04522 


TNZ 


CP5220 


04510 


-0 


50000 





06167 


CAL 


CW+3 


04511 





77100 





00013 


ARS 


11 



COMPILE SXD 7*«.0*4 



EXAMINE OP2IS(I>>32 

Oac< 

1... FLO*»FL0 

EXAMINE 0P1(S(I))32 TO CHECK 

FOR MIXED EXPONENTIAL EXPRESSION 

ERROR FIX PT BASE, FLOAT EXP. 



EXAMINE OPUSCI) J 32 



0.»»FX**FX 
!*«« FL**FX 



COMPILE TSX FXFX/FLEX/FLFL»4 



COMPILE FLOW TRACE INFO AND LXD 7J.4 



ADDRESS COMPILE SYMKS(I)) 
COMPILE CLA SYMIIS(D) 



EXAMINE 0P2(S(I)>35 
O...EXP STORED 
1».» EXP IN MQ 

FN FUNCTION 

UPDATE EIFNO 

AND 

SET FN SWITCH 

KEEP 1C UPDATED FOR PENDING T1FG0 ENTRY. 

INITIALIZE STAIX TO 1 

EXAMINE TAGJ(S(I))t J=2»... 

NONSUBSCRIPTED 

SUBSCRIPTED-IS THERE A GENERAL TAG 



GENERAL TAG PRESENT 

NO GENERAL TAG PRESENT. SO PLACE 

RELATIVE ADDRESS IN OPJ(S( I ) ) 14-28 AND 



4F15448 
4F 15449 
4F15450 
4F15451 
4F15452 
4F15453 
4F 15454 
4F15455 
4F15456 
4F15457 
4F15458 
4F15459 
4F15460 
4F15461 
4F 15462 
4F15463 
4F15464 
4F15465 
4F15466 
4F15467 
4F15468 
4F15469 
4F15470 
4F15471 
4F15472 
4F15473 
4F15474 
4F15475 
4F15476 
4F15482 
4F15483 
4F15484 
4F15485 
4F15486 
4F 15487 
4F15488 
4F15489 
4F15490 
4F 15491 
4F15492 
4F15493 
4F 15494 
4F15495 
4F15496 
4F15497 
4F15498 
4F15499 
4F15500 
4F15501 
4F15502 
4F15503 
4F15504 
4F15505 
4F15506 



\P 



ItF 



04512 


-0 


50100 





01474 




ORA 


NGTBIT 


04513 


-0 


60200 


1 


06651 




ORS 


SCRIPL+1#A 


04514 


-0 


53400 


4 


04577 


CP5160 


LXD 


STACTR »C 


04515 


-0 


53400 


2 


04147 




LXD 


CP5830»B 


04516 


1 


00003 


2 


04517 


CP5180 


TXI 


CP5190»Bt3 


04517 


3 


77772 


2 


04552 


CP5190 


TXH 


CP5460»B.-6 


04520 


1 


00001 


4 


04521 




TXI 


CP5210»C»1 


04521 


1 


77775 


1 


04501 


CP5210 


TXI 


CP5050»A»-3 


0*522 


-0 


50000 





01566 


CP5220 


CAL 


L(PXD) 


04523 





60200 





06165 




SLW 


CW+1 


04524 





07400 


2 


05104 




TSX 


C0MP»B 


04525 





60000 





06164 




STZ 


CW 


04526 





07400 


4 


01731 




TSX 


CIT0O»C 


04527 





00000 





01406 




HTR 


HO) 


04530 





00000 





01535 




HTR 


LiARSJ 


04531 





00000 





01406 




HTR 


LIO) 


04532 





00000 





01466 




HTR 


DEC 18 


04533 





07400 


4 


01731 




TSX 


CITOO»C 


04534 





00000 





01406 




HTR 


LIO) 


04535 





00000 





01532 




HTR 


L(AOD) 


04536 





00000 





01511 




HTR 


PROCTR 


04537 





00000 





01521 




HTR 


0ECMI2 


04540 


-0 


50000 





01571 




CAL 


LJSTA) 


04541 





60200 





06165 




SLW 


CW+1 


04542 


-0 


50000 





00030 




CAL 


EIFNO 


04543 


-0 


32000 





01527 




ANA 


MASK1 


04544 





60200 





06166 




SLW 


CW+2 


04545 


-0 


53400 


4 


04577 




LXO 


STACTR »C 


04546 


-0 


75400 


4 


00000 




PXD 


0«C 


04547 





60200 





06167 




SLW 


CW+3 


04550 





07400 


2 


05104 




TSX 


COMP»B 


04551 


1 


00000 





04514 




TXI 


CP516O»O»0 


04552 


-0 


53400 


1 


01117 


CP5460 


LXO 


3QBAR»A 


04553 


-0 


50000 





01575 




CAL 


LJSXOI 


04554 





60200 





06165 




SLW 


CW+1 


04555 


-0 


50000 





01505 




CAL 


X( 


04556 





60200 





06166 




SLW 


CW+2 


04557 


-0 


50000 





01412 




CAL 


L(4) 


04560 





60200 





06167 




SLW 


CW+3 


04561 





07400 


2 


05104 




TSX 


COMP»B 


04562 


-0 


50000 





00030 




CAL 


EIFNO 


04563 


-0 


32000 





01527 




ANA 


MASX1 


04564 





60200 





06164 




SLW 


CW 


04565 


-0 


50000 





01602 




CAL 


HTSX) 


04566 





60200 





06165 




SLW 


CW+1 


04567 


-0 


50000 


1 


06652 




CAL 


SCRIPL+2»A 


04570 





60200 





06166 




SLW 


CW+2 


04571 





O7400 


2 


05104 




TSX 


COMP.B 


04572 





60000 





06164 




STZ 


CW 


04573 


1 


77775 


1 


04574 




TXI 


CP5680»A»-3 


04574 





50000 


1 


06650 


CP5680 


CLA 


SCRIPLtA 


04575 





12000 





04600 




TPL 


CP5700 


04576 





07400 


4 


05112 




TSX 


ACO0OO»C 


04577 


1 


00000 





04607 


STACTR 


TXI 


CP5720»0»0 



SET OPJISIDtlO'l FROM NGTBIT 



FINISHED WITH PRELUDEtIF ANY 
NOT FINISHE0-STAIX=STAIX+1 
GO ON TO NEXT ARGUMENT 



COMPILE PXD SYMJ(S(I)I* TAGJJSU)) 
RESET CW 
COMPILE ARS 18 



COMPILE ADD *-2 



COMPILE STA IFN+STA1X 

GO ON TO NEXT ARGUMENT* IF ANY 



COMPILE SXD 7»4 



COMPILE TSX SYM1<S<I>)»4 

RESET CW 

POSITION XA TO SYM2tsm) 



NONSUB SCRIPTED 



4F15507 

4F15508 

4F15509 

4F15510 

4F15511 

4F15512 

4F15513 

4F15514 

4F15515 

4F15516 

4F15517 

4F15518 

4F15519 

4F15520 

4F15521 

4F 15522 

4F15523 

4F15524 

4F15525 

4F15526 

4F 15527 

4F15528 

4F15529 

4F15530 

4F15531 

4F15532 

4F15533 

4F15534 

4F15535 

4F15536 

4F15537 

4F15538 

4F15539 

4F15540 

4F15541 

4F15542 

4F15543 

4F15544 

4F15545 

4F15546 

4F15547 

4F15548 

4F15549 

4F15550 

4F15551 

4F15552 

4F15553 

4F15554 

4F15555 

4F15556 

4F15557 

4F15558 

4F15559 

4F15560 



/# 



u 



n 



r> 



04600 





56000 


1 


06651 


CP5700 


LDQ 


SCRIPL+ltA 


04601 


-0 


76300 





00013 




LGL 


11 


04602 





76000 





00001 




LBT 




04603 





56000 





01406 




LDQ 


L(0) 


04604 


-0 


60000 





06167 




STQ 


CW+3 


04605 


-0 


50000 


1 


06652 




CAL 


SCRIPL+2»A 


04606 





60200 





06166 




SLW 


CW+2 


04607 





07400 


2 


05104 


CP5720 


TSX 


COMP»B 


04610 


-0 


53400 


2 


03607 




LXD 


CP0400»B 


04611 


1 


00003 


2 


04612 




TXI 


CP5750*B»3 


04612 


3 


77772 


2 


04615 


CP5750 


TXH 


CP5780.B.-6 


04&13 


-0 


63400 


2 


03607 




SXD 


CP0400*B 


04614 


1 


77775 


1 


04574 




TXI 


CP5680»A#-3 


04615 





07400 


4 


03401 


CP5780 


TSX 


FLTR00*4 


04616 





00000 





01406 




HTR 


L(0) 


0461? 





00000 





01561 




HTR 


LILXP) 


04620 





00000 





01505 




HTR 


X{ 


04621 





00000 





01412 




HTR 


L(4> 


04622 


-0 


53400 


1 


01117 


ES00C0 


LXD 


3QBAR*A 


04623 


-0 


76000 





00141 




SLT 


1 


04624 





02000 





03554 




TRA 


CP0130 


04625 


-0 


50000 


1 


06650 




CAL 


SCRIPL»A 


04626 


— 


32000 





01452 




ANA 


MASK 2 


04627 





10000 





04642 




T2E 


ES0160 


04630 





50000 





01120 




CLA 


ARERAS 


04631 





60100 





06166 




STO 


CW+2 


04632 





500O0 





01363 




CLA 


PHKII 


04633 





60100 





06167 




STO 


CW+3 


04634 





50000 





01573 




CLA 


LtSTQ) 


04635 


-0 


76000 





00142 




SLT 


2 


04636 





50000 





01572 




CLA 


L(STO) 


04637 





60100 





06165 




STO 


CW+1 


04640 





07400 


2 


05104 




TSX 


COMP»B 


04641 





02000 





03554 




TRA 


CP0130 


©4645 





56QQ0 





01356 


ESO160 


LOG 


LEFT+2 


04643 


-0 


76300 





00014 




LGL 


12 


04644 





34000 





01450 




CAS 


IFSYM 


04645 





02000 





04647 




TRA 


ES0200 


04646 





02000 





05041 




TRA 


ES1500 


04647 





34000 





01451 


ES020Q 


CAS 


CALLER 


04650 





02000 





04652 




TRA 


ES0210 


04651 





02000 





05044 




TRA 


ES1520 


04652 





34000 





01447 


ES0210 


CAS 


SAPSYM 


04653 





02000 





04655 




TRA 


ES0220 


04654 





02000 





05100 




TRA 


ES1710 


04655 





77100 





00006 


ES0220 


ARS 


6 


04656 


-0 


53400 


4 


01122 




LXD 


ARGCTR.C 


04657 


3 


00000 


4 


05016 




TXH 


ES1300*CtO 


04660 





34000 





01423 




CAS 


LlH) 


04661 





34000 





01425 




CAS 


L«0) 


04662 





02000 





04750 




TRA 


ES0300 


04663 





02000 





04750 




TRA 


ES0300 


04664 


-0 


76000 





00144 




SLT 


4 


04665 





02000 





04703 




TRA 


ES0870 



SUBSCRIPTED 



GENERAL TAG PRESENT 
NO GENERAL TAG PRESENT 



COMPILE TSX SYMJCSdJ) * J=2»»»« 

FINISHED SCANNING 

COMPILE FLOW TRACE INFO AND LXD 7{»4 

-3G TO XA 

GO TO NEXT SEGMENT 

SU) NOT - S(0) 



COMPILE STO/STQ 1»«. TYPE NO + PHI ( I! 
GO TO NEXT SEGMENT 

suf=s<e) 

IS THIS AN IF STATEMENT 



IS THIS A CALL STATEMENT 



IS THIS A FUNCTION STATEMENT 

YES 

NOT A FUNCTION STATEMENT 



4F15561 

4F15562 

4F15563 

4F15564 

4F15565 

4F15566 

4F15567 

4F15568 

4F15569 

4F15570 

4F15571 

4F15572 

4F15573 

4F15574 

4F15575 

4F15576 

4F15577 

4F15578 

4F1&579 

4F15580 

4F15581 

4F15582 

4F15583 

4F15584 

4F15585 

4F1&586 

4F15587 

4F15588 

4F 15589 

4F15590 

4F15591 

4F15592 

4F15593 

4F15594 

4F15595 

4F15596 

4F15597 

4F15598 

4F15599 

4F15600 

4F15601 

4F15602 

4F15603 

4F15604 

4F15605 

4F15606 

4F15607 

4F15608 

4F15609 

4F15610 

4F15611 

4F15612 

4F15613 

4F15614 



/ 



04666 
04667 
04670 
04671 
04672 
04673 
04674 
04675 
04676 
04677 
04700 
04701 
04702 
04703 
04704 
04705 
04706 
04707 
04710 
04711 
04712 
04713 
0471* 
04715 
04716 
04717 
04720 
04721 
04722 
04723 
04724 
04725 
04726 
04727 
04730 
04731 
04732 
04733 
04734 
04735 
04736 
04737 
04740 
04741 
04742 
04743 
04744 
04745 
04746 
04747 
04750 
04751 
04752 
04753 




-0 











-0 






























50000 
76000 
50000 
60100 
50000 
60100 
50000 
60100 
50000 
60100 
074O0 
07400 
02000 
76000 
02000 
50000 
60100 
50000 
60100 
60000 
07400 
50000 
60100 
07400 
07400 
00000 
00000 
00000 
00000 
07400 
O0O00 
00000 
00000 
00000 
07400 
00000 
00000 
00000 
00000 
07400 

ooooo 

00000 
00000 
00000 
07400 
00000 
00000 

ooooo 
ooooo 

02000 
76000 
02000 
76000 
02000 



01573 
00142 
01572 
06165 
01354 
06170 
01355 
06171 
01356 
06172 
05120 
05104 
05064 
00142 
04716 
01573 
06165 
01505 
06166 
06167 
05104 
01541 
06165 
05104 
01731 
01406 
01603 
01504 
01406 
01731 
01406 
01560 
01406 
01406 
01731 
01406 
01534 
01504 
01454 
01731 
01406 
01557 
01406 
01406 
01731 
01406 
01533 
01406 
01466 
05004 
00144 
04666 
00142 
04765 



ES0710 CLA 
SLT 

ES073Q CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
STO 
TSX 
TSX 
TRA 

ES0870 SLT 
TRA 
CLA 
STO 
CLA 
STO 
STZ 
TSX 
CLA 
STO 
TSX 

ES0990 TSX 
HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
TRA 

ES0300 SLT 
TRA 

ES0320 SLT 
TRA 



L«STQ) 
2 

L(STO) 

CW+1 

LEFT 

TAGWRO 

LEFT+1 

OPWORD 

LEFT+2 

SYMWRD 

AC0060»C 

COMP.B 

ES1590 

2 

ES0990 

L(STQ) 

CW+1 

xt 

CW+2 

CW+3 

COMP»B 

L(CLA) 

CW+1 

C0MP»B 

CITOO»C 

L(0) 

LIUFA) 

0< 

L(0) 

C1T00»C 

L(0) 

L(LRS) 

L(0) 

L(0) 

CITOO.C 

L(0) 

L(ANA) 

Ot 

2E18 

CITO0»C 

L(OJ 

L(LLS) 

L(0) 

L(0) 

CITOO.C 

LtO) 

LIALS) 

L<01 

DEC 16 

ES0610 

4 

ES0710 

2 

ES0440 



FXCFLOI PT ON LEFT* FX<FLO) PT ON RIGHT 



ADDRESS COMPILE VARIABLE ON LEFT 

COMPILE STO/STQ LEFT+2 

EXIT TO FETCH STATE A 

FX PT ON LEFT. FLO PT ON RIGHT 

RESULT ON RIGHT APPEARS IN MQ 



COMPILE STQ 700000 



COMPILE CLA 700000 

COMPILE FIXING INSTRUCTIONS* WHEN 

RESULT ON RIGHT IS IN ACC. 



FLO PT ON LEFT. FX PT ON RIGHT 



4F15615 
4F15616 
4F15617 
4F156I8 
4F15619 
4F15620 
4F15621 
4F15622 
4F15623 
4F15624 
4F15625 
4F15626 
4F15627 
4F15628 
4F 15629 
4F15630 
4F15631 
4F15632 
4F15633 
4F15634 
4F15635 
4F15636 
4F15637 
4F15638 
4F15639 
4F15640 
4F15641 
4F15642 
4F15643 
4F 15644 
4F15645 
4F15646 
4FI5647 
4F15648 
4F15649 
4F15650 
4F15651 
4F15652 
4F15653 
4F15654 
4F15655 
4F15656 
4F15657 
4F15658 
4F15659 
4F15660 
4F 15661 
4F 15662 
4F15663 
4F15664 
4F15665 
4F15666 
4F15667 
4F15668 



l?A 



u 



n 



04754 





50000 





01573 


CLA 


LISTQ) 


0*755 





60100 





06165 


STO 


CW+1 


04756 





50000 





01505 


CLA 


X( 


04757 





60100 





06166 


STO 


CW+2 


04760 





60000 





06167 


STZ 


CW+3 


04761 





07400 


2 


05104 


TSX 


C0MP»B 


04762 





50000 





01541 


CLA 


LJCLA) 


04763 





60100 





06165 


STO 


CW+1 


04764 





07400 


2 


05104 


TSX 


COMP.B 


04765 





07400 


4 


01731 


ES0440 TSX 


CITOO.C 


04766 





00000 





01406 


HTR 


L(0) 


04767 





00000 





01560 


HTR 


L(LRS) 


04770 





00000 





01406 


HTR 


L(0) 


04771 





00000 





01466 


HTR 


DEC18 


04772 





07400 


4 


01731 


TSX 


CITOOtC 


04773 





00000 





01406 


HTR 


HO) 


04774 





00000 





01564 


HTR 


L(ORA) 


04775 





00000 





01504 


HTR 


0( 


04776 





00000 





01406 


HTR 


LtOl 


04777 





07400 


4 


01731 


TSX 


CIT00»C 


05000 





00000 





01406 


HTR 


LtO) 


05001 





00000 





01550 


HTR 


LtFAD) 


05002 





00000 





01504 


HTR 


0( 


05003 





00000 





01406 


HTR 


L(0) 


05004 


-0 


53400 


4 


01122 


ES0610 LXO 


ARGCTR»C 


05005 


-3 


00000 


4 


04670 


TXL 


ES0730*C»0 


05006 





50000 





01601 


ES0630 CLA 


L(TRA) 


05007 





60100 





06165 


STO 


CW+1 


05010 





60000 





06166 


STZ 


CW+2 


05011 


-0 


50000 





014 54 


CAL 


2E18 


05012 


-0 


50100 





01412 


OR A 


L14J 


05013 





60200 





06167 


SLW 


CW+3 


05014 





07400 


2 


05104 


TSX 


COMPtB 


05015 





02000 





05064 


TRA 


ES1590 


05O16 





4Q200 


O 00433 


ESI 300 sua 


LLX4 


05017 


c 


10000 





05023 


TZE 


ES1360 


05020 


-0 


76000 





00144 


SLT 


4 


05021 





02000 





05025 


TRA 


ES1380 


05022 





02000 





04752 


TRA 


ES0320 


05023 


-0 


76000 





00144 


ESI 360 SLT 


4 


05024 





02000 





04703 


TRA 


ES0870 


05025 


-0 


76000 





00142 


ES1380 SLT 


2 


05026 





02000 





05006 


TRA 


ES0630 


05027 





50000 





01573 


CLA 


LtSTQ) 


05030 





60100 





06165 


STO 


CW+1 


05031 





50000 





01505 


CLA 


XI 


05032 





60100 





06166 


STO 


CW+2 


05033 





60000 





06167 


STZ 


CW+3 


05034 





07400 


2 


05104 


TSX 


COMPfB 


05035 





50000 





01541 


CLA 


L(CLA) 


05036 





60100 





06165 


STO 


CW+1 


05037 





07400 


2 


05104 


TSX 


COMP.B 


05040 





02000 





05006 


TRA 


ES0630 


05041 





07400 


1 


03321 


ES1500 TSX 


TETOO»1 



RESULT ON RIGHT APPEARS IN MQ 



COMPILE STQ 700000 



COMPILE CLA 700000 

COMPILE FLOATING INSTRUCTIONS* WHEN 

RESULT ON RIGHT IS IN ACC 



IS THIS A FUNCTION STATEMENT 

NO 

YES 



COMPILE TRA 1*4 

EXIT TO FETCH STATE A 



COMPILE STQ 700000 

COMPILE CLA 700000 

* 60 TO PROGRAM TET TO ENTER 1C.1C+1 



4F15669 
4F15670 
4F15671 
4F15672 
4F15673 
4F15674 
4F15675 
4F15676 
4F15677 
4F15678 
4F15679 
4F15680 
4F15681 
4F15682 
4F15683 
4F15684 
4F15685 
4F15686 
4F15687 
4F156S8 
4F15689 
4F15690 
4F15691 
4F15692 
4F15693 
4F 15694 
4F15695 
4F15696 
4F15697 
4F15698 
4F15699 
4F15700 
4F15701 
4F15702 
4F15703 
4F15704 
4F15705 
4F15706 
4F15707 
4F15708 
4F15709 
4F15710 
4F15711 
4F15712 
4F15713 
4F15714 
4F15715 
4F15716 
4F15717 
4F15718 
4F15719 
4F15720 
4F15721 
4F15722 



rt1 



050*2 





00000 





00002 


P2E 


2 


05043 





02000 





05050 


TRA 


ES1530 


05044 


-0 


53400 


4 


00030 ES1520 LXD 


E1FN0»4 


05045 


-0 


63400 


4 


01123 


SXD 


CALLNM#4 


05046 





07400 


1 


03321 


TSX 


TETOO»1 


05047 





00000 





00020 




16 


05050 


-0 


76000 





00142 ES1530 SLT 


2 


05051 





02000 





05064 


TRA 


ES1590 


05052 





07400 


4 


01731 


TSX 


CI TOO* C 


05053 





00000 





01406 




L(0> 


05054 





00000 





01573 




L(STQ) 


05055 





00000 





01505 




Xf 


05056 





00000 


O 


01406 




L(0) 


05057 





07400 


4 


01731 


TSX 


CIT0O»4 


05060 





00000 





01406 




LfO) 


05061 





00000 





01541 




L(CLA) 


05062 





00000 





01505 




X( 


05063 





00000 





01406 




LfO) 


05064 





50000 





06160 ES1590 CLA 


FNSW 


05065 





10000 





02402 


TZE 


MTROOO 


05066 





50000 





01151 


CLA 


F-l 


05067 





40200 





01477 


SUB 


5BLANS 


05070 





10000 





02402 


TZE 


MTROOO 


05071 





50200 





00030 


CLS 


EIFNO 


05072 





60100 





00030 


STO 


EIFNO 


05073 





07400 


1 


03321 


TSX 


TET0O»A 


05074 





00000 





00000 


HTR 





05075 





50200 





00030 


CLS 


EIFNO 


05076 





60100 





00030 


STO 


EIFNO 


05077 





02000 





02402 


TRA 


MTROOO 


05100 


-0 


53400 


2 


00637 ES1710 LXD 


BBOX*B 


05101 





50000 





01362 


CLA 


OPNWRO 


05102 





60100 


2 


00635 


STO 


CIB-3»B 


05103 





02000 





02402 


TRA 


MTROOO 


05104 





07400 


4 


01731 COMP TSX 


CITOO.C 


05105 





00000 





06164 


HTR 


CW 


05106 





00000 





06165 


HTR 


CW+1 


05107 





00000 





06166 


HTR 


CW+2 


05110 





00000 





06167 


HTR 


CW+3 


05111 





02000 


2 


00001 


TRA 


l.B 


05112 





50000 


1 


06650 ACOOOO CLA 


SCRIPL»A 


05113 





60100 





06170 


STO 


TAGWRD 


05114 





50000 


1 


06651 


CLA 


SCRIPL+1»A 


05115 





60100 





06171 


STO 


OPWORD 


05116 





50000 


1 


06652 


CLA 


SCRIPL+2»A 


05117 





60 LOO 





06172 


STO 


SYMWRD 


05120 


-0 


50000 





06170 ACOO60 CAL 


TAGWRD 


05121 


-0 


32000 





01527 


ANA 


MASK1 


05122 


-0 


76000 





00001 


PBT 




05123 





02000 





05204 


TRA 


AC0540 


05124 


-0 


75400 





00000 


PXD 


0*0 


05125 





56000 





06172 


LDQ 


SYMWRD 



INTO TIF60 TABLE {TABLE 2). 



PREPARE ENTRY FOR TABLE OF CALL FIRST AND 
LAST IFN NUMBERS* 



EXIT TO FETCH STATE A 
COMPILE LLS 37 



EXTRACT TAGS IN ACC. 



NON-SUBSCRIPTED SYMBOL 



4F15723 

4F15724 

4F15725 

4F15726 

4F15727 

4F15728 

4F15729 

4F15730 

4F15731 

4F15732 

♦F15733 

4F15734 

4F15735 

4F15736 

4F15737 

4F15738 

4F15739 

4F15740 

4F15741 

4F15742 

4F15743 

4F15744 

4F15745 

4F15746 

AF1574? 

4F15748 

4F15749 

4F15750 

4F15751 

4F15752 

4F15753 

4F15754 

4F15755 

4F15756 

4F15757 

4F15758 

4F15759 

4F15760 

4F15761 

4F15762 

4F15763 

4F15764 

4F15765 

4F15766 

4F15767 

4F15768 

4F15769 

4F15770 

4FI5771 

4F15772 

4F15773 

4F15774 

4F15775 

4F 15776 



rf 



o 



o 



05126 


-0 


76300 





00001 




LGL 


1 


C5127 





76000 





00001 




LBT 




05130 





16200 





05175 




TOP 


AC0460 


05131 


-0 


76300 





00013 




LGL 


11 


05132 





40200 





01444 




SUB 


LtAU 


05133 





10000 





05170 




TZE 


AC0410 


05134 





40000 





01444 




ADD 


L(A() 


05135 





40200 





01446 




SUB 


Ltll) 


05136 





10000 





05166 




TZE 


ACO390 


05137 





40000 





01446 




ADD 


L(I<) 


05140 





40200 





01445 




SUB 


LIHU 


05141 





10000 





05164 




TZE 


AC0350 


051,42 





56000 





06171 




LDQ 


OPWORD 


05143 


-0 


76300 





00015 




LGL 


13 


05144 





16200 





05161 




TQP 


AC0340 


05145 





76300 





00017 




LLS 


15 


05146 





76000 





00006 




COM 




05147 





40200 





01407 




SUB 


LU) 


05150 





73400 


2 


00000 




PAX 


0*B 


05151 


-0 


75400 


2 


00000 




PXD 


0»B 


05152 





60200 





06167 




SLW 


CW+3 


05153 


-0 


53400 


2 


00470 




LXD 


BK»B 


05154 


-0 


50000 


2 


00470 




CAL 


FORSUB-i»B 


05155 


-0 


32000 





01452 




ANA 


MASK2 


05156 


-0 


50100 





01503 




ORA 


P< 


05157 





60200 





06166 


AC0320 


SLW 


CW+2 


05160 





02000 


4 


00001 




TRA 


1»C 


05161 





60000 





06167 


AC0340 


STZ 


CW+3 


05162 


-0 


50000 





06172 




CAL 


SYMWRD 


05163 





02000 





05157 




TRA 


AC0320 


05164 


-0 


50000 





01522 


AC0350 


CAL 


H( 


05165 





02000 





05171 




TRA 


AC0420 


05166 





50000 





01501 


AC0390 


CLA 


I( 


05167 





02000 





05171 




TRA 


AC0420 


05170 





50000 





01502 


AC0410 


CLA 


At 


05171 





60100 





06166 


AC0420 


STO 


CW+2 


05172 


-0 


77300 





00006 




ROL 


6 


05173 


-0 


60000 





06167 




STQ 


CW+3 


05174 





02000 


4 


00001 




TRA 


1»C 


05175 


-0 


76300 





00043 


AC0460 


LGL 


35 


05176 





73400 


2 


00000 


TDRADD 


PAX 


0»B 


05177 


-0 


50000 


2 


06174 




CAL 


CPBETA»B 


05200 


-0 


32000 





01527 




ANA 


MASK1 


05201 





60200 





06167 




SLW 


CW+3 


05202 


-o 


50000 





01120 




CAL 


ARERAS 


05203 





02000 





05157 




TRA 


AC0320 


05204 





60200 





06170 


AC0540 


SLW 


TAGWRD. 


05205 


. 


56000 





06170 




LDQ 


TAGWRD 


05206 


-0 


75400 





00000 




PXD 


♦ 


05207 


-0 


76300 





00014 




LGL 


12 


05210 





60200 





06167 




SLW 


CW+3 


05211 





16200 





05214 




TQP 


*+3 


05212 





60000 





06167 




STZ 


CW+3 


05213 


=0 50000 O 


01454 




CAL._2£18 



SYMBOL IS SOME SIK) 

NON-SUBSCRIPTED EX/INTERNAL VARIABLE 

IS THIS A FLO PT CONSTANT 

YES 

NO 

IS THIS A FIX PT CONSTANT 

YES 

NO 

IS THIS A HOLLERITH FIELD 

YES 

NON-SUBSCRIPTED EXTERNAL VARIABLE 

IS THIS A FREE VARIABLE 

NO 

YES 



STORE ARGUMENT BUFFER RELATIVE ADDRESS 



EXTRACT FUNCTION STATEMENT TYPE 



RETURN 

NON-SUBSCRIPTED* REAL VARIABLE 



FIX PT INTERNAL VARIABLE 
FLO PT INTERNAL VARIABLE 



RETURN 

SYMBOL IS SOME S(K) 



EXTRACT PHKK.) 



SUBSCRIPTED VARIABLE 

CLEAR AC* 

I-TAU TAGS TO AC. 

STORE FOR NEXT CIT ENTRY. 



REPLACE NULL TAG. 



4F15T77 
4F15778 
4F15779 

4F15780 
4F15781 
4F15782 
4F15783 
4F15784 
4F15785 
4F15786 
4F15787 
4F15788 
4F15789 
4F15790 
4F15791 
4F15792 
4F15793 
4F15794 
4F15795 
4F15796 
4F15797 
4F15798 
4F15799 
4F158O0 
4F15801 
4F15802 
4F15803 
4F15804 
4F15805 
4F15806 
4F15807 
4F15808 
4F15809 
4F158JL0 
4F15811 
4F15812 
4F15813 
4F15814 
4F15815 
4F15816 
4F15817 
4F15818 
4F15819 
4F15820 
4F15821 
4F15822 
4F15823 
4F15824 
4F15825 
4F15826 
4F15827 
4F15828 
4F15829 
4F15830 



m 



05214 





60200 





06173 




SLW 


TAGPRT 


SAVE FOR LATER USE. 


4F15831 
4F15832 


05215 


-0 


76300 





00001 




LGL 


1 




05216 


-0 


75400 





00000 




PXD 


tO 


CLEAR AC* 


4F15833 


05217 


-0 


76300 





00010 




LGL 


8 


FORM TWICE SIGMA TA6. 


4F15834 


05220 





76700 





00001 




ALS 


1 




4F15835 


05221 





40100 





00446 




ADM 


SIG1IX-2 


FORM BASE OF TABLE + SIGMA TAG. 


4F15836 


05222 





62100 





05223 




STA 


SORAOD 




4F15837 


05223 


-0 


75400 





00000 


SDRADD 


PXD 


***0 




4F15838 


05224 





76200 





00302 




RDR 


2 




4F15839 


05225 





46000 





05223 




LOA 


SORAOD 




4F15840 


05226 


-0 


70000 





02365 




CAD 


DUMP 




♦F15841 


05227 





76000 





00006 




COM 






4F15842 


05230 


-0 


70000 





02365 




CAO 


DUMP 




4F15843 


05231 





76000 





00006 




COM 






4F 15844 


05232 





10000 





05234 




TZE 


«+2 


CHECK SUM TEST. 


4F15845 


05233 





07400 


4 


03400 




TSX 


DIAG»4 


ERROR SIGMA1 CKSUM FAILS 


4F15846 


05234 


-0 


50000 





02365 




CAL 


DUMP 




4F15847 


05235 


-0 


60200 





06167 




ORS 


CW+3 


ADD RELATIVE ADDRESS TO I-TAU TA6. 


4FI5848 


05236 





50000 





06172 




CLA 


SYMWRD 


MOVE VARIABLE NAME FOR NEXT CIT ENTRY. 


4F15649 


05237 





6010O 





06166 




STO 


CW+2 




4F15850 


05240 





02000 


4 


00001 




TRA 


1*4 


RETURN TO CALLER 


4F15851 
4F158511 


05241 





07400 


4 


03401 


CP6000 


TSX 


FLTR00.4 


COMPILE FLOW TRACE INFORMATION AND THEN 


4F158512 


05242 





00000 





06164 






CW 


COMPILE LXD 7JTYPE =*4 


4F158513 


05243 
05244 






00000 
00000 






06165 
06166 






CW+1 
CW+2 




4F158514 
4F158515 
4F158516 


05245 





00000 





06167 






CW+3 




05246 





02JO0 





04622 




TRA 


ESOOOO 

******* 


*********************** 


4F158517 
*4F15852 










05247 


ENDDDR 


BSS 







4F158525 
4F15853 










06160 


ENDD 


ORG 


3184 




4F15854 










06160 


FNSW 


BSS 


1 




4F15855 










06161 


PJCNTR 


BSS 


1 




4F15856 










06162 


ARGORG 


BSS 


1 




4F15857 










06163 


XRSAVE 


BSS 


1 




4F15858 










06164 


cw 


BSS 


4 




4F15859 










06170 


TAGWRD 


BSS 


1 




4F15860 










06171 


OP WORD 


BSS 


1 




4F15861 










06172 


SYMWRD 


BSS 


1 




4F 15862 










06173 


TAGPRT 


ass 


1 




4F 15863 










06174 


CPBETA 


BSS 


300 




4F15864 










06650 


SCR I PL 


BSS 


600 




4F 15865 
















END OF ARITHMETIC / STATE D. 


4F 15866 
















******* 


*********************** 


•4F15867 
4F15868 
















SYNONYMS USED 


BY SECTION ONE. 


4F15869 










01100 


IE 


SYN 


ERASE 


COMMON WORKING STORAGE. 


4F15870 










00004 


1T0CS 


SYN 


4 


ENTRY TO SYSTEM TAPE MONITOR. 


4F15871 










01101 


2E 


SYN 


ERASE+1 


COMMON WORKING STORAGE. 


4F15872 










01501 


2P 


SYN 


It 




4F15873 










01531 


360NES 


SYN 


ALL1 




4F15874 










01102 


3E 


SYN 


ERASE+2 


COMMON WORKING STORAGE. 


4F15875 










01117 


30BAR 


SYN 


3LBAR 




4F15876 



ff- 



K^ — y 



G 



o 



n 



01103 
00001 
01*30 
01376 
01532 
01400 
01375 
02404 
01377 
01535 
00002 
00004 
01537 
01731 
01150 
00223 
01101 
01102 
01544 
01454 
01101 
01466 
01102 
01546 
00000 
02210 
02373 
01322 
00310 
00764 
01440 
01100 
01500 

onqo 

01103 
01104 
01413 
01100 
01100 
01101 
01101 
01102 
01102 
01101 
01103 
01104 
00002 
00312 
00002 
01102 
01522 
01554 
01555 
01561 



4E SYN 
A EQU 
ABLANK SYN 
ACOMMA SYN 
ADD SYN 
AEQUAL SYN 
ALPAR SYN 
ARITH 
ARPAR 
ARS 
8 
C 

CAL 
C1T 
CITMQR SYN 
CITTAP SYN 
CITXR1 SYN 
CITXR2 SYN 

CPY 
01 
D12 

018 
03 

DEO 
DEL(A1 SYN 
D£L<B> SYN 
DEL(CI 
OEL(D) 
0IM1 
DIM2 
DIM3 
D1MCTR SYN 
DMP SYN 
DOE SYN 
DRCKSM SYN 
DRMADR SYN 
DRMERC SYN 
DRSYM SYN 



SYN 
SYN 
SYN 
EQU 
EQU 
SYN 
SYN 



SYN 
SYN 
SYN 
SYN 
SYN 
SYN 



SYN 
SYN 
SYN 
SYN 
SYN 



E1TDR 
E2C 
E2TDR 
E3C 
E3TDR 
EKE 
ENOND 
FEOD 
FIXCON SYN 
FLOCON SYN 
FXCOOR SYN 
H SYN 
HI SYN 
HPR SYN 
LDA SYN 
LXD SYN 



SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
SYN 



ERASE+3 

1 

BLANK 

COMMA 

L(ADD> 

EQUAL 

OPEN 

STATEB 

CLOS 

L(ARS) 

2 

h 

L(CAL) 

CI TOO 

E1C 

147 

ERASE+1 

ERASE+2 

L(CPY) 

2E18 

ERASE+1 

DEC 18 

ERASE+2 

L(DED) 



1160 

1275 

722 

0200 

0500 

0800 

ERASE 

El 

ERASE 

ERASE+3 

ERASE+4 

L(5) 

ERASE 

ERASE 

ERASE+1 

ERASE+1 

ERASE+2 

ERASE+2 

ERASE+1 

ERASE+3 

ERASE+4 

0002 

202 

2 

ERASE+2 

ADSPOP 

L(HPR) 

L(LDA) 

LiLXOJ 



COMMON WORKING STORAGE* 



ERASABLE STORAGE* 
COMPILED INSTRUCTION TAPE* 
ERASABLE STORAGE. 
ERASA8LE STORAGE. 



COMMON WORKING STORAGE. 

COMMON WORKING STORAGE. 

DRUM ORIGIN FOR STATE A. 

DRUM 0RI6IN FOR STATE B. 

DRUM ORIGIN FOR STATE C« 

DRUM ORIGIN FOR STATE 0* 

DRUM TABLE ORIGIN -DRTABS.DIM.SR* 

DRUM TABLE ORIGIN -DRTABSrDIM.SR* 

DRUM TABLE ORIGIN -DRTABS.DIM.SR* 

COMMON WORKING STORAGE. 

COMMON. WORKING STORAGE* 

COMMON WORKING STORAGE* 

ERASABLE STORAGE* 

NUMBER OF DRUM READING ATTEMPTS. 

COMMON WORKING STORAGE. 

COMMON WORKING STORAGE* 

COMMON WORKING STORAGE* 

COMMON WORKING STORAGE. 

COMMON WORKING STORAGE. 

COMMON WORKING STORAGE. 

COMMON WORKING STORAGE* 

COMMON WORKING STORAGE. 

COMMON WORKING STORAGE. 

DRUM TABLE ORIGIN -DRTABS. 

DRUM TABLE ORIGIN -DRTABS. 

COMMON WORKING STORAGE. 



4F15877 
4F15878 
4F15879 
4F15880 
4F15881 
4F15882 
4F15883 
4F15884 
4F15885 
4F15886 
4F15887 
4F15888 
4F15889 
4F15890 
4F15891 
4F 15892 
4F15893 
4F15894 
4F15895 
4F 15896 
4F15897 
4F15898 
4F15899 
4F15900 
4F15901 
4F15902 
4F15903 
4F15904 
4F159Q5 
4F15906 
4F15907 
4F15908 
4F15909 
4F15910 
4F15911 
4F15912 
4F15913 
4F15914 
4F15915 
4F15916 
4F15917 
4F1S918 
4F15919 
4F15920 
4F15921 
4F15922 
4F15923 
4F15924 
4F15925 
4F15926 
4F15927 
4F15928 
4F15929 
4F15930 



HI 



01373 


LI10) 


SYN 


TEN 




0140O 


L<11) 


SYN 


EQUAL 




01420 


L(12J 


SYN 


MINUS 




01454 


L(1D) 


SYN 


2E18 




01374 


L(63) 


SYN 


ENDMK 




03440 


MEMORG 


SYN 


1824 




01452 


MSK 


SYN 


MASK2 




02402 


MTROOO 


SYN 


STATEA 




02430 


MTR300 


SYN 


MTR3 




01103 


N 


SYN 


ERASE+3 




01404 


PLUS 


SYN 


12Z 




01566 


PXD 


SYN 


L(PXD> 




01100 


RAXR4 


SYN 


ERASE 




01226 


SIGMA1 


SYN 


0662 




01101 


SR6WRK 


SYN 


ERASE+1 




01416 


ST 


SYN 


L(8) 




01571 


STA 


SYN 


LJSTA) 




01104 


STCKSM 


SYN 


ERASE+4 




00224 


TABTAP 


SYN 


148 




01453 


TAG4 


SYN 


2E17 




00000 


TAU1 


SYN 


0000 




00454 


TAU2 


SYN 


0300 




01356 


TAU3 


SYN 


0750 




0*413 


TERC 


SYN 


L(5) 




ai 1 n-a 


TETMOR 


SYN 


ERASE+3 




01102 


TETWRK 


SYN 


ERASE+2 




01100 


TETXR2 


SYN 


ERASE 




01101 


TETXR4 


SYN 


ERASE+1 




01576 


TIX 


SYN 


LITIX) 




01504 


ZER 


SYN 


0( 




00000 


• • 


EQU 



END OF SYNONYMS 


USED 



*********** 



MEMORY ORIGIN FOR ALL STATES* 



COMMON WORKING STORAGE* 



COMMON WORKING STORA6E. 
DRUM TABLE ORIGIN -DRTABS. 
ERASABLE STORAGE* 



COMMON WORKING STORAGE* 
TABLE TAPE. 

DRUM TABLE ORIGIN -DRTABS* 
DRUM TABLE ORIGIN -DRTABS. 
DRUM TABLE ORIGIN -DRTABS. 
TAPE ERROR COUNTER* 
ERASABLE STORAGE* 
ERASABLE STORAGE* 
ERASABLE STORAGE* 
ERASABLE STORAGE. 



BY SECTION ONE* 
***************** 



END OF SECTION ONE. 



00000 



END 



4F15931 
4F15932 
4F15933 
4F15934 
4F15935 
4F15936 
4F 15937 
4F15938 
4F15942 
4F15943 
4F15945 
4F 15946 
4F15947 
4F15948 
4F15949 
4F15950 
4F15951 
4F15952 
4F15953 
4F 15954 
4F15955 
4F15956 
4F15957 
4F15958 
4F15959 
4F15960 
4F15961 
4F15962 
4F 15963 
4F 15964 
4F15965 
4F15966 
♦4F15967 
4F15968 
4F15969 
4F15970 



llf 



n 



4F1D0010 
DIAGNOSTIC = F0200O00. 



OOOOO 
00001 



REM 704 FORTRAN MASTER RECORD CARO / DIAGNOSTIC = F0200000. 

704 FORTRAN MASTER RECORD CARD / 
ORG 

PZE DIAG»»DIAG 
PZE 8191 

704 FORTRAN TWO» SECTION ONE DIAGNQSTICt RECORD F020. 

THIS RECORD IS CALLED IN FROM TAPE ONCE FOR EACH ERROR 
SECTION ONE AND ONCE AT THE END OF SECTION ONE. 



OOOOO 
13440 13440 
OOOOO 17777 



B 
C 
EXIT* 



13440 
13441 
13442 
13443 
13444 
13445 
13446 
13447 
13450 
13451 
13452 
13453 
13454 
13455 
13456 
13457 
13460 
13461 



13474 
13475 
13476 
13477 
13500 
13501 
13502 
13503 
13504 
13505 
13506 
13507 
13510 
13511 
13512 
13513 
13514 
13515 
13516 



00000 
50000 
32000 
10000 
07400 
14104 
07400 
14045 
53400 
OOOOO 
53400 
76400 
00001 
02000 
53400 
76400 
00001 
02000 



13440 DIAG 

OOOOl A 

00002 

00004 

77777 

13543 EDIT 

00020 

14033 

00004 

14121 

14067 

14121 

14044 

02367 

13456 

14013 

00201 

13453 

00004 

14015 SOURCE 

00201 

13457 

00004 

13462 



ORG 1824+4096 

EOU 1 

EQU 2 

EQU 4 

EQU 32767 

TXH ERENT.C.O 

CLA 16 

ANA L(4)D 

TZE 4 

TSX PRINT.C 

HTR STOP»0»XCOM 

TSX PRINT. C 

PZE RESTR.O.RESTR+1 

LXA DCELL1»4 

TXH SOURCE »4»0 

LXA L(8).4 

BST 1 

TIX #-l»4»l 

TRA 4 

LXA L(12)»4 

BST 1 

*-l»4#l 

4 

10 



MOD 4K OR 8K. MACHINE SIZE 



4F1D0010 

4F1D0020 

4F1D0030 

4F1D0040 

4F1D0050 

4F1D0060 

IN 4F1D0070 

4F1D0080 

4F1D0090 

4F1D0100 

4F1D0110 

4F1D0120 

4F1D0130 

4F1D0140 

IF IR4 IS ZERO THIS IS THE END OF SEC ONE. 4F1D0150 

IF NON ZERO IT IS AN ERROR CALL. 4F1D0160 

IF IT IS THE END OF SEC ONE WERE THERE ANY 4F1D0170 

ERRORS DURING SECTION ONE ( INDICATED BY 4F1D0180 

4F1D0190 
4F1D0200 
4F1D0210 
4F1D0220 
4F1D0230 
4F1D0240 
4F1D0250 
4F1D0260 
4F1D0270 
NOW GO TO 1 TO CS FOR MACHINE ERROR REC0RD.4F1D0280 



BIT IN WORD 20 OCTAL*. IF THERE WERE NO 
ERRORS GO TO SEC ONE PRIME. IF THERE WERE 
GET INDICATOR OF SOURCE PROGRAM ERRORS. 
TEST IF ANY OF ERROR WERE SOURCE. 
NONE WERE* SO BACKSPACE TAPE 1 TO MACHINE 
ERROR RECORD. 



TIX 
TRA 
BSS 



000002000304 
000002000602 
000002020606 
000002040303 
000002040304 
000002040305 
000002040306 
000002050203 
000002050605 
000003020702 
000003050601 
000005070105 
000004030407 
000005020303 
000000050503 
000000050600 
000000050603 
000000050606 
000100050304 



MACERR 



SOME SOURCE PROGRAM ERRORS* RECOMPILATION 4F1D0290 

MEANINGLESS. BACKSPACE TAPE 1 TO SOURCE 4F1D0300 

PROGRAM ERROR RECORD. 4F1D0310 

NOW GO TO 1 TO CS FOR THIS RECORD. 4F1D0320 

EXPANSION AREA. FOR PESSIMISM... 4F1D0330 

LUMBERS OF MACHINE ERROR CALL FROM SECT TOW ONE. 4F1DO340 

BCD 1002034 4F1D0350 

BCD 1002062 4F1D0360 

BCD 1002266 4F100370 

BCD 1002433 4F1D0380 

BCD 1002434 4F1D0390 

BCD 1002435 4F1D0400 

BCD 1002436 4F1D0410 

BCD 1002523 4F1D0420 

BCD 1002565 4F1D0430 

BCD 1003272 4F1D0440 

BCD 1003561 4F1D0450 

BCD 1005715 4F1D0460 

BCD 1004347 4F1D0470 

BCD 1005233 4F1D0480 

BCD 1000553 4F1D0490 

BCD 1000560 4F1DO5O0 

BCD 1000563 4F1D0510 

BCD 1000566 4F1D0520 
BCD 1010534 



H3 



V 


13517 


000102070500 




BCD 


1012750 










13542 


00000 


13520 
00024 


COUNT 


BSS 


18 
20 


MORE PESSIMISM*** 


4F1D0540 
4F1D0550 
















THIS IS AN ERROR CALL* 


4F1D0560 






13543 


-0 75400 


4 00000 


ERENT 


PXO 


O.C 




4F1D0570 






13544 


76000 


00006 




COM 




CONSTRUCT OCTAL STOP 


4F1D0580 
4F1D0590 
4F1D0600 
4F1D0610 
4F1D0620 
4F1D0630 
4F1D0640 
4F1D0650 
4F1D0660 
4F1D0670 
4F1D0680 






13545 


40000 


14032 




ADO 


L(1)D 








13546 


-0 73400 


2 00000 




PDX 


0*8 








13547 


-0 75400 


2 00000 




PXD 


O.B 








13550 


76500 


00043 




LRS 


35 








13551 


-0 53400 


2 14034 




LXD 


L(6)D.B 








13552 


76700 


00003 


ALS 


ALS 


3 








13553 


-0 76300 


00003 




LGL 


3 








13554 


2 00001 


2 13552 




TIX 


ALS»B»1 








13555 
13556 


60100 
53400 


14047 

1 14035 




STO 
LXA 


NUMB 
L(0)»1 


SET TO SEARCH TABLE OF NUMBERS OF MACHINE 






13557 
13560 


53400 
34000 


2 13542 
1 13474 




LXA 
CAS 


COUNT* 2 
MACERR»1 


ERRORS* 

COMPARE EACH ENTRY IN TABLE TO OCTAL 


4F1D0690 
4F1D0700 






13561 
13562 


1 00O01 
02000 


1 13564 
13566 




TXI 
TRA 


*+3»l»l 
*+4 


NUMBER IN AC* 
EXIT IF FOUND. 


4F1D0710 
4F1D0720 
4F1D0730 
4F1D0740 
4F1D0750 
4F1D0760 
4F1D0770 






13563 


1 00001 


1 13564 




TXI 


♦+1.1.1 








13564 
13565 


2 00001 
62100 


2 13560 
02367 




TIX 
STA 


*-4»2»l 
DCELLl 


CONTINUE* 

SET INDICATOR TO NON-ZERO FOR SOURCE ERROR 






13566 
13567 
13570 


53400 
50000 


3 14035 
14037 




LXA 
CLA 


L(0)i3 
XXX 


CONSTRUCT CALLING SEQUENCE WORD FOR 






34000 


1 14504 


ONE 


CAS 


TABLEtA 


PRINTING COMMENT 


4F1D0780 
4F1D0790 
4F1D0800 
4F1D0810 
4F1D0820 
4F1D0830 
4F1D0840 
4F1D0850 
4F1D0860 
4F1D0870 
4F1D0880 
4F1D0890 
4F 1DO90© 
4F1D0910 
4F1D0920 
4F100930 
4F1D0940 
4F1D0950 
4F1D0960 
4F1D0970 
4F1D0980 
4F1D0990 
4F1D1000 
4F1D1010 
4F1D1020 
4F1D1030 
4F1D1040 
4F1D1050 






13571 
13572 


02000 
02000 


13573 
13601 




TRA 
TRA 


TWO 
FOUR 








13573 


1 77777 


1 13574 


TWO 


TXI 


THREE»A»-1 








13574 
13575 


3 00000 
50000 


1 13570 
14047 


THREE 


TXH 
CLA 


ONE»A»0 
NUMB 








13576 


60100 


14104 




STO 


XCOM 








13577 
13600 
13601 
13602 
13603 


-0 50000 
02000 
3 00000 
40200 
10000 


14046 

13632 
2 13612 

1 14505 
13627 


FOUR 


CAL 
TRA 
TXH 
SUB 
T2E 


XKEY 

EIGHT 

FIVE»B»0 

TABLE+1»A 

SEVEN 








13604 
13605 
13606 


500TX0 
40200 
10000 


14047 

1 14505 
13611 




CLA 
SUB 
TZE 


NUMB 

TABLE+1»A 

NINE 








13607 
13610 
13611 
13612 


5000© 

02000 

1 77777 
-0 75400 


14037 

13573 

1 13612 
1 00000 


NINE 
FIVE 


CLA 
TRA 
TXI 
PXD 


XXX 

TWO 

FIVE.A*-1 

0*A 








13613 
13614 


76000 
40000 


00006 
14032 




COM 
ADD 


L(1)D 








13615 
13616 
13617 
13620 
13621 
13622 


-0 73400 
-0 75400 
40000 
3 00000 
77100 
60100 


4 00000 
4 00000 
14042 
2 13625 
00022 
14050 




PDX 
PXD 
ADD 
TXH 
ARS 
STO 


0»C 

O.C 

TABAD 

SIX»B»0 

18 

KEY 




l*N 




13623 


50000 


14037 




CLA 


XXX 






/''""X 

u 














o 





o 



o 



23624 


1 


00001 


2 


13574 


TXI 


THREE.B.l 


13625 


-0 


50100 





14050 


SIX ORA 


KEY 


13626 





02000 





13632 


TRA 


EIGHT 


13627 





50000 





14047 


SEVEN CLA 


NUMB 


13630 





60100 





14104 


STO 


XCOM 


13631 





50000 





14046 


CLA 


XKEY 


13632 





60100 





14025 


EIGHT STO 


COMM 


13633 





50000 





01151 


CLA 


F-l 


13634 





60100 





01150 


STO 


F-2 


13635 





50000 





14045 


CLA 


BLANK 


13636 





60100 





01151 


STO 


F-l 


13637 


-0 


53400 


1 


14041 


LXO 


L(X)D»A 


13640 





50000 





14036 


CLA 


ONES 


13641 





34000 


1 


01331 


STA05 CAS 


F+111»A 


13642 





02000 





13644 


TRA 


STA10 


13643 





02000 





13646 


TRA 


STA20 


13644 


2 


00001 


1 


13641 


STA10 TIX 


STA05»A*1 


13645 


-0 


53400 


1 


14035 


LXD 


LCOI.A 


13646 


-0 


75400 


1 


00000 


STA20 PXD 


O.A 


13647 





60100 





14051 


STO 


SES 


13650 


C 


50000 





14041 


CLA 


L(X)D 


13651 





40200 





14051 


SUB 


SES 


13652 





40000 





14043 


ADD 


F0R6 


13653 





60100 





14051 


STO 


SES 


13654 





50000 





14043 


CLA 


FORG 


13655 





77100 





00022 


ARS 


18 


13656 


-0 


50100 





14051 


ORA 


SES 


13657 





60100 





14023 


STO 


STATE 


13660 





50000 





00020 


CLA 


16 


13661 


-0 


32000 





14033 


ANA 


L(4)D 


13662 


-0 


10000 





13673 


TNZ 


PROG 


13663 





50000 





14033 


CLA 


L(4)D 


13664 


-0 


60200 





00020 


ORS 


16 


13665 





07400 


4 


14121 


TSX 


PRINT. C 


13666 





14067 





14052 


HTR 


START. 0. STOP 


13667 





76600 





00361 


WPR 




13670 





76600 





00361 


WPR 




13671 





76600 





00361 


WPR 




13672 





76600 





00361 


WPR 




13673 





07400 


4 


13742 


PROG TSX 


SETNBC*4 


13674 





07400 


4 


13746 


TSX 


NNBC.4 


13675 





07400 


4 


13746 


TSX 


NNBC»4 


13676 





40200 





14014 


SUB 


L(10) 


13677 


-0 


10000 





14022 


TNZ 


EXIT 


13700 





07400 


4 


13742 


TSX 


SETNBC.4 


13701 





07400 


4 


13746 


TSX 


NNBC.4 


13702 





40200 





14007 


SUB 


L«X) 


13703 


-0 


10000 





13725 


TNZ 


CALLBK 


13704 





50000 





14001 


CLA 


L(I) 


13705 





07400 


4 


13760 


TSX 


REP.4 


13706 





07400 


4 


13746 


TSX 


NNBC»4 


13707 





50000 





14002 


CLA 


L(F) 


13710 





07400 


4 


13760 


TSX 


REP.4 


13711 





07400 


4 JL3746 


TSX 


NNBC»4 



CONSTRUCT CALLING SEQUENCE WORD 



WAS THERE A PREVIOUS ERROR CALL 

NO. MAKE ERROR CALL INDICATION 
AND PRINT HEADING 



4F1D1060 
4F1D1070 
4F1D1080 
4F1D1090 
4F1D1100 
4F1D1110 
4F1D1120 
4F1D1130 
4F1D1140 
4F1D1150 
4F1D1160 
4F1D1170 
4F1D1180 
4F1D1190 
4F1D1200 
4F1D1210 
4F1D1220 
4F1D1230 
4F1D1240 
4F1D1250 
4F1D1260 
4F1D1270 
4F1D1280 
4F1D1290 
4F1D1300 
4F1D1310 
4F1D1320 
4F1D1330 
4F1D1340 
4F1D1350 
4F1D1360 
4F1D1370 
4F1D1380 
4F1D1390 
4F1D1400 
4F1D14I0 
4F1D1420 
4F1D1430 
4FID1440 
4F1D1450 
4F1D1460 
4F1D1470 
4F1D1480 
4F1D1490 
4F1D1500 
4F1D1510 
4F1D1520 
4F1D1530 
4F ID 1540 
4F1D1550 
4F1D1560 
4F1D1570 
4F1D1580 
4F1D1590 



N* 



13712 





40200 





14003 




SUB 


L<*> 


13713 


-0 


10000 





14022 




TNZ 


EXIT 


1371* 





50000 





14004 




CLA 


L(LP) 


13715 





07400 


4 


13760 




TSX 


REP»4 


13716 


-3 


77622 


1 


14022 


TXE 


TXL 


EXIT»1»-110 


13717 





07400 


4 


13746 




TSX 


NNBC»4 


13720 





40200 





14016 




SUB 


ENDM 


13721 


-0 


10000 





13716 




TN2 


TXE 


13722 





50000 





14005 




CLA 


LCRP) 


13723 





07400 


4 


13760 




TSX 


REP»4 


13724 





02000 





14022 




TRA 


EXIT 


13725 





50000 





14010 


CALLBK 


CLA 


L(C) 


13726 





07400 


4 


13760 




TSX 


REP»4 


13727 





07400 


4 


13746 




TSX 


NNBC.4 


13730 





50000 





14011 




CLA 


LCA) 


13731 





07400 


4 


13760 




TSX 


REP»4 


13732 





07400 


4 


13746 




TSX 


NNBC»4 


13733 





50000 





14012 




CLA 


L(L) 


13734 





07400 


4 


13760 




TSX 


REP»4 


13735 


2 


00001 


2 


13737 




TIX 


SECL. 2.1 


13736 


1 


77777 


1 


13737 




TXI 


SECL.l.-l 


13737 





50000 





14012 


SECL 


CLA 


L(L) 


13740 





07400 


4 


13760 




TSX 


REP. 4 


13741 





52000 





14022 




TRA 


EXIT 


13742 


-0 


53400 


1 


13752 


SETNBC 


LXD 


TXI.l 


13743 





53400 


2 


13747 




LXA 


LGL.2 


13744 





56000 





01152 




LDQ 


F 


13745 





02000 


4 


00001 




TRA 


1»'> 


13746 


-0 


75400 





00000 


NNBC 


PXD 




13747 


-0 


76300 





00006 


LGL 


LGL 


6 


13750 


2 


00001 


2 


13754 




TIX 


CAS. 2.1 


13751 





56000 


1 


01152 




LDQ 


F.l 


13752 


1 


77777 


1 


13753 


TXI 


TXI 


TXI+l.l.-l 


13753 





53400 


2 


13747 




LXA 


LGL.2 


13754 





34000 





14006 


CAS 


CAS 


BLANKX 


13755 





02000 


4 


00001 




TRA 


1.4 


13756 





02000 





13746 




TRA 


NNBC 


13757 





02000 


4 


00001 




TRA 


1.4 


13760 


-0 


60000 





14017 


REP 


STQ 


ESI 


13761 


-0 


63400 


2 


14020 




SXD 


ES2.2 


13762 


-0 


63400 


1 


14021 




SXD 


ES3.1 


13763 





76500 





00043 




LRS 


35 


13764 


-0 


50000 





14016 




CAL 


ENDM 


13765 


-3 


00005 


2 


13767 


TXL 


TXL 


TXL+2.2.5 


13766 


1 


00001 


1 


13771 




TXI 


TXL+4.1.1 


13767 


-0 


76300 





00006 




LGL 


6 


13770 


2 


00001 


2 


13767 


TIX 


TIX 


TIX-1.2.1 


13771 





76000 





00006 




COM 




13772 





32000 


1 


01151 




ANS 


F-l.l 


13773 


-0 


76300 





00044 




LGL 


36 


13774 


-0 


60200 


1 


01151 




ORS 


F-l.l 


13775 


-0 


53400 


1 


14021 




LXD 


ES3.1 


13776 


-0 


53400 


2 


14020 




LXD 


ES2.2 


13777 





56000 





14017 




LDQ 


ESI 



CHANGE Z BACK TO C 



CHANGE TEN BACK TO A 



CHANGE EQUAL BACK TO FIRST L 



ADJUST COUNTS FOR NEXT CHAR 
CHANGE BLANK BACK TO SECOND L 



4F1D1600 

4F1D1610 

4F1D1620 

4F1D1630 

4F1D1640 

4F101650 

4F1D1660 

4F101670 

4F1D1680 

4F1D1690 

4F1D1700 

4F1D1710 

4F1D1720 

4F1D1730 

4F1D1740 

4F1D1750 

4F1D1760 

4F1D1770 

4F1D1780 

4F1D1790 

4F1D1800 

4F1D1810 

4F1D1820 

4F1D1830 

4F1D1840 

4F1D1850 

4F1D1860 

4F1D1870 

4F1D1880 

4F1D1890 

4F1D19O0 

4F101910 

4F1D1920 

4F1D1930 

4F1D1940 

4F1D1950 

4F1D1960 

4F1D1970 

4F1D1980 

4F1D1990 

*TlU2QUU 

4F1D2010 

4F1D2020 

4F1O203O 

4F1D2040 

4F1D2050 

4F1D2060 

4F1D2070 

4F1D2080 

4F1D2090 

4F1D2100 

4F1D2110 

4F1D2120 

4F102130 



ra> 



u 



o 





14000 


02000 4 00001 




TRA 


1*4 




24001 


000000000031 


HI) 


BCD 


1000001 




14002 


000000000026 


L(F) 


BCD 


10O000F 




14003 


000000000013 


L< = > 


BCD 


100000= 




14004 


000000000074 


L(LP) 


BCD 


100000 { 




14005 


000000000034 


L(RP) 


BCD 


100000) 




14006 


000000000060 


BLANK.X 


BCD 


100000 




14007 


000000000067 


L«X) 


BCD 


100000X 




14010 


000000000023 


LIC) 


BCD 


100000C 




14011 


000000000021 


L(A) 


BCD 


100000 A 




14012 


000000000043 


L(L) 


BCD 


100000L 




14013 


00000 00010 


L(8) 




e 




14014 


+000000000012 


U10) 


OCT 


12 




14015 


00000 00014 


1.(12) 




12 




14016 


+000000000077 


ENDM 


OCT 


77 


A 


14017 


00000 00000 


ESI 


HTR 




A 


14020 


00000 00000 


ES2 


HTR 




A 


14021 


00000 00000 


ES3 


HTR 






14022 


07400 4 14121 


SECND 


TSX 


PRINT»C 


A 


14023 


00000 00000 


STATE 


HTR 






14024 


07400 4 14121 




TSX 


PRINT»C 


A 


14025 


00000 ooooo 


COMM 


HTR 






14026 


76600 00361 




WPR 






14027 


76600 00361 




WPR 






14030 


76400 00201 


BST 


BST 


1 




14031 


02000 02402 




TRA 


MON 




14032 


+000001000000 


LIDO 


OCT 


1000000 




24033 


+000004000000 


U4ID 


OCT 


4000000 




14034 


+000006000000 


L<6)0 


OCT 


6000000 


A 


24035 


OOOOO ooooo 


L(0) 


HTR 






24036 


-377777777777 


ONES 


OCT 


777777777777 




14037 


676767676767 


XXX 


BCD 


1XXXXXX 




14040 


+000000077777 


HALT 


OCT 


77777 




14041 


+000161000000 


L(X)D 


OCT 


161000000 




14042 


^ 14504" ^ "OOOOO 


TABAD 


HTR 


0»O»TABL£ 




14043 


O 01150 OOOOO 


FORG 


HTR 


0»OtF-2 




24044 


016060606060 


RESTR 


BCD 


11 




14045 


606060606060 


BLANK. 


BCD 


1 




14046 


14121 14104 


XKEY 


HTR 


XCOM»0.XXC0M 


A 


14047 


OOOOO OOOOO 


NUMB 


HTR 




A 


14050* 


O OOOOO OOOOO 


KEY 


HTR 




A 


14051, 


0. OOOOO OOOOO 


SES 


HTR 






14052 


016060606060 


START 


BCD 


71 




14053 


606060606060 










14054 


606060606060 










14055 


606060606060 










14056 


606060606060 










14057 


606060606060 










14060 


606060606060 










14061 


264651635121 




BCD 


6FORTRAN DIAl 




14062 


456024312127 










14063 


454662633123 










14064 


604751462751 










14065 


214460512562 









PRINT STATEMENT 
PRINT COMMENT 



TAPE 

AND RETURN TO SEC ONE MONITOR 



4F1D2140 
4F1D2150 
4F1D2160 
4F1D2170 
4F1D2180 
4F1D2190 
4F1D2200 
4F1D2210 
4F1D2220 
4F1D2230 
4F1D2240 
4F1D2250 
4F1D2260 
4F1D2270 
4F1D2280 
4F1D2290 
4F1D23O0 
4F1D2310 
4F1D2320 
4F1D2330 
4F1D2340 
4F1D2350 
4F1D2360 
4F1D2370 
4F1D2380 
4F1D2390 
4F1D2400 
4F1D2410 
4F1D2420 
4F1D2430 
4F1D2440 
4F1D2450 
4F1D2460 
4F1D2470 
4F1D2480 
4F1D2490 
4F1D2500 
4F1D2510 
4F1D2520 
4F1D2530 
4F1D2540 
4F1D2550 
4F1D2560 



4F102570 



t*/7 



5 2. V 





14066 


644363626060 










14067 


006060606060 


STOP 


BCD 


70 




14070 


606060606060 










14071 


606060606060 










14072 


606060606060 










14073 


606060606060 










14074 


606060606060 










14075 


606060606060 










14076 


254524604626 




BCD 


6END 




14077 


602431212745 










14100 


466263312360 










14101 


475146275121 










14102 


446051256264 










14103 


436362606060 








A 


14104 


00000 





00000 


XCOM 


HTR 






14105 


606060606060 




BCD 






14106 


633031626025 










14107 


515146516031 










14110 


626045466360 










14111 


433162632524 










14112 


603145606330 










14113 


256024312127 










14114 


454662633123 










14115 


604751462751 










14116 


214460255151 










14117 


465160433162 




BCD 


20R L 




14120 


633360606060 
















14121 


XXCOM 


BSS 













14121 


PRINT 


BSS 







14121 


50000 


4 


00001 


RAN 


CLA 


1»4 




14122 


62100 





14163 




STA 


RNA 




14123 


77100 





00022 




ARS 


18 




14124 


60100 





14164 




STO 


RNB 




14125 


-0 63400 


4 


14165 




SXD 


RNC,4 




14126 


50000 





14163 


RN40 


CLA 


RNA 




14127 


40000 





14166 




ADD 


RND 




14130 


34000 





14164 




CAS 


RNB 




14131 


76100 





00000 




NOP 






14132 


02000 





14153 




TRA 


RN5Q 




14133 


76700 





00022 




ALS 


18 




14134 


40000 





14163 




ADD 


RNA 




14135 


60100 





14137 




STO 


RAN10 




14136 


07400 


4 


14170 




TSX 


WOT»C 


A 


14137 


00000 





00000 


RAN10 


HTR 






14140 


50000 





14137 




CLA 


RAN10 




14141 


77100 





00022 




ARS 


16 




14142 


40200 





14167 




SUB 


RNE 




14143 


62100 





14150 




STA 


RN20 




14144 


40200 





14167 




SUB 


RNE 




14145 


62100 





14151 




STA 


RN30 




14146 


62100 





14163 




STA 


RNA 




14147 


50000 





14402 




CLA 


BLNKS 


A 


14150 


60100 





00000 


RN20 


STO 




A 


14151 


60100 





00000 


RN30 


STO 





4F1D2580 



BCD 6END OF DIAGNOSTIC PROGRAM RESULTS 



4F1D2590 



4F1D2600 
THIS ERROR IS NOT LISTED IN THE DIAGNOSTIC PROGRAM ERR4F1D2610 



4F1D2620 

4F1D2630 
4F1D2640 
4F1D2650 
4F1D2660 
4F1D2670 
4F1D2680 
4F1D2690 
4F1D2700 
4F1D2710 
4F1D2720 
4F1D2730 
4F1D2740 
4F1D2750 
4F1D2760 
4F1D2770 
4F1D2780 
4F1D2790 
4F1D2800 
4F1D2810 
4F1D2820 
4F1D2830 
4F1D2840 
4F1D2850 
4F1D2860 
4F1D2870 
4F1D2880 
4F1D2890 



lW 



n 



O 





24152 


02000 





14126 




TRA RN40 






14153 


50000 





14164 


RN50 


CLA RNB 






14154 


76700 





00022 




ALS 18 






14155 


40000 





14163 




ADO RNA 






14156 


60100 





14160 




STO RN60 






14157 


07400 


4 


14170 




7SX WOT»C 




A 


14160 


00000 





OOOOO 


RN60 


HTR 






14161 


-0 53400 


4 


14165 




LXD RNCtC 






14162 


02000 


4 


00002 




TRA 2.C 




A 


14163 


00000 





OOOOO 


RNA 


HTR 




A 


14164 


00000 





OOOOO 


RNB 


HTR 




A 


14165 


00000 





OOOOO 


RNC 


HTR 






14166 


00000 





00024 


RND 


HTR 20 






1416? 


00000 





00001 


RNE 


HTR 1 






14170 


-0 63400 


1 


14340 


WOT 


SXD Xl»l 






14171 


-0 63400 


2 


14346 




SXD X2.2 


. 




14172 


50000 


4 


00001 




CLA 1»4 


PRINT ROUTINE 




14173 


62100 





14221 




STA T5 


X 




14174 


62200 





14403 




STD X4 


X 




14175 


77100 





00022 




ARS 18 


X 




14176 


40000 





14403 




ADD X4 


X 




14177 


62100 





14252 




STA PR2 


X 




14200 


62100 





14277 




STA C19 


X 




14201 


40200 


4 


00001 




SUB 1*4 


B-A+l IN AC 




14202 


10000 


4 


00002 




TZE 2»4 






14203 


-0 12000 


4 


00002 




TMI 2.4 






14204 


-0 63400 


4 


14403 




SXD X4»4 






14205 


73400 


4 


00013 


Lll 


PAX 11 »4 






14206 


-0 63400 


4 


14211 




SXD PR6.4 






14207 


-0 50000 





14353 




CAL WP 


INITIALIZE SWITCH 




14210 


60100 





14353 




STO WP 


X 


TO 


14211 


3 00000 





14212 


PR6 


TXH T4 






14212 


76600 





00361 


T4 


WPR 




TO 


14213 


-3 00000 





14217 


Z2 


TXL S3 




ATD 


142-14 


-3 OOOOO OOOOO 


OZ2 


TXL 






14215 


76000 





00364 


SP4 


SPR 4 




TO 


14216 


-3 OOOOO 





14250 




TXL RPR+2 






14217 


50200 





14353 


S3 


CLS WP 


SET SWITCH FOR MASKING 




14220 


60100 





14353 




STO WP 


CHARACTER FROM TYPE WHEEL 1 




14221 


-^0 50000 





14221 


T5 


CAL * 


OBTAIN FIRST CHARACTER 




14222 


77100 





0C036 




ARS 30 


X 




14223 


10000 





14215 




TZE SP4 


DOUBLE SPACE IF ZERO 




14224 


34000 





14404 




CAS YZONE 


TEST FOR SPACE SUPPRESS 


TD 


14225 


-3 OOOOO 





14227 




TXL BK 


NO 


TO 


14226 


-3 OOOOO 





14247 




TXL RPR+1 


SUPPRESS SPACE 




14227 


34000 





14405 


BK 


CAS BNK 


TEST FOR BLANK 


TO 


14230 


-3 OOOOO 





14232 




TXL OIGF 


NO 


TO 


14231 


-3 OOOOO 





14250 




TXL RPR+2 


BLANK 




14232 


76000 





00372 


OIGF 


SPR 10 


SET CHANNEL SKIP 




14233 


-0 32000 





14234 




ANA MK 


MASK OUT ZONE 




14234 


73400 


1 


00017 


MK 


PAX 15.1 


OBTAIN SPR COMBINATION 




14235 


1 00001 


1 


14236 




TXI N2.1.I 


X 




14236 


-2 00010 


1 


14240 


N2 


TNX N3.1.8 


X 




14237 


76000 





00370 




SPR 8 


X 



4F102900 

4F1D2910 

4F102920 

4F1D2930 

4F1D2940 

4F1D2950 

4F102960 

4F1D2970 

4F102980 

4F102990 

4F1D3000 

4F1D3010 

4F103020 

4F1D3030 

4F103040 

4F1D3050 

4F1D3060 

4F1D3070 

4F1D3080 

4F1D3090 

4F1D3100 

4F1D3110 

4F1D3120 

4F1D3130 

4F1D3140 

4F1D3150 

4F103160 

4F1D3170 

4F103180 

4F103190 

4F1D3200 

4F1D3210 

4F1D3220 

4F1D3230 

4F1D3240 

4F1D3250 

4F1D3260 

4F1D3270 

4F1D3280 

4F1D3290 

4F1D3300 

4F1D3310 

4F1D3320 

4F103330 

4F1D3340 

4F103350 

4F 103360 

4F103370 

4F1D3380 

4F1D3390 

4F1D3400 

4F1D3410 

4F1D3420 

4F1D3430 



iri 



t V 



14240 


-2 


00004 


1 


14242 


N3 


TNX 


N4.1.4 


X 


14241 





76000 





00364 




SPR 


4 


X 


14242 


-2 


00002 


1 


14244 


N4 


TNX 


N5.1.2 


X 


14243 





76000 





00362 




SPR 


2 


X 


14244 


-2 


00001 


1 


14246 


N5 


TNX 


RPR.1.1 


X 


14245 





76000 





00361 




SPR 


1 


X 


14246 





76600 





00361 


RPR 


WPR 






14247 





76000 





00365 




SPR 


5 


SUPPRESS SPACE 


14250 





50000 





14402 




CLA 


BLNKS 


FIND LAST NON-BLANK GROUP 


14251 


-0 


53400 


4 


14312 




LXD 


CI4»4 


X 


14252 





34000 


4 


00000 


PR2 


CAS 


0*4 


X 


14253 


1 


77777 


4 


14256 




TXI 


PR1*4.-1 


X 


14254 


1 


00001 


4 


14252 




TXI 


PR2.4.1 


X 


14255 


1 


77777 


4 


14256 




TXI 


PR1.4.-1 


X 


14256 


-0 


63400 


4 


14316 


PR1 


SXD 


CI6.4 


STORE END TEST 


14257 


-0 


63400 


4 


14330 




SXO 


CI8.4 


X 


14260 


-0 


63400 


4 


14263 




SXD 


PR8.4 


X 


14261 


-0 


63400 


4 


14370 




SXO 


WP4»4 


X 


14262 


-0 


53400 


4 


14211 




LXD 


PR6»4 


X 


14263 


-2 


00000 


4 


14267 


PR8 


TNX 


PR5.4 




1426* 


-3 


00014 


4 


14266 




TXL 


PR3»4*12 




14265 





76000 





00370 




SPR 


8 


FIRST CYCLE 


14266 


-0 


53400 


4 


14211 


PR 3 


LXD 


PR6.4 


INITIALIZE GROUP COUNT 


14267 





53400 


2 


14271 


PR 5 


LXA 


PR7»2 


INITIALIZE LEFT SETUP 


14270 


-0 


53400 


1 


14333 




LXD 


YZ1.1 


CLEAR CARD IMAGE 


14271 


-0 


75400 





00000 


PR7 


PXD 




X 


14272 





60200 


1 


14451 


PR 4 


SLW 


LT»1 


X 


14273 





60200 


1 


14431 




SLW 


RT»1 


X 


14274 


2 


00001 


1 


14272 




TIX 


PR4»1.1 


X 


14275 


-0 


50000 





14407 


CIR 


CAL 


C0L1 


INITIALIZE COLUMN INDICATOR 


14276 





60200 





14410 


CI2 


SLW 


COL 


X 


14277 





56000 


4 


00000 


CI9 


LDO 


0.4 


OBTAIN GROUP 


14300 


-0 


63400 


4 


14214 




SXD 


0Z2.4 


STORE GROUP COUNT 


14301 





53400 


4 


14303 




LXA 


Q6»4 


SET CHARACTER COUNT 


14302 


-0 


75400 





00000 


CI1 


PXD 






14303 


-0 


76300 





00006 


06 


LGL 


6 




14304 





73400 


1 


00000 




PAX 


0>1 




14305 


-0 


50000 





14410 




CAL 


COL 


POSITION COLUMN INDICATOR 


14306 





77100 


4 


00006 




ARS 


6»4 


X 


14307 


2 


00020 


1 


14333 




TIX 


YZ1.1.16 


TEST FOR DIGIT 


14310 


3 


00017 


1 


14336 




TXH 


YZ2.1.15 


TEST FOR Y-ZONE 


14311 


-0 


60200 


3 


14446 


CI5 


ORS 


D»3 


STORE DIGIT 


14312 


2 


00001 


4 


14302 


CI4 


TIX 


CI1»4.1 


COUNT CHARACTERS 


14313 





77100 





00001 


CI3 


ARS 


1 


SHIFT AND TEST COLUMN 


14314 


-0 


53400 


4 


14214 




LXD 


022.4 


RESTORE GROUP COUNT 


14315 


1 


77777 


4 


14316 




TXI 


CI6.4.-1 


COUNT GROUPS 


14316 


-3 


00000 


4 


14320 


CI6 


TXL 


CI7.4 


TEST FOR LAST NON-BLANK GROUP 


14317 


-0 


10000 





14276 




TNZ 


CI2 


TEST FOR END OF ROW 


14320 


-0 


50000 


2 


14433 


CI7 


CAL 


8.3.2 


FORM TRUE 8.4 


14321 


-0 


60200 


2 


14436 




ORS 


D-8.2 


AND 3 ROWS AND 


14322 


-0 


60200 


2 


14443 




ORS 


D-3.2 


MOVE 8*4 AND 8.3 


14323 





60200 


2 


14434 




SLW 


8.2.2 


ROWS 


14324 


-0 


50000 


2 


14432 




CAL 


8.4.2 


FORM TRUE 8.4 


14325 


-0 


60200 


2 


14436 




ORS 


D-8.2 


X 



4F1D3440 

4F103450 

4F103460 

4F1D3470 

4F1D3480 

4F1D3490 

4F1D3500 

4F1D3510 

4F1D3520 

4F1D3530 

4F1D3540 

4F1D3550 

4F1D3560 

4F1D3570 

4F1D3580 

4F1D3590 

4F1D3600 

4F1D3610 

4F1D3620 

4F1D3630 

4F1D3640 

4F1D3650 

4F1D3660 

4F1D3670 

4F1D3680 

4F1D3690 

4F1D3700 

4F1D3710 

4F1D3720 

4F1D3730 

4F1D3740 

4F1D3750 

4F103760 

4F1D3770 

4F1D3780 

4F1D3790 

4F1D38O0 

4F1D3810 

4F1D3820 

4F1O3830 

4F1D3840 

4F1D3850 

4F1D3860 

4F1D3870 

4F1D3880 

4F1D3890 

4F1O3900 

4F1D3910 

4F1D3920 

4F1D3930 

4F1D3940 

4F1D3950 

4F1D3960 

4F1D3970 



t& 



n 



O 





14326 
24327 


-0 



60200 2 14442 
60200 2 14433 




ORS 
SLW 


D-4»2 
8*3*2 


X 
X 


4F1D3980 
4F1D3990 





14330 


-3 


00000 4 14353 


CI8 


TXL 


WPf4 


TEST FOR END 


4F1D4000 




14331 


3 


00017 2 14353 




TXH 


WP»2»15 


TEST FOR RI6HT HALF 


4F1D4010 




14332 


1 


00020 2 14275 




TXI 


CIR*2»16 


INITIALIZE RI6HT HALF 


4F1D4020 




14333 


2 


00020 1 14341 


YZ1 


TIX 


XZ1*1»16 


TEST FOR 16/CH/32 


4F1D4030 




14334 


3 


00017 1 14344 




TXH 


XZ2*1»15 


TEST FOR X-ZONE 


4F1D4040 




14335 


-0 


60200 3 14446 




ORS 


D»3 


STORE DIGIT 


4F1D4050 




14336 


-0 


60200 2 14450 


YZ2 


ORS 


Y.2 


STORE Y-ZONE 


4F1D4060 




14337 


2 


00001 4 14302 




TIX 


CI1*4.1 


COUNT CHARACTERS 


4F1D4070 


TO 


14340 


-3 


00000 14313 


XI 


TXL 


CI3 


OBTAIN NEXT GROUP 


4F1D4080 




14341 


' 2 


00020 1 14347 


X21 


TIX 


0Z1»1»16 


TEST FOR 32/CH/48 


4F1D4090 




14342 


3 


00017 1 14312 




TXH 


CI4»1»15 


TEST FOR BLANK 


4F1D4100 




14343 


-0 


60200 3 14446 




ORS 


D»3 


STORE DIGIT 


4F1D4110 




14344 


-0 


60200 2 14447 


XZ2 


ORS 


X»2 


STORE X-ZONE 


4F1D4120 




14345 


2 


00001 4 14302 




TIX 


CI1.4*1 


COUNT CHARACTERS 


4F1D4130 


TO 


14346 


-3 


OOOOO 14313 


X2 


TXL 


CI3 


OBTAIN NEXT GROUP 


4F1D4140 




14347 


-0 


60200 2 14446 


0Z1 


ORS 


Z»2 


STORE 0-ZONE 


4F1D4150 




14350 


-0 


60200 3 14446 




ORS 


D»3 


STORE DIGIT 


4F1D4160 




14351 


2 


00001 4 14302 




TIX 


CI1»4.1 


COUNT CHARACTERS 


4F1D4170 
4F1D4180 


TD 


14352 


-3 


OOOOO 14313 




TXL 


CI3 




TD 


14353 


3 


OOOOO 14355 


WP 


TXH 


WP9 


INVERTED TO TXL IF PROGRAM CARRIAGE CONTROL 


4F1D4190 


TD 


14354 


-3 


OOOOO 14361 




TXL 


WP7 


NO PROGRAM 


4F1D4200 




14355 


-0 


53400 1 14401 


WP9 


LXD 


WP2.1 


MASK OUT FIRST COL« OF CARD IMAGE 


4F1D4210 
4F1D4220 

m r* + t\ t 1 0% f\ 




14356 


-0 


50000 14406 




CAL 


MK.2 


X 




14357 





32000 1 14451 


ANS 


ANS 


LT»1 


X 


4F1D4230 




14360 


2 


00001 1 14357 




TIX 


ANS»1»1 


X 


4F1D4240 




14361 


-0 


53400 1 14213 


WP7 


LXD 


Z2.1 


COPY LOOP 


4F1D4250 




14362 





70000 1 14435 


CRAN 


CPY 


LT-12»1 




4F1D4260 




14363 





70000 1 14415 




CPY 


RT-12.1 


X 


4F1D4270 
4F1D4280 




14364 


1 


77777 1 14365 




TXI 


T2*l»-1 






14365 


3 


77764 1 14362 


T2 


TXH 


CRAN»1»-12 




4F1D4290 




14366 


-0 


50000 14353 




CAL 


WP 


RESET SWITCH FOR SECOND CYCLE 


4F 104300 




14367 





60100 14353 




STO 


WP 


X 


4F1D4310 


D 


24370 


3 


OOOOO 4 14377 


WP4 


TXH 


WP5»4 




4F1D4320 




14371 


-0 


53400 1 14340 




LXD 


XI. 1 


NO* RELOAD INDEX REGISTERS AND RETURN 


4F1D4330 




14372 


-0 


53400 2 14346 




LXD 


X2.2 


X 


4F1D4340 




14373 


-e 


53400 4 14403 


WT2 


LXD 


X4»4 


X 


4F1D4350 




14374 





02000 4 00002 


L2 


TRA 


2*4 


X 


4F1D4360 
4F1D4370 
4F1D4380 




14375 





76600 00361 


RPR2 


WPR 






TD 


14376 


-3 


OOOOO 14250 




TXL 


PR2-2 






14377 





76600 00361 


WP5 


WPR 






4F1D4390 




14400 





76000 00371 




SPR 


9 


SECOND CYCLE 


4F1D4400 




14401 


-3 


00014 14267 


WP2 


TXL 


PR5»0»12 


CONVERT REST OF LINE 


4F1D4410 




14402 


606060606060 


BUNKS 


BCD 


1 




4F1D4420 
4F1D4430 


A 


14403 





OOOOO OOOOO 


X4 


HTR 








14404 


4000000000020 


YZONE 


OCT 


20 




4F1D4440 




14405 


4000000000060 


BNK 


OCT 


60 




4F1D4450 




14406 


+377777777777 


MK2 


OCT 


377777777777 




4F1D4460 




14407 


-0 


OOOOO OOOOO 


C0L1 


MZE 






4F1D4470 








14410 


COL 


BSS 


1 




4F1D4480 








14431 


RT 


BES 


16 




4F1D4490 








14431 


6*5 


BSS 


1 




4F1D4500 








14432 


8.4 


BSS 


1 




4F1D4510 



/fl 





14433 


8.3 


BSS 1 4F1D4520 




14434 


8.2 


BSS 1 4F1D4530 




14446 


D 


BES 9 4F1D4540 




14446 


Z 


BSS 1 4F1D4550 




14447 


X 


BSS 1 4F 104560 




14450 


Y 


BSS 1 4F1D4570 




14451 


LT 


SYN Y+l 4F104580 




14433 


8.4L 


SYN LT-14 4F104590 




14413 


8.4R 


SYN RT-14 4F104600 




14451 




BSS 27 4F1D4610 




14022 


EXIT 


SYN SECND 4F1D4620 




01152 


F 


SYN 618 ADDRESS OF 1ST WORD OF F REGION 4F1D4640 




02402 


MOW 


SYN 1282 ADDRESS OF ENTRY TO MONITOR FOR A 4F1D4650 




02367 


OCELLI 


SYN 1271 4F1D4660 

4F1D4670 

4F1D4680 

TABLE OF DIAGNOSTIC COMMENTS. SECTION ONE OF 704 FORTRAN II. 4F1D4690 

4F1D4700 

4F1D4710 

COMMON 4F1D4720 

4F1D4730 




14504 


TABLE 


BSS 4F1D4740 


14504 


676767676767 




BCD XXXXXX000001 DIM3 TABLE EXCEEDED. THE NUMBER OF 3-DIMEN4F1D4750 


1*505 


000000000001 






14506 


606060606060 






1450? 


243144036063 






14510 


212243256025 






14511 


672325252425 






14512 


243360633025 






14513 


604564442225 






14514 


516046266003 






14515 


402431442545 






14516 


623146452143 




BCD SIGNAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4760 


14517 


606521513121 






14520 


224325626066 






14521 


303123306021 






14522 


474725215160 






14523 


314560243144 






14524 


254562314645 






14525 


606263216325 






14526 


442545636260 






14527 


256723252524 






14530 


626011003360 




BCD IS 90. 4F1D4770 

4F1D4780 


14531 


676767676767 




BCD XXXXXX000002 DIM2 TABLE EXCEEDED. THE NUMBER OF 2-DIMEN4F1D4790 


14532 


000000000002 






14533 


606Q60606060 






14534 


243144026063 






14535 


212243256025 






14536 


672325252425 






14537 


243360633025 






14540 


604564442225 






14541 


516046266002 







/#- 



o 



o 



14542 


402431442545 


14543 


623146452143 


14544 


606521513121 


14545 


224325626066 


14546 


303123306021 


14547 


474725215160 


14550 


314560243144 


14551 


254562314645 


14552 


606263216325 


14553 


442545636260 


14554 


256723252524 


14555 


626001000033 


14556 


676767676767 


14557 


000000000003 


14560 


606060606060 


14561 


243144016063 


14562 


212243256025 


14563 


672325252425 


14564 


243360633025 


14565 


604564442225 


14566 


516046266001 


14567 


402431442545 


14570 


623146452143 


14571 


606521513121 


14572 


224325626066 


14573 


303123306021 


14574 


474725215160 


14575 


314560243144 


14576 


254562314645 


14577 


606263216325 


14600 


442545636260 


14601 


256723252524 


14602 


626001000033 


14603 


676767676767 


14604 


000000000004 


14605 


606060606060 


14606 


623127442160 


14607 


632122432560 


14610 


256723252524 


14611 


252433604446 


14612 


512560633021 


14613 


456003006024 


14614 


312626255125 


14615 


456360512543 


14616 


216331652560 


14617 


212424512562 


14620 


622562605125 


14621 


626443633145 


14622 


276026514644 


14623 


606330256021 


14624 


242425452462 


14625 


603145606264 



BCD SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4800 



BCD IS 100. 

BCD XXXXXX000003 



4F1D4810 

4F1D4820 

DIM1 TABLE EXCEEDED. THE NUMBER OF 1-DIMEN4F1D4830 



BCD SIONAL VARIABLES WHICH APPEAR IN DIMENSION STATEMENTS EXCEED4F1D4840 



BCD IS 100. 4F1D4850 

4FID4860 
BCD XXXXXX000004 SIGMA TABLE EXCEEDED. MORE THAN 30 DIFFERE4F1D4870 



BCD NT RELATIVE ADDRESSES RESULTING FROM THE ADDENDS IN SUBSCRIP4F1D4880 



t& 



2. V 



14626 226223513147 

14627 636260462660 

14630 633031626062 

14631 632163254425 

14632 456333607462 

14633 312745602346 

14634 456231242551 

14635 252473604645 

14636 256051254321 

14637 633165256021 

14640 242451256262 

14641 462660006021 

14642 626264444425 

14643 243460606060 

14644 676767676767 

14645 000000000005 

14646 606060606060 

14647 632164036063 

14650 212243256025 

14651 672325252425 

14652 243360633025 

14653 606346632143 

14654 316370604626 

14655 602431262625 

14656 512545636003 

14657 402431442545 

14660 623146452143 

14661 606264226223 

14662 513147636023 

14663 464422314521 

14664 633146456260 

14665 256723252524 

14666 626007056026 

14667 465160633031 

14670 626047514627 

14671 512144336060 

14672 676767676767 

14673 000000000006 

14674 606060606060 

14675 632164026063 

14676 212243256025 

14677 672325252425 

14700 243360633025 

14701 606346632143 

14702 316370604626 

14703 602431262625 

14704 512545636002 

14705 402431442545 

14706 623146452143 

14707 606264226223 

14710 513147636023 

14711 464422314521 



BCD TS OF THIS STATEMENT, (SIGN CONSIDERED* ONE RELATIVE ADDRESS4F1D4890 



BCD 30F ASSUMMED) 



BCD XXXXXX000005 - 



4F1D4900 



4F1D4910 
TAU3 TABLE EXCEEDED* THE TOTALITY OF DIFFE4F1D4920 



BCD RENT 3-DIMENSIONAL SUBSCRIPT COMBINATIONS EXCEEDS 75 FOR THI4F1D4930 



BCD 2S PROGRAM. 



BCD XXXXXX000006 



4F1D4940 

4F1D4950 
TAU2 TABLE EXCEEDED. THE TOTALITY OF DIFFE4F1D4960 



BCD RENT 2-DIMENSIONAL SUBSCRIPT COMBINATIONS EXCEEDS 90 FOR THI4F1D4970 



/sy 



u 



O 



o 



o 



14712 


633146*56260 


14713 


25672325252* 


14714 


626011006026 


14715 


465160633031 


14716 


6260*751*627 


14717 


5121**336060 


14720 


676767676767 


14721 


000000000007 


14722 


606060606060 


14723 


63216*016063 


14724 


2122*3256025 


14725 


672325252*25 


14726 


2*3360633025 


14727 


6063*66321*3 


14730 


31637060*626 


14731 


602*31262625 


14732 


5125*5636001 


14733 


*02*31**25*5 


14734 


6231*6*521*3 


14735 


60626*226223 


14736 


5131*7636023 


14737 


*6**2231*521 


14740 


6331*6*56260 


1*741 


25672325252* 


14742 


626001000060 


14743 


264651606330 


14744 


316260*751*6 


1*745 


275121**3360 


14746 


676767676767 


147*7 


000000000100 


14750 


6060606C6060 


14751 


26*3*623*6*5 


14752 


60632122*325 


14753 


602567232525 


1475* 


2*252*3360** 


14755 


*65125606330 


14756 


2163600*0500 


14757 


602*31262625 


14760 


25*5636026*3 


14761 


46216331*527 


14762 


60*7*631*563 


14763 


6023*6*56263 


14764 


21*563626031 


14765 


*56063303162 


14766 


60*751*622*3 


14767 


25**33607*62 


1*770 


3127*560*5*6 


14771 


636023*6*562 


14772 


312*2551252* 


14773 


3*6060606060 


14774 


676767676767 



BCD 2S PROGRAM. 



BCD XXXXXXQ00O07 



*F1D*980 

*F1D*990 
TAU1 TABLE EXCEEDED. THE TOTALITY OF DIFFE*F1D5000 



BCD RENT 1-DIMENSIONAL SUBSCRIPT COMBINATIONS EXCEEDS 100 FOR TH*F1D5010 



BCD 21 S PROGRAM. 



BCO XXXXXX000010 



*F1D5020 

*F1D5030 
FLOCON TABLE EXCEEDED. MORE THAT *50 DIFFE*F1D50*0 



BCD RENT FLOATING POINT CONSTANTS IN THIS PROBLEM. (SIGN NOT CONS*F1D5050 



BCD 2 IDE RED) 



BCD XXXXXX000011 



4F1D5060 

*F1D507Q 
FIXCON TABLE EXCEEDED. MORE THAN 100 DIFFE*F1D5080 



/& 



14775 000000000101 

14776 606060606060 

14777 263167234645 

15000 606321224325 

15001 602567232525 

15002 24-2524336044 

15003 465125606330 

15004 214560010000 

15005 602431262625 

15006 512545636026 

15007 316725246047 

15010 463145636023 

15011 464562632145 

15012 636260314560 

15013 633031626047 

15014 514627512144 

15015 336074623127 

15016 456045466360 

15017 234645623124 

15020 255125243460 

15021 676767676767 

15022 000001060305 

15023 606060606060 

15024 444651256063 

15025 302145606231 

15026 676023302151 

15027 212363255162 

15030 603145606246 

15031 442560627044 

15032 224643336060 

15033 676767676767 

15034 000001060403 

15035 606060606060 

15036 314343252721 

15037 436047644523 
15040 636421633146 
15Q41 456031456063 

15042 303162606263 

15043 216325442545 

15044 633360606060 

15045 676767676767 

15046 000002000304 

15047 606060606060 

15050 442123303145 

15051 256025515146 

15052 513360232162 

15053 602346456351 

15054 212431236362 

15055 604751256531 

15056 466462606343 

15057 503360606060 



BCD RENT FIXED POINT CONSTANTS IN THIS PROGRAM. (SIGN NOT CONSID4F1D5090 



BCD IEREDJ 



4F1D5100 
4F1D5110 
BCD XXXXXX001635 MORE THAN SIX CHARACTERS IN SOME SYMBOL. 4F1D5120 



BCD XXXXXX001643 



4F1D5130 
ILLEGAL PUNCTUATION IN THIS STATEMENT. 4F1D5140 



BCD XXXXXX002034 



4F1D5150 
MACHINE ERROR. CAS CONTRADICTS PREVIOUS TL4F1D5160 



BCD 1Q. 



4F1D5170 



/?L 



u 



o 



o 



n 



15060 


676767676767 


BCO 


XXXXXX002062 


15061 


000002000652 






15062 


606060606060 






15063 


512547252163 






15064 


252460233025 






15065 


234260626444 






15066 


602551514651 






15067 


603145605125 






15070 


212431452760 






15071 


245164446003 






15072 


336060606060 


BCD 


1* 


15073 


676767676767 


BCD 


XXXXXX002266 


15074 


000002020606 






15075 


606060606060 






15076 


442123303145 






15077 


256025515146 






15100 


513360314524 






15101 


256760262131 






15102 


436451253360 






15103 


606060606060 






15104 


606060606060 






15105 


676767676767 


BCD 


XXXXXX002433 


15106 


000002040303 






15107 


606060606060 






15110 


512547252163 






15111 


252460262131 






15112 


436451256031 






15113 


45605125212* 






15114 


314527606263 






15115 


216325602360 






15116 


265146446024 






15117 


516444600433 


BCD 


2RUM 4* 


15120 


606060606060 






15121 


676767676767 


BCD 


XXXXXX002434 


15122 


000002040304 






15123 


606060606060 






15124 


512547252163 






15125 


252460262131 






15126 


436451256031 






15127 


456051252124 






15130 


314527606263 






15131 


216325602260 






15132 


265146446024 






15133 


516444600333 


BCD 


2RUM 3* 


15134 


606060606060 






15135 


676767676767 


BCD 


XXXXXX002435 


15136 


000002040305 






15137 
15140 


606060606060 
512547252163 







4F1D5180 
REPEATED CHECK SUM ERROR IN READING DRUM 34F1D5190 



MACHINE ERROR* INDEX FAILURE* 



4F1D5200 
4F1D5210 
4F1D5220 



4F1D5230 
REPEATED FAILURE IN READING STATE C FROM D4F1D5240 



4F1D525Q 

4F1D5260 
REPEATED FAILURE IN READING STATE B FROM D4F1D5270 



4F1D5280 

4F1D5290 
REPEATED FAILURE IN READING STATE D FROM D4F1D5300 



1ST 



I V 



15141 252460262131 

15142 436451256031 

15143 456051252124 

15144 314527606263 

15145 214325602460 

15146 265146446024 

15147 516444600233 

15150 606060606060 

15151 676767676767 

15152 000002040306 

15153 606060606060 

15154 512547252163 

15155 252460262131 

15156 436451256031 

15157 456051252124 

15160 314527606263 

15161 216325602160 

15162 265146446024 

15163 516444600133 

15164 606060606060 

15165 676767676767 

15166 000002050203 

15167 606060606060 

15170 442123303145 

15171 256025515146 

15172 513360314524 

15173 256760262131 
1*174 436451253360 

15175 606060606060 

15176 606060606060 

15177 676767676767 

15200 000002050605 

15201 606060606060 

15202 512547252163 

15203 252460233025 

15204 234260626444 

15205 602551514651 

15206 603145605125 

15207 212431452760 

15210 632122432562 

15211 265146446024 

15212 516444600273 

15213 600360465160 

15214 043360606060 

15215 676767676767 

15216 000002050707 

15217 606060606060 

15220 454645404564 

15221 442551312360 

15222 233021512123 



SCO 2RUM 2* 



4F1D5310 



4F1D5320 
BCD XXXXXX002436 REPEATED FAILURE IN READING STATE A FROM D4F1D5330 



BCD 2RUM 1« 



BCD XXXXXX002523 MACHINE ERROR. INDEX FAILURE. 



4F1D5340 

4F1D5350 

4F105360 



BCD XXXXXX002565 



4F1D5370 
REPEATED CHECK SUM ERROR IN READING TABLES4F1D5380 



BCD 4FR0M DRUM 2» 3 OR 4. 



4F1D5390 



BCD XXXXXXO02577 



4F105400 

NON-NUMERIC CHARACTER IN NUMERIC FIELD OR 4F1D5410 



t£« 



o 



u 



n 



n 



15223 


632551603145 


15224 


604564442551 


15225 


312360263125 


15226 


432460465160 


15227 


474662623122 


15230 


432560443162 


15231 


623145276047 


15232 


644523636421 


15233 


633146456022 


15234 


256366252545 


15235 


602631254324 


15236 


623360606060 


15237 


676767676767 


15240 


000002060506 


15241 


606060606060 


15242 


216062642262 


15243 


235131476360 


15244 


316260454663 


15245 


602160263167 


15246 


252460474631 


15247 


456360652151 


15250 


312122432533 


15251 


676767676767 


15252 


000002060606 


15253 


606060606060 


15254 


216062642262 


15255 


235131476360 


15256 


302162602160 


15257 


244664224325 


15260 


604464436331 


15261 


474331255133 


15262 


606060606060 


15263 


676767676767 


15264 


000002060703 


15265 


OvvvvvuvOvOv 


15266 


216062642262 


15267 


235131476360 


15270 


446443633147 


15271 


433125516031 


15272 


626045466360 


15273 


216023464562 


15274 


632145633360 


15275 


676767676767 


15276 


000002070200 


15277 


606060606060 


15300 


444651256063 


15301 


302145606231 


15302 


676023302151 


15303 


212363255162 


15304 


603145602160 



BCD 8P0SSIBLE MISSING PUNCTUATION BETWEEN FIELDS. 



4F1D5420 



BCD XXXXXX002656 



4F1D5430 
A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5440 



BCD XXXXXX002666 A SUBSCRIPT HAS A DOUBLE MULTIPLIER. 



4F1D5450 
4F1D5460 



BCD XXXXXX002673 



4F1D5470 
A SUBSCRIPT MULTIPLIER IS NOT A CONSTANT. 4F1D5480 



BCD XXXXXX002720 



4F1D5490 
MORE THAN SIX CHARACTERS IN A SYMBOL WITHI4F1D5500 



//* 



I V 



15305 
15306 
15307 
15310 
15311 
15312 
15313 
15314 
15315 
15316 

15317 
15320 
15321 
15322 
15323 
15324 
15325 
15326 
15327 
15330 
15331 
15332 

15333 
15334 
15335 
15336 
15337 
15340 
15341 
15342 
15343 

15344 
15345 
15346 
15347 
15350 
15351 
15352 
15353 
15354 
15355 

15356 
15357 
15360 
15361 
15362 
15363 
15364 
15365 



627044224643 
606631633031 
456021606264 
226223513147 
636046516047 
466262312243 
256044316262 
314527604764 
452363642163 
314645336060 

676767676767 
000002070202 
606060606060 
633025512560 
316260214560 
314343252721 
436023302151 
212363255160 
314560624644 
256062642262 
622351314763 
336060606060 

676767676767 
000002070401 
606060606060 
216062642262 
235131476360 
302162602160 
244664224325 
602124242545 
243360606060 

676767676767 
000002070404 
606060606060 
216062642262 
2351314 76360 
316260454663 
602160263167 
252460474631 
456360652151 
312122432533 

676767676767 
000002070604 
606060606060 
216062642262 
235131476360 
316260454663 
602160263167 
252460474631 
>52151 



BCD 6N A SUBSCRIPT OR POSSIBLE MISSING PUNCTUATION* 



4F1D5510 



BCD XXXXXX002722 



4F1D5520 
THERE IS AN ILLEGAL CHARACTER IN SOME SUBS4F10553O 



BCD 2SCRIPT. 



BCD 9XXXXXX002741 



A SUBSCRIPT HAS A DOUBLE ADDEND. 



4F1D5540 

4F1D5550 
4F1D556G 



BCD XXXXXX002744 



4F1D5570 
A SUBSCRIPT IS NOT A FIXED POINT VARIABLE.4F1D5580 



BCD XXXXXX0C2764 



4F1D5590 

A SUBSCRIPT IS NOT A FIXED POINT VARXABLE»4F1D56G0 



J0 



o 



o 



15367 312122432533 

15370 676767676767 

15371 000003000203 

15372 606060606060 

15373 216062642262 

15374 235131476360 

15375 212424254524 

15376 603162604546 

15377 636021602346 

15400 456263214563 

15401 336060606060 

15402 676767676767 

15403 000003000206 

15404 606060606060 

15405 633025512560 

15406 316260216047 

15407 215125456330 

15410 256231626044 

15411 316262314527 

15412 603145606246 

15413 442560626422 

15414 622351314763 

15415 602346442231 

15416 452163314645 

15417 336060606060 

15420 676767676767 

15421 000003000604 

15422 606060606060 

15423 216003602431 

15424 442545623146 

15425 452143606264 

15426 226223513147 

15427 632524606521 

15430 513121224325 

15431 602446256260 

15432 454663603021 

15433 65256Q216024 

15434 314425456231 

15435 464560626321 

15436 632544254563 

15437 602545635170 

15440 336060606060 

15441 676767676767 

15442 000003010501 

15443 606Q60606060 

15444 216002602431 

15445 442545623146 

15446 452143606264 

15447 226223513147 
15450 632524606521 



BCD XXXXXX003023 



A SUBSCRIPT ADDEND IS NOT A CONSTANT. 



4F1D5610 
4F1D5620 



BCD XXXXXX003026 



4F105630 
THERE IS A PARENTHESIS MISSING IN SOME SUB4F1D5640 



BCD 4SCRIPT COMBINATION* 



4F1D5650 



BCD XXXXXX003064 



4F1D5660 
A 3 DIMENSIONAL SUBSCRIPTED VARIABLE DOES 4F1D5670 



BCD 7NOT HAVE A DIMENSION STATEMENT ENTRY, 



4F1D5680 



BCD XXXXXX003151 



4F1D5690 
A 2 DIMENSIONAL SUBSCRIPTED VARIABLE DOES 4F1D570O 



/«/ 



Z. V 



15451 


513121224325 






15452 


602446256260 






15453 


454663603021 


BCD 


7N0T HAVE A 


15454 


652560216024 






15455 


314425456231 






15456 


464560626321 






15457 


632544254563 






15460 


602545635170 






15461 


336060606060 






15462 


676767676767 


BCD 


XXXXXX003254 


15463 


000003020504 






15464 


606060606060 






15465 


475146275121 






15466 


446025674725 






15467 


236362602346 






15470 


44442160465L 






15471 


602545246046 






15472 


266062632163 






15473 


254425456333 






15474 


676767676767 


BCO 


XXXXXX003262 


15475 


000003020602 






15476 


606060606060 






15477 


475146275121 






15500 


446025674725 






15501 


236362602346 






15502 


444421604651 






15503 


605131273063 






15504 


604721512545 






15505 


633025623162 






15506 


336060606060 


BCD 


1. 


15507 


676767676767 


BCO 


XXXXXX003270 


15510 


000003020700 






15511 


606060606060 






15512 


475146275121 






15513 


446025674725 






15514 


236362604325 






155*5 


266360472451 






15516 


254563302562 






15517 


316260465160 






15520 


254524604626 






15521 


606263216325 


BCO 


2 STATEMENT. 


15522 


442545633360 






15523 


676767676767 


BCO 


XXXXXX003272 


15524 


000003020702 






15525 


606060606060 






15526 


442123303145 






15527 


256025515146 






15530 


513360212360 






15531 


275125216325 






_15532 


_51 6063302145 







4F 105710 



4F1D5720 
PROGRAM EXPECTS COMMA OR END OF STATEMENT. 4F1D5730 



4F1D5740 
PROGRAM EXPECTS COMMA OR RIGHT PARENTHESIS4F1D5750 



4F105760 

4F1D5770 

PROGRAM EXPECTS LEFT PARENTHESIS OR END 0F4F1D5780 



4F1D5790 

4F1D5800 
MACHINE ERROR. AC GREATER THAN OCTAL 77» 4F1D5810 



A* 



U 



U 



J 



o 



o 



15533 604623632143 

15534 600707336060 



15535 


676767676767 


15536 


000003020704 


15537 


606060606060 


15540 


475146275121 


15541 


446025674725 


15542 


236362602545 


15543 


246046266062 


15544 


632163254425 


15545 


456333606060 


15546 


676767676767 


15547 


000003030000 


15550 


606060606060 


15551 


475146275121 


15552 


446025674725 


15553 


236362604325 


15554 


266360472151 


15555 


254563302562 


15556 


316233606060 


15557 


676767676767 


15560 


000003030004 


15561 


606060606060 


15562 


475146275121 


15563 


446025674725 


15564 


236362605131 


15565 


273063604721 


15566 


512545633025 


15567 


623162336060 


15570 


676767676767 


155T1 


000003030100 


15572 


606060606060 


15573 


475146275121 


15574 


446025674725 


15575 


236362602346 


15576 


444421336060 


15577 


676767676767 


15600 


000003030104 


15601 


606060606060 


15602 


627044224643 


15603 


602225273145 


15604 


626045644425 


15605 


513123606630 


15606 


312330603162 


15607 


603143432527 


15610 


214360314560 


15611 


633031626023 


15612 


464563256763 


15613 ^336060606060 



BCO 9XXXXXX003274 



PROGRAM EXPECTS END OF STATEMENT. 



4F105820 
4F1D5830 



BCO 9XXXXXXO03300 



PROGRAM EXPECTS LEFT PARENTHESIS. 



4F1D5840 
4F1D5850 



BCO 9XXXXXX003304 



PROGRAM EXPECTS RIGHT PARENTHESIS. 



4F1D5860 
4F1D5870 



BCD 7XXXXXX003310 



PROGRAM EXPECTS COMMA* 



4F1D5880 
4F1D5890 



BCD XXXXXX003314 



4F1D5900 
SYMBOL BEGINS NUMERIC WHICH IS ILLEGAL IN 4F1D5910 



BCD 3THIS CONTEXT. 



4F1D5920 



Jit 



t ¥ 



15614 


676767676767 


15*15 


000003030106 


15616 


606060606060 


15617 


627044224643 


1562a 


602225273145 


15621 


626045464540 


15622 


456444255131 


15623 


236066303123 


1562* 


306031626031 


15625 


434325272143 


15626 


603145606330 


15627 


316260234645 


1563 CL 


632567633360 


15631 


676767676767 


15632 


000003050402 


15633 


606060606060 


15634 


633025602330 


15635 


215121236325 


15636 


516060 536G60 


15637 


462323645162 


15640 


6Q3145606330 


15641 


316260626321 


15642 


632544254563 


15643 


606246442566 


15644 


302551256046 


15645 


633025516063 


15646 


302145603145 


15647 


603046434325^ 


15650 


513163306063 


15651 


256763336060 


15652 


606060606060 


15653 


676767676767 


15654 


000003050405 


15655^ 


606060606060 


15656 


633025603143 


15657 


432527214360 


15660 


233021512123 


15661 


632551607260 


15662 


607400401040 


15663 


026047644523 


15664 


303460462323 


15665 


645162603145 


15666 


606330316260 


15667 


626321632544 


15670 


254563336060 


15671 


676767676767 


15672 


000003050500 


15673 


606060606060 



BCD XXXXXXOQ3316 



4F1D5930 
SYMBOL BEGINS NON-NUMERIC WHICH IS ILLEGAL4F1D5940 



BC& 3 IK THrS CONTEXT* 

STATE A 
BCD XXXXXX003542 



4P1D5950 



4F1D5960 

4F1D5970 

4F10598O 

THE CHARACTER * OCCURS IN THIS STATEMENT4F1D5990 



BCD 6 SOMEWHERE OTHER THAN IN HOLLERITH TEXT. 



4F1D6000 



4F1D6010 



BCD -XXXXXX9?35A5 TK£" ILLEGAL CHARACTER 



»W li"""* * W>**»*»« C^C-i 



BCD 4URS IK THIS STATEMENTt 



4F 106030 



BCD XXXXXXQ03550 



4F1D6040 

THE ILLEGAL CHARACTER -0 iil-8-2 PUNCH) 4F1D6050 



-AV 



U 



u. 



o 



o 



15674 


633025603143 


1*675 


432527214360 


15676 


233021512123 


15677 


632551604000 


15700 


607401014010 


15701 


400260476445 


15702 


233034604660 


15703 


232364516260 


15704 


314560633031 


15705 


626062632163 


15706 


254425456333 


15707 


676767676767 


15710 


OO0OO30505O3 


15711 


606060606060 


15712 


633025603143 


15713 


432527214360 


15714 


233021512123 


15715 


632551602000 


15716 


607401024010 


15717 


400260476445 


15720 


233034604660 


15721 


232364516260 


15722 


314560633031 


15723 


626062632163 


15724 


2544254*6333 


15725 


676767676767 


15726 


000003050506 


15727 


606060606060 


15730 


633025603143 


15731 


432527214360 


15732 


233021512123 


15733 


632551604060 


15734 


7410400460*7 


15735 


644523303460 


15736 


462323645160 


1S737 


626031456063 


15740 


303162606263 


15741 


216325442545 


15742 


633360606060 


15743 


676767676767 


15744 


000003050601 


15745 


606060606060 


15746 


633025604546 


15747 


456022232460 


15750 


233021512123 


15751 


632551600000 


15752 


010001006030 


15753 


216260222525 


15754 


456051256060 


15755 


212460265146 


15756 


446063214725 



BCD 4CCURS IN THIS STATEMENT. 



4F1D6060 



BCD XXXXXX003553 



4F1D6070 
THE ILLE6AL CHARACTER +0 < 12-8-2 PUNCH! 4F1D6080 



BCD 4CCURS IN THIS STATEMENT. 



BCD XXXXXX003556 THE 1LLE6AL CHARACTER - 



4F1D6090 



4F1D6100 
(8-4 PUNCH) OCCUR 4F1D6110 



BCD 4S IN THIS STATEMENT. 



4F1D6120 



BCD XXXXXX003561 



4F1D6130 
THE NON BCD CHARACTER 001010 HAS BEEN RE 4F1D6140 



BCD SAD FROM TAPE WHILE PROCESSING THIS STATEMENT. 



4F1D6150 



/* S 



/ 



3 2.V 



15757 


606630314325 


15760 


604751462325 


15761 


626231452760 


15762" 


633031626062 


15763> 


632163254425 


15764 


456353606060 


15765 


67676 7676767 


15766 


000003060105 


15767 


606060606060 


15770 


634646604421 


15771 


457060513127 


15772 


306360472X51 


15773 


254563302562 


15774 


316233606060 


15775 


676767676767 


15776 


000003060204 


15777 


606060606060 


16006 


454645402151 


16001 


316330442563 


16002 


312360626321 


16003 


632544254563 


16004 


604626602160 


16O05 


637047256066 


160Q6 


303123306031 


16007 


626045466360 


16010 


314560243123 


16011 


633146452151 


16012 


703360606060 


16013 


676767676767 


16014 


000004000505 


16015 


606060606060 


16016 


634646602625 


16017 


666051312730 


1602O 


636047215125 


16021 


456330256231 


16022 


62336Q60fi0fi0 


16023 


606060606060 


16024 


606060606060 


16025 


676767676767 


16026 


000004020205 


16027 


606060606060 


16030 


475146275121 


16031 


446025674725 


16032 


236362606346 


16033 


603360606060 


16034 


676767676767 


16035 


000004030004 


16036 


606060606060 


16037 


J16065215131 



BCD 8XXXXXX003&15 TOO HANY RIGHT PARENTHESIS* 



4F1D6160 

4F1D6170 



BCD XXXXXX003624 



4F106180 
NON-ARITHMETIC STATEMENT ©F A TYPE WHICH I4F1D6190 



BCD 45 NOT IN DICTIONARY* 



SCO XXXXXXOQ4055 T0& FEW RIGHT PARENTHESIS. 



4F1D6200 



4F106210 
4F1O6220 



BCD 7XXXXXX004225 PROGRAM EXPECTS TO 8 



4F1D4230 

4F1D6240 



SCO XXXXXX0C43O4 



4F1B6250 

A VARIABLE IN THIS LIST APPEARED PREVI0USL4FID62&0 



M 



o 



u 



o 



o 



16040 


212243256031 


16041 


456063303162 


16042 


604331626360 


16043 


214747252151 


16044 


252460475125 


16045 


653146646243 


16046 


706031456021 


16047 


602431442545 


16050 


623146456062 


16051 


632163254425 


16052 


456333606060 


16053 


676767676767 


16054 


000004030203 


16055 


606060606060 


16056 


444651256063 


16057 


302145600360 


16060 


243144254562 


16061 


314645626046 


16062 


516044316262 


16063 


314527605131 


16064 


273063604721 


16065 


512545633025 


16066 


623162336060 


16067 


676767676767 


16070 


000004040404 


16071 


606060606060 


16072 


216062642251 


16073 


466463314525 


16074 


604651602664 


16075 


452363314645 


16076 


606263216325 


16077 


442545636021 


16100 


474725215162 


16101 


432163255160 


16102 


633021456063 


16103 


302560263151 


16104 


626360626321 


16105 


632544254563 


16106 


604626606330 


16107 


256047514627 


16110 


512144336047 


16111 


514622212243 


16112 


706021636325 


16113 


444763606060 


16114 


634660222163 


16115 


233060234644 


16116 


473143256066 


16117 


316330466463 


16120 


606225456225 


16121 


606266316323 


16122 


306006602446 


JL61-23 


664533606060 



BCD 5Y IN A DIMENSION STATEMENT. 



4F1D6270 



BCD XXXXXX004323 



4F1D6280 
MORE THAN 3 DIMENSIONS OR MISSING RIGHT PA4F1D6290 



BCD 2RENTHESIS* 



BCD XXXXXX004444 



4F1D6300 

4F1D6310 
A SUBROUTINE OR FUNCTION STATEMENT APPEARS4F1D6320 



BCD LATER THAN THE FIRST STATEMENT OF THE PROGRAM. PROBABLY ATTE4F1D6330 



BCD MPT TO BATCH COMPILE WITHOUT SENSE SWITCH 6 DOWN. 



4F1D6340 



/*; 



16124 


606060606060 


16125 


676767676767 


16126 


000004050404 


16127 


606060606060 


16130 


216051256364 


16131 


514560626321 


16132 


632544254563 


16133 


603021626046 


16134 


232364515125 


16135 


246031456021 


16136 


604751462751 


16137 


214460454663 


16140 


602425263145 


16141 


252460634660 


16142 


222560216062 


16143 


642251466463 


16144 


314525604651 


16145 


602664452363 


16146 


314645606264 


16147 


224751462751 


16150 


214433606060 


16151 


676767676767 


16152 


000004060603 


16153 


606060606060 


16154 


622545622560 


16155 


626631632330 


16156 


606225636331 


16157 


452760466330 


16160 


255160633021 


16161 


456000730160 


16162 


465160026060 


16163 


465160444651 


16164 


256063302145 


16165 


600560622563 


16166 


633145276260 


16167 


465160665146 


16170 


452760264651 


1(6 Tl 71 


442163336060 


16172 


676767676767 


16173 


000004070005 


16174 


606060606060 


16175 


652151312122 


16176 


432560264651 


16177 


442163604564 


16200 


44222551336Q 


16201 


606060606060 


16202 


676767676767 


16203 


000004070007 


16204 


606060606060 


J6205 


454660264651 



BCD XXXXXXQ04544 



4F106350 
A RETURN STATEMENT HAS OCCURRED IN A PR0GR4F1D6360 



BCD AM NOT DEFINED TO BE A SUBROUTINE OR FUNCTION SUBPROGRAM. 4F1D6370 



BCD XXXXXX004663 



4F1D6380 
SENSE SWITCH SETTING OTHER THAN 0*1 OR 2 4F1D6390 



SCO 70S MORE THAN 5 SETTINGS OR WRONG FORMAT. 



4F106400 



BCD SXXXXXX0Q47O5 VARIABLE FORMAT NUMBER* 



4F1D6410 

4F1D6420 



BCD 6XXXXXX004707 



NO FORMAT NUMBER • 



4F106430 

4F1D644G 



ft! 



u 



o 



o 



16206 


442163604564 


16207 


442225513360 


16210 


676767676767 


16211 


000005010700 


16212 


606060606060 


16213 


444651256063 


16214 


302145606231 


16215 


676023302151 


16216 


212363255162 


16217 


603145606246 


16220 


442560627044 


16221 


224643336060 


16222 


676767676767 


16223 


000005020000 


16224 


606060606060 


16225 


314343252721 


16226 


436023302151 


16227 


212363255160 


16230 


314560633031 


16231 


626043316263 


16232 


336060606060 


16233 


606060606060 


16234 


676767676767 


36235 


000005020600 


16236 


606060606060 


16237 


444651256063 


16240 


302145606330 


16241 


512525604325 


16242 


652543626031 


16243 


456063303162 


16244 


6Q4331626360 


16245 


744525626325 


16246 


246047215125 


16247 


456330256231 


16250 


623433606060 


16251 


676767676767 


16252 


000005020603 


16253 


606060606060 


16254 


216363254447 


16255 


636063466062 


16256 


47252331267Q 


16257 


606264226223 


16260 


513147636051 


16261 


214527256066 


16262 


316330466060 


16263 


646360646225 


16264 


604626604721 


16265 


512545633025 


16266 


623162336060 



BCD XXXXXX005170 



4F1D6450 
MORE THAN SIX CHARACTERS IN SOME SYMBOL. 4F106460 



BCD XXXXXX005200 



ILLEGAL CHARACTER IN THIS LIST* 



4F1D6470 
4F 106480 



BCD XXXXXX005260 



4F1D6490 
MORE THAN THREE LEVELS IN THIS LIST (NESTE4F1D6500 



BCD 3D PARENTHESIS). 



BCD XXXXXX005263 



4F1D6510 



4F1D6520 
ATTEMPT TO SPECIFY SUBSCRIPT RANGE WI THO 4F1D6530 



BCD 4UT USE OF PARENTHESIS, 



4F1D6540 



4F1D6350 



*1 



zv 




16267 


676767676767 


16270 


000005030005 


16271 


606060606060 


16272 


314523464447 


16273 


432563256062 


16274 


632163254425 


16275 


456360465160 


16276 


314523464447 


16277 


43256S256023 


16300 


434662645125 


16301 


462660472151 


16302 


254563302562 


16303 


316233606060 


16304 


676767676767 


16305 


000005030006 


16306 


606060606060 


16307 


314343252721 


16310 


436023302151 


16311 


212363255160 


16312 


31456024466Q 


16313 


624725233126 


16314 


31232163?146 


16315 


456031456043 


16316 


316263336060 


16317 


676767676767 


16320 


000005040001 


16321 


606060606060 


16322 


634646604421 


16323 


457060513127 


16324 


306360472151 


16325 


254563302562 


16326 


316233606060 


16327 


676767676767 


16330 


000005040106 


16331 


606060606060 


16332 


234645626321 


16333 


456360314560 


16334 


433162633360 


16335 


676767676767 


16336 


000005050502 


16337 


606060606060 


16340 


634646604421 


16341 


457060432526 


16342 


636047215125 


16343 


456330256231 


16344 


623360606060 


16345 


676767676767 


16346 


000005060007 


J6347 


606060606060 







BCD XXXXXX005305 



INCOMPLETE STATEMENT OR INCOMPLETE CL0SURE4F1D6560 



BCD 30F PARENTHESIS* 



SCO XXXXXX0C5306 



4F1D6570 



4F1D6580 

ILLEGAL CHARACTER IN DO SPECIFICATION IN L4F1D6590 



BCD II ST. 

BCD 8XXXXXX005401 TOO MANY RIGHT PARENTHESIS. 



4F1D6600 
4F1D6610 

4F1D6620 



BCD 6XXXXXX005416 CONSTANT IN LIST. 



BCD 8XXXXXX005552 TOO MANY LEFT PARENTHESIS. 



4F1D6630 
4F1D6640 



4F1D6650 
4F1D6660 



8CD XXXXXXO05607 



ILLEGAL CHARACTER IN THIS STATEMENT. 



4F1D6670 
4F1D6680 



no 



o 



o 



o 



26350 


314343252721 


16351 


436023302151 


16352 


212363255160 


16353 


314560633031 


16354 


626062632163 


16355 


254425456333 


16356 


606060606060 


16357 


676767676767 


16360 


000005070105 


16361 


606060606060 


16362 


216063214725 


16363 


602330252342 


16364 


603021626046 


16365 


232364515125 


16366 


246063305125 


16367 


256063314425 


16370 


626031456021 


16371 


636325444763 


16372 


314527606346 


16373 


605125212460 


16374 


216051252346 


16375 


512460462660 


16376 


633025606246 


16377 


645123256047 


16400 


514627512144 


16401 


602651464460 


16402 


632147256002 


16403 


336021636325 


16404 


444763606346 


16405 


605125212460 


16406 


212221452446 


16407 


452524336063 


16410 


302560626321 


16411 


632544254563 


16412 


6031*5654643 


16413 


652524603162 


16414 


604546636047 


16415 


514623256262 


16416 


252433603126 


16417 


606330256051 


16420 


252346512460 


16421 


662162604546 


16422 


636063302560 


16423 


432162636051 


16424 


252346512460 


16425 


462660216062 


16426 


632163254425 


16427 


456360633025 


16430 


602646434346 


16431 


663145276024 


16432 


312127454662 


16433 


633123602346 


16434 


444425456360 



BCD XXXXXX005715 



4F1D6690 
A TAPE CHECK HAS OCCURRED THREE TIMES IN A4F1D6700 



BCD TTEMPTING TO READ A RECORD OF THE SOURCE PROGRAM FROM TAPE 24F1D6710 



BCD • ATTEMPT TO READ ABANDONED. THE STATEMENT INVOLVED IS NOT P4F1D6720 



BCD ROCESSED. IF THE RECORD WAS NOT THE LAST RECORD OF A STATEME4F1D6730 



BCD NT THE FOLLOWING DIAGNOSTIC COMMENT IS MEANINGLESS AND WAS C4F1D6740 



IV 



1Z. V 



16435 


316260442521 


16436 


453145274325 


16437 


626260214524 


16440 


606621626023 


16441 


216462252460 


16442 


227060214560 


16443 


216363254447 


16444 


636063466047 


16445 


514623256262 


16446 


602160472151 


16447 


633121436062 


16450 


632163254425 


16451 


456333606060 


16452 


606060606060 


16453 


676767676767 


16454 


000006000402 


16455 


606060606060 


16456 


314343252721 


16457 


436064622560 


16460 


462660264346 


16461 


216331452760 


16462 


474631456360 


16463 


652151312122 


16464 


432533606060 


16465 


676767676767 


16466 


000003050207 


16467 


606060606060 


16470 


634646604421 


16471 


457060233021 


16472 


512123632551 


16473 


626031456062 


16474 


704422464333 


16475 


676767676767 


16476 


OOOQ03060002 


16477 


606060606060 


16500 


314343252721 


16501 


436064622560 


16502 


462660603360 


16503 


602330215121 


16504 


236325513360 


16505 


676767676767 


16506 


000003060103 


16507 


606060606060 


16510 


215127512527 


16511 


606231712560 


16512 


256723252524 


16513 


252433606060 



BCD AUSED BY AN ATTEMPT TO PROCESS A PARTIAL STATEMENT. 



4F1D6750 



BCD XXXXXXQ06042 



4F1D6760 
ILLEGAL USE OF FLOATING POINT VARIABLE. 4F106770 



STATE B 
BCD 8XXXXXX003527 TOO MANY CHARACTERS IN SYMBOL. 



4F1D6780 
4F1D6790 
4F1D6800 
4F1D6810 



BCD 8XXXXXX003602 ILLEGAL USE OF • CHARACTER. 



4F1D6820 
4F1D6830 



BCD 7XXXXXX003613 ARGRE6 SIZE EXCEEDED. 



4F1D6840 
4F1D6850 



4E1P6860 



J7> 



u 



u 



o 



o 



16514 


676767676767 


16515 


000003060105 


16516 


606060606060 


16517 


314343252721 


16520 


436064622560 


16521 


462660304643 


16522 


432551316330 


16523 


606247252331 


16524 


263123216331 


16525 


464533606060 


16526 


676767676767 


16527 


000003060504 


1653Q 


606060606060 


16531 


454645407125 


16532 


514660432565 


16533 


254360512524 


16534 


642363314645 


16535 


336060606060 


16536 


676767676767 


16537 


000003060701 


16540 


606060606060 


16541 


314343252721 


16542 


436064622560 


16543 


462660601360 


16544 


606231274533 


16545 


606060606060 


16546 


676767676767 


16547 


000003070204 


16550 


606060606060 


16551 


314343252721 


16552 


436064622560 


16553 


462660603360 


16554 


606231274533 


16555 


606060606060 


16556 


676767676767 


16557 


000004000406 


16560 


606060606060 


16561 


,633025604564 


16562 


442551312360 


16563 


234645635146 


16564 


436046266021 


16565 


603046434325 


16566 


513163306063 


16567 


256763603162 


16570 


432151272551 


16571 


606330214560 


16572 


633025604564 


16573 


442225516046 


16574 


266023302151 


16575 


212363255162 



BCD XXXXXX003615 



ILLEGAL USE OF HOLLERITH SPECIFICATION. 4F1D6870 



BCD 8XXXXXX003654 



NON-ZERO LEVEL REDUCTION. 



4F1D6880 
4F1D6890 



BCD 8XXXXXX003671 



ILLEGAL USE OF = SIGN. 



4F1D6900 
4F1D6910 



BCD 8XXXXXX003724 



ILLEGAL USE OF . SIGN. 



4F1D6920 
4F1D6930 



BCD XXXXXX004046 



4F1D6940 
THE NUMERIC CONTROL OF A HOLLERITH TEXT IS4F1D6950 



BCD 9LARGER THAN THE NUMBER OF CHARACTERS FOLLOWING THE H. 



4F1D6960 



m 



IV 



16576 


602646434346 


16*77 


663145276063 


16600 


302560303360 


16601 


676767676767 


16602 


000004010306 


16603 


606060606060 


16604 


432144222421 


16605 


606321224325 


16606 


606231712560 


166Q7 


256723252524 


16610 


252433606060 


16611 


676767676767 


16612 


000004010400 


16613 


606060606060 


16616 


222569216063 


16615 


212243256062 


16616 


317125602567 


16617 


232525242524 


16620 


336060606060 


16621 


576767676767 


16622 


000004010403 


16623 


606060606060 


16626 


214347302160 


16625 


632122452560 


16626 


623171256025 


16627 


672325252425 


16630 


243360606060 


16631 


676767676767 


16632 


000004060407 


16633 


606060606060 


16634 


264346216331 


16635 


452760474631 


16636 


45636Q234645 


16637 


626321456360 


16640 


466463623124 


16641 


256051214527 


16642 


256046266044 


16643 


212330314525 


16644 


336060606060 


16645 


676767676767 


16646 


000004030407 


16647 


606060606060 


16650 


233025234260 


16651 


626444602551 


16652 


514651603145 


16653 


605125212431 


16654 


452760263167 



BCD SXXXXXX004136 



LAMBDA TABLE SIZE EXCEEDED* 



4F1D6970 
4F1D6980 



BCD 8XXXXXX00414Q 



BETA TABLE SIZE EXCEEDED. 



4F1D6990 
4F1D7000 



BCD 8XXXXXX004143 



ALPHA TABLE SIZE EXCEEDED. 



4F1D7010 
4F1D7020 



BCD XXXXXX004647 



4F1D7030 
FLOATING POINT CONSTANT OUTSIDE RANGE OF M4F1D7040 



BCD 2ACHINE. 

STATE C 
BCD XXXXXX004347 



4F1D7050 

4F1D7060 
4F1D7O70 
4F1D7080 

CHECK SUM ERROR IN READING FIXED POINT CON4F1D7090 



J?/ 



u 



o 



o 



16655 252460474631 

16656 456360234645 
1665? 626321456360 
16660 265146446024 
16662 516444600233 



16662 


676767676767 


16663 


000003050001 


16664 


606060606060 


16665 


443167252460 


16666 


256747512562 


16667 


623146453360 


16670 


676767676767 


16671 


000003050003 


16672 


606060606060 


16673 


443167252460 


16674 


256747512562 


16675 


623146453360 


16676 


676767676767 


16677 


000005020303 


16700 


606060606060 


16701 


233025234260 


16702 


626444602551 


16703 


514651603145 


16704 


605125212431 


16705 


452760623127 


16706 


442160632122 


16707 


432560254563 


16710 


517060265146 


16711 


446024516444 


16712 


600233606060 


16713 


676767676767 


16714 


0O0006040IO2 


16715 


606060606060 


16716 


634646604421 


16717 


457060233021 


16720 


512123632551 


16721 


626031456062 


16722 


704422464333 


16723 


676767676767 


16724 


000006040605 


16725 


606060606060 


16726 


314343252721 


16727 


436064622560 


16730 


462660603360 


±(J3tl 


602330215121 



BCD 3STANT FROM DRUM 2* 

STATE D 
BCD 6XXXXXX003501 MIXED EXPRESSION. 



BCD 6XXXXXX003503 



MIXED EXPRESSION, 



4F1D7100 



4F1D7110 
4F1D7120 
4F1D7130 
4F1D7140 



4F1D7150 
4F1D7160 



BCD XXXXXX005233 



CHECK SUM ERROR IN READING SIGMA TABLE ENT 



4F1D7170 



BCD 3RY FROM DRUM 2. 

LOCATIONS OF STAE B.C.D CALLS IN 8K SECTION ONE. 
BCD BXXXXXX006412 TOO MANY CHARACTERS IN SYMBOL. 



BCD 8XXXXXX006465 



ILLEGAL USE OF • CHARACTER. 



nf 



Z V 



16732 236325513360 

16733 676767676767 

16734 000006040706 

16735 606060606060 

16736 213127512527 

16737 606231712560 

16740 256723252524 

16741 252433606060 

16742 676767676767 

16743 000006050000 

16744 606060606060 

16745 314343252721 

16746 436064622560 

16747 462660304643 

16750 432551316330 

16751 606247252331 

16752 263123216331 

16753 464533606060 

16754 676767676767 

16755 000006050307 

16756 606060606060 

16757 454645407125 

16760 514660432565 

16761 254360512524 

16762 642363314645 

16763 336060606060 

16764 676767676767 

16765 000006050504 

16766 606060606060 

16767 314343252721 

16770 436064622560 

16771 462660601360 

16772 606231 27*5 33 

16773 606060606060 

16774 tT&TfrTtftfe^TS? 

16775 000006060007 

16776 606060606060 

16777 344343252721 

17000 436064622560 

17001 462660603360 

17002 606231274533 

17003 606060606060 

17004 676767676767 

17005 000006070301 

17006 606060606060 

17007 633025604564 

17010 442551312360 

17011 234645635146 



BCD 7XXXXXX006476 . AR6RE6 SUE EXCEEDED. 



BCD XXXXXX006500 



ILLEGAL USE OF HOLLERITH SPECIFICATION. 



BCD 8XXXXXX0O6537 NON-ZERO LEVEL REDUCTION. 



BCD 8XXXXXX006554 



1LLE6AL USE OF =- SIGN. 



BCD 8XXXXXX0O6607 ILLEGAL USE OF « SIGN. 



BCD XXXXXX006731 



THE NUMERIC CONTROL OF A HOLLERITH TEXT IS 



t% 



u 



n 



r\ 



17012 


436046266021 


17013 


603046434325 


17014 


513163306063 


1701$ 


256763603162 


17016 


432151272551 


17017 


606330214560 


17020 


633025604564 


17021 


442225516046 


17022 


266023302151 


17023 


212363255162 


17024 


602646434346 


17025 


663145276063 


17026 


302560303360 


17027 


676767676767 


17030 


000007000201 


17031 


606060606060 


17032 


432144222421 


17033 


606321224325 


17034 


606231712560 


17035 


256723252524 


17036 


252433606060 


17037 


676767676767 


17040 


000007000203 


17041 


606060606060 


17042 


222563216063 


17043 


212243256062 


17044 


317125602567 


17045 


232525242524 


17046 


336060606060 


17047 


676767676767 


17050 


000007000206 


17051 


606060606060 


17052 


214347302160 


17053 


632122432560 


17054 


623171256025 


17055 


672325252425 


17056 


243360606060 


17057 


676767676767 


17060 


000007050302 


17061 


606060606060 


17062 


264346216331 


17063 


452760474631 


17064 


456360234645 


17065 


626321456360 


17066 


466463623124 


17067 


256051214527 


17070 


256046266044 



BCD 9LARGER THAN THE NUMBER OF CHARACTERS FOLLOWING THE H. 



BCD 8XXXXXX007021 LAMBDA TABLE SIZE EXCEEDED. 



BCD 8XXXXXX007023 BETA TABLE SIZE EXCEEDED. 



BCD 8XXXXXX007026 ALPHA TABLE SIZE EXCEEDED. 



BCD XXXXXX007532 FLOATING POINT CONSTANT OUTSIDE RANGE OF M 



17071 212330314525 



BCD 2ACHINE. 



IV 



r. v 



17072 


336060606060 


17073 


676767676767 


17074 


000100050304 


17075 


606060606060 


17076 


233025234260 


17077 


626444602551 


17100 


514651603145 


17101 


605125212431 


17102 


452760263167 


17103 


252460474631 


17104 


456360234645 


17105 


626321456360 


17106 


265146446024 


17107 


516444600233 


17110 


676767676767 


17111 


000101020106 


17112 


606060606060 


17113 


443167252460 


17114 


256747512562 


1711* 


623146453360 


17116 


676767676767 


17117 


000101020200 


17120 


606060606060 


17121 


443167252460 


17122 


256747512562 


17123 


623146453360 


17124 


676767676767 


17125 


000102070500 


17126 


606060606060 


17127 


233025234260 


17130 


626444602551 


17131 


514651603145 


17132 


605125212431 


17133 


452760623127 


17134 


442160632122 


17135 


432560254563 


17136 


517060265146 


17137 


446024516444 


17140 


600233606060 



BCD XXXXXX010534 CHECK SUM ERROR IN READING FIXED POINT CON 



BCD 3STANT FROM DRUM 2. 



BCD 6XXXXXX011216 MIXED EXPRESSION* 



BCD 6XXXXXX011220 MIXED EXPRESSION. 



BCD XXXXXX012750 CHECK SUM ERROR IN READING SIGMA TABLE ENT 



BCD 3RY FROM DRUM 2» 



17141 676767676767 

17142 000000050503 

17143 606060606060 

17144 263165256023 

17145 464562252364 

17146 633165256026 



4F1D7200 
4F1D7210 
4F1D7220 
4F1D7230 
BCD XXXXXX00O553 FIVE CONSECUTIVE FAILURES IN ATTEMPTING T04F1D7240 



INITALI2ATION RECORD F015. 



iV 



U 



O 



o 



r> 



17147 


213143645125 


17150 


626031456021 


17151 


636325444763 


17152 


314527606346 


17153 


606651316325 


17154 


606263216325 


17155 


602160462660 


17156 


622523633146 


17157 


456046452560 


17160 


464560245164 


17161 


446001336060 


17162 


676767676767 


17163 


000000050600 


17164 


606060606060 


17165 


263165256023 


17166 


464562252364 


17167 


633165256026 


17170 


213143645125 


17171 


626031456021 


17172 


636325444763 


17173 


314527606346 


17174 


606651316325 


17175 


606263216325 


17176 


602460462660 


17177 


622523633146 


17200 


456046452560 


17201 


464560245164 


17202 


446002336060 


17203 


676767676767 


17204 


000000050603 


17205 


606060606060 


17206 


263165256023 


17207 


464562252364 


17210 


633165256026 


17211 


213143645125 


17212 


626031456021 


17213 


636325444763 


17214 


314527606346 


17215 


606651316325 


17216 


606263216325 


17217 


602260462660 


17220 


622523633146 


17221 


456046452560 


17222 


464560245164 


17223 


446003336060 


17224 


676767676767 


17225 


00OCO00 50606 


17226 


606060606060 


17227 


263165256023 


17230 


464562252364 


17231 


633165256026 



BCD 7 WRITE STATE A OF SECTION ONE ON DRUM 1. 



4F1D7250 



BCD XXXXXX000560 



4F1D7260 
FIVE CONSECUTIVE FAILURES IN ATTEMPTING T04F1D7270 



BCD 7 WRITE STATE D OF SECTION ONE ON DRUM 2. 



4F1D7280 



BCD XXXXXX000563 



4F1D7290 
FIVE CONSECUTIVE FAILURES IN ATTEMPTING T04F1D7300 



BCD 7 WRITE STATE B OF SECTION ONE ON DRUM 3. 



*F1D7310 



BCD XXXXXX000566 



4F1D7320 
FIVE CONSECUTIVE FAILURES IN ATTEMPTING TO4F1D7330 



/?} 



17232 


213143645125 






17233 


626031456021 






17234 


636325444763 






17235 


314527606346 






17236 


606651316325 


BCD 


7 WRITE STATE 


17237 


606263216325 






17240 


602360462660 






17241 


622523633146 






17242 


456046452560 






17243 


464560245164 






17244 


446004336060 






17245 


676767676767 


BCD 


2XXXXXXXXXXXX 


17246 


676767676767 








00000 


END 





4F1D7340 



4F1D7350 
4F1D7360 

4F107370 



/# 



u 



n 



r~\ 



00000 
00001 



REM 704 FORTRAN MASTER RECORD CARD / 1 PRIME PART A - ^"0000. F1P00010 

704 FORTRAN MASTER RECORD CARD / 1 PRIME PART A 
00000 ORG 
01146 O 01146 PZE 0RG1PA»*0RG1PA 
00000 03161 P2.E END1PA-1 



F0220000. 



01146 
01147 



01150 
01151 
01152 
01153 
01154 
01155 

01156 
01157 
01160 
01161 
01162 
01163 
01164 
01165 
01166 
01167 
01170 
01171 
01172 
©1173 
01174 
01175 
01176 
01177 
01200 
01201 
01202 
012O3 
01204 
01205 
01206 
01207 
01210 
01211 
01212 
01213 
01214 
01215 
01216 
01217 



THIS IS PART A OF 2 PARTS OF SECTION ONE PRIME 



01146 ORG1PA 
76100 OOOOO 
77000 00204 PARTA 



76600 
50000 
77100 
60100 
70000 
70000 

53400 
OOOOO 
07400 
76600 
53400 
70000 
77777 
00001 
OOOOO 
77000 
77200 
76000 
76100 
53400 
53400 
76200 
70000 
77777 
02000 
76600 
76000 
02000 
76600 
50000 
40000 
60100 
53400 
53400 
70000 
77777 
00001 
OOOOO 
02000 
76401 



00302 
00414 
00021 
02107 
02107 
02107 

00637 
01161 
00004 
00223 
07730 
00640 
01165 
01166 
01163 
00223 
00223 
00012 
OOOOO 
07734 
07730 
00223 
03163 
01176 
01222 
00333 
00012 
01217 
00222 
02245 
07731 
02245 
07732 
0773O 
03163 
01214 
01215 
01212 
01175 
00223 



A1PTS 

AA3PTS 

AA1PTS 
AA2PTS 

A5PTS 



A14PT5 
A6PTS 



A9PTS 

A7PTS 
A8PTS 

A11PTS 



ORG 614 
NOP 
WEF 4 

WRITE 
WRS 194 
CLA FXCNIX- 
ARS 17 
STO WORKCL 
CPY WORKCL 
CPY WORKCL 

PROGRAM 
LXD BB0X»2 
TXH A1PTS.2 
TSX DIAG.4 
WRS 147 
LXA L<0) »1 
CPY CIB*1 
TXI AA1PTS* 
TXI AA2PTS* 
TXH AA3PTS* 
WEF 147 
REW 147 
RTT 
NOP 

LXA L(4J »1 
LXA L(0»»4 
RDS 147 
CPY C0MP»4 
TXI A6PTS»4 
TRA A10PTS 
WRS 219 
RTT 

TRA A11PTS 
WRS 146 
CLA CMPREC 
ADD L(l) 
STO CMPREC 
LXA L(2)»l 
LXA L(0) »2 
CPY C0MP»2 
TXI A7PTS*2 
TXI A8PTS*4 
TXH A9PTS»4 
TRA A14PTS 
BST 147*0*1 



TO PERMIT STOP FOR TESTING RUNS. 



TABLE SAVING PROGRAM 
FIXCON WORD COUNT ON DRUM 



FOR SAVING COMPAIL TABLE 
»0 



1»-1 

2*1 

2*0 



*-l 



»-l 

♦ 1 

• 



STOP FOR NO INSTRUCTIONS COMPILED 

SAVE 

CIT 

BUFFER 



TURN OFF TAPE CHECK 
INDICATOR AND LIGHTS 



COPY A RECORD OF COMPILED 
INSTRUCTIONS INTO STORAGE 
EOF 
EOR 

TAPE CHECK ON 

COUNT EACH 

COMPAIL 

RECORD 

TRANSFER RECORD 
FROM STORAGE 
TO TAPE 2 



PREPARE TO READ RECORD AGAIN 



F1P00010 
F1P00020 
F1P00030 
F1P00040 
F1P00050 
F1P00060 
F1P00070 
F1P00080 
F1P00090 
F1P00100 
F1P00110 
F1P00120 
F1P00130 
F1P00140 
F1P00150 
F1P00160 
F1POOI70 
F1P00180 
F1P00190 
F1P00200 
F1P00210 
F1P00220 
F1P00230 
F1P00240 
F1P00250 
F1P00260 
F1P00270 
F1P00280 
F1P00290 
F1P00300 
F1P00310 
F1P00320 
F1P0033O 
F1P00340 
F1PO0350 
F1P00360 
F1P00370 
F1P00380 
F1P00390 
F1P00400 
F1P00410 
F1P00420 
F1P00430 
F1P00440 
F1P00450 
F1P00460 
F1P00470 
F1P00480 
F1P00490 
F1P00500 
F1P00510 
F1P00520 
F1PO053O 



/<? 



U 



01220 


2 


0000 1 


1 


01174 




T1X 


A14PTS-1*! 


♦1 TEST FOR 2 TAPE CHECKS. 


F1P00540 


01221 





07400 


4 


00004 




TSX 


DIAG»4 


STOP FOR 5TH READ CHECK 


F1P00550 


01222 





77000 





00222 


A10PTS 


WEF 


146 


END OF COMPAIL ON TAPE 2 


F1P00560 

w * &% ^ *v ** ^ ^ 


01223 





76600 





00222 




WRS 


146 




F1P00570 

•■■ * ft rt rf% ^ *t #* 


01224 





70000 





02245 




CPY 


CMPREC 
PROGRAM 


TO SAVE FORSUB TABLE 


F1P0O580 
F1P0059O 


01225 


-0 


53400 


1 


00470 




LXO 


BK.l 




F1P00600 


01226 


-3 


00000 


1 


01234 




TXL 


WEF. 1.0 


TEST FOR EMPTY TABLE 


F1P00610 


01227 





53400 


2 


07730 




LXA 


L(0)*2 




F1P0O620 


01230 





70000 


2 


00471 




CPY 


F0RSUB.2 




F1P00630 


01231 


1 


77777 


2 


01232 




TXI 


A15PTS*2»- 


1 


F1P00640 


01232 


1 


OO001 


1 


01233 


A15PTS 


TXI 


A15PTS+1*1 


.1 


F1P0O650 


01233 


3 


00000 


1 


01230 




TXH 


A15PTS-2.1 


♦ 


F1P00660 

^ * n fl SK * 4V t\ 


01234 





77000 





00222 


WEF 


WEF 


146 




F1P00670 
















PROGRAM FOR SAVING FLOCON TABLE 


F1P00680 


01235 


-0 


53400 


4 


00421 


FLOO 


LXD 


FLCNIX-3»4 


<N) 


F1P0O690 
F1P00700 

P» * ft ^ *fc ** 1 t\ 


01236 


-0 


75400 


4 


OOOOO 




PXD 


0*4 




01237 





77100 





00022 




ARS 


18 




F1P00710 


01240 





60100 





02244 




STO 


FLSIZE 


LOAD FLSIZE WITH N 


F1P0Q720 


01241 


-3 


00000 


4 


01276 




TXL 


FL09»4»0 


IS TABLE EMPTY 


F1P00730 
F1P00740 


01242 


-0 


50000 





07742 




CAL 


MSK 




01243 





32000 





00422 




ANS 


FLCNIX-2 




F1P00750 


01244 





32000 





00421 




ANS 


FLCNIX-3 




F1P00760 


01245 





50000 





00421 




CLA 


FLCNIX-3 


GET NUMBER OF WORDS IN FLOCON INCLUDING CK SUMS 


F1P00770 


01246 


O 40200 





00422 




SUB 


FLCNIX-2 




F1P00780 


01247 





62100 





01256 




STA 


FL04 


SAVE L 


F1P00790 


01250 





53400 


2 


07735 


FL01 


LXA 


L<5)»2 


SET TO TRY FIVE TIMES IF CK SUM FAILS 


F1PQ0800 


01251 





53400 


4 


01256 


FL02 


LXA 


FL04.4 


«L> 


F1P00810 
F1P0O82O 


01252 





76200 





00302 




RDR 


2 




01253 





46000 





00422 




LDA 


FLCNIX-2 




F1P00830 


01254 





70000 


4 


05453 


FL03 


CPY 


OTA+450*4 


COPY FLOCON FROM DRUM 


F1P00840 


01255 


2 


00001 


4 


01254 




TIX 


FL03.4.1 




F1P00850 


01256 


-0 


75400 





OOOOO 


FL04 


PXD 


**t0 




F1P00860 


01257 





53400 


4 


01256 




LXA 


FL04*4 


COMPUTE CK SUM OF ENTRIES VERSUS CK SUM OF CK 


F1P0O870 


01260 





53400 


1 


07737 




LXA 


L<50)»1 


SUMS. TABLE IS OF FORM A CK SUM FOR FIFTY WORDS 


F1P00880 


01261 





36100 


4 


05453 


FL05 


ACL 


OTA+450»4 


FOLLOWED BY THE FIFTY WORDS 


F1P00890 
F1P00900 


01262 





76000 





00006 




COM 






01263 


-2 


00001 


4 


01307 




TNX 


ERROR.4.1 




F1P00910 


01264 





36100 


4 


05453 


FL06 


ACL 


0TA+450.4 




F1P0C920 


01265 


-2 


OOOO 1 


4 


01271 




TNX 


FL07.4.1 


FINAL ENRTY » GET OUT OF CK SUM LOOP 


F1P00930 
F1P00940 
F1P00950 
F1P00960 
F1P00970 


01266 


2 


00001 


1 


01264 




TIX 


FL06»1.1 




01267 





76000 





00006 




COM 






01270 


1 


00061 


1 


01261 




TXI 


FL05.1.49 




01271 





76000 





00006 


FL07 


COM 






01272 





10000 





01275 




TZE 


FL08 TEST CK SUM 


F1POG980 


01273 


2 


00001 


2 


01251 




TIX 


FL02»2»1 


CK SUM FAILED* TRY AGAIN 


F1P0Q990 


01274 





07400 


4 


00004 




TSX 


DIAG.4 


CK SUM FAILED FIVE TIMES 


F1P01000 


01275 





53400 


4 


01256 


FL08 


LXA 


FL04t4 (L) 


F1P01010 
F1P01020 


01276 





76600 





00222 


FL09 


WTB 


2 




01277 





70000 





02244 




CPY 


FLSIZE 




F1P01030 


01300 


-3 


OOOOO 


4 


01310 




TXL 


PROFOR.4.0 


IS FLOCON EMPTY 


F1P01040 


01301 





53400 


1 


07737 




LXA 


L(50>»1 




F1P01050 


01302 


-2 


00001 


4 


01307 


FL10 


TNX 


ERROR.4.1 




F1P01060 


013Q3 





70000 


4 


05453 


FLU 


CPY 


0TA+450»4 




F1P01070 



^ 



o 



r\ 



01304 
01305 
01306 
01307 

01310 
01311 
01312 
01313 
01314 
01315 

01316 
0131? 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 

01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 
01364 
01365 
©1366 



-2 00001 
2 00001 
1 00061 
07400 



4 01310 
1 01303 
1 01302 
4 00004 ERROR 










-0 
-3 




-0 



1 

-0 
2 


-0 




1 

2 




-0 
2 



-0 



07400 
00000 
00000 
07400 
00000 

ooooo 

53400 
00000 
53400 
76200 
53400 
46000 
75400 
70000 
7000O 
77776 
70000 
00001 
76000 
53400 
53400 
36100 
36100 
77776 
00001 
76000 
10000 
53400 
00001 
07400 
53400 
63400 



53400 
00000 
53400 
76200 
53400 
46000 
75400 
70000 
70000 
77776 
70000 
00001 
76000 
-0 53400 
«0 53400 



-0 

-3 



-0 


-0 


1 

-0 
2 




07505 PROFOR 

00012 

04551 

07656 

00012 

04551 



00452 
01346 
07735 
00303 
07730 
00453 
00000 
04551 
04552 
01330 
02106 
01325 
00006 
00452 
07730 
04551 
04552 
01340 
01335 
00006 
01347 
00452 
01321 
00004 
07730 
02110 



ADDOO 

A0001 
ADD02 



AQ003 
AOD04 

ADDQ5 
ADD06 



ADD07 
AODOS 



00457 

01413 

07735 AOD09 

00303 AOD10 

02110 

00460 

OOOOO 

04551 AD011 

04552 

01362 

02106 A0D12 

01357 

00006 

00457 



TNX 
TIX 
TXI 
TSX 

TSX 

HTR 

TSX 

HTR 



PR0F0R»4.1 FINISHED. 6ET OUT OF LOOP 

FLll*l*i 

FL10»1«49 

DIAG.4 INDEX RAN OUT AT CK- 

ROUTINE TO PROCESS FORMAT TABLE 
TAP00»1 
10 
OTA 

WATOOil 
10 
OTA 
ROUTINE TO CONVERT DIM TABLES TO SIZ TABLE. 



1*2 110 



LXD 
TXL 
LXA 
RDR 
LXA 
LDA 
PXD 
CPY 
CPY 
TXI 
CAD 
TIX 
COM 
LXD 
LXA 
ACL 
ACL 
TXI 
TIX 
COM 
TZE 
LXD 
TIX 
TSX 
LXA 
SXD 

LXD 
TXL 
LXA 
RDR 
LXD 
LDA 
PXD 
CPY 
CPY 
TXI 
CAD 
TIX 
COM 
LXD 
LXD 



DIM1IX-3.4 

ADD07.4»0 

L(5)»2 

3 

LI0)»1 

0RGDM1 

OtO 

0TA»1 

0TA+1»1 

ADD04»lt-2 

GARBGE 

ADD03»4.1 

DIMlIX-3»4 

L(0)*1 

0TA«1 

OTA+lfl 

ADD06»l»-2 

AD005»4tl 



ADD08 

DIMlIX-3»4 

AOD02»2»l 

DIA6t4 

L(0).l 

NEWBAStl 

NOW READ DIM2 TABLE 

DIM2IX-3*4 

ADD18»4*0 

L(5!.2 

3 

NEWBAS*1 

OR6DM2 

0*0 

0TA»1 

OTA+ltl 

ADD12.1»-2 

GARBGE 

ADDlli4*l 



ENTRY COUNT 
TABLE EMPTY 



COPY NAME 
COPY Nl 

COPY AND SUM CK SUMS 



SUM ENTRIES 



CHECK SUM ERROR* TRY AGAIN 

REPEATED CK SUM ERRORS IN RES^S^XNG DRUM 



TABLE EMPTY 



COPY NAME 
COPY Nl N2 

COPY AND SUM CK SUMS 



DIM2IX-3.4 
N£«BAS#1 



F1P01080 
F1P01090 
F1PQ1100 
F1P01110 
F1P01120 
F1P01130 
F1P01140 
F1P0U50 
F1P01160 
F IPO 1170 
F1P01J80 
F1P01190 
F1P0120O 
F1P01210 
F1P01220 
F1P01230 
F1P01240 
F1P01250 
F1P01260 
F1P0127O 
F1P01280 
F1P01290 
F1P01300 
F1P01310 
F1P01320 
F1P01330 
F1P01340 
F1P01350 
F1P01360 
F1P01370 
F1P01380 
F1P01390 
F1P01400 
F1PQ1410 
F1P01420 
F1P01430 
F1P01440 
F1P01450 
F1P01460 
F1P01470 
F1P01480 
F1P0I490 
F1P01500 
F1P01510 
F1P0X520 
F1P01530 
F1P01540 
F1P01550 
F1P01560 
F1P01570 
F1P01580 
F1P01590 
F1P01600 
F1P01610 



ft! 



01367 





36100 


1 04551 


ADD 13 


ACL 


0TA*1 


01370 





36100 


1 04552 




ACL 


0TA+1*1 


01371 


1 


77776 


1 01372 




TXI 


ADD14»l»-2 


01372 


2 


00001 


4 01367 


ADD 14 


TIX 


ADD13»4*1 


01373 





76000 


00006 




COM 




01374 





10000 


01400 




TZE 


ADD15 


01375 


-0 


53400 


4 00457 




LXD 


DIM2IX-3»4 CK SUM ERROR TRY AGAIN 


01376 


2 


00001 


2 01353 




TIX 


ADDI0»2»1 


01377 





07400 


4 00004 




TSX 


DIAG.4 REPEATED CK SUM ERRORS I 


01400 


-0 


53400 


4 00457 


ADD15 


LXD 


DIM2IX-3»4 


01401 


-0 


53400 


1 02110 




LXD 


NEWBAS.l 


01402 





60000 


02107 




STZ 


WORKCL 


01403 





50000 


1 04552 


ADO 16 


Ct-A 


OTA+1.1 


01404 





62100 


02107 




STA 


WORKCL 


01405 





76500 


00065 




LRS 


53 


01406 





20000 


02107 




MPY 


WORKCL NI*N2 


01407 


-0 


60000 


1 04552 




STQ 


OTA+ltl 


01410 


1 


77776 


1 01411 




TXI 


ADDl7»l»-2 


01411 


2 


00001 


4 01403 


ADD 17 


TIX 


ADD16»4.1 


01412 


-0 


63400 


1 02110 




SXD 


NEWBAS* 1 UPDATE NEWBAS FOR DIM3 ROUTINE 
NOW READ D1M3 TABLE* 


01413 


-0 


53400 


4 00464 


ADO 18 


LXD 


DIM3IX-3»4 


01414 


-3 


00000 


4 01462 




TXL 


ADD28.4»0 DIM3 TABLE EMPTY 


01415 





53400 


2 07735 


ADD19 


LXA 


L(5)t2 


01416 





76200 


00303 


ADD20 


RDR 


3 


01417 


-0 


53400 


1 02110 




LXD 


NEWBAS *1 


01420 





46000 


00465 




LDA 


0RGDM3 


01421 


-0 


75400 


00000 




PXD 


0.0 


01422 





70000 


1 04551 


ADD21 


CPY 


OTA.l 


01423 





70000 


1 04552 




CPY 


OTA+ltl 


01424 





70000 


4 02243 




CPY 


BUFFER *4 


01425 


1 


77776 


1 01426 




TXI 


ADD22.1»-2 


01426 


-0 


70000 


02106 


AD022 


CAD 


GARBGE 


01427 


2 


00001 


4 01422 




TIX 


ADD21*4*1 


01430 





76000 


00006 




COM 




01431 


-0 


53400 


4 00464 




LXD 


DIM3IX-3.4 


01432 


-0 


53400 


1 02110 




LXD 


NEWBAS* 1 


01433 





36100 


1 04551 


ADD23 


ACL 


0TA*1 


01434 





36100 


1 04552 




ACL 


0TA+1»1 


01435 





36100 


4 02243 




ACL 


BUFFER** 


01436 


1 


77776 


1 01437 




TXI 


ADD24*l*-2 


01437 


2 


00001 


4 01433 


ADD 24 


TIX 


ADD23»4*1 


01440 





76000 


00006 




COM 




01441 





10000 


01445 




TZE 


ADD25 


01442 


-0 


53400 


4 00464 




LXD 


DIM3IX-3»4 


01443 


2 


00001 


2 01416 




TIX 


ADD20*2»1 CK SUM FAILED TRY AGAIN 


01444 





07400 


4 00004 




TSX 


DIAG»4 REPEATED CK SUM ERRORS It 


01445 


-0 


53400 


4 00464 


ADD25 


LXD 


DIM3IX-3»4 


01446 


-0 


53400 


1 02110 




LXD 


NEWBAS.l 


01447 





50000 


1 04552 


A0026 


CLA 


0TA+1»1 


01450 





60000 


02107 




STZ 


WORKCL 


01451 





62100 


02107 




STA 


WORKCL 


01452 





76500 


00065 




LRS 


53 


01*53 





20000 


02107 




MPY 


WORKCL N1*N2 



F1P01620 

F1P01630 

F1P01640 

F IPO 1650 

F1P01660 

F1P01670 

F1P01680 

F1P01690 

F1P01700 

F1P01710 

F1P01720 

F1P017jO 

F IPO 1740 

F1P01750 

F1P01760 

F1P01770 

F1P01780 

F1P01790 

F1P01800 

F1P01810 

F1P01820 

F1P01830 

F1P01840 

F1P01850 

F IPO I860 

F1P01870 

F1P01880 

F1P01890 

F1P01900 

F1P01910 

F1P01920 

F1P01930 

F1P01940 

F1P01950 

F1P01960 

F1P01970 

F1P01980 

F1P01990 

F 1P02000 

F1P02010 

F1P02020 

F1PQ2O30 

F1P02040 

F1P02050 

F1P02O6O 

F1P02070 

F1P02080 

F1PO209O 

F1P02100 

F1P02110 

F1P02120 

F1P02130 

F1P02140 

F1P02150 



ni 



U 



O 



o 



o 



01454 





20000 


4 


02243 




MPY 


BUFFER »4 


N3*(N1*N2) 


F1P02160 


01455 


-0 


6OOO0 


1 


04552 




STQ 


OTA+l.l 




F1P02170 


01456 


1 


77776 


1 


01457 




TXI 


ADD27»l»-2 




F1P02180 


01457 


2 


00001 


4 


01447 


ADD27 


TIX 


ADD26t4»l 




F1P02190 


01460 





76100 





00000 




NOP 




NOT USED* 


F1P02200 


01461 





76100 





00000 




NOP 


NOW WRITE S1Z 


NOT USED* 
TABLE ON TAPE 2. 


F1P02210 
F1P02220 


01462 


-0 


75400 


1 


00000 


ADO 2 8 


PXD 


0.1 




F1P02230 


01463 





76000 





00006 




COM 






F1P02240 


01464 





40000 





07740 




ADD 


DECR1 




F1P02250 


01465 


-0 


73400 


4 


00000 




PDX 


0*4 




F1P02260 


01466 


-0 


75400 


4 


00000 




PXD 


0*4 




F1P02270 


01467 





77100 





00022 




ARS 


18 




F1P02280 


01470 





60100 





02107 




STO 


WORKCL 




F1P02290 


01471 





40000 





07731 




ADD 


Ul) 




F1P02300 


01472 





73400 


1 


00000 




PAX 


0.1 




F1P02310 


01473 





53400 


2 


07730 




LXA 


L(0)»2 




F1P02320 


01474 


-0 


7540O 





00000 




PXD 


0*0 




F1P02330 


01475 





36100 


2 


04551 


ADD 3 3 


ACL 


0TA»2 


COMPUTE CK SUM FOR SIZ TABLE 


F1P02340 


01476 


1 


77777 


2 


01477 




TXI 


ADD32.2»-1 




F1P02350 


01477 


2 


00001 


4 


01475 


ADD32 


TIX 


ADD33.4.1 




F1P02360 


01500 





60200 


2 


04551 




SLW 


0TA»2 




F1P02370 


01501 





50000 





02101 




CLA 


DMASK 




F1P02380 


01502 





32000 





00030 




ANS 


EIFNO 




F1P02390 


01503 





76600 





00222 




WTB 


2 




F1P02400 


01504 





70000 





00030 




CPY 


EIFNO 




F1P02410 


01505 





70000 





02107 




CPY 


WORKCL 




F1P02420 


01506 


-3 


00001 


1 


01513 




TXL 


ADD31»1»1 




F1P02430 


01507 





53400 


2 


07730 




LXA 


L(0)»2 




F1P02440 


01510 





70000 


2 


04551 


ADD29 


CPY 


0TA»2 




F1P02450 


01511 


1 


77777 


2 


01512 




TXI 


ADD30»2.-1 




F1P02460 


01512 


2 


00001 


1 


01510 


ADD 30 


TIX 


ADD29»1»1 




F1P02470 


01513 





77000 





00202 


ADD 31 


WEF 


2 




F1P02480 


01514 





76600 





00222 




WTB 


2 


WRITE SENSE SWITCH SETTINGS AS RE- 


F1P02490 


01515 





53400 


1 


07735 




LXA 


L(5>»1 


CORD ONE* FILE FIVE* TAPE TWO 


F1P02500 


01516 





70000 


1 


00036 


X0010 


CPY 


ENDIl+5fl 




F1P02510 


01517 


2 


00001 


1 


01516 




TIX 


XOOlO.ltl 




F1P0252© 


O1520 





07400 


1 


07505 




TSX 


TAPOO»1 


ASSEMBLE AND WRITE SUBDEF TABLE 


F1P02530 


01521 





00000 





00013 






11 




F1P02540 


01522 





00000 





04551 






OTA 




F1P02550 


01523 





07400 


1 


07656 




TSX 


WATOOtl 




F1P02560 


01524 





00000 





00013 






11 




F1P02570 


01525 





00000 





04551 






OTA 




F1P02580 


01526 





07400 


1 


07505 




TSX 


TAP00»1 


ASSEMBLE AND WRITE COMMON TABLE 


F1P02590 


01527 





00000 





00014 






12 




F1P02600 


01530 





00000 





04551 






OTA 




F1P02610 


01531 





07400 


1 


07656 




TSX 


WATOO*1 




F1P02620 


01532 





00000 





00014 






12 




F1P02630 


01533 





00000 





04551 






OTA 




F1P02640 


01534 





07400 


1 


07505 




TSX 


TAP00.1 


ASSEMBLE AND WRITE TABLE OF HOLLERITH ARGS 


F1P02650 


01535 





00000 





00015 






13 




F1P02660 


01536 





00000 





04551 






OTA 




F1P02670 


01537 





07400 


1 


07656 




TSX 


WATOOtl 




F1P02680 


01540 





00000 





00015 






13 


• 


F1PG2690 



A* 



/ 



01541 





00000 04551 






OTA 


01542 





07400 1 07505 




TSX 


TAPOO.l 


01543 





00000 00000 




HTR 





01544 





00000 04551 




HTR 


OTA 


01545 





60000 02105 




STZ 


PAT15 


01546 


-0 


53400 4 04550 




LXD 


0TA-1»4 


01547 


-3 


00001 4 01606 




TXL 


WRITE.4.1 


01550 


-0 


53400 1 02103 




LXD 


PAT13.1 


01551 


-0 


63400 4 02104 




SXO 


PAT14»4 


01552 


-0 


53400 4 02104 


ISPLUS 


LXD 


PAT14.4 


01553 





50000 1 04551 


NEXT 


CLA 


0TA*1 


©1554 





12000 01561 




TPL 


MASK. 


01555 





60200 1 04551 




SLW 


OTA.l 


01556 


1 


77777 1 01557 




TXI 


ISTHRU.l.-l 


01557 


2 


00001 4 01553 


ISTHRU 


TIX 


NEXT.4.1 


01560 





02000 01606 




TRA 


WRITE 


01561 





62100 02105 


MASK 


STA 


PAT15 


01562 


1 


77777 1 01563 




TXI 


RECOMP. 1*-1 


01563 


-0 


75400 1 00000 


RECOMP 


PXD 


0*1 


01564 


-0 


73400 2 00000 




PDX 


0*2 


01565 


-2 


00001 4 01606 




TNX 


WRITE.4.1 


01566 


-0 


63400 4 02104 




SXD 


PAT14.4 


01567 





5000O 2 04551 


PAT 16 


CLA 


OTA, 2 


01570 


-0 


12000 01575 




TMI 


NODUP 


01571 


-0 


32000 02102 




ANA 


PATH 


01572 





34000 02105 




CAS 


PAT15 


01573 





02000 01575 




TRA 


NODUP 


01574 





02000 01600 




TRA 


PAT9 


01575 


1 


77777 2 01576 


NODUP 


TXI 


PAT8.2.-1 


01576 


2 


00001 4 01567 


PAT8 


TIX 


PAT16.4.1 


01577 





02000 01552 




TRA 


ISPLUS 


01600 





50000 2 04551 


PAT9 


CLA 


OTA. 2 


01601 


-0 


76000 00003 




SSM 




01602 





60100 2 04551 




STO 


OTA, 2 


01603 





50200 1 04550 




CLS 


OTA-l.l 


01604 





60100 1 04550 




STO 


OTA-l.l 


01605 





02000 01552 




TRA 


ISPLUS 


01606 





07400 1 07656 


WRITE 


TSX 


WAT0Q*1 


01607 





00000 00000 




HTR 





01610 





00000 04551 






OTA 


01611 





07400 1 07505 




TSX 


TAPOO.l 


01612 





00000 00002 




HTR 


2 


01613 





00000 03163 


L(2TA) 


HTR 


2TA 

START PROGRAM 


01614 





50000 03162 


MFGTP 


CLA 


2TA-1 


01615 





10000 01751 




TZE 


WFGOO 


01616 


-0 


73400 2 00000 




PDX 


0,2 


01617 





77100 00022 




ARS 


18 


01620 





40000 01613 




ADD 


L«2TA) 


01621 





62100 01646 




STA 


MFGOO 


01622 





62100 01663 




STA 


MFG03 


01623 





62100 01665 




STA 


MFG05 


01624" 


~O~62iO0^ -OiTOi 


-- SfA~-MFG08 



ASSEMBLE TEIFNO FROM TAPE 4 



INSURE DECREMENT IS CLEAR 

LENGTH OF TEIFNO INTO I.R.4 

IS TEIFNO EMPTY OR IS THERE A 

INITIALIZE LR. TO STEP THROUGH TABLE 

SAVE WORD COUNT 

REINTIALIZE FOR FURTHER SEARCHING 

PICK UP NEXT ENTRY IN TEIFNO 

HAS THIS BEEN PROCESSED 

NO, SET I.R. TO LOOK AT NEXT ENTRY 

HAVE ALL ENTRIES BEEN EXAMINED 

YES. FINISHED 

STORE COMPERAND 

SET I.R.S TO START COMPARISON 



F1P02700 
F1P02710 
F1P02720 
F1P02730 
F1P02740 
F1P02750 
SINGLE ENTRY F1P02760 



HAVE ALL ENTRIES BEEN EXAMINED 

SAVE NUMBER OF ENTRIES YET TO BE TREATED 

PICK UP ENTRY TO BE COMPARED 

NO SEARCH NECESSARY IF NEGATIVE 

ISOLATE EXTERNAL FORMULA NUMBER 

COMPARE TO REMAINING ENTRIES 

NO DUPLICATE 

DUPLICATE 

NO DUPLICATE, SET I»R« TO OBTAIN NEXT ENTRYF1P02980 



F1P02770 
F1P02780 
F1P02790 
F1P02800 
F1P02810 
F1P02820 
F1P02830 
F1P02840 
F1P02850 
F1P02860 
F1P02870 
F1P02880 
F1P02890 
F1P02900 
F1P02910 
F1P02920 
F1P02930 
F1P02940 
F1P02950 
F1P02960 
F1P02970 



FOR COMPARISON 

HAVE ALL ENTRIES BEEN COMPARED 

YES 

FLAG DUPLICATE ENTRY NEGATIVE 



WRITE TEIFNO ON TAPE 



ASSEMBLE TIF60 



FOR MODIFICATION OF T1FG0 WITH TEIFNO 
GET NUMBER OF WORDS IN 2TA. 
EXIT FOR NO ENTRIES IN TABLE. 
SET INDEX B TO NUMBER OF WORDS. 
COMPUTE 
2TA 
PLUS 
NUMBER 
OF 
-W0ROS 



F1P02990 
F1P03000 
F1P03010 
F1P03020 
F1P03030 
F1P03040 
F1P03050 
F1P03060 
F1P03O70 
F1PO3O80 
F1P03090 
F1P03100 
F1PO3I10 
F1P03120 
F1P03130 
F1P03140 
F1P03150 
F1P03160 
F1P03170 
F1P03180 
F1P03190 
F1P03200 
F1P03210 
F1P03220 
-F*P0323O 



/^ 



u 



O 



n 



O 



01625 

01626 

01627 

01630 

01631 

01632 

01633 

01634 

01635 

01636 

01637 

01640 

01641 

01642 

01643 

01644 

01645 

01646 

01647 

01650 

01651 

01652 

01653 

01654 

01655 

01656 

01657 

01660 

01661 

016&2 

01663 

01664 

01665 

01666' 

01667 

01670 

01671 

01672 

01673 

01674 

01675 

01676 

01677 

01700 

01701 

01702 

01703 

01704 

01705 

01706 

01707 

01710 

01711 

01712 



62100 
62100 
62100 
62100 
50000 
10000 
02000 
77100 
40000 
62100 
62100 
62100 
62100 
62100 
62100 
62100 
62100 
50000 
12000 
62100 
53400 
50000 
32000 
40200 
10000 
00001 
50000 
02000 
50000 
77100 
62100 
77777 
50000 
62100 
53400 
50000 
32000 
40200 
10000 
00001 
50000 
02000 
50000 
77100 
62100 
50000 
77100 
62100 
53400 
50000 
32000 
40200 
10000 
00001 



01702 
01716 
01740 
01747 
04550 
01634 
07751 
00022 
07750 
01652 
01661 
01670 
01677 
01706 
01715 
01736 
01745 
00000 
01722 
07746 
04550 
00000 
07742 
07746 
01661 
01652 
02103 
01663 
00000 
00022 
00000 
01665 
00000 
07T46 
04550 
00000 
07742 
07746 
01677 
4 01670 
02103 
01701 
00000 
00022 
00000 
00000 
00022 
07746 
04550 
00000 
07742 
07746 
01715 
01706 



MFGOK 



MFGOO 



MFG01 



MFGC2 

MFG03 
MFGO'f 
MFGQ5 



MFG06 



MFG07 

MFG08 
MFG09 



MFG10 



STA 
STA 
STA 
STA 
CLA 
TNZ 
TRA 
ARS 
ADO 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
CLA 
TPL 
STA 
LXD 
CLA 
ANA 
SUB 
TZE 
TIX 
CLA 
TRA 
CLA 
ARS 
STA 
TXI 
CLA 
STA 
LXD 
CLA 
ANA 
SUB 
TZE 
TIX 
CLA 
TRA 
CLA 
ARS 
STA 
CLA 
ARS 
STA 
LXD 
CLA 
ANA 
SUB 
TZE 
TIX 



MFG09 

MFG12 

MFG18 

MFG20 

OTA-1 

MFGOK 

TEIFER 

18 

LIOTA) 

MFG01 

MFG02 

MF606 

MFG07 

MFG10 

MFG11 

MFG17 

MFG19 

0t2 

MFG14 

E3 

0TA-1»4 

0*4 

MSK 

E3 

MFG02 

MF601.4.1 

PAT 13 

MFG03 

0*4 

18 

0.2 

MFG05t2.-l 

0»2 

E3 

0TA-1»4 

0.4 

MSK 

E3 

MFG07 

MFG06.4.1 

PAT13 

MFG08 

0.4 

18 

0.2 

0.2 

18 

E3 

0TA-1.4 

0.4 

MSK 

E3 

MFG11 

MFG10.4.1 



IN 
2TA 
AND 

INITIALIZE ADDRESSES 
GET NUM WORDS IN OTA 
TABLE EXISTS 
STOP FOR NO TABLE IN OTA 

NUMBER WORDS PUT IN AC ADDRESS 
ADD OTA ORIGIN 
INITIALIZE ADDRESSES WITH 
OTA + NUM WORDS 



ADDR IS 2TA + NUM WORDS IN 2TA. (1 

SIGN IS PLUS* 

SAVE Ala 

SET INDEX C TO NUM WORDS IN OTA. <2 

Al PRIME AND Al GO TO AC. 

ERASE Al PRIME IN AC. 

COMPARE TEIFNO ARGUMENT WITH Al. 

Al EQUALS ARGUMENT. 

COMP Al VS NEXT TEIFNO ENTRY. (3A1 



Al PRIME AND Al GO TO AC. 

Al PRIME GOES TO ADDRESS OF AC 

(1> Al PRIME REPLACES Al 

TAKE WORD 2 OF TIFGO ENTRY 

(1>. AC DECR IS A2* ADDR IS A3 

SAVE A3 

(2) 

A3 PRIME AND A3 GO TO AC 

ERASE A3 PRIME IN AC 

COMPARE TEIFNO ARGUMENT WITH A3 

A3 EQUALS ARGUMENT 

(3A3) 



A3 PRIME AND A3 GO TO AC 

A3 PRIME GOES TO ADDR OF AC 

(II. -A3 PRIME REPLACES A3 

(1). A2 AND A3 PRIME GO TO AC 

A2 GOES TO ADDR OF AC. 

SAVE A2 

«2) 

A2 PRIME AND A2 GO TO AC 

ERASE A2 PRIME IN AC 

COMPARE TEIFNO ARGUMENT WITH A2 

A2 EQUALS ARGUMENT 

<3A2) 



F1P03240 
F1P03250 
F1P03260 
F1P03270 
F1P03280 
F1P03290 
FIP033O0 
F1P03310 
F1P03320 
F1P03330 
F1P03340 
F1P03350 
F1P03360 
F1P03370 
F1P03380 
F1P03390 
F1P03400 

IF1P03410 
F1P03420 
F1P03430 

IF1P03440 
F1P03450 
F1P03460 
F1P03470 
F1P03480 

IF1P03490 
F1P03500 
F1P03510 
F1P03520 
F1P03530 
F1P03540 
F1P03550 
F1P03560 
F1P035T0 
FIP03580 
F1P0359O 
F1P03600 
F1P03610 
F1P03620 
F1P03630 
F1P03640 
F1P03650 
F1P03660 
F1P03670 
F1P03680 
F1P03690 
F1P03700 
F1PG3710 
F1P03720 
F1P03730 
F1P03740 
F1P03750 
F1P03760 

F1PO3770 



I'? 



01713 


50000 


02103 




CLA 


PAT 13 


01714 


02000 


01716 




TRA 


MFC 12 


01715 


50000 4 


00000 


MFG11 


CLA 


0*4 


01716 


62200 2 


00000 


MFG12 


STD 


0*2 


01717 


2 00001 2 


01646 




TIX 


MFG00»2*1 


01720 


2 00001 2 


01717 


MFG13 


TIX 


MFG13-1»2»1 


01721 


02000 


01751 




TRA 


WFGOO 


01722 


73400 4 


00000 


MFG14 


PAX 


0*4 


01723 


02000 4 


01733 




TRA 


MFG 14+9*4 


01724 


02000 


01720 




TRA 


MFG13 


01725 


02000 


01734 




TRA 


MFG 15 


01726 


02000 


01664 




TRA 


MFG04 


01727 


02000 


01664 




TRA 


MFG04 


01730 


02000 


01664 




TRA 


MFG04 


01731 


02000 


01720 




TRA 


MFG13 


01732 


02000 


01720 




TRA 


MFG 13 


01733 


02000 


01734 




TRA 


MFG15 


01734 


1 77777 2 


01735 


MFG15 


TXI 


MFG16»2»-1 


01735 


-0 53400 4 


04550 


MFG16 


LXD 


0TA-1»4 


01736 


50000 4 


00000 


MFG17 


CLA 


0*4 


01737 


-0 32000 


07742 




ANA 


MSK 


01740 


40200 2 


00000 


MFG18 


SUB 


0*2 


01741 


10000 


01745 




T2E 


MFG19 


01742 


2 0O001 4 


01736 




TIX 


MFG17.4.1 


01743 


50000 


02103 




CLA 


PAT13 


01744 


02000 


01747 




TRA 


MFG20 


01745 


50000 4 


00000 


MFG19 


CLA 


0*4 


01746 


77100 


00022 




ARS 


18 


01747 


62100 2 


00000 


MFG20 


STA 


0*2 


01750 


2 00001 2 


01646 




TIX 


MFGOO»2*1 


01751 


07400 1 


07656 


WFGOO 


TSX 


WAT0Q»1 


01752 


00000 


00002 






2 


01753 


Q 00000 


03163 




HTR 


2TA 


01754 


07400 1 


07505 




TSX 


TAPOO.l 


01755 


00000 


O0003 




HTR 


3 


01756 


00000 


03163 


LOTA) 


HTR 


3TA 

PROGRAM 


01757 


50000 


03162 


MTRTP 


CLA 


3TA-1 


Q1760 


lOOOO 


02XX11 




T2E 


WIRGO 


01761 


-0 73400 2 


00000 




PDX 


0*2 


01762 


77100 


00022 




ARS 


18 


01763 


40000 


01756 




ADD 


K3TAJ 


01764 


62100 


02000 




STA 


MTR02 


01765 


62100 


02007 




STA 


MTR04 


01766 


50000 


04550 




CLA 


OTA-1 


01767 


-0 10000 


01771 




TNZ 


MTROK 


01770 


02000 


07751 




TRA 


TEIFER 


01771 


77100 


00022 


MTROK 


ARS 


18 


01772 


40000 


07750 




ADD 


LIOTAJ 


01773 


62100 


01775 




STA 


MTR01 


01774 


-0 53400 4 


04550 


MTROO 


LXD 


0TA-1»4 


01775 


50000 4 


00000 


MTR01 


CLA 


0*4 


01776 


62200 


07746 




STD 


E3 


0177? -0 320O0 07742 




ANA"~MSK 



A2 PRIME AND A2 GO TO AC 

(1> A2 PRIME REPLACES A2 

TAKE FIRST WORD OF NEXT 2TA ENTRY 

TAKE SECOND WORD OF 2TA ENTRY 

EXIT TO TAPE WRITING PROGRAM 

INTEGER N GOES TO INDEX C 

N EOUALS 7 NO MODIFICATION 

N EQUALS 6 

N EOUALS 5 

N EQUALS 4 

N EQUALS 3 

N EQUALS 2 

N EQUALS 1 

N EQUALS 

TAKE WORD 2 OF 2TA ENTRY 

(2) 

K PRIME AND K GO TO AC 

ERASE K PRIME 



NO MODIFICATION 
NO MODIFICATION 



F1P03780 
F1P03790 
F1P03800 
F1P03810 
F1P03820 
F1P03830 
F1P03840 
F1P03850 
F1P03860 
F1P03870 
F1P03880 
F1P03890 
F1P03900 
F1P03910 
F1P03920 
F1P03930 
F1P03940 
F1P03950 
F1P03960 
F1P03970 
F1P03980 



I1U COMPARE K WITH TEIFNO AR6UMENTF1P03990 



K EQUALS ARGUMENT 
I3K) 



K PRIME AND X GO TO AC 

K PRIME GOES TO ADDRESS OF AC 

111. K PRIME REPLACES K 

TAKE FIRST WORD OF NEXT 2TA ENTRY 

WRITE 2TA ON TAPE 



ASSEMBLE TRAD 



FOR MODIFICATION OF TRAD WITH TEIFNO 
GET NUM OF WORDS IN 3TA 
NO ENTRIES IN TABLE 
NUMBER OF WORDS PUT IN INDEX B 
RESET ADDRESSES 



GET NUMBER WORDS IN OTA* 
TABLE EXISTS 
STOP FOR NO TABLE IN OTA 

PUT NUMBER WORDS IN AC ADDRESS 
ADD OTA ORIGIN 
INITIALIZE ADDRESS 
SET INDEX C TO NUM WOROS IN OTA 
A SUB I PRIME AND A SUB I GO 
SAVE A SUB I PRIME 
ERAS E A SUB 



F1P04000 
F1P04010 
FIP04020 
F1P04030 
F1P04040 
F1P04050 
F1P04060 
F1P04070 
F1P04080 
F1P0409G 
F1P04100 
F1P04H0 
F1P04120 
F1P04130 
F1P04140 
F1P04150 
F1P04160 
F1P04170 
F1P04180 
F1P04190 
F1P04200 
F1P04210 
F1P04220 
F1P04230 
F1P04240 
F1P04250 
F1P04260 
F1P04270 
F1P04280 
TO AC F1P04290 
F1P04300 
04310 



itf 



o 



u 



n 



n 



02000 





40200 


2 


ooooo 


MTR02 


SUB 


0*2 


02001 





10000 





02005 




TZE 


MTR03 


02002 


2 


00001 


4 


01775 




TIX 


MTRO 1*4*1 


02003 





50000 





02103 




CLA 


PAT13 


02004 





02000 





02007 




TRA 


MTR04 


02005 





50000 





07746 


MTR03 


CLA 


E3 


02006 





77100 





00022 




ARS 


IS 


02007 





62100 


2 


00000 


MTR04 


STA 


0*2 


02010 


2 


00001 


2 


01774 




TIX 


MTROO*2*1 


02011 





07400 


1 


07656 


WTROO 


TSX 


WATOO»1 


02012 





00000 





00003 






3 


02013 





00000 





03163 






3TA 


02014 





07400 


1 


07505 


ADOOO 


TSX 


TAP00»1 


02016 





00000 





00001 






1 


02016 





00000 





03163 


OAT DO 




1TA 

PROGRAM 


02017 





50000 





03162 


MDOTP 


CLA 


1TA-1 


02020 





10000 





02074 




TZE 


WDOOQ 


02021 


-0 


7340O 


2 


OOOOO 




PDX 


0*2 


02022 





77100 





00022 




ARS 


18 


02023 





40000 





02016 




ADD 


OATDO 


02024 





62100 





02036 




STA 


MDOOO 


02025 





62100 





02072 




STA 


MD006 


02026 





62100 





02041 




STA 


MD030 


02027 





50000 





04550 




CLA 


OTA-1 


02030 





77100 





00022 


MDOOK 


ARS 


IS 


02031 





40000 





07750 




ADO 


L(OTA> 


02032 





62100 





02050 




STA 


MDO02 


02033 





62100 





02057 




STA 


M0O03 


02034 





62100 





02062 




STA 


M0O04 


02035 





62100 





02070 




STA 


M0O041 


02036 





50000 


2 


OOOOO 


MDOOO 


CLA 


0*2 


02037 





12000 





02043 




TPL 


MD001 


02040 





76000 





O0O03 




SSP 




02041 





60100 


2 


OOOOO 


MD030 


STO 


0*2 


02042 





02000 





02073 




TRA 


MD007 


02043 


-0 


32000 





07742 


MD001 


ANA 


MSK 


02044 





62100 





07747 




STA 


El 


020*5 


-0 


53400 


4 


04550 




LXO 


0TA-1»4 


02046 


3 


OOOOO 


A 


02050 




TXH 


MD002»4»0 


02047 





02000 





07751 




TRA 


TEIFER 


02050 





50000 


4 


OOOOO 


MD002 


CLA 


0*4 


02051 


-0 


32000 





07742 




ANA 


MSK 


02052 





40200 





07747 




SUB 


El 


02053 





10000 





02057 




TZE 


MDO03 


02054 


2 


00001 


4 


02050 




TIX 


M0O02»4»l 


02055 





50000 





02103 




CLA 


PAT13 


02056 





02000 





02072 




TRA 


MDO06 


02057 





50000 


it 


OOOOO 


MD003 


CLA 


0.4 


02060 





62200 





07746 




STD 


E2 


02061 


-2 


00001 


4 


02066 




TNX 


MD008»4*1 


02062 





50000 


4 


OOOOO 


MD004 


CLA 


0*4 


02063 


-0 


32000 





07742 




ANA 


MSK 


02064 





4O20O 





07747 




sue 


El 



ADOR IS 3TA + NUM WORDS IN 3TA (1 

A SUB 1 EQUALS ARGUMENT 

A SUB I NOT EQUAL TO ARGUMENT 



A SUB I PRIME GOES TO AC DECR* 
A SUB I PRIME GOES TO AC ADOR* 
(1U A SUB I PRIME REPLACES A SUB 
TAKE NEXT WORD OF 3TA 
ALL WORDS OF 3TA EXAMINED SO 
WRITE 3TA ON TAPE 

ASSEMBLE TDO 

ORIGIN OF ASSEMBLED TDO 
FOR MODIFICATION OF TDO WITH TEIFNO 

6ET NUMBER OF WORDS IN 1TA 
EXIT FOR NO WORDS IN TABLE 
NUMBER OF WORDS IN ITA PUT IN IRB 
NUM WORDS PUT IN AC ADDR 
ADD ORIGIN OF ASSEMBLED TDO 
INITIALIZE ADDRESSES 



GET NUMBER WORDS IN OTA 
PUT NUMBER WORDS IN AC ADDRESS 
AOD OTA ORIGIN AND 
INITIALIZE ADDRESSES 



ADDR IS ITA + NUMBER WORDS 

SIGN OF WORD IS PLUS 

CHANGE SIGN OF WORD IN TABLE 



(1) 



ERASE DECR IN AC 
SAVE BETA 

SET INDEX C TO NUM WORDS IN OTA 
TEST FOR TEIFNO 
STOP FOR NO TEIFNO 

BETA PRIME AND BETA GO TO AC 

ERASE BETA PRIME 

BETA COMPARED WITH TABLE ARGUMENT 

BETA EQUALS ARGUMENT 

BETA NOT EQUAL TO AR6UMENT 



BETA PRIME AND BETA GO TO AC 
SAVE DECR OF FIRST POSSIBILITY 
SEE IF THERE ARE 2 ENTRIES FOR 
ONE ARGUMENT 
ERASE DECR IN AC 



I F1P04320 
F1P04330 
F1P04340 
F1P04350 
F1P04360 
F1P04370 
F1P04380 
IF1PO4390 
F1P04400 
F1P04410 
F1P04420 
F1P04430 
F1P04440 
F1P04450 
F1P04460 
F1P04470 
F1P04480 
F1P04490 
F1PO45O0 
F1P04510 
F1P04520 
F1P04530 
F1P04540 
F1P04550 
F1P04560 
F1P04570 
F1P04580 
F1P04590 
F1P04600 
FIP04610 
F1P04620 
F1P04630 
F1P04640 
F1P04650 
F1P04660 
F1P04670 
F1P04680 
F1P04690 
F1P04700 
F1P04710 
F1P04720 
F1P04730 
F1P0474O 
F1P04750 
F1P04760 
F1P04770 
F1P04780 
F1P04790 
F1P04800 
F1P04810 
F1P04820 
F1P04830 
F1P04840 
*1P04«50 



W 



02065 
02066 
02067 
02070 
02071 
02072 
02073 
02074 
02075 
02076 
02077 
02100 
02101 
02102 
02103 
02104 
02105 



10000 
50000 
02000 
50000 
77100 
62100 
2 00005 
O 07400 
00000 

00000 

76200 

02000 

77777 
+000000077777 
00000 00000 

00000 

00000 















02070 
07746 
02071 
00000 
00022 
00000 
02036 
07656 
00001 
03163 
00221 
00004 
00000 



00000 
00001 



00507 
00510 
005*1 
00512 
00513 
0O514 

00515 
00516 
00517 

00520 
00521 



ooo qo 

00O0O 
02106 
02107 
02110 
02243 
02243 
02244 
02245 
03162 
03162 
03163 



00000 
00507 00507 
00000 01613 



MD008 

MD0041 

MD005 

MD006 

MD007 

WDOOO 

T0T1 



DMASK 

PATH 

PAT13 

PAT14 

PAT15 

6ARBGE 

WORKCL 

NEWBA5 

BUFFER 

EiPTS 

FLSIZE 

CMPREC 

END1PA 

1TAM1 

1TA 



T2E 
CLA 
TRA 
CLA 
ARS 
STA 
TIX 
TSX 
HTR 
HTR 
RTB 
TRA 

OCT 
HTR 
HTR 
HTR 
BSS 
BSS 
BSS 
8ES 
BSS 
BSS 
BSS 
ORG 
BSS 
BSS 



MD0041 

E2 

M0005 

0>4 

18 

0*2 

M0O0O*2»5 

WATOO.l 

1 

1TA 

1 

4 

0*0»32767 

77777 







1 

1 

1 

90 

1 

1 

1 

1650 

1 

750 



THERE ARE 2 ENTRIES 
THERE IS ONLY ONE ENTRY 
FOR THIS ARGUMENT 



tlU BETA PRIME REPLACES BETA 
TAKE NEXT ENTRY IN ITA 
WRITE TDO ON TAPE 



GO TO 1-CS FOR PART 8 OF ONE PRIME 



NO OF WORDS IN BLOCK 
BLOCK FOR TABLE ASSEMBLING 



704 FORTRAN MASTER RECORD CARD / 1 PRIME PART B = F02«<0000» 
ORG 

PZE 0RG1PB».0RG1P& 
PZE END1PB 

THIS IS PART B OF 2 PARTS OF SECTION ONE PRIME 



76100 
07400 
© OOOOO 
OOOOO 
-0 53400 

~y ooooo 



00507 0RG1PB 

OOOOO 

1 07505 

O 00006 TNT6 
01614 T0T6 
4 01613 
4 00546 



07400 1 07505 
OOOOO 00020 
OOOOO 03564 L16TA 

-0 53400 2 03563 
-3 OOOOO 2 00546 



ORG 327 

NOP 

TSX TAPOOtl 

HTR 6 

HTR 6TA 

LXD 6TA-1*4 

TXL CLMD09.4»0 

TSX TAP00»1 
16 
16TA 

LXD 16TA-1.2 
TXL CLMD09»2»0 



TO PERMIT A STOP FOR TESTING USE. 
ASSEMBLE FORVAL 



TEST FOR ENTRIES IN FORVAL* IF NONE WRITE 
IDENTIFICATION WORD AND ZERO WORD. 

ASSEMBLE TABLE OF FIRST* LAST FORMULA 
NUMBERS OF CALL STATEMENTS. 



TEST FOR ANY ENTRIES IN CALL NUMBER TABLE* 
IF NONE WRITE OUT FORVAL TABLE. 



THERE ARE ENTRIES IN BOTH FORVAL AND CALL NUMBER TABLES. 
THEREFORE THERE MAY BE SOME NUMBER IN FORVAL WHICH MUST BE 
R EPLACED WITH T H£-t AST NUMBE R RELATED TO A CAb t . STATEM EN T . 



F1P04660 

F1P04870 

F1P04880 

F1P04890 

F1P04900 

F1P04910 

F1P04920 

F1P04930 

F1P04940 

F1P04950 

F1P04960 

F1P04970 

F1P04980 

F1P04990 

F1P05000 

F1P05010 

F1P05020 

F1P05030 

F1P05040 

F1P05050 

F1P05060 

F1P0507O 

F1P05080 

F1P05090 

F1P05100 

F1P05110 

F1P05120 

F1P05130 

F1P05140 

F1P05150 

F1P05160 

F1P05170 

F1P05180 

F1P05190 

F1P05200 

F1P0521O 

F1P05220 

F1P05230 

F1PO5240 

F1PO5250 

F1P05260 

F1PO5270 

F1P05280 

F1P05290 

F1P05300 

F1P05310 

F1P05320 

F1P05330 

F1P05340 

F1P05350 

F1P05360 

F1P05370 

F1P05380 



-&> 



n 



n 



00522 





60000 





02107 




STZ 


WORKCL 


00523 





53400 


1 


07730 




LXA 


L(0)*1 


00524 


-0 


53400 


4 


01613 




LXD 


6TA-1.4 


00525 


-0 


75400 


2 


00000 




PXD 


»2 


00526 





77100 





00022 




ARS 


18 


00527 





40000 





00517 




ADD 


L16TA 


00530 





62100 





005 3 i 




STA 


*+l 


00531 





50000 


2 




CLMD01 


CLA 


...2 


00532 





62200 





02107 




STD 


WORKCL 


00533 


-0 


32000 





07742 




ANA 


MSK 


00534 





76700 





00022 




ALS 


18 


00535 





34000 


1 


01614 


CLMD02 


CAS 


6TA.1 


00536 


1 


77777 


1 


00545 




TXI 


CLM004»1»- 


00537 





02000 





00542 




TRA 


CLMD03 


00540 


2 


00001 


2 


00531 




TIX 


CLMD01.2#1 


00541 





02000 





00546 




TRA 


CLMD09 


00542 





50000 





02107 


CLMD03 


CLA 


WORKCL 


00543 





62200 


1 


01614 




STD 


6TA»1 


00544 


1 


77777 


1 


00545 




TXI 


*+l»l»-l 


00545 


2 


00001 


4 


00535 


CLMD04 


TIX 


CLMD02»4»1 


00546 





07400 


1 


07656 


CLM009 


TSX 


WATOO.l 


00547 





00000 





00006 




HTR 


6 


00550 





0000 





01614 




HTR 


6TA 


00551 





50000 





01613 




CLA 


6TA-1 


00552 


-0 


10000 





00554 




TNZ 


WFDOO 


00553 





02000 





00610 




TRA 


A4VAR 


00554 





76600 





00302 


WFDOO 


WRS 


194 


00555 


-0 


73400 


'l 


00000 


WFD01 


PDX 


0*1 


00556 





53400 


2 


00555 




LXA 


WF001i2 


00557 





77100 





00022 




ARS 


18 


00560 





40000 





00512 




ADD 


T0T6 


00561 





62100 





00571 




STA 


WFD04 


00562 





62100 





00602 




STA 


WFD07 


00563 





40200 





07731 




SUB 


L<1) 


00564 





62100 





00570 




STA 


WFD03 


00565 





62100 





00601 




STA 


WF006 


00566 


1 


77777 


1 


00567 




TXI 


WFD02»1»-1 


00567 





76000 





00000 


WFD02 


CLM 




00570 





36100 


1 


00000 


WFD03 


ACL 


0*1 


00571 





36100 


1 


00000 


WFD04 


ACL 


Of 1 


00572 





60200 


2 


03564 




SLW 


FRCHS.2 


00573 


1 


77777 


2 


00574 




TXI 


WFD05»2»-1 


00574 


2 


000d2 


1 


00567 


WFD05 


TIX 


WFD02.1.2 


00575 





53400 


2 


00555 




LXA 


WFD01»2 


00576 


-0 


53400 


1 


01613 




LXD 


6TA-1»1 


00577 





46000 





07744 




LOA 


DRL02 



THE PROGRAM TO SEARCH ANO REPLACE IS BASED UPON THE TWO 
TABLES BEING ORDERED BY MAGNITUDE OF INTERNAL FORMULA 
NUMBERS. THIS PERMITS A SINGLE PASS OVER BOTH. 



PREPARE FOR FORWARD SEARCH. 
NO OF ENTRIES IN FORVAL. 



GET NEXT ENTRY IN 
DIVIDE ENTRY INTO 



CALL TABLE. 
FIRST IN ACt 



LAST IN CS. 



COMPARE CALL FIRST IN AC TO NEXT FORVAL. 

CALL GREATER THAN FORVAL 

CALL EQUAL FORVAL. 

GO FOR NEXT CALL ENTRY IF ANY* OTHERWISE 

GO WRITE FORVAL TABLE. 

REPLACE FORMULA NUMBER IN FORVAL WHICH IS 
FIRST RELATED TO CALL WITH LAST. 



GO ON WITH SEARCH IF THERE ARE MORE 
IF NOT 60 WRITE FORVAL TABLE. 



FORVAL 

ON TAPE 

GET NUMBER OF WORDS IN FORVAL 

TABLE EXISTS 

EXIT TO ASSFMBIF NEXT TABLE 

PREPARE TO WRITE FORVAL ON DRUM 

SET INDEX A TO NUM OF WORDS 

SET INDEX B TO ZERO 

PUT NUM OF WORDS IN AC 



INITIALIZE 



ADDRESSES 



SUBTRACT ONE FROM INDEX A 
COMPUTE CHECK SUM 
FOR EACH FORVAL 
ENTRY AND SAVE IN 
SEPARATE TABLE 



TEST END OF 
SET INDEX B 



FORVAL ENTRIES 
TO ZERO 



F1P05400 
F1P05410 
F1P05420 
F1P05430 
F1P05440 
F1P05450 
FIP05460 
F1P05470 
F1P05480 
F1P05490 
F1P0550O 
F1P05510 
F1P05520 
F1P05530 
F1P05540 
F1P05550 
F1P05560 
F1P05570 
F1P05580 
F1P05590 
F1P05600 
F1P05610 
F1P05620 
F1P05630 
F1P05640 
FORVALSF1P05650 
F1P05660 
F1P05670 
F1P05680 
F1P05690 
F1P05700 
F1P05710 
F1P05720 
F1P0573O 
F1P05740 
F1P05750 
F1PQ5760 
F1P05770 
F1P05780 
F1P05790 
F1P05800 
F1P05810 
F1P05820 
F1P05830 
F1P05840 
F1P05850 
F1P05860 
F1P05870 
F1P05880 
F1P05890 
F1P05900 
F1P0S910 
F1P05920 
F1P05930 



rii 



00600 


1 


77777 


1 


00601 




TXI 


WFD06»1»-1 


00601 





70000 


1 


00000 


WFD06 


CPY 


Otl 


00602 





700O0 


1 


00000 


WFD07 


CPY 


0»1 


00603 


"2 


00002 


1 


00606 




TNX 


WFD08.1t2 


00604 





70000 


2 


03564 




CPY 


FRCHS»2 


00605 


1 


77777 


2 


00601 




TXI 


WFD06»2»-1 


00606 





70000 


2 


03564 


WFD08 


CPY 


FRCHS*2 


00607 





70000 





07743 




CPY 


FRCON 


00610 





07400 


1 


07505 


A4VAR 


TSX 


TAPOOtl 


00611 





00000 





00005 


TNT5 


HTR 


5 


00612 





00000 





01614 




HTR 


5TA 


00613 





07400 


1 


07656 




TSX 


WATOOtl 


00614 





00000 





00005 




HTR 


5 


00615 





00000 





01614 




HTR 


5TA 


00616 





07400 


1 


07505 




TSX 


TAPOO.l 


00617 





00000 





00004 




HTR 


4 


00620 





00000 





01614 




HTR 


4TA 


00621 





07400 


1 


07656 




TSX 


WAT00»1 


00622 





00000 





00004 




HTR 


4 


00623 





00000 





01614 




HTR 


4TA 

PROGRAM 


00624 





07400 


1 


07505 




TSX 


TAP00»1 


00625 





00000 





00007 




HTR 


7 


00626 





00000 





01614 


T0T7 


HTR 


7TA 


00627 





50000 





01613 


MFRTP 


CLA 


7TA-1 


00630 





10000 





01114 




TZE 


WFROO 


00631 


-0 


73400 


2 


00000 




PDX 


0*2 


00632 





77100 





00022 




ARS 


18 


00633 





40000 





00626 




ADD 


T0T7 


00634 





62100 





00645 




STA 


MFROO 


00635 





62100 





00662 




STA 


MFR03 


00636 





50000 





04550 




CLA 


OTA-l 


00637 


-0 


10000 





00641 




TN2 


MFROK. 


00640 





02000 





07751 




TRA 


TEIFER 


00641 





77100 





00022 


MFROK 


ARS 


18 


00642 





40000 





07750 




ADD 


L(OTA) 


00643 





62100 





00651 




STA 


MFR01 


00644 





62100 





00660 




STA 


MFR02 


00645 





50000 


2 


00000 


MFROO 


CLA 


0.2 


00646 





12000 





00663 




TPL 


MFR04 


00647 





62100 





01604 




STA 


E10 


00650 


-0 


53400 


1 


04550 




LXD 


OTA-l »1 


00651 





50000 


1 


00000 


MFR01 


CLA 


0*1 


00652 


-0 


32000 





07742 




ANA 


MSK 


00653 





40200 





01604 




SUB 


E10 


00654 





10000 





00660 




TZE 


MFR02 


00655 


2 


00001 


1 


00651 




TIX 


MFR01»1*1 


00656 





50000 





07730 




CLA 


L(0) 


00657 





02000 





00662 




TRA 


MFR03 


00660 





50000 


1 


04551 


MFR02 


CLA 


OTA* I 


00661 





77100 





00022 




ARS 


18 


00662 





62100 


2 


ooooo 


MFR03 


STA 


0.2 


00663 


2 


00001 


2 


00645 


MFR04 


TIX 


MFR00»2»1 



WRITE FORVAL 

ENTRY 

TEST END OF FORVAL ENTRIES 

WRITE CHECK SUM 

FOR ABOVE ENTRY 

WRITE CHECK SUM FOR LAST ENTRY 

WRITE END OF TABLE SIGNAL 

ASSEMBLE FORVAR. - 



WRITE FORVAR ON TAPE 



ASSEMBLE FORTAG 



WRITE FORTAG ON TAPE 



FOR PROCESSING FREQUENCY TABLE*. FRET 
ASSEMBLE FRET. 

ORIGIN OF ASSEMBLED FRET* 

GET NUM OF WORDS IN TABLE 

EXIT FOR EMPTY TABLE 

SET INDEX B TO NUM WORDS IN TABLE 

PUT NUMBER IN AC ADDRESS AND 

INITIALIZE ADDRESSES 



SET NUMBER OF WORDS IN OTA 
TABLE EXISTS 
STOP FOR NO TABLE IN OTA 

PUT NUMBER WORDS IN AC ADDRESS 
ADD OTA ORIGIN AND 
INITIALIZE ADDRESSES 

ADDR IS 7TA + NUMBER OF WORDS 
DO NOT MODIFY THIS WORD 
SAVE ABSOLUTE PART OF WORD 
SET INDEX TO NUM WORDS IN OTA 
TE1FN0 ARGUMENT IS IN AC. 
COMPARE WITH 7TA WORD 

MODIFY 7TA WORD 
GO TO NEXT TEIFNO WORD 
NO ENTRY FOUND IN TEIFNO. IGNORE. 

TEIFNO WORD GOES TO AC 
INTERNAL FORMULA NUM IN AC ADDR. 
INTERNAL FORMULA NUM GOES TO 7TA 
EXAMINE NEXT WORD OF 7TA 



PROG RAM F OR S OR TING -F-RET 



F1P05940 
F1P05950 
F1P05960 
F1P05970 
F1P05980 
F1P05990 
F1P06000 
F1P06010 
F1P06020 
F1P06030 
F1P06040 
F1P06050 
F1P06060 
F1P06070 
F1P06080 
F1P06090 
F1P06100 
F1P06110 
F1P06120 
F1P06130 
F1P06140 
F1P06150 
F1P06160 
F1P06170 
F1P06180 
F1P06190 
F1P06200 
F1P06210 
F1P06220 
F1P06230 
F1P06240 
F1P06250 
F1P06260 
F1P06270 
F1P06280 
F1P06290 
F1P06300 
F1P063HO 
F1P06320 
F1P06330 
F1P06340 
F1P06350 
F1P06360 
F1P06370 
F1P06380 
F1P06390 
F1P06400 
F1P06410 
F1P06420 
F1P06430 
F1P06440 
F1P06450 
F1P06460 
-F4P06470 



-ft*- 



u 



n 



O 



00664 


50000 





01613 


SFRTP 


CLA 7TA-1 


00665 


77100 





00022 




ARS 18 


00666 


40000 





00626 




ADD T0T7 


00667 


62100 





00701 




STA SFR01 


00670 


62100 





00707 




STA SFR03 


00671 


62100 





00721 




STA SFR06 


00672 


62100 





00724 




STA SFR07 


00673 


62100 





00733 




STA SFR11 


00674 


62100 





00743 




STA SFR13 


00675 


62100 





00753 




STA SFR17 


00676 


76000 





00000 


SFROO 


CLM 


00677 


60100 





07746 




STO E12 


00700 


-0 53400 


1 


01613 




LXD 7TA-ltl 


00701 


50000 


1 


ooooo 


SFR01 


CLA 0*1 


00702 


-0 12000 





00704 




TMI SFR02 


00703 


1 77777 


1 


00701 




TXI SFR01.1.-1 


00704 


62100 





01605 


SFR02 


STA Ell 


00705 


-0 63400 


1 


01606 




SXD A180X.1 


00706 


-2 00001 


1 


00762 




TNX SFR21fl»l 


00707 


50000 


1 


OOOOO 


SFR03 


CLA 0.1 


00710 


-0 12000 





00713 




TMI SFR05 


00711 


-3 00001 


1 


00762 




TXL SFR21.1.1 


00712 


1 77777 


1 


00707 




TXI SFR03»1*-1 


00713 


76000 





00003 


SFR05 


SSP 


00714 


40200 





01605 




SUB Ell 


00715 


12000 





00701 




TPL SFR01 


00716 


50000 





07731 




CLA L(l> 


O0717 


60100 





07746 




STO E12 


00720 


53400 


4 


07730 




LXA L(0>»4 


00721 


50000 


1 


OOOOO 


SFR06 


CLA C»l 


00722 


60100 


4 


04551 




STO 0TA»4 


00723 


1 77777 


1 


00724 




TXI SFR07tl.-l 


00724 


50000 


1 


OOOOO 


SFR07 


CLA 0.1 


OOT25 


^O 12000 


Q0732 




TMI SFvRlO 


00726 


1 77777 


4 


00727 




TXI SFR09.4.-1 


00727 


60100 


4 


04551 


SFR09 


STO 0TA.4 


00730 


-3 00001 


1 


Q0732 




TXL SFR1Q.1.1 


00731 


1 77777 


1 


00724 




TXI SFR07»1»-1 


00732 


-0 53400 


1 


01606 


SFR10 


LXD A1B0X.1 


00733 


50000 


1 


OOOOO 


SFR11 


CLA 0*1 


00734 


1 77777 


4 


00735 




TXI SFR12.4.-1 


00735 


60100 


4 


0*551 


SFR12 


STO OTA.* 


00736 


-0 63400 


4 


01607 




SXD A2B0X.4 


00737 


50000 





01606 




CLA A1B0X 


00740 


40000 





01607 




ADD A2B0X 


00741 


62200 





01607 




STD A2B0X 


00742 


1 77777 


1 


007*3 




TXI SFR13.1.-1 


00743 


50000 


1 


OOOOO 


SFR13 


CLA 0»1 


00744 


-0 12000 





00750 




TMI SFR15 


00745 


1 77777 


4 


00746 




TXI SFR14.4.-1 


00746 


60100 


4 


04551 


SFR14 


STO 0TA.4 


00747 


1 77777 


1 


00743 




TXI SFR13.1.-1 


00750 


-0 53400 


1 


01606 


SFR15 


LXD A1B0X.1 


00751 


53400 


2 


07730 




LXA L(0)»2 



6ET NUMBER OF WORDS IN FRET F1P06480 
NUMBER WORDS IN TABLE GO TO AC ADDRF1P06490 
COMPUTE NUMBER OF WORDS IN TABLE F1P06500 
PLUS ORIGIN OF TABLE AND INI TIALIZEF1P06510 



ADDRESSES 



SET E12 TO ZERO TO INDICATE 

TABLE IS IN ORDER. 

SET INDEX A TO NUM OF WORDS IN 7TA F1P06600 



F1P06520 
F1P06530 
F1P06540 
F1P06550 
F1P06560 
F1P06570 
F1P06580 
F1P06590 



A WORD OF 7TA GOES TO AC. 



F1P06610 



COMPARE THIS WORD. IT IS ALPHA ONE F1P06620 
EXAMINE NEXT WORD OF 7TA F1P06630 

SAVE ALPHA ONE FOR COMPARISON F1P06640 
SAVE INDEX FOR RETURN TO ALPHA ONE F1P06650 
EXAMINE NEXT WORD OF 7TA 
PUT NEXT WORD OF 7TA IN AC. 



F1P06660 
F1P06670 

COMPARE THIS WORD. IT IS ALPHA TWO F1P06680 

F1P06690 
F1P06700 
F1P06710 
F1P06720 
F1P06730 



EXIT FOR END OF TABLE 
EXAMINE NEXT 7TA WORD 
COMPUTE ALPHA TWO 
MINUS ALPHA ONE 
ALPHA ONE IS SMALLER 
C(E12I NOT ZERO INDICATES TABLE WASF1P06740 

NOT IN ORDER ON THIS PASS. F1P06750 

SET INDEX C TO ZERO TO INDEX OTA F1P0676O 

ALPHA TWO GOES TO AC F1P06770 

SAVE ALPHA TWO F1P06780 

GET NEXT WORD OF ALPHA TWO ENTRY F1P06790 

PUT THIS WORD IN AC F1P06800 

ALL WORDS OF ALPHA TWO €NTR¥ SAVED FlPO681r0 

GO TO NEXT WORD OF OTA F1P06820 

SAVE WORDS OF ALPHA TWO ENTRY F1P06830 

ALPHA TWO ENTRY IS END OF TABLE F1P06840 

EXAMINE NEXT WORD OF 7TA F1P06850 

SET INDEX A TO GET ADDR OF ALPHA 1 F1P06860 

ALPHA ONE GOES TO AC F1P06870 

GO TO NEXT WORD OF OTA F1P06880 

SAVE ALPHA ONE F1P06890 

COMPUTE INDEX FOR F1P06900 

RETURNING TO ALPHA ONE F1P06910 

AFTER TRANSPOSING F1P06920 

ALPHA ONE AND ALPHA TWO ENTRIES F1P06930 

EXAMINE NEXT WORD OF 7TA F1P06940 

PUT NEXT WORD IN AC F1P06950 

FINISHED SAVING ALPHA ONE ENTRY F1P06960 

GO TO NEXT WORD OF OTA F1P06970 

SAVE WORDS OF ALPHA ONE ENTRY F1P06980 

EXAMINE NEXT WORD OF 7TA F1P0699O 

SET INDEX A TO GET ADDR OF ALPHA 1 F1P07000 

SET INDEX B TO INDEX OTA F1P07010 



A 



00752 





50000 


2 


04551 


SFR16 


CLA 


0TA»2 


ALPHA ONE ENTRY AND ALPHA TWO ENTRYF1P07020 


00753 





60100 


1 


00000 


SFR17 


STO 


0*1 


ARE INTERCHANGED 


FlPV(OiV 


00754 


1 


77777 


2 


00755 




TXI 


SFR18»2*-1 


GO TO NEXT WORD OF OTA 


F1P07040 


00755 


-2 


00001 


1 


00676 


SFR18 


TNX 


SFROO* It 1 


END OF TABLE EXIT 


F1P07050 


00756 


-3 


00001 


4 


00760 




TXL 


SFR20*4.1 


TEST IF OTA IS EMPTIED 


F1P07060 


00757 


1 


00001 


4 


00752 




TXI 


SFR16.4.1 


COUNT WORDS TAKEN FROM OTA 


F1P07070 


00760 


-0 


53400 


1 


01607 


SFR20 


LXO 


A2B0X»1 


GET OLD ALPHA ONE AS NEW ALPHA ONE F1P07060 


00761 





02000 





00701 




TRA 


SFR01 


START OVER WITH NEW ALPHA ONE 


F1P07090 


00762 





50000 





07746 


SFR21 


CLA 


E12 


TEST IF TABLE IS IN ORDER 


F1P07100 


00763 


-0 


10000 





00676 




TNZ 


SFROO 

PROGRAM TO 
TIFGO 


EXAMINE TABLE AGAIN 
REVERSE FREQUENCIES FOR GO TO VECTOR ENTRIES If, 


F1P07110 
F1P07120 
F1P07130 


00764 





76400 





00222 


RFT00 


BST 


146 


MOVE TAPE 


F1P07140 


00765 





76400 





00222 




BST 


146 


THRU TABLES 


F1P07150 


00766 





76400 





00222 




BST 


146 


ALREADY WRITTEN 


F1P07160 


00767 





76400 





00222 




BST 


146 


TO OBTAIN 


F1P07170 


00770 





76400 





00222 




BST 


146 


TIFGO 


F1P07180 
F1P07190 


00771 





76400 





00222 




BST 


146 




00772 





76200 





00222 




RDS 


146 


SELECT TAPE FOR READING 


F1P07200 


00773 





50000 





07734 




CLA 


L(4) 


PREPARE TO COUNT 


F1P07210 


00774 





60100 





01610 




STO 


IT1 


TWO TAPE TESTS 


F1P07220 


00775 





70000 





07747 




CPY 


E1RF 


GET TABLE NUMBER 


F1P07230 


00776 





50000 





07747 




CLA 


E1RF 


AND COMPARE WITH 


F1P07240 


00777 





40200 





07745 




SUB 


TNT2 


TABLE CALLED FOR 


FIP07250 


01000 





10000 





01002 




TZE 


RFTOl 


TABLE NUMBERS AGREE 


F1P07260 


01001 





07400 


4 


00004 




TSX 


DIAG»4 


STOP FOR TABLE NOT IN RIGHT RECORD F1P07270 


01002 





70000 





04550 


RFT01 


CPY 


OTA-1 


SET NUMBER OF WORDS 


F1P07280 


01003 





50000 





04550 




CLA 


OTA-1 


IN TAPE RECORD 


F1P07290 


01004 





10000 





01107 




TZE 


WFR01 


EXIT FOR EMPTY TABLE ON TAPE 


F1P07300 


01005 





62200 





01022 




STD 


RFT05 




F1P07310 


01006 


-0 


76000 





00012 




RTT 




TURN OFF TAPE 


F1P07320 


01007 





76100 





00000 




NOP 




CHECK INDICATOR AND LIGHTS 


F1P07330 


01010 





53400 


2 


07730 


RFT02 


LXA 


L(0)i2 


SET INDEX B TO ZERO 


F1P07340 


01011 





70000 


2 


04551 


RFT03 


CPY 


0TA»2 




F1P07350 


01012 


1 


77777 


2 


01011 




TXI 


RFT03»2»-1 


COPY LOOP 


F1P07360 


01013 





76100 





00000 




NOP 




END OF FILE JUMP 


F1P07370 


01014 





76600 





00333 




WRS 


219 


END OF RECORD* DELAY FOR TAPE TEST F1P07380 


01015 


-0 


76000 





00012 




RTT 




TAPE TEST 


F1P07390 


OL016 





02000 





0102 




TRA 


RFT04 


TAPE TEST ON 


F1P0340© 


01017 





02000 





01032 




TRA 


RFT07 


TAPE TEST OFF 


F1P07410 


01020 





76400 





00224 


RFT04 


BST 


148 


REPEAT RECORD 


F1P07420 


01021 





76200 





00224 




RDS 


148 


PREPARE TO READ RECORD 


F1P07430 


01022 


1 


00000 


2 


01023 


RFT05 


TXI 


RFT06.2*** 


COMPENSATE FOR REREADING RECORD 


F1P07440 


01023 





50000 





01610 


RFT06 


CLA 


IT1 


COUNT 


F1P07450 


01024 





40200 





07731 




SUB 


L(l) 


TWO 


F1P07460 


01025 





60100 





01610 




STO 


IT1 


TAPE TESTS 


F1P07470 


01026 





70000 





07747 




CPY 


E1RF 


GET TABLE NUMBER 


F1P07480 


01027 





70000 





07747 




CPY 


E1RF 


GET NUMBER OF WORDS IN TABLE 


F1P07490 


01030 





12000 





01010 




TPL 


RFT02 


60 TO READ TAPE 


F1P07500 


01031 





07400 


4 


00004 




TSX 


DIAG#4 


STOP FOR SECOND TAPE TEST 


F1P07510 


01032 





50000 





01613 


RFT07 


CLA 


7TA-1 


COMPUTE TABLE 


FIP07520 


01033 





77100 





00022 




ARS 


18 


ORIGIN PLUS 


F1P07530 


01034 





40000 





00626 




ADO 


T0T7 


NUMBER OF 


F1P07540 


O*0»5 


-e-6**eo -o -0*05 7 




-ST* -RFT09 


WORDS -fN 


F±P0?*5G 



-/V 



O 



o 



o 



01036 





62100 





01072 




STA RFT13 




01037 





62100 





01103 




STA RFT18 




01040 





50000 





04550 




CLA OTA-1 




01041 





77100 





00022 




ARS 18 




01042 





40200 





07731 




SUB LCll 




01043 





73400 


4 


00000 




PAX 0#4 




01044 





40000 





07750 




ADD TOTO 




01045 





62100 





01050 




STA RFT08 




01046 





76000 





00000 




CLM 




01047 





60200 





01611 




SLW E1RFT 




01050 





50000 


4 


OOOOO 


RFT08 


CLA 0»4 




01051 





62200 





01611 




STD E1RFT 




01052 


-0 


12000 





01056 




TMI RFT09-1 




01053 


-0 


32000 





07742 




ANA MSK 




01054 





40200 





07732 




SUB L(2) 




01055 


-0 


10000 





01106 




TNZ RFT20 




01056 


-0 


53400 


1 


01613 




LXD 7TA-1»1 




01057 





50000 


1 


OOOOO 


RFT09 


CLA 0»1 




01060 





12000 





01065 




TPL RFT10 




01061 





76000 





00003 




SSP 




01062 





76700 





00022 




ALS 18 




01063 





40200 





01611 




SUB E1RFT 




01064 





10000 





01067 




T2E RFT11 




01065 


2 


OOOOl 


1 


01057 


RFT10 


TIX RFT09»1»1 




01066 





02000 





01106 




TRA RFT20 




01067 


-2 


00001 


1 


01106 


RFT11 


TNX RFT20»1*1 




01070 


-0 


63400 


1 


01612 


RFT12 


SXD E2RFT»1 




01071 





53400 


2 


07730 




LXA L»0)»2 




01072 





50000 


1 


OOOOO 


RFT13 


CLA 0*1 




01073 


-0 


12000 





01077 




TMI RFT15 




01074 





60100 


2 


03172 




STO FRTS»2 




01075 


1 


77777 


2 


01076 




TXI RFT14.2t-l 




01076 


2 


00001 


1 


01072 


RFT14 


TIX RFT13»1»1 




01077 


-3 


00000 


2 


01106 


RFT15 


TXL &FT2O*2»0 




01100 


-0 


53400 


1 


01612 




LXD E2RFT*1 




01101 


1 


OOOOl 


2 


01102 


RFT16 


TXI RFT17.2»1 




01102 





50000 


2 


03172 


RFT17 


CLA FRTS»2 




01103 





60100 


1 


OOOOO 


RFT18 


STO 0»1 




01104 


1 


77777 


1 


01105 




TXI RFT19»1»-1 




01105 


3 


00000 


2 


01101 


RFT19 


TXH RFT16»2»0 




01106 


2 


00002 


4 


01050 


RFT20 


TIX RFT08»4*2 




01107 





76200 





00222 


WFR01 


RDS 146 




OHIO 





76200 





00222 




ROS 146 




01111 





76200 





00222 




ROS 146 




01112 





76200 





00222 




RDS 146 




01113 





76200 





00222 




RDS 146 




01114 





07400 


1 


07656 


WFROO 


TSX WAT00»1 




01115 





00000 





00007 




HTR 7 




01116 





00000 





01614 




HTR 7TA 




01H7 





07400 


1 


07505 




TSX TAPQOtl 




01120 





00000 





0O01O 




8 




01121 





00000 





04551 




EG 
















PROGRAM FOR CLASSES OF 














INITIALIZATION 


OF ADOR 



FRET AND 

INITIALIZE ADDRESSES 

GET NUMBER OF WORDS IN TI FGO 

PUT IK AC AND 

SUBTRACT ONE 

SET INDEX C TO THIS NUMBER 

ADD ORIGIN OF TIFGO ADD 

INITIALIZE ADDRESS 



GET FIRST WORD OF TIFGO ENTRY 

SAVE FORMULA NUMBER 

ENTRY IS AN IF(E) 

ERASE DECREMENT OF AC 

TEST FOR GO TO VECTOR ENTRY 

EXIT FOR ENTRY NOT A GO TO VECTOR 

SET INDEX A TO NUM OF WORDS IN FRETF1P07720 



F1P07560 
F1P07570 
F1P07580 
F1P07590 
F1P07600 
F1P07610 
F1P07620 
F1P07630 
F1P07640 
F1P07650 
F1P07660 
F1P07670 
F1P07680 
F1P07690 
F1P07700 
F1P07710 



GET WORD OF FRET ENTRY 

TEST FOR FIRST WORD OF ENTRY 

PUT FORMULA NUMBER 

IN DECREMENT OF AC 

COMPARE FORMULA NUMBERS 

FORMULA NUMBERS MATCH 

TEST END OF FRET 

EXIT FOR END OF FRET 

PREPARE FOR SECOND WORD OF ENTRY 

AND SAVE INDEX A FOR RETURN 

SET INDEX B TO ZERO 

6ET FREQUENCY PART OF ENTRY 

TEST END OF ENTRY 

SAVE FREQUENCY 

TAKE NEXT FRTS WORD 

TAKE NEXT FRET WORD 

£XIT FOR NO FREQUENCY IN ENTRY 

SET INDEX A TO GET 2ND ENTRY WORD 

GET FREQUENCIES 

IN REVERSE ORDER 

AND REPLACE IN FRET ENTRY 

TAKE NEXT WORD OF FRET ENTRY 

TEST END OF ENTRY 

TEST END OF TIFGO 

POSITION 

TAPE 

FOR 

WRITING 

FRET 

WRITE 

FRET 

ON TAPE 

ASSEMBLE EQUIT. 



F1P07730 
F1P07740 
F1P07750 
F1P07760 
F1P07770 
F1P07780 
F1P07790 
F1P07800 
F1P07810 
F1P07820 
F1P07830 
F1P07840 
F1P07850 
F1P07860 
F1P07870 
F1P07880 
F1P07890 
F1P07900 
F1P07910 
F1PG792© 
F1P07930 
F1P07940 
F1P07950 
F1P07960 
F1P07970 
F1P07980 
F1P07990 
F1P08000 
F1P08010 
F1PO8020 
F1P08030 
F1P08040 
F1P08050 
F1P08060 
F1P08070 
F1P08080 
F1P08090 







01122 


50000 





04550 


CLEQ 


CLA 


EQM1 


01123 


77100 





00022 




ARS 


18 


01124 


40000 





01574 




AOO 


L(EQ) 


01125 


62100 





01165 




ST A 


B7CLQ 


01126 


62100 





01171 




ST A 


B8CLQ 


01127 


62100 





01200 




STA 


B9CLQ 


01130 


62100 





01174 




STA 


B2CLQ 


01131 


62100 





01213 




STA 


B11CLQ 


01132 


62100 





01225 




STA 


C2CLQ 


01133 


62100 





01230 




STA 


C3CLQ 


01134 


62100 





01271 




STA 


A10CLQ 


01135 


62100 





01302 




STA 


A11CLQ 


01136 


62100 





01315 




STA 


A12CLQ 


01137 


62100 





01326 




STA 


A13CLQ 


01140 


62100 





01306 




STA 


A17CLQ 


01141 


62100 





01237 




STA 


C10CLQ 


01142 


76000 





00000 


OADDR 


CLM 




01143 


60200 





01613 




SLW 


MEEQM1 


01144 


60200 





01575 




SLW 


B0X1 


01145 


60200 





01577 




SLW 


E1CLEQ 


01146 


60200 





01600 




SLW 


E2CLE0 


01147 


60200 





01601 




SLW 


E3CLEQ 


01150 


60200 





01602 




SLW 


E4CLEQ 


01151 


60200 





01603 




SLW 


E5CLEQ 


01152 


53400 


2 


01142 




LXA 


OADDR » 2 


01153 


-0 53400 


4 


04550 




LXD 


EQMlt4 


01154 


60200 


2 


01614 


G2CLQ 


SLW 


M£EQt2 


01155 


1 77777 


2 


01156 




TXI 


G1CLQ.2.-1 


01156 


2 00001 


4 


01154 


G1CLQ 


TIX 


G2CLQ»4»1 


01157 


50000 





07740 




CLA 


DECR1 


01160 


60100 





01576 




STO 


B0X2 
INITIALIZATION OF 


01161 


-0 53400 


1 


04550 


BOCLO 


LXD 


EQM1.1 


01162 


-3 00000 


1 


01454 




TXL 


OUT.1.0 


01163 


-0 53400 


2 


01576 




LXD 


B0X2»2 


01164 


1 77777 


2 


01165 




TXI 


B7CLQ.2.-1 


01165 


50000 


1 


00000 


87CLQ 


CLA 


0*1 


01166 


10000 





01212 




TZE 


B5CLQ 


OJL167 


60100 


2 


01614 




STO 


MEEQ»2 


01170 


76000 





00000 




CLM 




01171 


60200 


1 


00000 


B8CLQ 


SLW 


0*1 


01172 


1 77777 


2 


01173 




TXI 


B1CLQ.2»-1 


01173 


-2 00001 


1 


00000 


B1CL0 


TNX 


0.1.1 


01174 


50000 


1 


00000 


B2CLQ 


CLA 


0*1 


01175 


-0 12000 





01206 




TMI 


B4CLQ 


01176 


60100 


2 


01614 




STO 


MEEQ.2 


01177 


1 77777 


1 


01200 




TXI 


B9CLQ.1.-1 


01200 


50000 


1 


00000 


B9CLQ 


CLA 


0»1 


01201 


1 77777 


2 


01202 




TXI 


B10CLQ»2»-1 


01202 


60100 


2 


01614 


BlOCt-Q 


STO 


MEEQ.2 


01203 


1 77777 


2 


01204 




TXI 


B3CLQ»2*-1 


01204 


2 00001 


1 


01174 


B3CLQ 


TIX 


B2CLQ.1.1 


01205 


02000 





00000 




TRA 


#* 


01206 


o 76000 -e-eooo3-B4ete 


-S5P 





COMPUTE EQ ORIGIN PLUS 
NUMBER OF WORDS IN TABLE 



AN EQUIVALENCE CLASS 

SET INDEX A TO NUM OF WORDS IN EQ 

EXIT FOR EMPTY EQ TABLE 

PREPARE TO ENTER 

A WORD IN MEEQ 

OBTAIN EQ WORD 

EXIT FOR DELETED EQ SET 

SAVE EQ SET IN TABLE MEEQ 

INDICATE 

DELETED 

EQ SET 

EXIT FOR END OF EQ TABLE 

OBTAIN EQ SUBSCRIPT 

EXIT FOR END OF EQ SET 

SAVE REST OF EQ SET 

OBTAIN EQ SYMBOL 



IN TABLE MEEQ 

EXIT FOR END OF EQ TABLE 
^AV£~t*ST 



F1P08100 
F1P08U0 
F1P08120 
F1P08130 
F1P08140 
F1P08150 
F1P08160 
F1P08170 
F1P08180 
F1P08190 
F1P08200 
F1P08210 
F1P08220 
F1P08230 
F1P08240 
F1P08250 
F1P08260 
F1P08270 
F1P08280 
F1P08290 
F1P08300 
F1P08310 
F1P08320 
F1P08330 
F1P08340 
FIP08350 
F1P08360 
F1P08370 
F1P08380 
F1P08390 
F1P08400 
F1P08410 
F1P08420 
F1P08430 
F1P06440 
F1P08450 
F1P08460 
F1P08470 
F1P08480 
F1P08490 
F1P08500 
F1P08510 
F1P08520 
F1P08530 
F1P08540 
F1PO8550 
F1P08560 
F1P08570 
FIPO8580 
F1P0859O 
F1P08600 
F1P08610 
F1P08620 
-F*P0663O 



fii 



u 



o 



o 



o 



01207 





60100 


2 


01614 




01210 


-0 


63400 


2 


01576 




01211 





02000 





01220 




01212 


1 


77777 


1 


01213 


B5CLQ 


01213 





50000 


1 


00000 


B11CLQ 


01214 





12000 





01216 




01215 


2 


00001 


1 


01165 




01216 


2 


00002 


1 


01213 


B6CLQ 


01217 





02000 





01360 




01220 


-0 


53400 


2 


01576 


COCLQ 


01221 


-0 


63400 


2 


01253 




01222 


-0 


53400 


2 


01575 




01223 


-0 


53400 


1 


04550 


C6CLQ 


01224 


-0 


63400 


1 


01577 


C7CLQ 


01225 





50000 


1 


00000 


C2CLQ 


01226 


-0 


10000 





01235 




01227 


1 


77777 


1 


01230 




01230 





50000 


1 


00000 


C3CLQ 


01231 


-0 


12000 





01233 




01232 


2 


00002 


1 


01230 




01233 


2 


00001 


1 


01224 


C1CLQ 


01234 





02000 





01252 




01235 





60100 





01603 


C4CLQ 


01236 


1 


77777 


1 


01237 




01237 





50000 


1 


00000 


ClOCLO 


01240 





12000 





01246 




01241 





50000 





01603 




01242 





40200 


2 


01614 




01243 





10000 





01263 




01244 


2 


00001 


1 


01224 




01245 





02000 





01252 




01246 





50000 





01603 


C8CLQ 


01247 





40200 


2 


01614 




01250 





10000 





01263 




01251 


2 


00001 


1 


01225 




01252 


1 


77776 


2 


01253 


C9CLQ 


01253 


3 


00000 


2 


01223 


C5CLQ 


01254 


-0 


53400 


2 


01576 


F2CLQ 


01255 





50000 


2 


01614 




01256 


-0 


76000 





00003 




01257 





60100 


2 


01614 




01260 


1 


77777 


2 


01261 




01261 


-0 


63400 


2 


01575 


F1CLQ 


01262 





02000 





01161 




01263 


1 


00001 


1 


01264 


AOCLQ 


01264 


-0 


63400 


1 


01314 


A14CL0 


01265 


2 


O0001 


1 


01266 




01266 


1 


77777 


2 


01267 


A1CLQ 


01267 





50000 


2 


01614 


A2CL0 


01270 





62100 





01600 




01271 





50000 


1 


00000 


A10CLQ 



STO MEEQ » 2 
SXO BOX2.2 
TRA COCLQ 
TXI B11CLQ*1»-1 
CLA 0*1 
TPL B6CLQ 
TIX B7CLQ»1»1 
TIX 611CLQ»1»2 
TRA END 

COMPARISON OF MEEQ 
LXO BOX2*2 
SXO C5CLQ»2 
LXD B0X1*2 
LXD EQ-1»1 
SXD ElCLEQtl 
CLA 0*1 
TNZ C4CLQ 
TXI C3CLQ»1*=1 
CLA 0»1 
TMI C1CLQ 
TIX C3CLQ»1*2 
TIX C7CLQ*1*1 
TRA C9CLQ 
STO E5CLEQ 
TXI C10CLQ»1»-1 
CLA 0*1 
TPL C8CLQ 
CLA E5CLEQ 
SUB MEEQ* 2 
TZE AOCLQ 
TIX C7CLQ»1»1 
TRA C9CLQ 
CLA E5CLEQ 
SUB MEEQ*2 
TZE AOCLQ 
TIX C2CLQ.1*1 
TXI C5CLQ»2»-2 
TXH C6CLG»2»»* 

END OF TABLE MEEQ, 
LXD BOX2*2 
CLA MEEQ»2 
SSM 

STO MEE0*2 
TXI FlCLQt2.-l 
SXD B0X1*2 
TRA BOCLQ 

MEEQ SYMBOL MATCHES 
TXI A14CLQ*1»1 
SXD A6CLQ»1 
TIX A1CLQ»1»1 
TXI A2CLQ»2.-1 
CLA MEEQ*2 
STA E2CLEQ 
CLA 0»1 



F1P08640 

F1P08650 

F1P08660 

F1P08670 

F1P08680 

F1P08690 

F1P08700 

F1P08710 

EXIT FOR COMPLETELY DELETED EQ TABLF1P0872O 

SYMBOLS WITH EQ SYMBOLS F1P08730 

INITIALIZE TEST F1P06740 

FOR END OF MEEQ TABLE F1P08750 

SET INDEX B TO GET 1ST SYMB OF MEEQF1P08760 



SUBSCRIPT OF EQ SET 

AND ITS MEEQ INDEX 

60 TO COMPARISON ROUTINE 

LOOP TO 
60 THROUGH 
DELETED SET 



PREPARE TO SCAN EQ TABLE 

SAVE INDEX OF 1ST WORD OF EQ SET 

OBTAIN EQ WORD 

SET NOT DELETED 

LOOP TO GO THRU 
DELETED SET 

EXAMINE NEXT EG SET 
EXIT FOR END OF EQ TABLE 
SAVE EQ SYMBOL 

6ET EQ SUBSCRIPT 

NOT END OF EQ SET 

GET LAST SYMBOL OF EQ SET 

COMPARE WITH MEEQ SYMBOL 

MATCH 

NO MATCH 



GET NEXT MEEQ SYMBOL 

TEST END OF TABLE MEEQ 
NO MATCH IN TABLE EQ 

INDICATE 

END OF SET 

IN TABLE 

MEEQ 

INITIALIZE INDEX OF 

NEXT SET IN TABLE MEEQ AND 

INITIALIZE THE SET 
EQ SYMBOL 

SAVE EQ INDEX OF MATCHED SYMBOL 



SAVE SUBSCRIPT OF MEEQ SYMBOL 



F1P08770 
F1P08780 
F1P08790 
F1P08800 
F1P08810 
F1P08820 
F1P08830 
F1P08840 
F1P08850 
F1P08860 
F1P08870 
F1P08880 
F1P08890 
F1P08900 
F1P08910 
F1P08920 
F1P08930 
F1P08940 
F1P08950 
F1P08960 
F1P08970 
FIP08980 
F1P08990 
F1P09000 
F1P09010 
F1P09020 
F1P09030 
F1P09040 
F1P09050 
F1P09060 
F1P09070 
F1P09O80 
F1P09090 
F1P09100 
F1P09110 
F1P09120 
F1P09130 
F1P09140 
F1P09150 
F1P09160 
F1P09170 



< r '7 



01272 
01273 
01274 
01275 
01276 
01277 
01300 
01301 
01302 
01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 

01327 
01330 
01331 
01332 
01333 

01334 
01335 
01336 
01337 
01340 
01341 
©1342 
01343 
01344 
01345 
01346 
01347 

01350 
01351 
01352 
01353 
_Q13_54 



62100 
53400 
77777 
63400 
00001 
12000 
77777 
00001 
50000 
60100 
00001 
77777 
50000 
12000 
60100 
02000 
62100 
53400 
00000 
50000 
77777 
60100 
77777 
63400 
63400 
63400 
53400 
76000 
60200 



500OO 
40200 
10000 
62100 

12000 

-0 53400 

1 77777 
-3 00000 

500O0 
40000 

62100 

1 77776 
3 00000 
50000 
40000 
62100 

02000 

-G 53400 

1 77777 
50000 
40000 

_0_6ZlOO 



01601 
01576 
01275 
01356 
01277 
01313 
01301 
00000 
00000 
01614 
00000 
01306 
00000 
01312 
01614 
01300 
01614 
01577 
01321 
00000 
01317 
01614 
01314 
01576 
01343 
01336 
01577 
00000 
00000 



01601 
01600 
01220 
01602 
01350 



01356 
01336 
01344 
01614 
01602 
01614 
01343 
01337 
01614 
01602 
01614 
01220 



2 01575 
2 01352 
2 01614 
01602 
2 _D1614 



STA 
LXD 
TXI 
SXD 
TXI 
TMI 
TXI 
TNX 
CLA 
STO 
TNX 
TXI 
CLA 
TMI 
STO 
TRA 
STA 
LXD 
TXL 
CLA 
TXI 
STO 
TXI 
SXO 
SXD 
SXD 
LXD 
CLM 
SLW 

CLA 

SUB 
T2E 
STA 
TPL 



LXD 

TXI 

D4CL0 TXL 

D1CLQ CLA 

ADD 

STA 

TXI 

D2CLQ TXH 

D3CLQ CLA 

ADD 

STA 

TRA 

EOCLQ LXD 
TXI 

E2CLQ CLA 
ADD 
STA 



A16CLQ 

A15CLQ 
A4CLQ 
A3CLO 
A11CLQ 



A17CLQ 



A5CLQ 
A9CLQ 
A6CLO 
A12CLQ 

A7CLQ 

A8CLQ 



A13CLO 



MATCHED SYMBOL IS END OF EQ SET 

LOOP TO TRANSFER 

TO MEEO SYMBOLS OF 

EQ BELOW MATCHED SYMBOL 



SAVE SBSCR OF LAST SYMBOL OF EQ 

EXIT FOR MATCHED SYMBOL REACHED 

LOOP TO TRANSFER 

TO MEEQ SYMBOLS OF 

EQ ABOVE MATCHED 

SYMBOL 



E3CLEQ SAVE SUBSCRIPT OF EQ SYMBOL 

BOX2*2 

A16CLQ.2.-1 

E1CLQ»2 

A15CLQ.2*! 

A9CLQ 

A3CLQ»2»-1 

0*1>1 

0*1 

MEEQ. 2 

0»1*1 

A17CLQ.2.-1 

0*1 

A5CLQ 

MEEQ. 2 

A4CLQ 

MEEQ. 2 

E1CLEQ.1 

A8CLQ.1.** 

0.1 

A7CLQ.2.-1 

MEEQ. 2 

A6CLQ.1.-1 

BOX2.2 

D2CLQ.2 

D4CLQ.2 

E1CLEQ.1 INDICATE 

DELETED 
0.1 EQ SET 

NORMALIZATION OF MEEQ SUBSCRIPTS 
E3CLEQ GET EQ SUBSCRIPT 

E2CLEQ COMPARE WITH MEEQ SUBSCRIPT 

COCLQ SUBSCRIPTS MATCH 

E4CLEQ 
EOCLQ 

EQ SUBSCRIPT LESS THAN MEEQ SUBSCRIPT 
E1CLQ.2 
D4CLQ.2.-1 
D3CLQ.2.** 
MEEQ.2 
E4CLEQ 
MEEQ.2 
D2CLO»2*-2 
D1CLQ.2*** 
MEEQ.2 
E4CLEQ 
MEEQ.2 
COCLQ 

EQ SUBSCRIPT GREATER THAN MEEQ SUBSCRIPT 
BOX1.2 
E2CLQ.2.-1 
MEEQ.2 
E4CLEQ 
MEEQ.2 



NORMALIZE SUBSCRIPTS 
OF NEW SYMBOLS 
IN MEEQ SET 



NORMALIZE SUBSCRIPT 
OF LAST NEW SYMBOL 
ENTERED IN MEEQ SET 
GO TO COMPARISON ROUTINE 



NORMALIZE SUBSCRIPTS 
OF OLD SYMBOLS 
_1N ...MEEOlSET 



F1P09180 
F1P09190 
F1P09200 
F1P0921O 
F1P09220 
F1P0923O 
F1P09240 
F1P09250 
F1P09260 
F1P09270 
F1P09280 
F1P09290 
F1P09300 
F1P09310 
F1P09320 
F1P09330 
SETF1P09340 
F1P09350 
F1P09360 
F1P09370 
F1P09380 
F1P09390 
F1P09400 
F1P09410 
F1P09420 
F1PQ9430 
F1P09440 
F1P09450 
F1P09460 
F1P09470 
F1P09480 
F1P09490 
F1P09500 
F1P09510 
F1P09520 
F1P09530 
F1P09540 
F1P09550 
F1P09560 
F1PO9570 
F1P09580 
F1P09590 
F1PQ96QO 
F1P09610 
F1P09620 
F1P09630 
F1P09640 
F1P09650 
F1P09660 
F1P09670 
F1P09680 
F1P09690 
F1P09700 
__E1P©97_I0 



^/ 



u 



o 



r> 



r\ 



01355 


1 


77776 


2 


01356 




TXI 


E1CLQ.2.-2 


01356 


3 


00000 


2 


01352 


E1CLQ 


TXH 


E2CLQ.2.** 


01357 





02000 





01220 




TRA 


COCLQ 


01360 





50000 





01576 


END 


CLA 


B0X2 


01361 





76000 





00006 




COM 




01362 





40000 





07741 




ADD 


DECR2 


01363 


-0 


73400 


2 


00000 




PDX 


0*2 


01364 


-0 


75400 


2 


00000 




PXD 


0*2 


01365 





62200 





01613 




STD 


MEEQM1 

REDUNDANCY AND 


01366 


-0 


53400 


2 


01576 




LXD 


60X2 »2 


01367 


-0 


63400 


2 


01417 




SXD 


M11CLQ.2 


01370 





53400 


2 


01142 




LXA 


0ADDR»2 


01371 


-0 


63400 


2 


01575 




SXD 


B0X1*2 


01372 


-0 


53400 


2 


01575 


M6CLQ 


LXD 


80X1*2 


01373 





50000 


2 


01614 




CLA 


MEEQ»2 


01374 





60100 





01577 




STO 


SMBL 


01375 


1 


77777 


2 


01376 




TXI 


M10CLQ.2.-1 


01376 





50000 


2 


01614 


M10CLQ 


CLA 


MEEQ.2 


01377 





60100 





01600 




STO 


SBSCR 


01400 


1 


77777 


2 


01401 




TXI 


M1CLQ»2»-1 


01401 





50000 


2 


01614 


M1CLQ 


CLA 


MEEQ.2 


01402 





34000 





01577 




CAS 


SMBL 


01403 





02000 





01405 




TRA 


M2CLQ 


01404 





02000 





01423 




TRA 


K1CLQ 


01405 


1 


77777 


2 


01406 


M2CLQ 


TXI 


M3CLQ.2»-1 


01406 





50000 


2 


01614 


M3CLQ 


CLA 


MEEQ.2 


01407 


-0 


12000 





01411 




TMI 


M4CLQ 


01410 


1 


77777 


2 


01401 




TXI 


M1CLQ»2»-1 


01411 


-0 


63400 


2 


01416 


M4CLQ 


SXD 


M7CLQ»2 


01412 


-0 


53400 


2 


01575 


M9CLQ 


LXD 


B0X1.2 


01413 


1 


77776 


2 


01414 




TXI 


M5CLQ.2.-2 


01414 


-0 


63400 


2 


01575 


M5CLQ 


SXD 


B0X1»2 


01415 


1 


77777 


2 


01416 




TXI 


M7CLQ.2.-1 


01416 


3 


00000 


2 


01372 


M7CLQ 


TXH 


M6CLQ.2.** 


01417 


-3 


00000 


2 


01450 


M11CLQ 


TXL 


CLQOUT.2.0 


01*2© 


1 


77777 


2 


01421 




TXI 


M8CLQ»2*-1 


01421 


-0 


63400 


2 


01575 


M8CLQ 


SXD 


B0Xli2 


01422 





02000 





01372 




TRA 


M6CLQ 


01423 


1 


77777 


2 


01424 


K1CLQ 


TXI 


K2CLQ.2.-1 


01424 





50000 


2 


01614 


K2CLQ 


CLA 


MEEQt2 


01425 


-0 


12000 





01443 




TMI 


K4CLQ 


01426 





34000 





01600 




CAS 


SBSCR 


01427 





02000 





01431 




TRA 


K3CLQ 


01430 


1 


77777 


2 


01401 




TXI 


M1CLQ.2.-1 


01431 


-0 


53400 


4 


01442 


K3CLQ 


LXD 


NEWTBL.4 


01432 


3 


00000 


4 


01435 




TXH 


ERSTOR»4.0 


01433 





50000 





07743 




CLA 


FRCON 


01434 





60100 





01614 




STO 


MEEQ 


01435 





50000 





01577 


ERSTOR 


CLA 


SMBL 


01436 





60100 


4 


01615 




STO 


MEEQ+1.4 


01437 


1 


77777 


4 


01440 




TXI 


SAVIR4.4.-1 


01440 


-0 


63400 


4 


01442 


SAV1R4 


SXD 


NEWTBL*4 


01441 





02000 





01412 




TRA 


M9CLQ 



GO TO COMPARISON ROUTINE 
COMPUTE 
NUMBER 
OF WORDS 
IN TABLE 
MEEQ AND 
SAVE WITH TABLE 
INCONSISTENCY TEST OF EQUIVALENCE SENTENCES 
INITIALIZATION 
OF 
INDEXING 

OBTAIN 

FIXED 

SYMBOL 

AND 

ITS 

SUBSCRIPT 

GET CHANGING SYMBOL AND 

COMPARE WITH FIXED SYMBOL 

NO MATCH 

MATCH 

HAS END OF CHANGING SYMBOLS 

BEEN REACHED. NO MATCH CASE 

YES 

NO 

PREPARE TO GET 
NEXT FIXED 
SYMBOL 

TEST END OF MEEQ SET 



GET SUBSCRIPT 

OF CHANGING SYMBOL 

END OF SET REACHED 

COMPARE SUBSCRIPTS OF MATCHED SYMBL 

NO MATCH. INCONSISTENT CASE 

MATCH. REDUNDANT CASE 



GET NEXT SYMBOL 



F1P09720 
F1P09730 
F1P09740 
F1P09750 
F1P09760 
F1P09770 
F1P09780 
F1P09790 
F1P09800 
F1P09810 
F1P09820 
F1P09830 
F1P09840 
F1P09850 
F1P09860 
F1P09870 
F1P09880 
F1P09890 
F1P09900 
F1P09910 
F1P09920 
F1P09930 
F1P09940 
F1P09950 
F1P09960 
F1P09970 
F1P09980 
F1P09990 
F1P10000 
F1P10010 
F1P10020 
F1P10030 
F1P10040 
F1P10050 
F1P10060 
F1P10070 
F1P10080 
F1P10090 
F1P10100 
F1P10110 
F1P10120 
F1P10130 
F1P10140 
F1P10150 
F1P10160 
F1P10170 
F1P10180 
F1P10190 
F1P10200 
F1P10210 
F1P 10220 
F1P10230 
F1P10240 
F1P1025O 



f>1 



014*2 





00000 





00000 


NEWTBL 


HTR 





01443 





76000 





00003 


K4CLQ 


SSP 




01444 





34000 





01600 




CAS 


SBSCR 


01445 





02000 





01431 




TRA 


K.3CLQ 


01446 





02000 





01412 




TRA 


M9CLQ 


01447 





02000 





01431 




TRA 


K3CLQ 


01450 


-0 


53400 


4 


01442 


CLQOUT 


LXD 


NEWTBL* 4 


01451 


-3 


00000 


4 


01454 




TXL 


OUT*4»0 


01452 





50000 





07743 




CLA 


FRCON 


01453 





60100 


4 


01615 




STO 


MEEQ+1.4 


01454 





07400 


1 


07656 


OUT 


TSX 


WAT00»1 


01455 





00000 





00010 






8 


01456 





00000 





01614 






MEEQ 


01457 





07400 


1 


07505 




TSX 


TAPOO.l 


01460 





00000 





00011 






9 


01461 





Q00O0 





01614 


T0T9 




9TA 
PROGRAM FO 


01462 





50000 





01613 


ROCTP 


CLA 


9TA-1 


01463 





10000 





01514 




TZE 


REC07 


01464 


-0 


73400 


4 


00000 




PDX 


0*4 


01465 





77100 





00022 




ARS 


18 


01466 





40000 





01461 




ADO 


T0T9 


01467 





62100 





01473 




STA 


REC01 


01470 


-0 


53400 


2 


01477 




LXD 


REC03.2 


01471 


-0 


63400 


2 


01500 




SXD 


REC04»2 


01472 





53400 


2 


07730 


RECOO 


LXA 


L(0)»2 


01473 





50000 


4 


00000 


REC01 


CLA 


0*4 


01474 





34000 


2 


01614 


REC02 


CAS 


9TA.2 


01475 





02000 





01477 




TRA 


REC03 


01476 





02000 





01505 




TRA 


REC06 


01477 


1 


77777 


2 


01500 


REC03 


TXI 


REC04.2*-! 


01500 


3 


00000 


2 


01474 


REC04 


TXH 


REC02»2t** 


01501 


-0 


53400 


1 


01500 




LXD 


REC04»1 


01502 


1 


77777 


1 


01503 




TXI 


REC05.1.-1 


01503 


-0 


63400 


1 


01500 


REC05 


SXD 


REC04.1 


01504 





60100 


2 


01614 




STO 


9TA»2 


01505 


2 


00001 


4 


01472 


REC06 


TIX 


REC00»4»1 


01506 


-0 


53400 


4 


01500 




LXD 


REC04»4 


01507 


-0 


75400 


4 


00000 




PXD 


0*4 


01510 





76000 





00006 




COM 




01511 





40000 





07731 




ADD 


LCI) 


01512 


-0 


73400 


4 


00000 




PDX 


0*4 


01513 


-0 


63400 


4 


01613 




SXD 


9TA-1»4 


01514 





07400 


1 


07656 


REC07 


TSX 


WAT00»1 


01515 





00000 





00011 




HTR 


9 


01516 





00000 





01614 




HTR 


9TA 


01517 





77000 





00222 




WEF 


146 


01520 





77200 





00203 




REW 


3 


01521 





50000 





01573 




CLA 


WAT99 


01522 





62100 





07661 




STA 


WAT09 


01523 





62100 





07701 




STA 


WAT05+2 


01524 





62100 





07704 




STA 


WAT07-1 


01525 





62100 





07721 




STA 


WAT08 


01526 


Tr~5TJ00O~O r 0/703 




XLA TTAT05+4 



WRITE EOUIT ON TAPE. 



ASSEMBLE TABLE CLOSUB 

ORIGIN OF TABLE 9 
REMOVING DUPLICATE ENTRIES FROM TABLE CLOSUB 
GET NUMBER OF WORDS IN 9TA 
EXIT FOR EMPTY TABLE 
SET INDEX C TO NUM OF WORDS IN 9TA 
COMPUTE TABLE ORIGIN PLUS 
NUMBER OF WORDS IN TABLE 
AND INITIALIZE ADDRESS 
SET INDEX B TO COMP 1 AND 
SAVE COMP 1 IN DECR OF REC04 
SET INDEX B TO ZERO 
GET 9TA WORD AND 
COMPARE WITH 9TA WORD 
9TA WORDS NOT EQUAL 
9TA WORDS ARE EQUAL 
TAKE NEXT 9TA WORD 
TEST FOR END OF NEW 9TA TABLE 
ADD COMP 1 TO DECR OF 
REC04 TO ACCOUNT FOR 
FOLLOWING ENTRY 

ENTER UNEQUAL 9TA WORD IN TABLE 
TEST END OF OLD 9TA TABLE 
GET TWOS COMP OF NUMBER 
OF WORDS ENTERED IN 9TA 
COMPUTE TRUE FIGURE AND 
STORE IN 9TA-1 



WRITE MODIFIED 

TABLE CLOSUB 

ON TAPE 

END OF TAPE TABLES FILE 

CHANGE WAT SUB ROUTINE TO WRITE ON TAPE 3 



NOP 



F IP 10 260 

F1P10270 

F1P10280 

F1P10290 

F1P10300 

F1P10310 

F1P10320 

F1P10330 

F1P10340 

F1P10350 

F1P10360 

F1P10370 

F1P10380 

F1P10390 

F1P10400 

F1P10410 

F1P10420 

F1P10430 

F1P10440 

F1P10450 

F1P10460 

F1P10470 

F1P10480 

F1P10490 

F1P10500 

F1P10510 

F1P10520 

F1P10530 

F1P10540 

F1P10550 

F IP 10560 

F1P10570 

F1P10580 

F1P10590 

F1P10600 

F1P10610 

F1P10620 

F1P10630 

F1P10640 

F1P10650 

F1P10660 

F1P10670 

F1P10680 

F1P10690 

F1P10700 

F1P10710 

F1P10T20 

F1P10730 

F1P10740 

F1P10750 

F1P10760 

F1P10770 

F1P10780 

«P10T90 



/^ 



o. 



r^ 



01527 





60100 


07673 




STO 


WAT04-1 


01530 





60100 


07674 




STO 


WAT04 


01531 





60100 


07665 




STO 


WAT03-1 


01532 





50000 


07752 




CLA 


TP3TRA 


01533 





60100 


07676 




STO 


WATQ4+2 


01534 





07400 


1 07505 




TSX 


TAP00»1 


01535 





00000 


00016 






14 


01536 





00000 


01614 






XTA 


01537 





07400 


1 07656 




TSX 


WAT00*1 


01540 





00000 


00016 






14 


01541 





00000 


01614 






XTA 


01542 





07400 


1 07505 




TSX 


TAP00»1 


01543 





00000 


00017 






15 


01544 





00000 


01614 






XTA 


01545 





07400 


1 07656 




TSX 


WAT00*1 


01546 





00000 


00017 






15 


01547 





00000 


01614 






XTA 


01550 





50000 


00030 




CLA 


EIFNO 


01551 





40000 


07740 




ADD 


DECR1 


01552 





60100 


00030 




STO 


EIFNO 


01553 


-0 


50000 


07741 




CAL 


DECR2 


01554 





76000 


00006 




COM 




01555 





32000 


00020 




ANS 


16 


01556 





50000 


00034 




CLA 


ENDI4 


01557 





34000 


07731 




CAS 


L(l) 


01560 





02000 


01564 




TRA 


*+4 


01561 





50000 


07741 




CLA 


DECR2 


01562 


-0 


60200 


00020 




ORS 


16 


01563 





02000 


01571 




TRA 


SPACE 


01564 


-0 


75400 


00000 




PXD 


»0 


01565 





76000 


00164 




SWT 


4 


01566 





02000 


01571 




TRA 


SPACE 


01567 





50000 


07741 




CLA 


DECR2 


01570 


-0 


60200 


0O020 




ORS 


16 


01571 





76200 


00221 


SPACE 


RTB 


1 


01572 





02000 


00004 




TRA 


4 


01573 





00000 


00223 


WAT99 




147 

WORKING ST0RA6E 


01574 





00000 


04551 


L(EQJ 




EQ 


01575 





00000 


00000 


B0X1 






01576 





00000 


00000 


B0X2 






01577 





00000 


00000 


E1CLEQ 






01600 





00000 


00000 


E2CLEQ 






01601 





00000 


00000 


E3CLEQ 






01602 





00000 


00000 


E4CLEQ 






01603 





00000 


00000 


E5CLEQ 




WORKING STOR 


01604 





00000 


00000 


E10 






01605 





00000 


00000 


Ell 






01606 





00000 


00000 


A1B0X 






01607 





00000 


00000 


A2B0X 






01610 





00000 


00000 


IT1 






01611 





00000 


00000 


E1RFT 






01612 





00000 


00000 


E2RFT 







OVER COPY IDENTIFICATION 
OVER COPY WORD COUNT 
OVER STA FOR WORD COUNT 



ASSEMBLE NONEXC TABLE 



WRITE NONEXC TABLE ON TAPE 3 



ASSEMBLE TSTOPS TABLE 



WRITE TSTOPS TABLE AS SECOND RECORD TAPE 



SET EIFNO TO LAST ADD IN PROBLEM PLUS 1 



ADD Of TAPE 3 IN BINARY MODE 
FOR PROGRAM CLEQ 



AMW2105 
AMW 2106 
AMW 2305 
AMW 2510 



F1P10800 
F1P10810 
F1P10820 
F1P1O830 
F1P10840 
F1P10850 
F1P10860 
F1P1087O 
F1P10880 
F1P10890 
F1P10900 
F1P10910 
F1P10920 
F1P10930 
3 F1P10940 
F1P10950 
F1P10960 
F1P10970 
F1P10980 
F1P10990 
F1P11000 
F1P11010 
F1P11020 
F1P11030 
F1P11040 
F1P11050 
F1P11060 
F1P11070 
F1P11080 
F1P11090 
F IP 11 100 
F1P11110 
F1P11120 
F1P11130 
F1P11140 
F1P11150 
F1P11160 
F1P11170 
F1P11180 
F1P11190 
F1P11200 
F1P11210 
F1P11220 
F1P11230 
F1P11240 
F1P11250 
F1P11260 
F1P11270 
F1P11280 
F1P11290 
F1P11300 
F1P11310 
F1P11320 
F1P11330 



frl 



01613 
01613 
01614 



END1PB 

XTAM1 

XTA 



ORG 907 
BSS 1 
BSS 1500 



THIS IS TABLE ASSEMBLY BUFFER OF PART 2 



eoooo 
ooooi 



00004 
00000 



00000 
04550 
07760 



07505 
07506 
07507 
07510 
07511 
07512 
07513 
07514 
07515 
07516 
07517 
07520 
07521 
07522 
07523 
07524 
07525 
07526 
07527 
07530 
07531 
07532 
07533 
07534 
07535 
07536 
07537 
07540 
07541 
07542 
07543 
07544 
07545 
07546 
07547 
07550 
07551 
07552 



77200 
60000 
63400 
63400 
50000 
62100 
73400 
76700 
40000 
40000 
62100 
62100 
40000 
62100 
62100 
50000 
73400 
63400 
63400 
53400 
53400 
50000 
62100 
621O0 
40200 
62100 
© 6210© 
3 00000 
50000 
62200 
76000 
00000 
76600 
76000 
00001 
50000 
6010O 
76200 



704 FORTRAN MASTER RECORD CARD / 1 PRIME COMMON = F0210000. 
ORG 

P2E ORG1PC»»1TOCS 
PZE END1PC 



COMMON TO SECTION ONE PRIME 



04550 
04550 
04551 

00204 
07754 
07755 
07756 
00001 
07513 
00000 
00001 
00001 
07630 
07574 
07541 
07732 
07531 
07570 
07655 
00000 
07601 
07617 
07730 
00000 
00002 
07561 
07577 
07731 
07603 
07612 
4 07570 
00000 
07622 
00012 
00000 
00333 
00012 
07621 
07734 
07757 
00224 



0R61PC 

0TAM1 

OTA 

TAPOO 



TAP01 



TAP20 



TAP02 



«EA©4 



ORG 
BSS 
BSS 

REW 
STQ 
SXD 
SXD 
CLA 
STA 
PAX 
ALS 
ADD 
ADD 
STA 
STA 
ADD 
STA 
STA 
CLA 
PAX 
SXD 
SXD 
LXA 
LXA 
CLA 
STA 
STA 
SUB 
STA 
STA 
TXL 
CLA 
STD 
RTT 
TXH 
IQD 
RTT 
TXI 
CLA 
STO 
*TB 



2406 

1 

1500 

TABLE ASSEMBLY PROGRAM 

4 

E2A 

E3A.2 

E4At4 

1*1 

TAP00+6 

.2 

1 

1*1 

OAD 

TAP06 

TAP20 

L(2> 

TAP01 

TAP05 

MWN+10»2 

»2 

TAP081»2 

0VTEST»2 

L(0)»2 

«*»4 

2*1 

TAP03 

TAP08 

L(l) 

TAP11 

TAP12 

TAP05»4»0 

** 

TAP14+1 



LOCATION OF NUM OF WORDS IN TEIFNO 
BLOCK FOR ASSEMBLED TEIFNO 



0*0*0 



TAP14»4»1 
L(4) 
E5A 
-4 



GET TABLE NUMBER 



FORM 31 



FORM INTET +31+2 



TABLE MAXIMUM 



NO OF BLOCKS OF THIS TABLE ON TAPE 4 



TEST FOR NO TAPE RECORDS 



TURN OFF INDICATOR 



TEST INDICATOR 

ON 

OFF 



F1P11340 
F1P11350 
F1P11360 
F1P11370 
F1P11380 
F1P11390 
F1P11400 
F1P11410 
F1P11420 
F1P11430 
F1P11440 
F1P11450 
F1P11460 
F1P11470 
F1P11480 
F1P11490 
F1P11500 
F1P11510 
F1P11520 
F1P11530 
F1P11540 
F1P11550 
F1P11560 
F IP 11 570 
F1P11580 
F1P11590 
F IP 11600 
F1P11610 
F1P11620 
F1P11630 
F1P11640 
F1P11650 
F1P11660 
F1P11670 
F1P11680 
F1P11690 
F1P11700 
F1P11710 
F1P11720 
F1P11730 
F1P11740 
F1P11750 
F1P11760 
F1P11770 
F1P11780 
F1P11790 
F1P11600 
F1P11810 
F1P11820 
F1P11830 
F1P11840 
F1P11850 
F1P11860 
F IP 11870 



IrlS 



V J 



075*3 





70000 





07753 




CPY 


E1A 


COPY IDENTIFICATION 


F1P11880 


07554 





02000 





07556 




TRA 


TAP025 




F1P11890 


07555 





07400 


4 


00004 




TSX 


DIAG.4 


EOF MACHINE ERROR 


F1P11900 


07556 





50000 





07753 


TAP025 


CLA 


E1A 




F1P11910 


07557 





40200 


1 


00001 




SUB 


1.1 


TEST FOR RECORD OF TABLE BEING ASSEMBLED 


F1P11920 


07560 


-0 


10000 





07552 




TNZ 


READ4 




F1P11930 


07561 





70000 


2 


00000 


TAP03 


CPY 


**»2 




F1P11940 


07562 


1 


77777 


2 


07617 




TXI 


0VTEST.2.-1 




F1P11950 


07563 





07400 


4 


00004 




TSX 


DIAG.4 


EOF MACHINE ERROR 


F1P11960 


07564 


2 


00001 


4 


07545 




TIX 


TAP02.4.1 




F1P11970 


07565 





76600 





00333 


TAP04 


IOD 






F1P11980 


07566 


-0 


76000 





00012 




RTT 






F1P11990 


07567 





02000 





07621 




TRA 


TAP14 




F IP 12 000 


07570 





50000 





00000 


TAP05 


CLA 


»* 




F1P12010 


07571 





77100 





00022 




ARS 


18 




F1P12020 


07572 





10000 





07603 




TZE 


TAPll 




F IP 12 030 


07573 





73400 


4 


00000 




PAX 


t4 




F1P12040 


07574 





40000 





00000 


TAP06 


ADD 


»* 




F1P12050 


07575 





62100 





07576 




STA 


TAP07 




F1P12060 


07576 





50000 


4 


00000 


TAP07 


CLA 


***4 




F1P12070 


07577 





60100 


2 


00000 


TAP08 


STO 


**»2 




F1P12080 


07600 


1 


77777 


2 


07601 




TXI 


TAP081»2»-1 




F1P12090 


07601 


-3 


00000 


2 


07620 


TAP081 


TXL 


OVFLOW .2*** 




F IP 12 100 


07602 


2 


00001 


4 


07576 


TAP09 


TIX 


TAP07.4.1 




F1P12110 


07603 





60000 





00000 


TAPll 


ST2 


** 




F1P12120 

^ % ft ^ t 4 #% A 


07604 


-0 


75400 


2 


00000 




PXD 


• 2 




F1P12130 


07605 





10000 





07613 




TZE 


TAP13 




F1P12140 


07606 





77100 





00022 




ARS 


18 




F1P12150 
F1P12160 


07607 





76000 





00006 




COM 






07610 





40000 





07731 




ADD 


L(l) 




F1P12170 


07611 





73400 


2 


00000 




PAX 


t2 




F1P12180 


07612 


-0 


63400 


2 


00000 


TAP12 


SXD 


**»2 




F1P12190 


07613 





56000 





07754 


TAP13 


LDQ 


E2A 




F1P12200 


07614 


-0 


53400 


2 


07755 




LXD 


E3A.2 




F1P12210 


07615 


-0 


53400 


4 


07756 




LXD 


E4A.4 




F1P12220 


07616 





02000 


1 


00003 




TRA 


3*1 


RETURN TO CALLER 


F1P12230 


07617 


3 


00000 


2 


07561 


OVTEST 


TXH 


TAP03»2»** 




F IP 12 240 


07620 





07400 


4 


00004 


OVFLOW 


TSX 


DIAG.4 


BUFFER AREA EXCEEDED 


F1P12250 


07621 





76400 





00204 


TAP14 


BST 


4 




F1P12260 


07622 


1 


00000 


2 


07623 




TXI 


TAP14+2.2.** 




F1P12270 


07623 





50000 





07757 




CLA 


E5A 




F1P12280 


07624 





40200 





07731 




SUB 


L(l) 




F1P12290 


07625 





60100 





07757 




STO 


E5A 




F1P12300 


07626 


-0 


10000 





07552 




TNZ 


READ4 




F1P12310 


07627 





07400 


4 


00004 




TSX 


DIAG.4 


THREE FAILURES IN READING A RECORD FROM T 


4F1P12320 


07630 





00000 





00322 
07631 


OAD 


BSS 


INTET 

3 

MAXIMUM NUMBER 


OF WORDS ALLOWED IN VARIOUS TABLES 


F1P12330 
F1P12340 
F1P12350 


07634 





00000 





77634 






-100 


FMTEFN. TABLE 17 


F1P12360 


07635 





00000 





77634 






-100 


CALLFN. TABLE 16 


F1P12370 


07636 





00000 





77324 






-300 


TSTOPS. TABLE 15 


F1P12380 


07637 





00000 





76422 






-750 


NONEXC. TABLE 14 


F1P12390 


07640 





00000 





76174 






-900 


HOLARGi TABLE 13 


F1P12400 


07641 





00000 





76650 






-600 


COMMON. TABLE 12 


F1P12410 



J*i 



07642 
07643 
07644 
07645 
07646 
07647 
07650 
07651 
07652 
07653 
07654 
07655 



07656 
07657 
07660 
07661 
07662 
07663 
07664 
07665 
07666 
07667 
07670 
07671 
07672 
07673 
07674 
07675 
07676 
07677 
07700 
07701 
07702 
07703 
07704 
07705 
07706 
©7707 
07710 
07711 
07712 
07713 
07714 
07715 
07716 
07717 
07720 
07721 
07722 
07723 
07724 
07725 



00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 



-0 

















2 


-0 







-0 












76174 

75152 MWN 

75044 

75044 

76422 

76030 

75044 

75044 

77406 

76650 

76422 

76422 



63400 

50000 

60100 

76600 

50000 

40200 

62100 

62100 

50000 

77100 

73400 

40000 

62100 

70000 

70000 

40200 

10000 

70000 

00001 

76400 

76000 

76100 

76200 

70000 

02000 

76100 O 

76600 

76000 

02000 

02000 

50000 

40200 

60100 

12000 

07400 

76400 

02000 

70000 
-0 53400 

02000 



07726 
07734 
07727 
00222 
00002 
07731 
07666 
07674 
00000 
00022 
00000 
00002 
07677 
00001 
00000 
00002 
07724 
00000 
07677 
00222 
00012 
00000 
00222 
07754 
07705 
00000 
00333 
00012 
07714 
07724 
07727 
07731 
07727 
07721 
00004 
00222 
07661 
07730 
07726 
00003 



WATOO 
WAT09 

WAT03 

WAT04 
WAT05 

WAT07 



WAT10 

WAT08 
WAT06 



SXO 
CLA 
STO 
WRS 
CLA 
SUB 
STA 
STA 
CLA 
ARS 
PAX 
ADD 
STA 
CPY 
CPV 
SUB 
TZE 
CPY 
T1X 
BST 
RTT 
NOP 
RDS 
CPY 
TRA 
NOP 
WRS 
RTT 
TRA 
TRA 
CLA 
SUB 
STO 
TPL 
TSX 
BST 
TRA 
CPY 
LXD 
TRA 



-900 

-1430 

-1500 

-1500 

-750 

-1000 

-1500 

-1500 

-250 

-600 

-750 

-750 

PROGRAM FOR 

E1W*2 

LC4) 

E2W 

146 

2*1 

HI.) 

WAT03 

WAT04 

** 

18 

0*2 

2*1 

WAT05 

1*1 

** 

2*1 

WAT06 

0*2 

WAT05*2*1 

146 



146 
E2A 
WAT07 

219 

WAT10 

WAT06 

E2W 

L( 1) 

E2W 

WAT08 

DIAG*4 

146 

WAT09 

L(0) 

E1W.2 

3*1 



SUBDEF * 

FORMAT* 

CLOSUB* 

EQUIT* 

FRET* 

FORVAL » 

FORVAR » 

FORTAG* 

TRAD* 

TIFGO 

TDO* 

TE1FN0* 



TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 



11 

10 

9 

8 

7 
6 
5 
4 
3 
2 
1 




WRITING AN ASSEMBLED TABLE ON TAPE 
START PROGRAM WAT 
PREPARE TO COUNT 

TWO TAPE TESTS 

PREPARE TO WRITE ON TAPE 2 

COMPUTE LOCATION OF NUMBER OF 



F1P12420 
F1P12430 
F1P12440 
F1P12450 
F IP 12460 
F1P12470 
F1P12480 
F1P12490 
F1P12500 
F1P12510 
F1P12520 
F1P12530 
F1P12540 
F IP 12 550 
F1P12560 
F1P12570 
F1P12580 
F1P12590 
WORDSF1P12600 



IN TABLE AND INITIALIZE ADDRESSES 



ADDRESS IS NTA-1 

NUMBER OF WORDS IN TABLE PUT IN 

INDEX B 

RESET ADDRESS 

IDENTIFY TABLE ON TAPE 

NUM OF WORDS IN TABLE PUT ON TAPE 



NO ENTRIES IN 
ADDR IS NTA + 
COPY LOOP 



TABLE 
NUM WORDS 



IN NTA 



R 
F 



TAPE CHECK ON 
TAPE CHECK OFF 



STOP FOR THIRD TAPE CHECK 



RESTORE INDEX B 
RETURN TO MAIN PROGRAM 



F1P12610 
F1P12620 
F1P12630 
F1P12640 
F1P12650 
F1P12660 
F1P12670 
F1P12680 
F1P12690 
F IP 12 700 
F1P12710 
F1P12720 
F1P12730 
F IP 12 740 
F1P12750 
F1P12760 
F1P12770 
F1P12780 
F1P12790 
F1P12800 
F1P12810 
F1P12820 
F1P12830 
F1P12840 
F1P12850 
F IP 12860 
F1P12870 
F1P12880 
F1P12890 
F1P12900 
F1P12910 
F1P12920 
F1P12930 
F1P12940 
F1P12950 



»M 



Kj 



U 



n 



O 



07726 





00000 





ooooo 


E1W 






07727 





00000 





ooooo 


E2W 






07730 





00000 





ooooo 


LtO) 







07731 





00000 





00001 


HI) 




1 


07732 





00000 





00002 


L(2) 




2 


07733 





00000 





00003 


LI3) 




3 


07734 





00000 





00004 


LC4) 




4 


07735 





00000 





00005 


L(5) 




5 


07736 





00000 





00010 


L(8) 




8 


07737 





00000 





00062 


LC50I 




50 


07740 





00001 





ooooo 


DECR1 




0*0*1 


07741 





00002 





ooooo 


DECR2 




0*0)2 


07742 


+000000077777 


MSK 


OCT 


77777 


07743 


+377777777777 


FRCON 


OCT 


377777777777 


07744. 





00000 





00312 


DRL02 




202 


07745 





00000 





00002 


TNT2 




2 


07746 





00000 





ooooo 


E3 






07747 





00000 





ooooo 


E4 






07750 





ooooo 





04551 


UOTA) 




OTA 


07751 





07400 


4 


00004 


TEIFER 


TSX 


DIAGt4 


07752 





10000 


V 


07723 


TP3TRA 


TZE 


WAT06-1 










07753 


E1A 


BSS 


1 










07754 


E2A 


BSS 


1 










07755 


E3A 


BSS 


1 










07756 


E4A 


BSS 


1 










07757 


E5A 


BSS 


1 










0774-7 


El 


SYN 


E4 










07746 


E2 


SYN 


E3 










07505 


TAPOO 


SYN 


TAPOO 










07656 


WATOO 


SYN 


WATOO 










07750 


UOTAJ 


SYN 


UOTA) 










00004 


DIAG 


SYN 


4 










03163 


COMP 


S¥N 


1TA 










03163 


2TA 


SYN 


1TA 










03163 


3TA 


SYN 


1TA 










07750 


TO 10 


SYN 


L(OTA) 










04550 


EQM1 


SYN 


OTA-1 










04551 


EQ 


SYN 


OTA 










01614 


4TA 


SYN 


XTA 










01614 


5TA 


SYN 


XTA 










01614 


6TA 


SYN 


XTA 










01614 


7TA 


SYN 


XTA 










01614 


9TA 


SYN 


XTA 










01613 


MEE0M1 


SYN 


XTA-1 










01614 


MEEQ 


SYN 


XTA 










03172 


FRTS 


SYN 


XTA+750 










03564 


FRCHS 


SYN 


XTA+1000 










07746 


E12 


SYN 


E3 










07747 


E1RF 


SYN 


E4 










01577 


SMBL 


SYN 


E1CLEQ 










01600 


S8SCR 


SYN 


E2CLEQ 










03564 


16TA 


SYN 


6TA+1000 










00OO4 


1T0CS 


SYN 


4 



AMW0503 

35 ONES. AMW 1318 

LOCATION OF FIRST WORD ON DRUM 

NON ERASABLE 0416 TO 0908 



F1P12960 
F1P12970 
F1P12980 
F1P12990 
F IP 13000 
F1P13010 
F1P13020 
F1P13030 
F1P13040 
F1P13050 
F1P13060 
F1P13070 
F1P13080 
F1P13090 
F1P13100 
F1P13110 
F1P13120 
F1P13130 
F1P13140 
F1P13150 
F1P13160 
F1P13170 
F1P13180 
F1P13190 
F1P13200 
F1P13210 
F1P13220 
F1P13230 
F1P13240 
F1P13250 
F1P13260 
F1P13270 
F1P13280 
F1P13290 
F1P13300 
F1P13310 
F1P 13320 
F1P13330 
F1P13340 
F1P13350 
F1P13360 
F1P13370 
F1P13380 
F1P13390 
F1P13400 
F IP 13410 
F1P13420 
F1P13430 
F1P13440 
F1P13450 
F1P13460 
F1P13470 
F1P13480 
F1P13490 



/ 



A> 



00030 EIFNO 

00031 EN0I1 
00034 ENDI4 
00322 INTET 
00417 FXCNIX SYN 271 
00424 FLCNIX SYN 276 
00453 0RGDM1 SYN 299 
00455 DIM1IX SYN 301 
00460 0RGDM2 SYN 304 
00462 0IM2IX SYN 306 
00465 OR6DM3 SYN 309 
00467 DIM3IX SYN 311 



THE FOLLOWING SYN CARDS ARE FOR PARAMETERS 
FROM SECTION ONE TO SECTION ONE PRIME. 

SYN 24 

SYN 25 

SYN 28 

SYN 210 



00470 


BK 


SYN 


312 


00471 


FORSUB 


SYN 


313 


00637 


BBOX 


SYN 


415 


00640 


C1B 


SYN 


416 


07760 


EN01PC 


8SS 


• 


00000 




END 




0OOQ1 


*• 







F1P13500 
IN THE CARRY OVER F1P13510 
F1P13520 
F1P13530 
F1P13540 
F1P13550 
F1P13560 
F1P13570 
F1P13580 
F1P13590 
F1P13600 
F1P13610 
F1P13620 
F1P13630 
F1P13640 
F1P13650 
F1P13660 
F1P13670 
F IP 13680 
F1P13690 
F IP 13700 



><5^ 



u 



o 





Q 
















( 


1 




ORG 25 














1 










00031 
77777 
77633 
75435 
75434 
75433 
75433 
74303 


ERLIST 

TABLE 

TRADT 

BETA 

TIFGOT 

ALPHA 

NONEXT 


ORG 

SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
SYN 


25 

32767 

ERLIST-100 

ERLIST-1250 

ERLIST-1251 

ERLIST-1252 

ERLIST-1252 

ERLIST-1852 






00031 





77200 





00202 




REW 


2 






00032 





77200 





00203 




REW 


3 






00033 





53400 


4 


01151 




LXA 


IR2»4 






00034 





76200 





00202 


RDFILE 


RTD 


2 


WILL READ ANY KIND OF END FILE MARK 




00035 





70000 





00000 




CPY 









00036 





02000 





00034 




TRA 


RDFILE 






00037 


2 


00001 


4 


00034 




TIX 


RDFILE »4»1 


SPACE OVER 2 FILES AND OVER 1ST RECORD OF 




00040 





76200 





00222 




RTB 


2 


3RD FILE 




00041 





76100 





00000 




NOP 








00042 





53400 


1 


01152 




LXA 


IR4.1 






00043 





70000 


1 


77634 


CP 


CPY 


TABLE+ltl 






00044 


1 


00001 


1 


00043 




TXI 


CP*1*1 






00045 





02000 





00031 




TRA831 


START AGAIN* CANNOT GET END FILE 




00046 


2 


00001 


1 


00124 




TIX 


F0RSUB*1*1 


DROP COUNT OF 2ND FILE 




00047 





76200 





00222 


OVER 


RTB 


2 


SPACE OVER END FILE AFTER FORSUB 




00050 





76200 





00222 




RTB 


2 


SPACE OVER FLOCON 




00051 





76200 





00222 




RTB 


2 


SPACE OVER FORMAT 




00052 





53400 


1 


01152 


RDREC 


LXA 


IR4.1 






00053 





76200 





00222 




RTB 


2 






00054 





70000 





01174 




CPY 


IDENT 






00055 





70000 





01175 




CPY 


WDCONT 






00056 





70000 


1 


77633 


COPY 


CPY 


TABLE* 1 


ALTERNATE FOR READING TRAD CPY TRAD»2 




00057 


1 


00001 


1 


00056 


CPTXI 


TXI 


C0PY»1.1 


TIX COPYAA. 1.1 




00060 


1 


77777 


4 


00056 


COPYAA 


TXI 


C0PY.4»-1 






00S61 


-0 


75400 


1 


OOOOO 




PXD 


0*1 






00062 





02000 





01254 


ROA 


TRA 


PTCH 


NOP GOES HERE AFTER SIZ TABLES ARE READ 




00063 





40200 





01175 


SUBWDS 


SUB 


WDCONT 






O0O64 





14000 





00135 


ROAAB 


TZE 


SIZ 


TZE IONTFY REPLACES THIS AFTER SIZ TABLES READ 




00065 


-0 


53400 


4 


01201 




LXD 


BST.4 






00066 


-3 


00016 


4 


00072 




TXL 


TRY»4»14 






00067 





56000 





01174 




LDQ 


IDENT 






00070 





07400 


4 


01033 


BADWC 


TSX 


ERROR* 4 






00071 





02000 





00777 




TRA 


DIAGND 






00072 


1 


00001 


4 


00073 


TRY 


TXI 


RDSXD*4*1 






00073 


-0 


63400 


4 


01201 


RDSXD 


SXD 


BST»4 






00074 





76400 





00202 




BST 


2 






00075 





02000 





00052 




TRA 


RDREC 






50076 





60000 





01201 


IDNTFY 


STZ 


BST 


FORMAT SIZE AND ALL TAPE TABLES HAVE 




00077 





53400 


2 


01253 




LXA 


TAPTAB*2 


IDENTIFICATION WORD AS FIRST WORD OF 




00100 





50000 





01174 




CLA 


IDENT 


TAPE RECORD. NOT INCLUDED IN WORD 




00101 





34000 


2 


01253 


CAS 


CAS 


TAPTAB.2 


COUNT 




00102 





02000 





00104 




TRA 


NEXT 






00103 





02000 





00116 




TRA 


HAVE 






00104 


2 


00002 


2 


00101 


NEXT 


TIX 


CAS. 2*2 






00105 


-0 


53400 


4 


01202 




LXD 


BSTA»4 


BACK SPACE RECORD AND TRY AGAIN 15 TIMES 



r\ 



*■? 



06106 
00107 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00170 
00171 
00172 
«0173 



-3 00016 
56000 
07400 
02000 
00001 
63400 
76400 
02000 
60000 
50000 
62100 
02000 
76200 
02000 
00002 
53400 
63400 
53400 
56000 
07400 
00002 
00000 






1 

-0 








2 


-0 




1 

-3 



02000 



00000 
00002 
53400 
63400 
53400 
56000 
07400 
00002 
00000 
76200 
76200 
50000 
62100 
50000 
60100 
02000 
00000 
00001 
53400 
63400 
53400 
56000 
07400 
00001 
00000 
02000 
00000 
00001 
53400 
63400 
5340O 



4 00112 
O 01174 
4 01033 
00777 
4 00113 
4 01202 

00202 
00052 
01202 
01254 
00121 
00000 
00222 
00052 
00126 
01152 
00133 
01152 
77633 
01066 
00133 
00130 
00047 
00146 
00140 
01152 
00145 
01152 
77633 
01066 
00145 
00142 
00222 
00222 
01232 
00064 
01205 
00062 
00052 
00052 
00160 
01152 
00165 
01152 
77633 
01066 

1 00165 
1 00162 

00052 
00200 
00172 
01152 
00177 
01152 



NOIDEN 

TRYA 
IONSXD 



HAVE 

TRA 
N0T1FG 

FORSUB 

SAVEA 

LDQA 
TSXA 

TXLA 

S1Z 

SAVEB 

LDOB 
TSX8 

TXLB 
SETRD 



SUBARO 

SAVEC 

LDQC 
TSXC 

TXLC 

UPPER 

SAVED 



TXL 
LDQ 
TSX 
TRA 
TXI 
SXD 
BST 
TRA 
STZ 
CLA 
STA 
TRA 
RTB 
TRA 
TIX 
LXA 
SXD 
LXA 
LDQ 
TSX 
TXI 
TXL 
TRA 
TXL 
TIX 
LXA 
SXD 
LXA 
LDQ 
TSX 
TXI 
TXL 
RTB 
RTB 
CLA 
STA 
CLA 
STO 
TRA 
TXL 
TIX 
LXA 
SXD 
LXA 
LDQ 
TSX 
TXI 
TXL 
TRA 
TXL 
TIX 
LXA 
SXD 
LXA 



TRYA»4»14 

1DENT 

ERROR. 4 

OIAGND 

IDNSXD»4»1 

BSTA.4 

2 

RDREC 

BSTA 

TAPTAB+1»2 

TRA 



2 

RDREC 

SAVEA»1*2 

IR4.1 

TXLA.l 

IR4.1 

TABLE .1 

CHECKA.4 

TXLA»1»2 

LDQA»1»0 

OVER 

SETRD. 1»0 

SAVEB. 1.2 

IR4.1 

TXLB.l 

IR4.1 

TABLE.l 

CHECKA.4 

TXLB .1*2 

LOOB.1.0 

2 

2 

AFTRSZ 

ROAAB 

NOP 

RDA 

ROREC 

RDRECtl.O 

SAVEC. 1*1 

IR4.1 

TXLC.l 

IR4.1 

TABLE.l 

CHECK.A.4 

TXLC.1.1 

LDQC. 1*0 

RDREC 

UPPRTB.1.0 

SAVED. 1.1 

IR4.1 

TXLD.l 

IR4.1 



IF NECESSARY 



IF NO TIFGO ENTRY* IGNORE TRAD ENTRY 



IF NO ENTRIES. GET NEXT TAPE RECORDS 
REDUCE WORD COUNT FOR END OF ENTRIES TEST 
IF TOO SMALL* SET TO ZERO 

START AT FIRST ENTRY* THAT IS IR IS ZERO 



GET NEXT 2 WORD ENTRY 

SPACE OVER GAP AT END OF 4TH FILE 
SPACE OVER 5 WORD END RECORD 



RESET TEST AT END OF READ LOOP 
INITIALIZATION OF END ENTRIES TEST 



1 WORD ENTRIES 



INITIALIZE END OF ENTRIES TEST 



V<* 



L) 



r^ 



00174 





56000 


1 


77633 


LOOO 


LOO 


TABLE .1 


00175 





07400 


4 


01066 


TSXD 


TSX 


CHECKA.4 


00176 


1 


00001 


1 


00177 




TXI 


TXLD .1.1 


00177 


-3 


ooooo 


1 


00174 


TXLD 


TXL 


LDGD.i*© 


00200 





76200 





00222 


UPPRTB 


RTB 


2 


00201 





02000 





00052 




TRA 


ROREC 


00202 


-3 


00000 


1 


00052 


TEIFNO 


TXL 


RDREC. 1.0 


00203 


2 


00001 


1 


00205 




TIX 


SAVEE* 1.1 


00204 





53400 


1 


01152 




LXA 


IR4»1 


00205 


-0 


63400 


1 


00214 


SAVEE 


SXD 


TXLE.l 


00206 





53400 


1 


01152 




LXA 


IR4.1 


00207 





50000 


1 


77633 


CLAE 


CLA 


TABLE. 1 


00210 





12000 





00213 




TPL 


TSTE 


00211 





56000 


1 


77633 




LDQ 


TABLE, 1 


00212 





07400 


4 


01033 


TSXE 


TSX 


ERROR. 4 


00213 


1 


00001 


1 


00214 


TSTE 


TXI 


TXLE. 1.1 


00214 


-3 


00000 


1 


00207 


TXLE 


TXL 


CLAE. 1.0 


00215 





50000 





01164 




CLA 


ADTIFG 


00216 





62100 





00056 




STA 


COPY 


00217 





02000 





00052 




TRA 


RDREC 


00220 


-3 


ooooo 


1 


01260 


TIFGO 


TXL 


PAT1F.1.0 


00221 


2 


00002 


1 


00223 




TIX 


SAVEF.1.2 


00222 





53400 


1 


01152 




LXA 


IR4.1 


00223 


-0 


63400 


1 


00310 


SAVEF 


SXD 


TXLF.l 


00224 





50000 





01165 




CLA 


ADTRAD 


00225 





60100 





00056 




STO 


COPY 


00226 





50000 





01166 




CLA 


CPTRAD 


00227 





62100 





00057 




STA 


CPTXI 


00230 





53400 


4 


01152 




LXA 


IR4.4 


00231 





02000 





00052 




TRA 


RDREC 


00232 





50000 





01163 


TRAD 


CLA 


ADTABL 


00233 





60100 





00056 




STO 


COPY 


00234 





50000 





00060 




CLA 


COPYAA 


00235 





62100 





00057 




STA 


CPTXI 


00236 


1 


77777 


4 


00237 




TXI 


SXDG.4.-1 


00237 


-0 


6340O 


4 


00572 


SXD6 


SXD 


BETANB.4 


00240 





50O00 





00030 




CLA 


24 


00241 





76100 





00000 




NOP 




0O242 


e 


77100 


O 


00O22 




ARS 


IS 


00243 





60000 





75434 




STZ 


BETA 


00244 





62100 





75434 




STA 


BETA 


00245 





76200 





00223 




RTB 


3 


00246 





53*00 


2 


01152 




LXA 


IR4.2 


00247 





70000 





ooooo 


CPNON 


CPY 





00250 


-0 


53400 


4 


ooooo 




LXO 


0.4 


00251 





02000 





00253 




TRA 


PXDH 


00252 





02000 





00257 




TRA 


SAVXNB 


00253 


-0 


75400 


4 


ooooo 


PXDH 


PXD 


0.4 


00254 





77100 





00022 




ARS 


18 


00255 





60100 


2 


74303 




STO 


N0NEXT.2 


00256 


1 


00O01 


2 


00247 




TXI 


CPNON.2.1 


00257 


2 


00001 


2 


00261 


SAVXNB 


TIX 


SAVEH.2.1 


00260 





53400 


2 


01152 




LXA 


IR4.2 


00261 


-0 


63400 


2 


01055 


SAVEH 


SXD 


TXLH.2 



1 WORD ENTRIES 
NO SCAN OF HOLARG RECORD 
INITIALIZE END OF ENTRIES TEST 



MINUS ENTRY MEANS BETA IS 
DUPLICATED IN SOURCE PROGRAM 



IF NO ENTRIES. IGNORE TRAD IDENTIFICATION 



SET READ LOOP TO READ TRAD 
UPWARDS IN MEMORY. BUT 
KEEP TRACK OF WORD COUNT 
AS USUAL 



RESTORE COPY LOOP 



SAVE NUMBER OF ENTRIES IN BETA TABLE 
ADD ONE TO LAST TEIFNO 
GET LAST TEIFNO 



READ IN TABLE OF NON EXECUTABLE 
STATEMENTS AND SAVE 

DECREMENT OF TABLE IN 
ADDRESS OF MEMORY 



SET END OF ENTRIES TEST 
SET END OF ENTRIES TEST 



f') 



00262 





53400 


1 


01152 




LXA 


IR4.1 


00263 





50000 


1 


75433 


CLAF 


CLA 


TIFGOT.l 


00264 





77100 





O0022 




ARS 


18 


00265 





62100 





01170 




STA 


ALFA 


00266 





50000 


1 


75433 




CLA 


TIFGOT.l 


00267 


-0 


12000 





00312 




TMI 


TIFMI 


00270 





73400 


2 


00000 




PAX 


0.2 


00271 


-3 


00000 


2 


00345 




TXL 


TIFZRO*2*0 


00272 


-3 


00001 


2 


00363 




TXL 


TIFG01*2»1 


00273 


-3 


00002 


2 


00410 




TXL 


T1FG02.2*2 


00274 


-3 


00003 


2 


00435 




TXL 


TIFG03»2»3 


00275 


-3 


00004 


2 


00461 




TXL 


TIFG04t2»4 


00276 


-3 


00005 


2 


00505 




TXL 


TIFG05.2.5 


00277 


-3 


00006 


2 


00531 




TXL 


TIFG06»2»6 


00300 





56000 


1 


75433 




LDQ 


TIFGOT.l 


00301 





07400 


4 


01033 


WHATIF 


TSX 


ERROR* 4 


00302 


-0 


53400 


4 


00635 


NXT1FG 


LXD 


ALFANB»4 


00303 





50000 





01170 




CLA 


ALFA 


00304 





60100 


4 


75433 




STO 


ALPHA* 4 


00305 


1 


00001 


4 


00306 




TXI 


FSAVE* 4.1 


00306 


-0 


63400 


4 


00635 


FSAVE 


SXD 


ALFANB.4 


00307 


1 


00002 


1 


00310 


RETIF6 


TXI 


TXLF. 1*2 


00310 


-3 


00000 


1 


00263 


TXLF 


TXL 


CLAF.1.0 


00311 





02000 





00536 




TRA 


STOPS 


00312 


-0 


32000 





01157 


TIFMI 


ANA 


ADDMSK 


00313 


-o 


10000 





00316 




TNZ 


SAVEB1 


00314 





07400 


4 


01022 


MINB1 


TSX 


N0BETA.4 


00315 





02000 





00321 




TRA 


N0WB2 


00316 





07400 


4 


01047 


SAVEB1 


TSX 


ISN0NX*4 


00317 


-0 


12000 





00321 




TMI 


N0WB2 


00320 





07400 


4 


01131 




TSX 


M0RBTS.4 


00321 





50000 


1 


75432 


NOWB2 


CLA 


TIFG0T-1»1 


00322 





77100 





00022 




ARS 


18 


00323 


-0 


32000 





01157 




ANA 


ADDMSK 


00324 


-0 


10000 





00327 




TNZ 


SAVEB2 


00325 





07400 


4 


01022 


MINB2 


TSX 


N0BETA»4 


00326 





02000 





00332 




TRA 


N0WB3 


00327 





07400 


4 


01047 


SAVEB2 


TSX 


ISN0NX.4 


00330 


-0 


12000 





00332 




TMI 


N0WB3 


00331 





07*00 


4 


01131 




TSX 


M0RBTS.4 


00332 





50000 


1 


75432 


N0WB3 


CLA 


T1FG0T-1.1 


00333 


-0 


32000 





01157 




ANA 


ADDMSK 


00334 


-0 


10000 





00337 




TNZ 


SAVEB3 


00335 


© ©740O 4 


O1022 


MINB3 


TSX 


NOBETA.4 


00336 





02000 





00342 




TRA 


ALFAD1 


00337 





07400 


4 


01047 


SAVEB3 


TSX 


ISN0NX.4 


00340 


-0 


12000 





00342 




TMI 


ALFAD1 


00341 





07400 


4 


01131 




TSX 


MORBTS.4 


00342 





50000 





01156 


ALFAD1 


CLA 


DECTRE 


00343 





62200 





01170 




STO 


ALFA 


00344 





020O0 





00302 




TRA 


NXTIFG 


00345 





50000 


1 


75432 


TIFZRO 


CLA 


T1FG0T-1.1 


00346 


-0 


32000 





01157 




ANA 


ADDMSK 


00347 


-0 


10000 





00352 




TNZ 


TIFOB 



SAVE ALPHA IN CASE OF ERROR* AND 
ALSO TO PUT IN ALPHA TABLE AT 
END OF PROCESSING EACH KIND OF T1FG0 
DETERMINE KIND OF ENTRY 



NOT IDENTIFYABLE. SAVE IN ERROR 
TABLE* BUT PUT ALPHA IN TABLE ANYWAY 
STORE ALPHA IN TABLE 



TYPE 6 TIFGO ENTRIES DO NOT GO IN 

ALPHA TABLE 

WHEN TIFGO FINISHED. READ IN STOPS 

IF BETA IS ZERO. THERE WAS NO ENTRY 
CORRESPONDING TO IT IN COL 1 TO 5 OF 
SOURCE PROGRAM. SKIP REST OF PROCESSING 
IF BETA IS NOT EXECUTABLE. DO NOT PUT IN 
BETA TABLE 



2-fi 



u 



r^ 



O 



00350 





07400 


4 


01022 


TSXTFO 


TSX 


N08£TA»4 


00351 





02000 





00355 




TRA 


NEXTI 


00352 





07400 


4 


01047 


TIFOB 


TSX 


ISN0NX«4 


00353 


-0 


12000 





00355 




TMI 


NEXT! 


00354 





07400 


4 


01131 




TSX 


MOR8TS»4 


00355 





50000 


1 


75432 


NEXTI 


CLA 


TIFGGT-1»1 


00356 


-0 


73400 


4 


00000 




POX 


0*4 


00357 


3 


00000 


4 


00307 




TXH 


RETIF6»4»0 


00360 





50000 





01154 




CLA 


OECONE 


00361 





62200 





01170 




STD 


ALFA 


00362 





02000 





00302 




TRA 


NXTIFG 


00363 





60000 





01172 


TIFG01 


STZ 


TRADNB 


00364 





50000 


1 


75432 


CLAJ 


CLA 


TIFG0T-1»1 


00365 


-0 


73400 


2 


00000 




PDX 


0*2 


00366 





76700 





00022 




ALS 


18 


00367 





62200 





00404 




STD 


TXHJ 


00370 





50000 


2 


76027 


MORTR 


CLA 


TRADT+250*2 


00371 


-0 


10000 





00374 




TNZ 


TRADX1 


00372 





07400 


4 


01022 


BTIFG1 


TSX 


N0BETA»4 


00373 





02000 





00400 




TRA 


ADDJ 


00374 





07400 


4 


01047 


TRADX1 


TSX 


ISN0NX>4 


00375 





12000 





00400 




TPL 


ADDJ 


00376 





50000 





01154 




CLA 


DECONE 


00377 





62200 


2 


76027 




STD 


TRADT+250,2 


00400 





50000 





01172 


AODJ 


CLA 


TRADNB 


00401 





40000 





01154 




ADD 


DECONE 


00402 





60100 





01172 




STO 


TRADNB 


00403 


1 


77777 


2 


00404 




TXI 


TXHJ»2*-1 


00404 


3 


00000 


2 


00370 


TXHJ 


TXH 


MORTR* 2*0 


00405 





50000 





01172 




CLA 


TRADNB 


00406 





62200 





01170 




STD 


ALFA 


00407 





02000 





00302 




TRA 


NXTIFG 


00410 





60000 





01172 


TIFG02 


STZ 


TRADNB 


00411 





50000 


1 


75432 


CLAK 


CLA 


TIFG0T-1»1 


00412 


-0 


73400 


2 


00000 




PDX 


0*2 


00413 





76700 





00022 




ALS 


18 


00414 





62200 





00431 




STD 


TXHK 


00415 





50000 


2 


76027 


MORTRD 


CLA 


TRADT+250»2 


00416 


-0 


10000 





00421 




TNZ 


TRADX2 


00417 





07400 


4 


01022 


BTIFG2 


TSX 


N0BETA.4 


00420 





02000 





00425 




TRA 


ADDK 


00421 





07400 


4 


01047 


TRADX2 


TSX 


ISN0NX*4 


00422 





12000 





00425 




TPL 


ADDK 


00423 





50000 





01154 




CLA 


DECONE 


00424 





62200 


2 


76027 




STD 


TRADT+250»2 


00425 





50000 





01172 


ADDK 


CLA 


TRADNB 


00426 





40000 





01154 




ADD 


DECONE 


00427 





60100 





01172 




STO 


TRADNB 


00430 


1 


77777 


2 


00431 




TXI 


TXHK»2»-1 


00431 


3 


00000 


2 


00415 


TXHK 


TXH 


MORTRD»2.0 


00432 





50000 





01172 




CLA 


TRADNB 


00433 





62200 





01170 




STD 


ALFA 


00434 





02000 





00302 




TRA 


NXTIFG. 


00435 





50000 


1 


75432 


TIFG03 


CLA 


TIFGOT-ltl 



KEEP TRACK OF NUMBER OF BETAS 



DO NOT PUT IN ALPHA TABLE IF 
ENTRY BY IRV FOR SAP INSTRUCTIONS 



PREPARE TO READ RELATED TRAD ENTRIES 



IF TRAD IS NON EXECUTABLE, MAKE ENTRY 

FAIL ANY ALPHA PLUS 1 SEARCH LATER ON 

BY PUTING NUMBER IN DECFIELD 

BUT KEEP TRACK OF NUMBER OF BRANCHES GIVEN 



III 



00436 
00437 
00440 
00441 
00442 
00443 
00444 
00445 
00446 
00447 
00450 
00451 
00452 
00453 
00454 
00455 
00456 
00457 
00460 
00461 
00462 
00463 
00464 
00465 
00466 
00467 
00470 
00471 
00472 
00473 
00474 
00475 
00476 
00477 
00500 
00501 
00502 
00503 
00504 
00505 
0O506 
00507 
00510 
00511 
00512 
00513 
00514 
00515 
00516 
00517 
00520 
00521 
00522 
00523 



77100 

-0 32000 

-0 10000 

07400 

02000 

07400 

12000 

07400 

50000 

-0 32000 

-0 10000 

07400 

02000 

07400 

-0 12000 

07400 

50000 

62200 

02000 

50000 

77100 

32000 

10000 

07400 

02000 

07400 

-0 12000 

07400 

50000 

-0 32000 

-0 10000 

07400 

02000 

07400 

-0 12000 

O 07400 

50000 

62200 

02000 

50000 

77100 

-0 32000 

-0 10000 

07400 

02000 

07400 

-0 12000 

O 07400 

50000 

-O 32000 






-0 








o 



o 





-0 

-o 










o 














o 



-o 







10000 
07400 
02000 
07400 



00022 
01157 
00443 
01022 
00446 
01047 
00446 
01131 
75432 
01157 
00453 
01022 
00456 
01047 
00456 
01131 
01155 
01170 
00302 
75432 
00022 
01157 
00467 
01022 
00472 
01047 
00472 
01131 
75432 
01157 
00477 
01022 
00502 
01047 
00502 
01131 
01155 
01170 
00302 
75432 
00022 
01157 
00513 
01022 
00516 
01047 
00516 
01131 
75432 
01157 
00523 
01022 
00526 
01047 



B1TIF3 
TIF3B1 

NEXTL 

B2TIF3 
TIF3B2 

AOOL 

TIFG04 

B1T1F4 
TIF4B1 

NEXTM 

B2TIF4 
TIF4B2 

AODM 

TIFG05 

B1TIF5 
TIF5B1 

NEXTN 

B2TIF5 
TIF5B2 



ARS 
ANA 
TNZ 
TSX 
TRA 
TSX 
TMI 
TSX 
CLA 
ANA 
TNZ 
TSX 
TRA 
TSX 
TMI 
TSX 
CLA 
STO 
TRA 
CLA 
ARS 
ANA 
TNZ 
TSX 
TRA 
TSX 
TMI 
TSX 
CLA 
ANA 
TNZ 
TSX 
TRA 
TSX 
TMI 
TSX 
CLA 
STD 
TRA 
CLA 
ARS 
ANA 
TNZ 
TSX 
TRA 
TSX 
TMI 
TSX 
CLA 
ANA 
TNZ 
TSX 
TRA 
TSX 



18 

ADDMSK 

T1F3B1 

N0BETA»4 

NEXTL 

ISN0NX»4 

NEXTL 

M0RBTS»4 

TIFGOT-1.1 

ADDMSK. 

TIF3B2 

N0BETA»4 

ADDL 

ISN0NX»4 

AOOL 

M0RBTS»4 

DEC TWO 

ALFA 

NXTIFG 

TIFGOT-1.1 

18 

ADDMSK 

TIF4B1 

N0BETA*4 

NEXTM 

ISN0NXi4 

NEXTM 

M0RBTS»4 

TIFG0T-1»1 

ADDMSK 

TIF4B2 

N0BETA»4 

AODM 

ISN0NX»4 

AODM 

M0RBTS»4 

DEC TWO 

ALFA 

NXTIFG 

TIFG0T-1»1 

18 

ADDMSK 

TIF5B1 

N0B£TAt4 

NEXTN 

ISN0NX*4 

NEXTN 

MORBTS.4 

TIFG0T-1»1 

ADOMSK 

TIF5B2 

N0BETA*4 

ADDN 

ISN0NX.4 



J.^ 



o 



n 
















00524 


-0 


12000 





00526 




TMI 


ADDN 


00525 





07400 


4 


01131 




TSX 


MORBTS*4 


00526 





50000 





01155 


AOON 


CLA 


DECTWO 


00527 





62200 





01170 




STD 


ALFA 


00530 





02000 





00302 




TRA 


NXTIFG 


00531 





500Q0 


1 


75432 


TIFG06 


CLA 


TIF60T-1»1 


00532 


-0 


32000 





01157 




ANA 


ADDMSK 


00533 


-0 


10000 





00307 




TNZ 


RETIF6 


00534 





07400 


4 


01022 


TIF6B 


TSX 


N0BETAt4 


00535 





02000 





00307 




TRA 


RETIF6 


00536 





76200 





00223 


STOPS 


RTB 


3 


00537 


-0 


53400 


1 


00635 




LXD 


ALFANB»1 


00540 





70000 





00000 


CPSTOP 


CPY 





00541 


-0 


53400 


4 


00000 




LXD 


0,4 


00542 





02000 





00544 




TRA 


PDXP 


00543 





02000 





00550 




TRA 


TIXP 


00544 


-0 


75400 


4 


00000 


PDXP 


PXD 


0t4 


00545 





77100 





00022 




ARS 


16 


00546 





60100 


1 


75433 




STO 


ALPHA* 1 


00547 


1 


00001 


1 


00540 




TXI 


CPSTOP»l»l 


00550 


2 


00001 


1 


00552 


T1XP 


TIX 


NEXTP»1*1 


00551 





53400 


1 


01152 




LXA 


IR4.1 


00552 


-0 


63400 


1 


00600 


NEXTP 


SXD 


ENDALF tl 


00553 


-0 


63400 


1 


00635 




SXD 


ALFANB»1 


00554 


-0 


63400 


1 


00754 




SXD 


FRETST,1 


00555 





50000 





01167 




CLA 


CHNONX 


00556 





62100 





01053 




STA 


YESNOX 


00557 





53400 


1 


01152 




LXA 


IR4»1 


00560 





50000 


1 


75433 


CLAQ 


CLA 


ALPHA, 1 


00561 





02000 





01271 


OADD 


TRA 


PAQADD 


00562 





60000 





01170 


AODQ 


STZ 


ALFA 


00563 





62100 





01170 




STA 


ALFA 


00564 





53400 


2 


01152 




LXA 


IR4»2 


00565 





50000 


2 


75434 


NXTBTA 


CLA 


BETA « 2 


00566 





34000 





01170 




CAS 


ALFA 


00567 





02000 





00571 




TRA 


NEXTO 


00570 





02000 





00577 




TRA 


NXTALF 


00571 


1 


77777 


2 


00572 


NEXTO 


TXI 


BETANB»2»-1 


00572 


3 


00000 


2 


00565 


BETANB 


TXH 


NXTBTA ,2 »0 


00573 





50000 





01170 




CLA 


ALFA 


00574 





07400 


4 


01047 




TSX 


ISN0NX»4 


00575 


-0 


12000 





00602 




TMI 


ALAND1 


00576 





07400 


4 


01022 


NOTRA 


TSX 


N0BETA»4 


00577 


1 


00001 


1 


00600 


NXTALF 


TXI 


ENDALF, 1,1 


00600 


-3 


00000 


1 


00560 


ENDALF 


TXL 


CLAQ, 1,0 


00601 





02000 





00052 




TRA 


RDREC 


00602 





50000 





01170 


ALAND1 


CLA 


ALFA 


00603 





02000 





00561 




TRA 


QADD 


00604 


-3 


00000 


1 


00723 


TDO 


TXL 


SPACES»1»0 


00605 


2 


00005 


1 


00607 




TIX 


SAVES, 1,5 


00606 





53400 


1 


01152 




LXA 


IR4,1 


00607 


-0 


63400 


1 


00722 


SAVES 


SXD 


TXLS,1 


00610 





53400 


1 


01152 




LXA 


IR4,1 


00611 





50000 


1 


77633 


CLADO 


CLA 


TABLE, 1 



o 



LOAD NUMBER ALREADY IN ALPHA TABLE 
READ TABLE OF STOPS INTO REST OF 
ALPHA TABLE, PUT DECREMENT OF 
TAPE TABLE INTO ADDRESS OF MEMORY 



RESET I SNONX ROUTINE SO IT IS 
MERELY INFORMATIVE AND DOES NOT 
MAKE ENTRIES IN ERROR TABLE 



IF ALPHA PLUS 1 IN NONX, THEN LOOK IN BETA 

TABLE FOR ALPHA +2 ETC 

NOT EITHER TABLE, PART OF PROG NOT ENTERED 



INITIALIZE END OF ENTRIES TEST 



V* 



V 

00612 


-0 


32000 


01160 




ANA 


TAGMSK 


SAVE TAG FIELD FOR PROCESSING N1*N2*N3 






00613 





76700 


00022 




ALS 


18 








00614 





63000 


01203 




STP 


DOTAG 








00615 





50000 


1 77633 




CLA 


TABLE »1 


SAVE ALPHA IN CASE OF ERROR 






00616 





77100 


00022 




ARS 


18 








0061? 





62100 


01170 




STA 


ALFA 








00620 





50000 


1 77633 




CLA 


TABLE .1 








00621 


-0 


32000 


01157 




ANA 


ADDMSK 








00622 


-0 


10000 


00625 




TN2 


BINTIF 








00623 





07400 


4 01022 


DQNOBT 


TSX 


NOBETA»4 








00624 . 





02000 


00643 




TRA 


DOALF 








00625 





53400 


2 01152 


BINTIF 


LXA 


IR4.2 


IS BETA IN DO TABLE A CONDITIONAL 






00626 





60100 


01204 




STO 


DOBETA 


TRANSFER* THAT IS* IS IT IN ALPHA TABLE 






00627 





50000 


2 75433 


SCLA 


CLA 


ALPHA* 2 








00630 


-0 


32000 


01157 




ANA 


ADDMSK 


MASK OUT NUMBER OF BRANCHES 






00631 





34000 


01204 




CAS 


DOBETA 








00632 





02000 


00634 




TRA 


TIXS 








00633 





02000 


00727 




TRA 


CONBET 


THIS IS AN ERROR 






00634 


1 


00001 


2 00635 


TIXS 


TXI 


ALFANB»2*1 








00635 


-3 


00000 


2 00627 


ALFANB 


TXL 


SCLA»2»0 








00636 





50000 


01204 




CLA 


DOBETA 








00637 





07400 


4 01047 




TSX 


ISN0NX*4 








00640 





12000 


00643 




TPL 


DOALF 


IF BETA IN TO IS NON EXECUTABLE THIS 






00641 





07400 


4 01022 


DOBTNX 


TSX 


NOBETA»4 








00642 


07400 


4 01141 




TSX 


AD0B»4 








00643 





50000 


01170 


DOALF 


CLA 


ALFA 








00644 


-0 


32000 


01157 




ANA 


ADDMSK 


CLEAR ANY HASH LEFT FROM ERROR RECODING 






00645 





40000 


01153 




ADO 


ADDONE 








00646 





07400 


4 01047 




TSX 


ISN0NX»4 


IF ALPHA PLUS 1 IS NON EXECUTABLE 






00647 





12000 


00652 




TPL 


DOSYMB 


THIS IS ERROR 






00650 





0740C 


4 01022 


DOALNX 


TSX 


N0BETA*4 








00651 





07400 


4 01141 




TSX 


ADOB»4 








00652 





56000 


1 77632 


DOSYMB 


LDQ 


TABLE-1»1 


DOES SYMBOL CONTAIN ANY ILLEGAL 






00653 





07400 


4 01066 


PUNSYM 


TSX 


CHECKA*4 


PUNCTUATION 






00654 





12000 


00656 




TPL 


IJKSYM 








00655 





07400 


4 01141 




TSX 


AD0B»4 








00656 





07400 


4 01113 


IJKSYM 


TSX 


CHECKB »4 


DOES SYMBOL BEGIN WITH IJKLM OR N 






00657 





12000 


00661 




TPL 


Nl 








00660 





07400 


4 01141 




TSX 


AD0B*4 








00661 


-0 


50000 


01203 


Nl 


CAL 


DOTAG 








00662 


-0 


7600O 00001 




PBT 










00663 





02000 


00674 




TRA 


N2+1 


NO 






00664 





56000 


1 77631 




LDQ 


TABLE-2»1 


YES 






00665 





074O0 


4 01066 


PUNN1 


TSX 


CH€CKA*4 








00666 





12000 


00670 




TPL 


IJKN1 








00667 





07400 


4 01141 




TSX 


AD0B»4 








00670 





07400 


4 01113 


IJKN1 


TSX 


CHECKB *4 








00671 





12000 


00673 




TPL 


N2 








00672 





07400 


4 01141 




TSX 


AD0B*4 








00673 


-0 


50000 


012O3 


N2 


CAL 


DOTAG 








00674 





76700 


00001 




ALS 


1 








00675 


-0 


76000 


00001 




PBT 










00676 





02000 


00706 




TRA 


N3 








0O677 


O 56000 


1 77630 




LDQ 


TABLE-3»1 


■■--.'- 




w 


o 












■ ' .-— — _-— ->m> — : — ■ — -'j*«n - 


a> ^ **mmmk -- — " mini i in — ■»_ <• 


o 





n 



r\ 



00700 





07400 


4 


01066 


PUNN2 


TSX 


CHECKA.4 


00701 





12000 





00703 




TPL 


IJK.N2 


00702 





07400 


4 


01141 




TSX 


AD0B»4 


00703 





07400 


4 


01113 


IJKN2 


TSX 


CHECICB.4 


00704 





12000 





00706 




TPL 


N3 


00705 





07400 


4 


01141 




TSX 


A00B»4 


0O706 


-0 


50000 





01203 


N3 


CAL 


DOT AG 


00707 





76700 





00002 




ALS 


2 


00710 


-0 


76000 





00001 




POT 




00711 





02000 





00721 




TRA 


NXTDO 


00712 





56000 


1 


77627 




LDQ 


TABLE-4*1 


00713 





07400 


4 


01066 


PUNN3 


TSX 


CHECKA.4 


00714 





12000 





00716 




TPL 


IJK.N3 


00715 





07400 


4 


01141 




TSX 


AD0B»4 


00716 





07400 


4 


01113 


IJKN3 


TSX 


CHECKB.4 


00717 





12000 





00721 




TPL 


NXTDO 


00 720 





07400 


4 


01141 




TSX 


AD0B»4 


00721 


1 


00005 


1 


00722 


NXTDO 


TXI 


TXLS.1.5 


00722 


-3 


ooooo 


1 


00611 


TXLS 


TXL 


CLADO.1.0 


00723 





76200 





00222 


SPACES 


RTB 


2 


00724 





76200 





00222 




RTB 


2 


00725 





76200 





00222 




RTB 


2 


00726 





02000 





00052 




TRA 


RDREC 


00727 





07400 


4 


01022 


CONBET 


TSX 


N0BETA.4 


00730 





07400 


4 


01141 




TSX 


AD08.4 


00731 





02000 





00643 




TRA 


DOALF 


00732 


-3 


00002 


1 


00052 


FRET 


TXL 


RDREC. 1*2 


00733 





53400 


2 


01152 


NEXTT 


LXA 


IR4»2 


00734 





50000 


1 


77634 


CLAT 


CLA 


TABLE+1.1 


00735 


-0 


12000 





00740 




TMI 


NEWFRT 


00736 


1 


00001 


2 


00737 




TXI 


TNEXT. 2»1 


00737 


2 


00001 


1 


00734 


TNEXT 


TIX 


CLAT.1.1 


00740 


-0 


63400 


2 


01206 


NEWFRT 


SXO 


FRETNB.2 


00741 


-0 


32000 





01157 




ANA 


ADDMSK 


00742 





60100 


O 


Oil 70 




STO 


AL^A 


00743 


-0 


10000 





00745 




TNZ 


BRANCH 


00744 





02000 





00763 




TRA 


NXTFRT 


0O745 





53400 


4 


01152 


BRANCH 


LXA 


IR4.4 


00746 





50000 


4 


75433 


TCLAT 


CLA 


ALPHA .4 


00747 


-0 


32000 





01157 




ANA 


ADDMSK 


00750 





34000 





01170 




CAS 


ALFA 


00751 





02000 





00753 




TRA 


TIXT 


00752 





02000 





00756 




TRA 


HAVALF 


00753 


1 


00001 


4 


00754 


TIXT 


TXI 


FRETST. 4.1 


00754 


-3 


OOOOO 


4 


00746 


FRETST 


TXL 


TCLAT.4.0 


00755 





02000 





00763 




TRA 


NXTFRT 


00756 





50000 


4 


75433 


HAVALF 


CLA 


ALPHA.4 


00757 


-0 


32000 





01161 




ANA 


DECMSK 


00760 





40200 





01206 




SUB 


FRETNB 


00761 





12000 





00763 




TPL 


NXTFRT 


00762 





07400 


4 


01022 


FRETIF 


TSX 


N0BETA.4 


00763 


2 


00001 


1 


00733 


NXTFRT 


TIX 


NEXTT.1.1 


00764 





02000 





00052 




TRA 


RDREC 


00765 





50000 





77633 


EQUIV 


CLA 


TABLE 



SPACE OVER FORVAL 
SPACE OVER FORVAR 
SPACE OVER FORTAG 



AND TEST ALPHA 

GO THRO THIS TABLE FROM LAST TO FIRST 



WILL NOT FAIL BEFORE THE TMI 
SAVE NUMBER OF FREQUENCIES 



FREQUENCY OF BETA IS IGNORED BY 
FORTRAN IF NO CORRESPONDING BETA 
COLUMN 1 TO 5 OF SOURCE PROGRAM 



IN 



SET AT END OF READING IN STOP TABLE 

THE ONLY TIME A FREQUENCY STATEMENT CAN 
LOUSE UP THE OBJECT PROGRAM IS WHEN 
THERE ARE MORE FREQUENCIES GIVEN THAN 
BRANCHES* 



FIRST WORD IN TABLE WILL BE 35 ONES 



It 



Z. V 



00766 
00767 
00770 
00771 
00772 
00773 
00774 
00775 
00776 
00777 
01000 
01001 
01002 
01003 
01004 
01005 
01006 
01007 
01010 
01011 
01012 
01013 
01014 
01015 
01016 
01017 
01020 
01021 



01022 
01023 
01024 
01025 

01026 
01027 
01030 
01031 
01032 



40200 
10000 
53400 
50000 
40200 
10000 
56000 



07400 4 



00001 

50000 

10000 

60100 

50000 

60100 

53400 

76200 

70000 

02000 

00001 

00001 

76200 

53400 

70000 

77777 

76100 

07400 4 

76100 

76100 



-0 63400 4 
07400 4 

-0 53400 4 
02000 4 

-0 63400 4 

-0 53400 4 

50000 

60100 4 

1 00001 4 



01162 
00777 
01152 
77632 
01162 
00777 
77632 
01033 
00771 
01173 
01263 
00030 
01171 
00002 
01152 
00201 
00000 
01005 
01011 
01005 
00221 
01152 
00031 
01014 
00000 
00032 
00000 
00000 



01170 
01026 
01170 
00001 

01177 
01173 
01170 
77777 
01044 



NXTEQV 

NOTEQV 
OIAGND 

DIAGRD 

TST2FL 
DCPY 



BIGD 

REW 



NOBETA 



SAVALF 



SUB 
TNZ 
LXA 
CLA 
SUB 
TZE 
LDQ 
TSX 
TXI 
CLA 
TZE 
STO 
CLA 
STO 
LXA 
RTD 
CPY 
TRA 
TXI 
TXL 
RTB 
LXA 
CPY 
TXI 
NOP 
TSX 
NOP 
NOP 



SXD 
TSX 
LXD 
TRA 

SXD 
LXD 
CLA 
STO 
TXI 



MSK35 

DIAGND 

IR4*1 

TABLE-1*1 

MSK.35 

DIAGND 

TABLE-ltl 

ERROR* 4 

NXTEQV*1»1 

ERNBR 

SPACE2 

24 

TW13 

2 

IR4»2 

1 



DIAGRD 

TST2FL»2»1 

DIAGRD»2*1 

1 

IR4*1 

25»1 

DCPY*1»-1 

26»4 



IF THERE HAVE BEEN INCONSISTANT 



LAST INCONSISTANCY IS FOLLOWED BY 
ANOTHER WORD OF ONES 



IF NO ERROR* READ IN SECTION II 

SAVE FOR BIG D 
PUT RECORD NUMBER IN 2 FOR PRINT OUT 



SPACE OVER REST OF SYSTEM IN FORTRAN 



END FILE SKIP* START TO READ BIG D 



REPLACED BY SPACE2 AT 1263* WAS REWIND 



01033 


-0 


75400 


4 


00000 ERROR 


PXD 


01034 


-0 


53400 


4 


01173 


LXD 


01035 





62200 





01177 


STD 


01036 





62200 


4 


77777 


SID 


01037 





50000 





01152 


CLA 


01040 





77100 





00022 


ARS 


01041 





62100 


4 


77777 


STA 


01042 


-0 


60000 


4 


77776 


SIU 



ENTER WITH AC ZERO* EXIT WITH TSX FROM TABLE 

WHICH HAS MISSING BETA* IN DEC OF AC AND 

ALPHA IN ADDRESS OF AC. 

ALFA»4 

SAVALF »4 

ALFA»4 

1.4 

ENTER WITH HASH IN AC. EXIT WITH CONTENTS OF ALPHA IN AC. 

ERAS*4 

ERNBR»4 

ALFA 

ERLIST»4 

NEXTA»4»1 SAME RETURN AS ERROR ROUTINE. 

ENTER WITH MQ=BCD SYMBOL OR HASH.O* ALPHA 

MAKES 2 WORD ENTRY IN ERROR LIST 

1...KIND OF ERROR»0. TABLE IN WHICH ERROR FOUND 

2... CONTENTS OF MQ 
EXIT AC HASH* MQ NOT CHANGED 

0,4 PUT TSX FROM SECTION SCANNING 

ERNBR»4 FOR ERROR* IN DEC OF 1ST WORD 

ERAS 

ERLIST»4 

IR4 PUT TSX FROM OABLE IN WHI+H 

18 ERROR WAS FOUND* IN ADDR. OF 1ST WORD 

ERLIST*4 
ERLIST-1*4 PUT MQ IN 2ND WORD 



Zth 



n 



o 



01043 


1 


00002 


4 


01044 




01044 


-0 


634Q0 


4 


01173 


NEXTA 


01045 


-0 


53400 


4 


01177 




01046 





02000 


4 


0000 1 




01047 


-0 


63400 


4 


01152 


ISNONX 


01050 





02000 





01274 




01051 





34000 


2 


74303 


CASH 


01052 





020C0 





01054 




01053 





02000 





01057 


YESNOX 


01054 


1 


0000 1 


2 


01055 


NEXTH 


01055 


-3 


00000 


2 


01051 


TXLH 


01056 





02000 





01277 




01057 





76700 





00022 


NONEXB 


01060 





62200 





01170 




01061 





56000 





01170 




01062 





07400 


4 


01033 


TSXH 


01063 


-0 


53400 


4 


01152 


INFORM 


01064 


-0 


76000 





00003 




01065 





02000 





01277 




01066 


-0 


60000 





01176 


CHECKA 


01067 


-0 


63400 


4 


01152 




01070 


-0 


63400 


2 


01151 




01071 


-0 


63400 


1 


01150 




01072 


-0 


53400 


1 


01231 




01073 





53400 


2 


01231 


NXTNAM 


01074 


-0 


75400 





00000 




01075 


-0 


76300 





00006 




01076 





34000 


2 


01231 


ACAS 


01077 





02000 





01101 




01100 





02000 





01107 




01101 


2 


00001 


2 


01076 


ATIX 


01102 


2 


VVWVI 


1 


^t0?3 




01103 


-0 


53400 


4 


01152 


RETNA 


01104 


-0 


53*00 


2 


01151 




01105 


-0 


53400 


1 


01150 




01106 





02000 


4 


00001 




01107 





56000 





01176 


WRONG 


OHIO 





07400 


4 


01033 


CHATSX 


01111 


-0 


76000 





00003 




01H2 





02000 





01103 




01113 





560Q0 





01176 


CHECKS 


01114 


-0 


63400 


4 


01152 




01115 





53400 


4 


01215 




01116 


-0 


75400 





00000 




01117 


-0 


76300 





00006 




01120 





34000 


4 


01215 


BCAS 



THIS WILL BE CHANGED TO BYPASS ERROR WHEN 
SCANNING BETA TABLE 



ERROR* SAVE BETA AND ALPHA IN LIST 



SET RETURN TO SHOW ERROR 



TXI NEXTA»4»2 

SXD ERNBR»4 

LXD ERAS#4 

TRA 1*4 

ENTER WITH AC ALL ZERO. EXCEPT ADDRESS WHICH HAS BETA 
FROM T1FGO OR TDO» OR ALPHA+1 FROM SAME. EXIT SAME* EXCEPT 
WHERE MATCH IS FOUND* THEN AC HAS HASH 

SXD IR4.4 ERROR WILL RECORD WHICH TABLE WAS SCANNED 

TRA PATS2 

CAS NONEXT.2 

TRA NEXTH 

TRA NONEXB 

TXI TXLH»2»1 

TXL CASH»2»0 

TRA PATRE2 

ALS 18 

STD ALFA 

LDQ ALFA 

TSX ERROR* 4 

tXD IR4*4 

SSM 

TRA PATRE2 

ENTER WITH HASH IN AC* MQ HAS BCD SYMBOL. EXIT WITH HASH IN 
AC AMD MQ* SYMBOL IS STORED IN NAME. DC IS MINUS ONLY WHEN 
ILLEGAL CHARACTER PRESENT 

STQ NAME 

SXD IR4*4 

SXD IR2*2 

SXD IR1»1 

LXD SYMBL»1 

LXA SYMBL»2 

PXD 0*0 

LGL 6 

CAS SYMBL.2 

TRA ATIX 

TRA WRONG 

TIX ACAS. 2*1 

TIX NXTNAM»1»1 

LXD IR4.4 

LXD IR2*2 

LXD IR1.1 

TRA 1*4 

LDQ NAME 

TSX ERR0R*4 

SSM 

TRA RETNA 

ENTER WITH HASH IN AC + MQ. EXIT SAME EXCEPT WHERE NO MATCH- 
THEN MINUS 

LDQ NAME 

SXD IR4.4 

LXA IJK»4 

PXD 0*0 

LGL 6 

CAS IJK.4 



6 INTO IR1 

10 INTO IR2 

CLEAR AC AND COMPARE NEXT BCD 

CHARACTER WITH TABLE OF ILLEGAL SYMBOLS 



GET NEXT ILLEGAL SYMBOL FOR COMPARISON 
GET NEXT BCD CHARACTER FOR COMPARISON 



SIGNAL THAT ERROR HAS BEEN PICKED UP 



111 



01121 





02000 





01123 




TRA 


BTIX 




01122 





02000 





0112? 




TRA 


RETNB 




01123 


2 


00001 


4 


01120 


BTIX 


TIX 


BCAS»4»1 




01124 





56000 





01176 




LDQ 


NAME 




01125 





07400 


4 


01033 


CHBTSX 


TSX 


ERROR* 4 




01126 


-0 


76000 





00003 




SSM 






01127 


-0 


53400 


4 


01152 


RETNB 


LXD 


IR4»4 




01130 





02000 


4 


00001 




TRA 


1*4 


















ENTER WITH BETA FROM TIFGO ENTRIES WHICH ARE MINUS OR HAVE 0* 
















3*4*5 OR 6 IN 


ADDRESS OF 1ST WORD* TIFGO 1 AND 2 ARE ALREADY 
















IN BETA TABLE. 


EXIT WITH SAME. 


01131 


-0 


63400 


4 


01177 


MORBTS 


SXD 


ERAS.4 




01132 


-0 


53400 


4 


00572 




LXD 


BETANB»4 




01133 





601O0 


4 


75434 


STOBET 


STO 


BETA»4 




01134 


1 


77777 


4 


01135 




TXl 


STBET*4»-1 




01135 


-0 


63400 


4 


00572 


STBET 


SXD 


BETANB»4 




01136 


-0 


63400 


4 


00572 




SXD 


BETANB*4 




01137 


-0 


53400 


4 


01177 




LXD 


ERAS*4 




01140 





02000 


4 


00001 




TRA 


1»4 




01141 


-0 


63400 


4 


01177 


A00B 


SXD 


ERAS #4 




01142 


-0 


53400 


4 


01173 




LXD 


ERNBR* 4 




01143 





500OO 


1 


77633 




CLA 


TABLE *1 




©1144 





60100 


4 


7777? 




STO 


ERLIST»4 




01145 





50000 


1 


77632 




CLA 


TABLE-1»1 




01146 





60100 


4 


77776 




STO 


ERLIST-1»4 




01147 


1 


00002 


4 


01044 




TXI 


NEXTA»4»2 




01150 





00000 





00000 


IR1 


HTR 






01151 





00000 





00002 


IR2 


HTR 


2 




01152 





00000 





00000 


IR4 


HTR 







01153 





00000 





00001 


ADDON E 


HTR 


1 




01154 





00001 





00000 


DEC0NE 


HTR 


0»0»1 




01155 





00002 





00000 


DECTWO 


HTR 


0*0*2 




01156 





00003 





00000 


DECTRE 


HTR 


0*0*3 




01157 


+000000077777 


ADDMSK 


OCT 


000000077777 




01160 


+000000700000 


TAGMSK 


OCT 


000000700000 




01161 


+077777000000 


DECMSK 


OCT 


077777000000 




01162 


+377777777777 


MSK35 


OCT 


377777777777 




01163 





70000 


1 


77633 


ADTABL 


CPY 


TABLE* 1 




01164 





00000 





75433 


ADT1FG 


HTR 


TIFGOT 




01165 





70000 


4 


75435 


ADTRAD 


CPY 


TRADT»4 




01166 





00000 





00060 


CPTRAD 


HTR 


COPYAA 




01167 





00000 





01063 


CHNONX 


HTR 


INFORM 




01170 





00000 





00000 


ALFA 








01171 





00000 





00325 


TW13 


HTR 


213 




01172 





00000 





ooooc 


TRADNB 








01173 





00000 





00000 


ERNBR 








01174 





00000 





00000 


IDENT 








01175 





00000 





00000 


WDCONT 








01176 





00000 





00000 


NAME 








01177 





00000 





00000 


ERAS 








01200 





00000 





00000 


XERAS 








01201 





00000 





00000 


BST 






STORE NUMBER OF TIMES WORD COUNT WRONG 


01202 





00000 





00000 


BSTA 






DITTO IDENTIFICATION 


01203 





00000 





ooooo 


DO TAG 









>// 



u 



o 



n 



o 



01204 00000 00000 

01205 76100 00000 

01206 00000 00000 

01207 000000000031 

01210 000000000042 

01211 000000000041 

01212 000000000043 

01213 000000000044 

01214 000000000045 

01215 00000 00006 

01216 000000000020 

01217 +000 000000014 

01220 000000000040 

01221 000000000061 

01222 000000000053 

01223 000000000074 

01224 000000000034 

01225 000000000013 

01226 000000000073 

01227 000000000033 

01230 000000000054 

01231 00006 00013 

01232 00000 00076 

01233 +000000000013 

01234 00000 00155 

01235 +000000000014 

01236 00000 00167 

01237 +000000000000 

01240 000Q0 00202 

01241 *O0OO0QO0OO02 

01242 00000 00220 

01243 +000000000003 

01244 00000 00232 

01245 +00QQ0GOO0O01 

01246 00000 00604 

01247 +000000000007 

01250 00000 00732 

01251 +000000000010 

01252 00000 00765 

01253 OOOOO 00020 

01254 2 00001 1 01255 

01255 -0 75400 1 OOOOO 

01256 77100 00022 

01257 02000 00063 

01260 50000 01163 

01261 60100 00056 

01262 02000 00122 

01263 76200 00222 

01264 76200 00222 

01265 76600 00333 

01266 -0 76000 00012 

01267 76100 OOOOO 

01270 02000 00004 

01271 10000 00577 



DOBETA 




NOP 


NOP 


FRETN8 






BCD 100000 I 




BCD 100000K 




8C0 100000J 




BCD 100000L 




BCD 100000M 




BCD 1 OOOOO N 


UK 


HTR 6*0*0 




BCD 100000+ 




OCT 000000000014 




BCD 100000- 




BCD 100000/ 




BCD 100000$ 




BCD 100000 ( 




BCD 100000) 




BCD 100000° 




BCD 1 OOOOO* 




BCD 100000* 




BCD 100000* 


SYMBL 


HTR 11*0*6 


AFTRSZ 


HTR IDNTFY 




OCT 000000000013 




HTR SUBARO 




OCT 000000000014 




HTR UPPER 




OCT 000000000000 




HTR TEIFNO 




OCT 000000000002 




HTR TIFGO 




OCT 000000000003 




HTR TRAD 




OCT OOOOOOOOOOOl 




HTR TDO 




OCT 000000000007 




HTR FRET 




OCT 000000000010 




HTR EQUIV 


TAPTAB 


HTR 16 


PTCH 


TIX SZW*1*1 


SZW 


PXD 0*1 




ARS 18 




TRA SUBWDS 


PAT IF 


CLA ADTABL 




STO COPY 




TRA NOTIFG 


SPACE2 


RTB 2 




RTB 2 




IOD 




RTT 




NOP 




TRA 4 


PAQADO 


TZE NXTALF 



OTHER MINUS SIGN 



SI2 TABLE HAS CHECK SUM ENTRY NOT 
NOT INCLUDED IN WORD COUNT 



?»7 



t V 



01272 





40000 





01153 




ADD 


ADDONE 


0I2T3 





02000 





00562 




TRA 


ADDQ 


01274 


-0 


63400 


2 


01301 


PATS2 


SXD 


PATERA»2 


01275 





53400 


2 


01152 




LXA 


XR4f2 


01276 





02000 





01051 




TRA 


CASH 


01277 


-0 


53400 


2 


01301 


PATRE2 


LXD 


PATERA »2 


01300 





02000 


4 


00001 




TRA 


1*4 


013O1 





00000 





00000 
00000 


PATERA 


END 





}Z-£ 



U 



O 



n 



r\ 



REM BLOCK ONE OF SECTION TWO. 

















BLOCK ONE OF SECTION TWO. 
















MASTER RECORD CARD * FN027 
















BLOCK ONE OF SECTION TWO PERFORMS THE 
















PRELIMINARY DO NEST STRUCTURE ANALYSIS 
















REQUIRED FOR THE SUCCEEDING BLOCKS. IT AXSIGNS 
















LEVEL NUMBERS AND THE POSSIBILITY OF CARRY. 
















TRANSFERS OUT OF THE RANGE OF DOS ARE NOTED AND ENTERED 
















INTO TABLE TRALEV. IF THERE IS A VARIABLE 
















PARAMETER OF A DO ITS HIGHEST LEVEL OF DEFINITION 
















IS ASSIGNED. 
















FINALLY. A SEARCH IS MADE TO DETERMINE 
















WHETHER A DO INDEX COUNTER IS 
















NECESSARY TO KEEP CURRENT THE VALUES 
















OF THE DO INDEX. 










00031 




OR6 


25 










00031 


DOT AG 


BSS 


1 










00032 




ess 


1349 










02537 


DOTAGZ 


BSS 


1 










02540 


T1FGO 


BSS 


1 










02541 




BSS 


599 










03670 


TIFZ 


BSS 


1 










03671 


TRAD 


BSS 


1 










03672 




BSS 


249 










04263 


TRADZ 


BSS 


1 










04264 


TRALEV 


BSS 


1 










04265 




BSS 


599 










05414 


TLTZ 


BSS 


1 










02540 




ORG 


1376 










02540 


FORVAL 


BSS 


1 










02541 




BSS 


999 










04510 


4VALZ 


BSS 


1 










02540 




ORG 


1376 










02540 


FORVAR 


BSS 


1 










02541 




BSS 


1499 










05474 


4VARZ 


BSS 


1 










00734 




ORG 


476 










00734 


FORTA6 BSS 


1 










00735 




BSS 


1499 










03670 


FORTZ 


BSS 


1 

PROGRAM C ONSTANTS 










05474 




ORG 


2876 


05474 





00000 





00000 


L(0) 




0*0*0 


05475 





00001 





00000 


L<1) 




0*0*1 


05476 





00002 





00000 


L(2) 




0*0*2 


05477 





00003 





00000 


LC3) 




0*0*3 


05500 





00004 





00000 


U4J 




0*0*4 


05501 





00005 





00000 


LC5) 




0*0*5 


05502 





00006 





00000 


L<6) 




0*0*6 


05503 





00011 





00000 


L(9) 




0*0*9 


05504 





01130 





00000 


L(600) 




0*0*600 


05505 





01750 





00000 


LtlOOO 




0*0*1000 


05506 





02506 





00000 


L11350 




0*0*1350 


05507 





02734 





00000 


LU500 




0*0*1500 



F2100OO0 
F2 100 001 
F2100002 
F2100003 
F2 100004 
F2100005 
F21O0O06 
F2100O07 
F2 100008 
F2 100009 
F2100010 
F2100011 
F2100012 
F2100015 
F2100017 
F2100020 
F2 100030 
F2100040 
F2100050 
F2100060 
F2100O70 
F210008O 
F2100090 
F2100100 
F210O110 
F2100120 
F2100130 
F210O140 
F21O015O 
F2100160 
F21O0170 
F2100180 
F2100190 
F2100200 
F2100210 
F2I0O22O 
F21O0230 
F2100240 
F2100250 
F2100260 
F21O0270 
F 2 100 260 
F210O290 
F 2100 300 
F21O0310 
F2100320 
F2100330 
F210034Q 
F2100350 
F2100360 
F2100370 
F2100380 



>*/ 





05510 


-0 


00000 





00000 


L(MZ> 


MZE 








05511 


+200000000000 


B I TONE 


OCT 


200000000000 






05512 


+100000 000000 


BITTWO 


OCT 


1000000O0O00 






05513 


+077777077777 


DECAOD 


OCT 


77777077777 






05514 


+077777000000 


DECMSK 


OCT 


77777000000 






05515 


+000000700000 


TAGMSK 


OCT 


700000 






05516 


+000000077777 


ADDMSK 


OCT 


77777 






05517 


-377777477777 


NCMSK, 


OCT 


-377777477777 






05520 


+000000100000 


CR1 


OCT 


100000 






05521 


+000000200000 


CR2 


OCT 


200000 




















BE6IN BLO CIC ONE. 






05522 





77200 





00224 


TAPOO 


REW 


148 






05523 





77200 





00223 




REW 


147 






05524 


-0 


76000 





00012 




RTT 








05525 





76100 





00000 




NOP 








05526 





76400 





00222 




BST 


TTAPE 






05527 


-0 


53400 


1 


05503 




LXD 


LC9I.1 






05530 





76400 





00222 


TAP10 


BST 


TTAPE 






05531 


2 


00001 


1 


05530 




TIX 


TAP10»1»1 






05532 





76000 





00140 




PSE 


96 






05533 





76000 





00142 




PSE 


98 






05534 


-0 


53400 


2 


05476 




LXD 


L12J.2 






05535 





50000 





07153 




CLA 


TIFAD 






05536 





07400 


4 


07060 




TSX 


RTAPE»4 






05537 


-0 


63400 


1 


02537 




SXD 


TIFGO-lfl 






05540 


-0 


53400 


2 


05477 




LXD 


L(3)t2 






05541 





50000 





07154 




CLA 


TRAD AD 






055*2 





07400 


4 


07060 




TSX 


RTAPEt4 






05543 


-0 


63400 


1 


03670 




SXD 


TRAD-1»1 






05544 


-0 


53400 


2 


05475 




LXD 


L(l)*2 






05545 





50000 





07151 




CLA 


DOAD 






Q5546 





07400 


4 


07060 




TSX 


RTAPE»4 






05547 


-0 


63400 


1 


00030 




SXD 


DOTAG-ltl 




<~ 


'*--* 05550 


*3 


02505 


1 


05553 




TXL 


MR00»ltl349 






05551 





76000 





O0143 




PSE 


99 






05552 





02000 





06567 




TRA 


TSWAL 




















MROO COMPUTES LEVEL* X 




05553 


-0 


53400 


1 


00030 


MROO 


LXD 


D0TAG-1»1 






05554 


-0 


63400 


1 


05630 




SXD 


MR70»1 






05555 


-0 


53400 


1 


05506 




LXO 


L(1350*l 






05556 





50000 





05475 


MR05 


CLA 


LIU 






05557 


-0 


73400 


2 


00000 


MR10 


PDX 


0*2 






0556O 





60100 


1 


02544 




STO 


DOTA6Z+5»l 






05561 





50000 


1 


02537 




CLA 


D0TAGZ»1 






05562 


-0 


63400 


4 


05567 




SXD 


MR14.4 






05563 





73400 


4 


00000 




PAX 


0»4 






05564 





62200 





05565 




STO 


MR 12 




D 


05565 


3 


00000 


4 


05570 


MR12 


TXH 


MR15t4 






05566 





02000 





07303 




TRA 


ERBETA 


BETA 


A 


05567 





00000 





00000 


MR 14 


HTR 








05570 


-0 


53400 


4 


05567 


MR15 


LXD 


MR14»4 






05571 


-0 


32000 





05515 




ANA 


TAGMSK 






05572 





10000 





05576 




TZE 


MR20 






05573 





50000 





05512 




CLA 


BITTWO 





POSITION TAPE TWO 
FOR READING IN TAPE 
TABLES 

ALL LIGHTS OFF 

TRALEV LIGHT 98 ON 

READ 

IN 

TIEFGO 

SAVE NEXT UNUSED INDEX 

READ 

IN 

TRAD 

SAVE NEXT UNUSED INDEX 

READ 

IN 

TDO WITH DOTAG FORMAT 

SAVE NEXT UNUSED INDEX 

TEST FOR EMPTY DOTAG 

DOTAG EMPTY 

CARRY BITS. 

INITIALIZE TEST 

INSTRUCTION* 

INITTALIZE XRA TO MAX DOTAG* 

INITIALIZE LEVEL TO ONE 

PUT LEVEL IN XRB 

STOR€ LEVEL IN L WORD 

INSPECT TAG OF FIRST WORD) 



LESS THAN OR EQUAL TO ALPHA 



IF ZEROJ TRA TO MR20) 
IF NOT ZERO( PUT BIT 
IN L WORD FOR X NOT 



F2100390 

F2100400 

F2100410 

FZ100420 

F2100430 

F2100440 

F2100450 

F2100460 

F2100470 

F2100480 

F2100490 

F2100500 

F2100510 

F2100520 

F2100530 

F2100540 

F2100550 

F2100560 

F2100570 

F2100580 

F21OO590 

F2 100600 

F2100610 

F2100620 

F2100630 

F2100640 

F2100650 

F2 100 660 

F2100670 

F2 100680 

F2100690 

F2100700 

F2100710 

F2100720 

F2100730 

F2100740 

F2100750 

F2100760 

F2100770 

F2100780 

F2100790 

F2100800 

F2100810 

F2100820 

F2100830 

F2100840 

F2100850 

F2100860 

F2100871 

F2100880 

F2100890 

F2100900 

F2100910 

F2100920 



u 



n 



n 





05574 


-0 60200 1 


02544 




ORS 


D0TAGZ+5»1 




05575 


02000 


05625 




TRA 


MR 60 




05576 


50000 1 


02542 


MR20 


CLA 


DOTAGZ+3.1 




©5577 


40200 1 


02541 




SUB 


D0TAG2+2*1 




05600 


40000 1 


02543 




ADD 


D0TAGZ+4»1 




05601 


76500 


00043 




LRS 


35 




05602 


22000 1 


02543 




OVH 


D0TAGZ+4»1 




05603 


20000 1 


02543 




MPY 


0OTAGZ+4»I 




05604 


76300 


00043 




LLS 


35 




05605 


62100 1 


02544 




STA 


D0TAGZ+5*1 




05606 


-3 00001 2 


05625 




TXL 


MR60»2*1 




05607 


50000 4 


02537 




CLA 


D0TAGZ»4 




05610 


77100 


00017 




ARS 


15 




05611 


76000 


00001 




LBT 






05612 


02000 


05614 




TRA 


MR30 




05613 


02000 


05625 




TRA 


MR60 




05614 


50000 4 


02537 


MR30 


CLA 


D0TAGZ»4 




05615 


-0 32000 


05513 




ANA 


DECAOD 




05616 


40000 


05475 




ADD 


HI) 




05617 


4020O 1 


02537 




SUB 


D0TA6Z»1 




05620 


-0 10000 


05623 




TNZ 


MR40 




05621 


50000 


05520 




CLA 


CR1 




05622 


02000 


05624 




TRA 


MR50 




05623 


50000 


05521 


MR40 


CLA 


CR2 




05624 


-0 60200 1 


02544 


MR50 


ORS 


D0TAGZ+5»1 




05625 


-0 75400 1 


00000 


MR60 


PXO 


0*1 




05626 


-0 73400 4 


00000 




PDX 


0*4 




05627 


1 77767 1 


05630 




TXI 


MR70»l*-9 




05630 


-3 00000 1 


07316 


MR 70 


TXL 


ERTST*1*0 




05631 


50000 1 


02537 




CLA 


DOTAGZ.l 




05632 


-0 32000 


05516 




ANA 


ADDMSK 




05633 


60100 


05660 




STO 


MRES 




05634 


50000 4 


02537 


MR75 


CLA 


D0TAGZ.4 




05635 


-0 32000 


05516 




ANA 


ADDMSK 




05636 


60100 


05661 




STO 


MRES1 




05637 


40200 


05660 




SUB 


MRES 




05640 


-0 12000 


05645 




TMI 


MR80 




05644 


O 5OOO0 4 


02544 




CLA 


OOTAGZ+5#4 




05642 


-0 32000 


05514 




ANA 


DECMSK 




05643 


40000 


05475 




ADD 


LCD 




05644 


02000 


05557 




TRA 


MR 10 




05645 


50000 1 


02537 


MR80 


CLA 


DOTAGZ . 1 




05646 


-0 32000 


05514 




ANA 


DECMSK 




05647 


77100 


00022 




ARS 


18 




05650 


34000 


05661 




CAS 


MRESl 




05651 


02000 


05654 




TRA 


MR85 




05652 


02000 


07263 




TRA 


ERLIST 




05653 


02000 


07263 




TRA 


ERLIST 




05654 


50000 4 


02544 


MR85 


CLA 


DOTAGZ +5* 4 




05655 


-0 73400 2 


00000 




PDX 


0*2 




05656 


-3 00001 2 


05556 




TXL 


MR05.2»1 




0565? 


1 00011 4 


05634 




TXI 


MR75»4»9 


A 


05660 


00000 


00000 


MRES 


HTR 




A 


05661 


00000 


ooooc 


MRES1 


HTR 





COMPUTABLE AND GO TO 

END* 

COMPUTE X AND STORE IN 

L WORD 



IF L IS 0NE( SKIP CARRY TEST) 
OBTAIN NEXT BACK SUBNEST 
DO! FIRST WORD. IN SPECT TAG 
FOR VARIABLE N3) IF NOT 

0) VARIABLEf CONTINUE WITH MR30» 

1) OTHERWISE GO TO END. 
OBTAIN FIRST WORD OF NEXT 
BACK SUBNEST D0» REMOVE 
TAG* AND ADO ONE TO ALPHA. 
SUB FIRST WORD CURRENT DO 
(TAG IS ZERO). IF RESULT IS 
ZERO* CARRY IS TYPE ONE* 

IF NOT ZERO* CARRY IS TYPE 
TWO. INDICATE TYPE IN 
L WORD OF CURRENT DO. 
MAKE CURRENT DO NEXT BACK 
SUBNEST DO* 
TAKE NEXT DO IN DOTAG. 
NO MORE DOS. EXIT TO TEST IF ERRORS 
OBTAIN FIRST WORD NEW 00. 
OBTAIN BETA 
AND SAVE 

OBTAIN BETA OF XRC DO. 
AND SUBTRCT NEW BETA. 

IF NOT NEGATIVE* XRC DO 
CONTAINS NEW DO* OTHERWISE* TRA. 
XRC DO CONTAINS NEW DO. 
OBTAIN LEVEL OF XRC DO* 
ADD ONE* STORE IN L. 
GO TO MRIO 



ALPHAtXRAl GREATER THAN BETA(XRC) 
EOUALITY 
LESS THAN 

NEWDO. IF XRL DO IS OF 
LEVEL ONE* START NEW NEST 
BY TRA TO MR05. ELSE TRA MR75. 
ES 



F2100930 

F2100940 

F2100950 

F2100960 

F2100970 

F2100980 

F210099O 

F2101000 

F2101010 

F2101020 

F2101030 

F2101040 

F2101050 

F2101060 

F2101070 

F2101080 

F2101090 

F2101100 

F2101110 

F2101120 

F21O1130 

F2101140 

F2101150 

F2101160 

F2101170 

F2101180 

F2101190 

F2101200 

F2101211 

F2101220 

F2101230 

F2101240 

F2101250 

F2101260 

F210127O 

F2101280 

F2101290 

F2I01300 

F2101310 

F2101320 

F2101330 

F2101340 

F2101350 

F2101360 

F2101370 

F2101380 

F2101391 

F2101401 

F2101410 

F2101420 

F2101430 

F2101440 

F2101450 

F2101460 



3-3 

















FLOW. TRANSFER ANALYSIS. 


F2101470 


05662 


-0 


53400 


4 


02537 


FLOW 


LXD 


TIFG0-1.4 


TEST FOR EMPTY TIFGO 


F2101480 


05663 


3 


01127 


4 


06307 




TXH 


SV00t4»599 




F2101490 


05664 


-0 


53400 


1 


00030 




LXD 


DOTAG-1.1 


INITIALIZE 


F2101500 


05665 


-0 


63400 


1 


05703 




SXD 


FL030tl 


TEST 


F2101510 


05666 


-0 


63400 


4 


05723 




SXD 


FL060.4 


INSTRUCTIONS 


F2101520 


05667 


-0 


63400 


1 


06240 




SXD 


ADL60.1 




F2101530 


05670 


-0 


63400 


1 


06113 




SXD 


INC40.1 




F2I01540 


05671 


-0 


63400 


1 


06166 




SXD 


RNC70»1 




F2101550 


05672 





53400 


1 


06274 




LXA 


TLT50»1 


INITIALIZE TRALEV 


F2101560 


05673 


-0 


63400 


1 


06274 




SXD 


TLT50.1 


INDEX VALUE 


F2101570 


05674 


-0 


53400 


4 


05504 


FL010 


LXD 


L(600)»4 


INITIALIZE 


F2101580 


05675 


-0 


63400 


4 


06306 




SXD 


TIFX.4 


CURRENT TIFGO INDEX 


F2101590 


05676 


-0 


53400 


1 


05506 




LXD 


LC1350.1 


INITIALIZE XRA. DOTAG INDEX 


F2101600 


05677 





50000 


1 


02544 


FL015 


CLA 


D0TAGZ+5»1 


OBTAIN LEVEL OF DO 


F2101610 


05700 


-0 


73400 


2 


00000 




PDX 


0.2 


AND 


F2101620 


05701 


-3 


00001 


2 


05705 




TXL 


FL040.2.1 


TRA IF LEVEL ONE. IF NOT 


F2101630 


05702 


1 


77767 


1 


05703 


FL020 


TXI 


FL030»l»-9 


LEVEL ONE. FIND NEXT 


F2101640 


05703 


3 


00000 


1 


05677 


FL030 


TXH 


FL015.1 


LEVEL ONE. IF ANY. 


F2101650 


05704 





02000 





05775 




TRA 


FLOEND 




F2101660 


05705 


-0 


63400 


1 


06275 


FL040 


SXD 


BNX.l 


SAVE BEGINNING OF NEST INDEX. 


F2101670 


05706 





50000 


1 


02537 




CLA 


DOTAGZ.l 


INITIALIZE 


F2101680 


05707 





73400 


2 


00000 




PAX 


0.2 


BEGINNING OF NEST 


F2101690 


05710 


-0 


32000 


Q 


05514 




ANA 


DECMSK 


AND 


F2101700 


05711 





60100 





06276 




STO 


BNA 


END OF NEST 


F2101710 


05712 


-0 


75400 


2 


00000 




PXD 


0.2 


ADDRESSES 


F2101720 


05713 





60100 





06277 




STO 


ENA 




F2101730 


05714 


-0 


53400 


4 


06306 




LXD 


TIFX.4 


OBTAIN CURRENT TIFGO INDEX 


F2101740 


05715 





50000 


4 


03670 


FL050 


CLA 


TIFZ.^t 


AND SEARCH FOR TIFGO 


F2101750 


05716 


-0 


32000 





05514 




ANA 


DECMSK 


ENTRY IN NEST. 


F2101760 


05717 





34000 





06276 




CAS 


BNA 


COMPARE WITH BNA 


F2101770 


05720 





02000 





05727 




TRA 


FL070 


GREATER THAN OR EQUAL TO 


F2101780 


05721 





07400 


4 


00004 




TSX 


DIAG.4 BNA. MAY 8E IN 


NEST. ERROR. GO TO DIAGNOSTIC. 


F2101795 


05722 


1 


77776 


4 


05723 


FL055 


TXI 


FL060.4.-2 


LESS THAN BNA. GO BACK 


F2101800 


05723 


3 


00000 


4 


05715 


FL060 


TXH 


FL050.4 


FOR NEXT TIFGO ENTRY. 


F2101810 


05724 





02000 





05775 




TRA 


FLOEND 


IF ANY. IF NONE. EXIT 


F2101820 


05725 


-0 


53400 


1 


06275 


FL065 


LXD 


BNX.l 




F2101830 


05726 





02000 





05702 




TRA 


FL020 




F2101840 


05727 


-0 


63400 


<► 


06306 


FL070 


SXD 


TIFX»<* 


SAVE CURRENT TIFGO INDEX 


F2101850 


05730 





34000 





06277 




CAS 


ENA 


COMPARE G AND ENA 


F2101860 


05731 





02000 





05725 




TRA 


FL065 


G GREATER. GO BACK FOR NEXT NEST. 


F2101870 


05732 





76100 





00000 




NOP 




G EQUAL TO 


F21O1880 


05733 





60100 





06300 




STO 


G 


OR LESS THAN G» SAVE G* 


F2101S90 


05734 





50000 


4 


03670 




CLA 


TIFZ.4 


TEST FOR THREE ADDRESS IF. 


F2101900 


05735 


-0 


12000 





05743 




TMI 


FL075 


USE ADDRESS TO DETERMINE 


F210191Q 


05736 





73400 


2 


00000 




PAX 


0.2 


WHETHER OR NOT THIS IS AN 


F2101920 


05737 


-3 


00005 


2 


05743 




TXL 


FL075.2.5 


ASSIGN FORMULA. IF IT IS. 


F2101930 


05740 


-3 


00006 


2 


05722 




TXL 


FL055.2.6 


IGNORE. TAKE NEXT TIFGO ENTRY 


F2101940 


05741 


-3 


00007 


2 


05743 




TXL 


FL075.2.7 


TEST FOR ADD. GREATER THAN 


F2101950 


05742 





07400 


4 


00004 




TSX 


DIAG.4 SEVEN. 


ERROR. GO TO DIAGNOSTIC. 


F2101965 


05743 





50000 





06300 


FL075 


CLA 


G 


OBTAIN G 


F2101970 


05744 


-0 


5340O 


1 


06275 




LXD 


BNX.l 


OBTAIN CURRENT NEST INDEX 


F2101980 


05745 





07400 


4 


06216 




TSX 


ADL0C.4 


OBTAIN XDG AND LDG 


F2101990 


05746 





50000 





05511 




CLA 


B1T0NE 


PUT BIT IN DOTAG FOR TRA 


F2I02000 



>>•/ 



u 



n 



o 





05747 
05750 


-0 
-0 


60200 
7540C 


1 02545 
1 00000 




ORS 
PXD 


D0TAGZ+6*1 
0*1 


IN IMMEDIATE RANGE. 
SAVE 


F2102010 
F2102020 




05751 
05752 
05753 
05754 




-0 






60100 
75400 
60100 
50200 


06301 
2 00000 
06302 
06300 




STO 
PXD 

STO 
CLS 


XDG 
0*2 

LOG 
G 


XDG 
AND 
LDG 
LIST MINUS G 


F2I02O30 
F2102040 
F2102050 
F2102060 




05755 
05756 





07400 


4 06253 




TSX 


TLT00»4 


IN TRALEV BUFFER. 


F2102070 




-0 


53400 


4 06306 




LXD 


TIFX.4 


OBTAIN FIRST WORD OF 


F2 102080 




05757 





50000 


4 03670 




CLA 


T1FZ.4 


TIFGO ENTRY 


F2102090 




05760 


-0 


12000 


06001 




TMI 


3ADIF 


TRA IF 3A0IF 


F2102100 




05761 





73400 


2 00000 




PAX 


0*2 


PUT ADDRESS IN XRB 


F2102110 




05762 
05763 
05764 
05765 





02000 


2 05772 


FL080 


TRA 


FL080+8»2 


INDEXED TRA. 


F2102120 







07400 


4 00004 




TSX 


01 AG .4 7* ROYS TRA. 


ERROR. GO TO DIAGNOSTIC. 


F2 102 135 







07400 


4 00004 




TSX 


DIAG»4 6* ASSIGN FORMULA 


ERROR. GO TO DIAGNOSTIC. 


F2102145 







02000 


06005 




TRA 


2A0IF 


5» 2 ADDRESS TYPE 


F2102150 




05766 
05767 






02000 
02000 


06005 
06005 




TRA 
TRA 


2ADIF 
2ADIF 


4* 2 ADIF 
3* 2A0IF 


F2102160 
F2102170 




05770 





02000 


06016 




TRA 


GOTOVN 


2 VECTOR TYPE TRA 


F2102160 




05771 





02000 


06016 




TRA 


GOTOVN 


1 GO TO N (ASSIGN) 


F2102190 




05772 





02000 


06011 




TRA 


GOTOK 


GO TO CONSTANT 


F2102200 




05773 


-0 


53400 


4 06306 


FL090 


LXD 


TIFX.4 


60 BACK FOR NEXT 


F2102210 




05774 
05775 


1 


77776 


4 05723 




TXI 


FL06O»4.-2 


TIFGO ENTRY. 


F2102220 




-0 


53400 


1 06274 


FLOEND 


LXO 


TLT50.1 


TEST IF ANY TRALEV ENTRIES 


F2102230 




05776 
05777 
06000 


3 


01127 


1 06307 




TXH 


SV0O» 1*599 




F2102240 








07400 
02000 


4 06261 
06307 




TSX 

TRA 


TLT20»4 
SVOO 


IF SO* GO TO WRITE ROUTINE 


F2102250 
F2102260 
















CONTROL ROUTINES 




F2102270 




06001 
06002 
06003 


-0 


32000 


05516 


3ADIF 


ANA 


ADDMSK 


THE FOLLOWING ROUTINES 


F2102280 







76700 


00022 




ALS 


18 


ARRANGE TO PROCESS ALL OF 


F2102290 







07400 


4 06033 




TSX 


FA000t4 


THE ADDRESSES ASSOCIATED 


F2102300 




06004 
06005 


-0 


53400 


4 06306 




LXD 


TIFX.4 


WITH THE TIFGO ENTRY* 


F2102310 







50000 


4 03671 


2A0IF 


CLA 


T1FZ+1.4 


ONE AT A TIME. 


F2102320 




06006 


-0 


32000 


05514 




ANA 


DECMSK 


WHEN ALL ADDRESSES 


F2102330 




06007 





07400 


4 06033 




TSX 


FA000»4 


ARE PROCESSED* 


F2102340 




06010 
06011 
06012 
0604* 


-0 


53400 


4 06306 




LXD 


TIFX.4 


CONTROL IS RETURED TO 


F2102350 







50000 


4 03671 


GOTOK 


CLA 


TIFZ+1.4 


FL090 FOR NEXT 


F2102360 




-0 

o 


32000 05516 
76TOO Q 00022 




ANA 
ALS 


ADDMSK 
1# 


TIFGO ENTRY. 


F2102370 

w* *% * ^ ^^ ^l Q -t\ 




F2102380 
F2102390 
F2102400 
F2102410 




06014 
06015 
060 16 







07400 
02000 
50000 


4 06033 
05773 
4 03671 


60T0VN 


TSX 
TRA 
CLA 


FA000»4 

FL090 

TIFZ+1.4 


FOR GOTOV TRANSFERS. 




06017 





73400 


4 00000 




PAX 


0*4 


USE WORD TWO 


F2102420 




06020 
06021 
06022 
06023 
06024 
06025 
06026 
06027 
06030 
06031 
06032 


-o 


63400 


4 06031 




SXD 


GTV20»4 


FOR INDEXING 


F2102430 




-0 




73400 
02000 
50000 


4 00000 
06031 
4 04263 


GTV10 


PDX 
TRA 
CLA 


0.4 

GTV20 

TRADZ»4 


VALUES NECESSARY 
TO GET AODRESSES 


F2102440 
F2102450 
F2102460 





-0 


76700 
63400 


00022 
4 06032 




ALS 
SXD 


18 
GTV30»4 


FROM TABLE TRAD. 

FOR GOTON (ASSIGN) TYPE 


F21O2470 
F2102480 




o 


07400 


4 06033 




TSX 


FA 000* 4 


TRANSFERS* ALL ADDRESSES 


F2102490 




-0 


53400 


4 06032 




LXD 


GTV30»4 


MUST BE PROCESSED EVEN 


F2102500 




1 


77777 


4 06031 




TXI 


GTV20*4»-1 


THOUGH THEY ARE ON SAME 


F2102510 


D 
D 


3 


00000 


4 06023 


GTV20 


TXH 


GTV10.4 


LEVEL BECAUSE OF 


F2102520 


-3 


00000 


05773 


GTV30 


TXL 


FL090.0 


CARRY RESTRICTIONS. 


F2102530 

fj* *% 4 rt *% t? £ rf\ 














ANALYSIS OF ADDRESS 




F2102540 



^ 



/ 





06033 


-0 63400 


4 


06076 


FA000 


SXD RS60»4 


SAVE TSX SET 


F2102550 




06034 


60100 





06303 




STO A 


SAVE ADDRESS 


F2102560 




06035 


-0 53400 


1 


06275 




LXD 6NX*1 


OBTAIN 


F2102570 




06036 


07400 


4 


06216 




TSX ADL0C.4 


INDEX OF DO CONTAINING 


F2102580 




06037 


-0 75400 


1 


00000 




PXD 0.1 


ADDRESS AND LEVEL OF 


F2102590 




06040 


6O100 





06304 




STO XDA 


THAT DO* 


F2102600 




06041 


-0 75400 


2 


00000 




PXD 0t2 


SAVE IN 


F2102610 




06042 


60100 





06305 




STO LDA 


XDA AND LDA* 


F2102620 




06043 


-3 00024 


2 


06045 




TXL FA01O»2»20 


TEST LEVEL 


F2 102 630 




06044 


07400 


4 


00004 




TSX DIAG»4 LEV. 


ADD OF TRA EXCEEDS 20. ERROR. GO TO DIAGNOSTIC. 


F2102645 




06045 


77100 





00022 


FA010 


ARS 18 




F2102650 




06046 


62100 





06051 




STA FA020 


TRANSFER 


F2102660 




06047 


-0 50000 





05510 




CAL L(MZ) 


LEVEL IN 


F2102670 




06050 


-0 53400 


1 


06301 




LXD XDG»1 


XDG DO* 


F2102680 
F2102690 

^ 1 4 A Jh*t A. A 


A 


06051 


77100 





00000 


FA020 


ARS 






06052 


-0 60200 


1 


02546 




ORS D0TAGZ+7il 




F2102700 




06053 


50000 





06305 




CLA LDA 


LIST 


F2102710 




06054 
06O55 


77100 
40000 






00022 
06303 




ARS 18 
ADO A 


ADDRESS AND LEVEL 
IN 


F2102720 
F21O2730 




06056 


07400 


4 


06253 




TSX TLT00.4 

TRANSFER BIT 


TLT. CONTINUE WITH RSOO 
INSERTION IN DO FORMULA 


F2102740 
F2102750 




06057 


-0 53400 


1 


06301 


RSOO 


LXD XD6.1 


XRA CONTAINS XDG 


F2102760 




06060 


-0 53400 


2 


06302 




LXD LDG»2 


XRB CONTAINS LDG 


F2102770 




06061 


-0 75400 


2 


00000 


RS10 


PXD 0»2 


IF G AND A IN SAME DO* 


F2102780 




06062 


40200 





06305 




SUB LDA 


EXIT. THIS ROUTINE INSERTS 


F2102790 




06063 


10000 





06077 




TZE INCOO 


BIT MEANING THERE IS A JUMP 


F2102800 




06064 


12000 





06066 




TPL RS20 


OUT OF THE RANGE OF THIS DO. 


F2102610 




06065 


07400 


4 


00004 




TSX DIAG»4 JUMP 


INTO HIGHER LEVEL. ERROR. GO TO DIAGNOSTIC. 


F2102825 




06066 


-0 50000 





05510 


RS20 


CAL L(MZ) 




F21O2830 




06067 


-0 60200 


1 


02544 




ORS D0TAGZ+5tl 




F2102840 




06070 


-3 00001 


2 


06077 




TXL INC00»2»1 


FIND NEXT BACK. SUBNEST 


F2102850 




06071 


1 00011 


1 


06072 


RS30 


TXI RS40»1»9 


DO FORMULA 


F2102860 




06072 
06073 


Q 50000 
62200 


1 



02544 
06074 


RS40 


CLA D0TAGZ+5»1 
STD RS50 


AND RETURN 
TO TEST 


F2102870 
F2102880 


D 


06074 


-3 00000 


2 


06071 


RS50 


TXL RS30»2 


LEVEL 


F2102890 
F2102900 




06075 


-0 73400 


2 


00000 




PDX 0«2 


AT 





06076 


-3 00000 





06061 


RS60 


TXL RS10»0 


RSlO 


F21O2910 














INDEXING NO CARRY CONDITION 


F2102920 




06077 


50000 





06305 


INCOO 


CLA LDA 


EXIT IF 


F2102930 




06100 


10000 





06142 




TZE RNCOO 


LDA IS ZERO. 


F2102940 




06101 
06102 


50000 
56000 






06 3 00 
06303 




CLA G 
LDQ A 


PLACE G ANDA 
IN 


F2102950 
F2102960 




06 163 


0460* 


06107 




TLO INC20 


INCX AND INCY SO THAT 


F210297O 




06104 
06105 


60100 
-0 60O00 







06140 
06141 




STO INCX 
STQ INCY 


INCX IS LESS THAN INCY. 


F2102980 
F2102990 
F2103000 
F2103010 
F2103020 




06106 


02000 





06111 




TRA INC30 






06107 


-0 60000 





06140 


INC20 


STQ INCX 






06110 


60100 





06141 




STO INCY 






06111 


-0 53400 


1 


06304 


INC30 


LXD XDA»1 


INITIALIZE XRA 


F2103030 




06112 


1 77767 


1 


06113 


INC35 


TXI INC40tl.-9 


FIND DO OF LEVEL LDA 


F2103040 


D 


06113 


-3 00000 


1 


06142 


INC40 


TXL RNCOO. 1 


PLUS ONE. 


F2103050 




06114 


50000 


1 


02544 




CLA D0TAGZ+5fl 




F2103060 

~ P ^ 4. 4\ *i a ^ r\ 




06115 


-0 32000 





05514 




ANA DECMSK 




F2 103070 
F2103080 




06116 


40200 





06305 




SUB LDA 





o 



n 



n 





06117 





40200 





05475 




SUB 


L(l) 




06120 





10000 





06123 




TZE 


INC50 




06121 





12000 





06112 




TPL 


INC35 




06122 





02000 





06142 




TRA 


RNCOO 




06123 





50000 


1 


02537 


INC50 


CLA 


D0TAGZ*1 




06124 





73400 


2 


00000 




PAX 


0*2 




06125 


-0 


75400 


2 


00000 




PXD 


0.2 




06126 





34000 





06141 




CAS 


INCY 




06127 





02000 





06142 




TRA 


RNCOO 




06130 





02000 





06142 




TRA 


RNCOO 




06131 





34000 





06140 




CAS 


INCX 




06132 





02000 





06135 




TRA 


INC60 




06133 





02000 





06135 




TRA 


INC60 




06134 





02000 





06112 




TRA 


INC35 




06135 


-0 


50000 





05517 


INC60 


CAL 


NCMSK 




06136 





32000 


1 


02544 




ANS 


DOTAGZ+5*! 




06137 





02000 





06112 




TRA 


INC35 


A 


06140 





00000 





00000 


INCX 


HTR 




A 


06141 





00000 





00000 


INCY 


HTR 


RESET NO CARRY 




06142 





50000 





06305 


RNCOO 


CLA 


LDA 




06143 





10000 





06214 




TZE 


RNC95 




06144 





50000 





06302 




CLA 


LOG 




06145 





40200 





06305 




SUB 


LDA 




06146 





10000 





06214 




TZE 


RNC95 




06147 


-0 


73400 


4 


00000 




PDX 


0*4 




06150 


-0 


53400 


1 


06301 




LXD 


XD6.1 




06151 





50000 





06302 




CLA 


LDG 




06152 


-o 


73400 


2 


ooooo 




PDX 


0*2 




06153 


1 


00001 


2 


06161 




TXI 


RNC50*2*1 




06154 


1 


00011 


1 


06155 


RNC20 


TXI 


RNC30»1*9 




06155 


3 


02506 


1 


06214 


RNC30 


TXH 


RNC95»1»1350 




06156 





50000 


1 


02544 




CLA 


DOTAGZ+5 »1 




06157 





62200 





06160 




STD 


RNC40 


D 


06160 


-3 


00000 


2 


06154 


RNC40 


TXL 


RNC20>2 




06161 


-0 


63400 


1 


06206 


RNC50 


SXD 


RNC75»1 




06162 





62200 





06212 




STO 


RNC85 




06163 


-0 


75400 


2 


OOOOO 




PXD 


0*2 




06164 





60100 





06213 




STO 


RNC90 




06165 


1 


77767 


1 


06166 


RNC60 


TXI 


RNC70.1.-9 


D 


06166 


-3 


00000 


1 


06207 


RNC70 


TXL 


RNC80.1 




06167 





50000 


1 


02537 




CLA 


DOTAGZ*! 




06170 


-0 


32000 





05516 




ANA 


ADDMSK 




06171 





76700 





00022 




ALS 


18 




06172 





40200 





06300 




SUB 


G 




06173 





12000 





06207 




TPL 


RNC80 




06174 





50000 


1 


02544 




CLA 


DOTAGZ+5 *1 




06175 


-0 


32000 





05514 




ANA 


DECMSK 




06176 





40200 





06213 




SUB 


RNC90 




06177 


-0 


10000 





06165 




TNZ 


RNC60 




06200 





50000 


1 


02545 




CLA 


DOTAGZ+6*! 




06201 


-0 


32000 





05514 




ANA 


DECMSK 




06202 





40200 





06305 




SUB 


LDA 




06203 





12000 





06165 




TPL 


RNC60 



DO OF LEVEL LDA PLUS ONE FOUND. 
LEVEL TO HIGH* GO BACK* 
LEVEL TO LOW* DA EXHAUSTED. 
OBTAIN BETA OF 
THIS DO IN DECREMENT* 

COMPARE WITY INCY. 
GREATER THAN OR EQUAL TO 
GREATEST OF G» A» EXIT. 
LESS THAN INCY* COMPARE 
WITH INCX. GREATER THAN 
OR EQUAL TO INCX* GO TO INC60. 
LESS THAN INCX* GET NEXT DO. 
AND OUT CARRY BITS. 

GO BACK FOR NEXT DO. 
ES. 
ES. 
CONDITION. NO CARRY TRANSFER LEVEL 
EXIT IF LDA IS ZERO 

EXIT IF 
LDA EQUALS 
LOG 

INITIALIZE COUNTER XR6 
INITIALIZE XRA 
AND 

XRB. CCACC) LDG. 
. CfXRB) LDG PLUS ONE. 
FIND NEXT BACK 
SUBNESTDO. 



SAVE XRA 

SAVE LEVEL OF THIS DO 

SAVE LEVEL OF NEXT INNER 

SUBNEST DO. 

TAKE NEXT DOWN DO IF ANY. 

IF BETA 

OF THIS DO 

IS LESS 

THAN G» 

TEST LEVEL 

TO SEE IF 

THIS DO IS OF SAME 

LEVEL AS NEXT INNERMOST 

SUBNEST DO. IF NOT. GET NEXT DO. 

IF SO. MAKE NO CARRY 

TRANSFER LEVEL OF THIS 

DO EQUAL TO GREATER 

OF PREVIOUS VALUE 



F2103090 
F2103100 
F2103110 
F2103120 
F2103130 
F2103140 
F2103150 
F2103160 
F2103170 
F2103150 
F2103190 
F210320O 
F2103210 
F2103220 
F2103230 
F2103240 
F2103250 
F2103260 
F2103270 
F2103280 
F2103290 
F2103300 
F210331O 
F21O3320 
F2103330 
F2103340 
F2103350 
F2103360 
F2103370 
F2103380 
F2103390 
F2103400 
F2103410 
F2103420 
F2103430 
F2103440 
F2103450 
F2103460 
F2103470 
F2103480 
F2103490 
F2103500 
F2103510 
F2103520 
F2103530 
F2103540 
F2103550 
F2103560 
F2103570 
F2103580 
F2103590 
F2103600 
F2103610 
F2103620 



w 



1 V 



D 
A 



D 

D 



06204 
06205 
06206 
06207 
06210 
06211 
06212 
06213 
06214 
06215 

06216 
06217 
06220 
06221 
06222 
06223 
06224 
06225 
06226 
06227 
06230 
06231 
06232 
06233 
06234 
06235 
06236 
06237 
06240 
06241 
06242 
06243 
062*4 
06245 
06246 
06247 
06250 
06251 
06252 

06253 
06254 
06255 
06256 
06257 
06260 
06261 
06262 
06263 
06264 
06265 
06266 
06267 



50000 
62200 
00000 
53400 
53400 
00Q01 
00000 
00000 
53400 
02000 

63400 
53400 
63400 
60100 
50000 
73400 
32000 
34000 
00000 
00000 
75400 
34000 
76100 
02000 
OOOQO 
02000 
63400 
77767 
00000 
50000 
73400 
00001 
53400 
00000 
50000 
73400 
53400 
02000 
00000 

53400 
60100 
77777 
63400 
00000 
02000 
76600 
53400 
63400 
76000 
76100 
53400 
63400 



06305 
02545 
06165 
06206 
06212 
06154 
06214 
00000 
06076 
00001 

06226 
05474 
06227 
06252 
02537 
00000 
05514 
06252 
06244 
06244 
2 00000 

06252 
000 OS 
06236 
06237 
06244 
06227 

1 06240 
1 06244 

02544 
00000 
06222 
06227 
06250 
02544 
00000 
06226 
00001 
00000 



RNC75 
RNC80 



RNC85 
RNC90 
RNC95 



ADLOC 



ADL10 



ADL20 
ADL30 



06274 
05414 
06256 
062 74 
06261 
00001 
00224 
06274 
1 06272 
00142 

OOOOO 

1 06274 
1 06274 



ADL40 
ADL50 
ADL60 



ADL70 

ADL80 
AOL90 
TLTOO 

TLT10 

TLT20 



CLA 
STD 
TXL 
LXO 
LXO 
T1X 
TXL 
HTR 
LXD 
TRA 

SXD 
LXD 
SXD 
STO 
CLA 
PAX 
ANA 
CAS 
TXL 
TXL 
PXD 

^* C 

NOP 
TRA 
TXH 
TRA 
SXD 
TXI 
TXL 
CLA 
PDX 
TXH 
LXD 
TXL 
CLA 
PDX 
LXD 
TRA 
HTR 

LXD 
STO 
TXI 
SXD 
TXL 
TRA 
WRS 
LXD 
SXD 
MSE 
NOP 
LXA 
SXD 



LDA 

D0TAG2+6»1 

RNC60»0 

RNC75»1 
RNC35»2 
RNC20»4»1 
RNC95»0 

RS60»4 

1»4 

INDEX AND LEVEL 

ADL20»4 

L(0)*4 

ADL30»4 

ADL90 

D0TA6Z»1 

0*2 

DECMSK 

ADL90 

ADL70*0 

ADL70»0 

0*2 

ADL90 

ADL40 

ADL50s4*0 

ADL70 

ADL30*1 

ADL60»l»-9 

ADL70.1 

D0TAGZ+5»1 

0*4 

ADL10»4»1 

ADL30»3 

ADL80»1»0 

DOTAGZ+5*! 

0*2 

ADL20*4 

1»4 

TRALEV LISTING . 

TLT50*1 

TLTZ.l 

TLT10.1.-1 

TLT50»1 

TLT20»1»0 

1*4 

TLTAPE 

TLT50»1 

TLT40.1 

98 

TLT50tl 
TLT50*1 



AND CURRENT LDA. 

GO BACK FOR NEXT TEST DO 
60 BACK FOR NEXT SUBNEST DO* 
IF COUNTER PERMITS. 
OTHERWISE* EXIT. 

ES 

GO BACK TO CONTROL ROUTINE 
FOR NEXT ADDRESS. 



OF ADDRESS 



SAVE TSX SET 

INITIALIZE XRC* 

AND DEC OF ADL30* PUT ADDRESS 

IN ADL90. XRA CONTAINS BNX 

OBTAIN FIRST WORD. 

SAVE BETA 

GET ALPHA ALONE. 

COMPARE WITH ADDRESS. IF 

ALPHA NOT LESS THAN ADD* THEN 

ADD IN LAST CHOOSEN DO. 

IF ALPHA LESS THAN ADD* 

COMPARE WITH BETA. 

IF BETA IS NOT LESS THAN 

ADDRESS* THIS DO CONTAINS 

ADDRESS. EXIT IF OUT OF NEST 

TO ADL 70. OTHERWISE* GO TO 50 

IF DO IN THIS NEST* SXD. 

IN ANY CASE* TAKE NEXT DOWN 

DO* IF ANY* 

PUT LEVEL IN XRC. 

AND GO BACK FOR TEST 

UNLESS NGW DO HAS LEVEL ONE. 

OBTAIN XDA IN XRA* XRB. 

EXIT IF ZERO. 

IF NOT ZERO* GET LDA IN 

XRB* PUT 

TSX SET IN XRC 

AND RETURN. 



OBTAIN CURRENT TRALEV 

INDEX. STORE ENTRY. 

IF TABLE NOW FULL* GO TO 

TAPE WRITING ROUTINE. 

OTHERWISE* SAVE NEW INDEX 

AND RETURN. 

SELECT TAPE TO WRITE AWAY 

BUFFER. INITIALIZE XRA 

AND TEST INSTR. 

TURN OFF TRALEV TAPE EMPTY 

LIGHT 

RE-INITIALIZE INDEX QUANTITIES 



F2103630 

F2103640 

F2103650 

F21O3660 

F2103670 

F2103680 

F2103690 

F2103700 

F2103710 

F2103720 

F2103730 

F2103740 

F210375O 

F2103760 

F2103770 

F2103780 

F2103790 

F2103800 

F2103810 

F2103820 

F2103830 

F2103840 

F21O3850 

F2I03860 

F2103870 

F2103880 

F2103890 

F2103S00 

F2103910 

F2103920 

F2103930 

F2103940 

F2103950 

F2103960 

F2103970 

F2103980 

F2103990 

F2104000 

F2104010 

F2104020 

F2104030 

F2104640 

F2104O50 

F2104060 

F2104070 

F2104080 

F2104090 

F210ai00 

F2104110 

F2104120 

F2104130 

F2104140 

F2104150 

F2104160 



>*< 



u 



(J 



o 



D 



06270 
06271 
06272 
06273 
06274 



D 

D 



70000 1 05414 

1 77777 1 06272 
3 00000 1 06270 
02000 4 00001 
00000 01130 

06275 
06276 
06277 
06300 
06301 
06302 
06303 
06304 
06305 
06306 



06307 
06310 
06311 
06312 
06313 
06314 
06315 
06316 
06317 
06320 
06321 
06322 
06323 
06324 
06325 
06326 
06327 
06330 
06331 
06332 
06333 
06334 
06335 
06336 
06337 

06340 
06341 
06342 
06343 
06344 
06345 
06346 
06347 
06350 
06351 
06352 
06353 



53400 
63400 
63400 
63400 
53400 
63400 
63400 
50000 
32000 
10000 
53400 
50000 
53400 
34000 
00000 
00000 
00001 
00001 
53400 
77767 
00000 
50000 
73400 
00001 
77767 
00000 
63400 
50000 
73400 
00001 
00000 
63400 
63400 
63400 
75400 
60100 
53400 



00030 
06333 
06340 
06510 
05506 
06325 
06345 
1 02537 

05515 
06337 
06345 
02540 
05477 
02543 
06327 
06346 
06330 
06324 
06325 
06333 
06337 
02544 
00000 
06322 
06340 

1 06567 
1 06325 

1 02544 

2 00000 
2 06316 

06315 

1 06326 

2 06356 
4 06361 
4 00000 
06467 



TLT30 

TLT40 

TLT50 

BNX 

BNA 

ENA 

6 

XOG 

LOG 

A 

XOA 

tOA 

TIFX 

SVOO 



SV10 
SV20 



SV30 

SV40 
SV44 
SV48 
SV50 
SV60 
SV65 
SV70 

sveo 



SV90 
SV95 



SV98 
SFOO 



1 06325 



CPY TLTZ.l 
TXI TLT40»1»-1 
TXH TLT30.1 
TRA 1»4 
HTR 600 

ES FORFLOW 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 
BSS 1 

DO SYMBOL DEFINITION OF 
LXD DOTAG-lfl 
SXD SV80.1 
SXD SV95»1 
SXO TRA40.1 
LXD L< 1350.1 
SXD SV44.1 
SXD SV98*1 
CLA DOTAGZ.l 
ANA TAGMSK 
TZE SV90 
LXD SV98»4 
CLA D0TAGZ+1.4 
LXD L(3)»2 
CAS DOTAGZ+4.1 
TXL SV50.0 
TXL SF00»0 
TXI SV60.1.1 
TIX SV40.2.1 
LXD SV44»1 
TXI SV80»4.-9 
TXL SV90.4 
CLA D0TAGZ+5.4 
PDX 0»2 
TXH SV30.2»1 
TXI SV95.1»-9 
TXL TS4VAL.1 
SXD SV44»1 
CLA D0TAGZ+5»1 
PDX 0.2 
TXH SV20»2»1 
TXL SV10.0 
SXD SV48.1 
SXD SF10»2 
SXD SF15»4 
PXD 0.4 
STO SFES1 
LXD SV44.1 



COPY BUFFER. 



RETURN* 
BUFFER SIZE 

BEGINNING OF NEST INDEX 
BEGINNING OF NEST ADDRESS 
END OF NEST ADDRESS 
6AMMA OF SOME TIFGO ENTRY 
INDEX OF DO WITH G IN IMMED. 
RANGE. LEVEL OF XD6. 
AN ADDRESS TO WHICH G TRANSFERS. 
INDEX OF DO WITH A IN IMMED. 
RANGE. LEVEL OF XDA. 
CURRENT TIFGO INDEX. 
VARIABLE RANGES AND INCREMENTS. 



INITIALIZE XRA 

SAVE CURRENT DO INDEX 

SAVE NEST INDEX 

OBTAIN FIRST WORD CURRENT 

DO AND INSPECT TAG. 

IF ZERO* GO TO INDEXING. 

OTHERWISE. NEST INDEX IN XRC. 

OBTAIN SYM OF XRC. 

INITIALIZE XRB COUNTER 

AND TEST FOR SYM EQUALS VAR.N. 

CURRENT DO INDEX STORAGE. 

INDEX STO. OF N IN CUR. DO. 

TAKE NEXT Nt COUNT 

IN XRB AND GO BACK. 

SYM NOT VAR.N.. PUT CURRENT 

DO INDEX IN XRA AND INDEX 

XRC. IF TABLE ENDS. G070 SU90. 

OTHERWISE TEST FOR NEW NEST. 

IF NOT NEW NEST. GO BACK. TO 

TEST SYM. OTHERWISE. 

TAKE NEXT DOWN DO IF 

POSSIBLE. OTHERWISE. EXIT 

SAVE CURRENT DO INDEX. 

INSPECT LEVEL. 

IF NOT NEW NEST. TRA SV20 

IF NEW NEST. SV10 (NEST INDEX STO. 

SAVE INDEX OF N IN CURRENT DO. 

SAVE H COUNTER. 

SAVE INDEX OF SYMBOL DO 

IN FULL WORD. 

OBTAIN INDEX OF CURRENT DO 



F2104170 
F2104180 
F2104190 
F2104200 
F2104210 
F2104220 
F2104230 
F2104240 
F2104250 
F2104260 
F2104270 
F2104280 
F2104290 
F2104300 
F2104310 
F2104320 
F2104330 
F2i04340 
F2104350 
F2104360 
F2104370 
F2104380 
F2104390 
F2 104400 
F2104410 
F2104420 
F2104430 
F2104440 
F2104450 
F2104460 
F2104470 
F2104480 
F2104490 
F2104500 
F2104510 
F2104520 
F21Q4530 
F210«f540 
F210«550 
F210&560 
F210»570 
F2104580 
F2104590 
F2104600 
F2104610 
F2104620 
F2104630 
)F2104640 
F2104650 
F2104660 
F2104670 
F2104680 
F2104690 
F2104700 



V) 



', V 





06354 


-0 


75400 


1 


00000 




PXD 


0*1 






06355 





34000 





06467 




CAS 


5FES1 







06356 


-3 


00000 





06362 


SF10 


TXL 


SF20»0 






06357 





02000 





06424 




TRA 


SF79 






06360 





76000 





00141 




PSE 


97 




D 


06361 


-3 


00000 





06366 


SF15 


TXL 


SF30»0 






06362 


-0 


53400 


4 


06325 


SF20 


LXD 


SV44»4 






06363 


-0 


53400 


1 


06467 




LXD 


SFES1.1 






06364 


-0 


76000 





00141 




MSE 


97 






06365 





76100 





00000 




NOP 








06366 


-0 


75400 


4 


00000 


SF30 


PXD 


0»4 






06367 





60100 





06467 




STO 


SFES1 






06370 





50000 


1 


02544 


SF35 


CLA 


D0TAGZ+5.1 






06371 


-0 


73400 


2 


00000 




PDX 


0*2 






06372 


3 


00001 


2 


06374 




TXH 


SF40»2*1 






06373 





07400 


4 


00004 




TSX 


DIAG.4 IS ONE 






06374 


1 


00011 


1 


06375 


SF40 


TXI 


SF50.1.9 






06375 


-3 


02506 


1 


06377 


SF50 


TXL 


SF60»1»1350 






06376 





074O0 


4 


00004 




TSX 


DIAG»4 PASSED. 






06377 





50000 


1 


02544 


SF60 


CLA 


DOTAGZ+5.1 






06400 





62200 





06401 




STO 


SF70 







06401 


-3 


00000 


2 


06374 


SF70 


TXL 


SF40»2 






06402 


-0 


75400 


1 


00000 




PXD 


0»i 






06403 





34000 





06467 




CAS 


SFES1 






06404 





02000 





06407 




TRA 


SF73 






06405 





02000 





06431 




TRA 


SF80 






06406 





02000 





06370 




TRA 


SF35 






06407 


-0 


63400 


1 


06422 


SF73 


SXD 


SF76.1 






06410 


-0 


53400 


1 


06361 


SF74 


LXD 


SF15.1 






06411 





07400 


4 


06470 




TSX 


TRA00.4 






06412 





10000 





06465 




TZE 


SFEND 






06413 





60100 





06423 




STO 


SF78 






06414 


-0 


53400 


1 


06422 




LXD 


SF76*1 






06415 





50000 


1 


02544 




CLA 


DOTAGZ+5.1 






06416 


-0 


32000 





05514 




ANA 


DECMSK 






06417 





34000 





06423 




CAS 


SF78 






06420 





50000 





06423 




CLA 


SF78 






06421 





76100 





00000 




NOP 






D 


06422 


-3 


00000 





06437 


SF76 


TXL 


SF90»0 




A 


06423 





00000 





00000 


SF78 


HTR 








06424 





50000 


1 


02544 


SF79 


CLA 


D0TAGZ+5»1 






06425 


-0 


32000 





05514 




ANA 


DECMSK 






06426 





40200 





05475 




SUB 


L(l) 






06427 


-0 


10000 





06437 




TNZ 


SF90 






06430 





02000 





06465 




TRA 


SFEND 






06431 


-0 


76000 





00141 


SF80 


MSE 


97 






06432 





07400 


4 


00004 




TSX 


DIAG.4 CURRENT 


DO. 




06433 





50000 





05511 




CLA 


BITONE 






06434 


-0 


60200 


1 


02544 




ORS 


D0TAGZ+5»1 






06435 





50000 


1 


02544 




CLA 


DOTAGZ+5.1 






06436 


-0 


32000 





05514 




ANA 


DECMSK. 






06437 





77100 





00022 


SF90 


ARS 


18 






06440 





60100 





06467 




STO 


SFES1 






06441 


-0 


53400 


1 


06326 




LXD 


SV48»1 





IN ACC* AND COMPARE 

WITH INDEX OF SYMBOL DO. 

CURRENT INDEX GREATER. 

EQUALITY 

SYMBOL INDEX GREATER. 

TURN ON LIGHT 97. 

CUR. IND. GREATER. PUT IN XRC 

SYM. IND. IN XRA. 

LIGHT 97 OFF. 

AT SF30. XRA CONTAIN LEAST 

OF CUR. IND» SYM. IND. XRC 

CONTAINS GREATER. PUT IN ES. 

PUT LEVEL OF D(XRA) IN 

XRB. HALT IF 

LEVEL 

ERROR* GO TO DIAGNOSTIC. 
BACK UP IN XRA 
HALT IF TOP OD DOTAG 

ERROR. GO TO DIAGNOSTIC. 
THIS ROUTINE. BY RAISING 
XRA» EXITS TO SF80 OR 
SF90 UPON FINDING A DO 
IN THE SUBNEST OF XRA 
WHICH IS THE DO OF XRC OR 
CONTAINS THE DO OF XRC 
AND CURRENT DO. 
GO BACK FOR NEXT DO 
THIS ROUTINE (THROUGH SF76! 

USES TRAOO 

TO DETERMINE THE 
GREATEST EXIT LEVEL OF 
DEFINITION FROM A 
DO SYM NOT IN THE 
SUBNEST OF A DO WITH 
VARIABLE NS» BUT IN A 
SUBNEST WHICH HAS A 
NON EMPTY INTERSECTION 
WITH THAT SUB NEST. 



EQUALITY. IF SYM DO IS 

ERROR. GO TO DIAGNOSTIC. 



OBTAIN LEVEL OF DEFINITION 

AND STORE 

IN ADDRESS PART 

OF SFESI. 

INDEX OF VAR.N. IN CUR. DO. 



F2104710 

F2104720 

F2104730 

F2104740 

F2104750 

F2104760 

F2104770 

F2 104780 

F2104790 

F2104800 

F2104810 

F2104620 

F2104830 

F2104840 

F2104850 

F2104865 

F2104870 

F2104880 

F2104895 

F2104900 

F2104910 

F2104920 

F2104930 

F2104940 

F2104950 

F2104960 

F2104970 

F2104980 

F2104990 

F21050O0 

F2105010 

F2105020 

F2105030 

F2105040 

F2105050 

F2105060 

F2105070 

F2105080 

F2105090 

F2105100 

F2105110 

F21O5120 

F2105130 

F2105140 

F2105150 

F2105160 

F2105175 

F2105180 

F2105190 

F2105200 

F2105210 

F2105220 

F2105230 

F2105240 



.SO 



\J 



O 



n 



r\ 





06442 





50000 


1 02547 






06443 


-0 


32000 


05516 






06444 





34000 


06467 






06445 





02000 


06465 






06446 





02000 


06465 






06447 





50000 


06467 






06450 





62100 


1 02547 






06451 


-0 


53400 


2 06356 






06452 





50000 


1 02543 


SF92 




06453 





02000 


06457 






06454 





34000 


1 02543 


SF94 




06455 





02000 


06457 






06456 





02000 


06462 






06457 


1 


00001 


1 06460 


SF96 




06460 


2 


00001 


2 06454 


SF98 




06461 





02000 


06465 






06462 





50000 


06467 


SF99 




06463 





62100 


1 02547 






06464 





02000 


06452 






06465 


-0 


53400 


4 06361 


SFEND 




06466 





02000 


06331 




A 


06467 





00000 


00000 


SFES1 




06470 





50000 


1 02544 


TRAOO 




06471 


-0 


73400 


2. 0O000 






06472 


-3 


00024 


2 06474 


TRA10 




06473 


-0 


53400 


2 06472 






06474 


-0 


63400 


2 06513 


TRA20 




06475 


-0 


75400 


2 00000 






06476 





77100 


00022 






06477 





40200 


06537 






06500 





62100 


06515 






06501 





40200 


06540 






06502 





62100 


06516 






06503 


-0 


75400 


00000 






06504 





60100 


06542 






06505 


-0 


50000 


1 02546 


TRA30 




06506 


HJ 60200 06542 






06507 


1 


77767 


1 06510 







06510 


-3 


00000 


1 06514 


TRA40 




06511 





50000 


1 02544 






06512 


-0 


73400 


2 00000 




D 


06513 


3 


00000 


2 06505 


TRA50 




06514 





56000 


06541 


TRA60 


A 


06515 





76300 


00000 


TRA70 


A 


06516 





76700 


00000 


TRA80 




06517 


-0 


320OO 


06542 






06520 





10000 


06536 






06521 





60100 


06542 






06522 





40200 


06537 






06523 





60100 


06543 






06524 


-0 


50100 


06542 






06525 





40200 


06543 






06526 


-0 


53400 


1 05475 





CLA DOTAGZ+8.1 

ANA ADDMSK 

CAS SFES1 

TRA SFEND 

TRA SFEND 

CLA SFES1 

STA DOTAGZ+8.1 

LXD SF10»2 

CLA DOTAGZ+4.1 

TRA SF96 

CAS D0TAGZ+4.1 

TRA SF96 

TRA SF99 

TXI SF98.1.1 

TIX SF94»2»1 

TRA SFEND 

CLA SFES1 

STA 00TA6Z+8tl 

TRA SF92 

LXD SF15.4 

TRA SV65 

HTR 

GREATEST TRANSFER 
CLA D0TAGZ+5»1 
PDX 0.2 

TXL TRA20.2.20 
LXD TRA10.2 
SXD TRA50.2 
PXD 0.2 
ARS 18 
SUB TRAN1 
STA TRA70 
SUB TRAN2 
STA TRA80 
PXD 0.0 
STO TRAN5 
CAL DOTAGZ+7.1 
ORS TRANS 
TXI TRA40.1.-9 
TXL TRA60.1 
CLA DOTAGZ+5.1 
PDX 0.2 
TXH TRA30.2 
LDQ TRAN4 
LLS 
ALS 

ANA TRANS 
TZE TRA95 
STO TRAN5 
SUB TRAN1 
STO TRAN6 
ORA TRAN5 
SUB TRAN6 
LXD LUJ.l 



-OBTAIN PREVIOUS LEV. DEF. 
AND COMPARE 
WITH NEW. 
EXIT UNLESS 
NEW LEV* 

IS LARGGER. IN WHICH CASE 
REPLACE OLD WITH NEW 
OBTAIN N COUNTER IN XRB 
OBTAIN VAR. N IN ACC. 
GO TO INDEXING. 
COMPARE. TO FIND DUPLICATE 
N S. 

DUPE FOUND. 
INDEX IN DO FORMULA 
AND IN COUNTER 

REPLACE 
OLD LEVEL 
OF DEFINITION. 
GO BACK FOR NEXT 
SYMBOL DO 
ES. 
LEVEL OUT OF DO FORMULA 

OBTAIL LEVEL OF DO 
USE MAX LEV TWENTY 



INITIALIZE TEST INSTR. 

COMPUTE LEVEL MINUS ONE 

AND INITIALIZE SHIFT INSTR. 

COMPUTE 35 MINUS »L MINUS 

ONE) AND 

INITIALIZE 

SHIFT INSTR. 

INITIALIZE 

ES LOCATION TO ZERO 

OR INTO TRAN5 ALL THE 

T2 WORDS OF THIS DO 

AND ALL DOS CONTAINED 

BY THIS DO. 



PUT MASK IN QUOTIENT 

REGISTER. SHIFT COMPUTED 

AMOUNTS TO CONSTRUCT 

MASK IN ACC. AND IN 

UNION OF T2 WORDS. EXIT IF ZERO. 

OBTAIN LOW ORDER BIT 

IN ACC. 



F2105250 
F2105260 
F2105270 
F2105280 
F2105290 
F210530O 
F2105310 
F2105320 
F2105330 
F2105340 
F2105350 
F2105360 
F2105370 
F2105380 
F2105390 
F2105400 
F2105410 
F 2 105420 
F2105430 
F2105440 
F2105450 
F2105460 
F2105470 
F2105480 
F2105490 
F2105500 
F2105510 
F2105520 
F2105530 
F2105540 
F2105550 
F2I05560 
F2105570 
F2105580 
F2105590 
F2105600 
F2105610 
F2105620 
F2105630 
F2105640 
F2105650 
F2105660 
F2105670 
F2105680 
F2105690 
F2105700 
F2105710 
F2105720 
F2105730 
F2105740 
F2105750 
F2105760 
F2105770 
F2105780 



>?/ 





06527 





34000 1 


06567 


TRA85 


CAS 


TRATAB+19.1 




06530 





02O00 


06532 




TRA 


TRA86 




06531 





02000 


06535 




TRA 


TRA90 




06532 


1 


00001 1 


06533 


TRA86 


TXI 


TRA87>1»1 




06533 


-3 


Q0023 1 


06527 


TRA87 


TXL 


TRA85»1»19 




06534 





07400 4 


00004 




TSX 


DIA6»4 




06535 


-0 


75400 1 


00000 


TRA90 


PXD 


0.1 




06536 





02000 4 


OOOOl 


TRA95 


TRA 


1»4 




06537 





00000 


000 01 


TRAN1 


HTR 


1 




06540 





00Q00 


00043 


TRAN2 


HTR 


35 




06541 


+377777777777 


TRAN4 


OCT 


377777777777 


A 


06542 





00000 


00000 


TRAN5 


HTR 




A 


06543 





00000 


00000 


TRAN6 


HTR 






06544 


+000000200000 


TRATAB 


OCT 


200000 




06545 


+000000400000 




OCT 


400000 




06546 


+000001000000 




OCT 


1000000 




06547 


+000002000000 




OCT 


2000000 




06550 


+000004000000 




OCT 


4000000 




06551 


+000010000000 




OCT 


10000000 




06552 


+000020000000 




OCT 


20000000 




06553 


+000040000000 




OCT 


40000000 




06554 


♦000100000000 




OCT 


100000000 




06555 


+000200000000 




OCT 


200000000 




06556 


+000400000000 




OCT 


400000000 




06557 


+001000000000 




OCT 


1000000000 




06560 


+002000000000 




OCT 


200000000C 




06561 


+004000000000 




OCT 


4000000000 




06562 


+010000000000 




OCT 


10000000000 




06563 


+020000000000 




OCT 


20000000000 




06564 


+040000000000 




OCT 


40000000000 




06565 


+100000000000 




OCT 


100000000000 




06566 


+200000000000 




OCT 


200000000000 
















FORVAL TABLE SEARCH 




06567 





50000 


07152 


TS4VAL 


CLA 


4VALAD 




06570 


-0 


53400 2 


05502 




LXD 


L(6)»2 




06571 





07400 4 


07060 




TSX 


RTAPE»4 




06572 


-3 


01747 1 


06575 




TXL 


TSV10«1»999 




06573 





76000 


00144 




PSE 


100 




06574 





02000 


06753 




TRA 


T190 




06575 


-0 


63400 1 


06652 


TSV10 


SXD 


TS40»1 




06576 


-0 


63400 1 


06673 




SXD 


TS75sl 




06577 


-0 


76O0O 


00143 




Mse 


9? 




06600 





020O0 


06603 




TRA 


TSV20 




06601 





76000 


00143 




PSE 


99 




06602 





02000 


06753 




TRA 


T190 




06603 


_o 


53400 1 


00O30 


TSV20 


LXD 


DOTAG-ltl 




06604 


-0 


63400 1 


06650 




SXD 


TS35.1 




06605 


-Q 


53400 1 


05506 




LXD 


L(1350»l 




06606 


-0 


53400 4 


05505 




LXD 


L(1000»4 




06607 


-0 


63400 4 


06755 




SXD 


XF0R»4 




06610 


-0 


76000 


00141 


TSOO 


MSE 


97 




06611 





76100 


00000 




NOP 






06612 





50000 1 


02544 


TS10 


CLA 


D0TAGZ+5.1 




06613 


-0 


73400 2 


00000 




PDX 


0.2 



SEARCH TABLE 
TO OBTAIN 
LEVEL INTEGER 



ERROR. GO TO DIAGNOSTIC* 
PUT LEVEL IN ACC DECREMENT 
EXIT. 



FOR VARIABLE RANGES AND INCREMENTS 
READ IN 
FORVAL 



IF FORVAL EMPTY t SET 
SENSE LIGHT AND EXIT 
INITIALIZE TEST INSTRS. 

TEST FOR EMPTY DOTAG 

OFF* NOT EMPTY 

ON j DOTAG EMPTY 

EXIT 

DOTAG TEST INITIALIZING 

INITIALIZE XRA 

AND 

XFOR. CONTINUE WITH TSOO 

SENSE LIGHT 97 OFF 

OBTAIN LEVEL OF CURRENT 
DO IN XRB. IF L IS ONE* 



F2105790 
F2105800 
F2105810 
F2105820 
F2105830 
F2105845 
F2105850 
F2105860 
F2105870 
F2105880 
F2105890 
F2105900 
F2105910 
F21O5920 
F2105930 
F2105940 
F2105950 
F2105960 
F2105970 
F2105980 
F2105990 
F2106000 
F2106010 
F2106020 
F2106030 
F2106040 
F2106050 
F2106060 
F2106070 
F2106080 
F2106090 
F2106100 
F2106110 
F2106120 
F2106130 
F2106140 
F2106150 
F2106160 
F2106170 
F2106180 
F2106190 
F2106200 
F2106210 
F2106220 
F2106230 
F2106240 
F2106250 
F2106260 
F2106270 
F2106280 
F2106290 
F2106300 
F2106310 
F2106320 



>>" 



u 



o 



n 



r\ 





06614 


-3 


0000 1 


2 


06621 




TXL 


TS15*2*1 






06615 


-0 


76000 





00141 




MSE 


97 






06616 





02000 





06644 




TRA 


TS30*Q 






06617 





76000 





00141 




PSE 


97 






06620 


1 


77767 


1 


06650 




TXI 


TS35*l.-9 






06621 


-0 


76000 





00141 


TS15 


MSE 


97 






06622 





76100 





00000 




NOP 








06623 





50000 


1 


02537 




CLA 


D0TAG2.1 






06624 





73400 


2 


00000 




PAX 


0*2 






06625 


-0 


32000 





05514 




ANA 


DECMSK 






06626 





60100 





06756 




STO 


TBNA 






06627 


-0 


75400 


2 


00000 




PXD 


0*2 






06630 





60100 





06757 




STO 


TENA 






06631 


-0 


53400 


4 


06755 




LXD 


XF0R»4 


• 




06632 





50000 





06756 




CLA 


TBNA 






06633 





34000 


4 


04510 


TS20 


CAS 


4VALZ*4 






06634 


1 


77776 


4 


06652 




TXI 


TS40t4»-2 






06635 





07400 


4 


00004 




TSX 


DIAG»4 FIND 


NEXT NEST. 




06636 


-0 


63400 


4 


06755 




SXD 


XF0Rt4 






06637 





50000 





06757 




CLA 


TENA 






06640 





40200 


4 


04510 




SUB 


4VALZ.4 






06641 





12000 





06643 




TPL 


TS25 






06642 





76000 





00141 




PSE 


97 


RECORD NO 




06643 


1 


77767 


1 


06650 


TS25 


TXI 


TS35»l»-9 






06644 





50000 


1 


02537 


TS30 


CLA 


DOTAGZ.l 






06645 


-0 


32000 





05515 




ANA 


TAGMSK. 






06646 


-0 


10000 





06654 




TNZ 


TS50 






06647 


1 


77767 


1 


06650 


TS33 


TXI 


TS35»1»~9 







06650 


3 


00000 


1 


06612 


TS35 


TXH 


TS10»1 







06651 


-3 


00000 





06753 


TS38 


TXL 


T190»0 







06652 


3 


00000 


4 


06633 


TS40 


TXH 


TS20»4 






06653 





02000 





06753 




TRA 


T190 






06654 


-0 


63400 


1 


06651 


TS50 


SXD 


TS38.1 






06655 


-0 


63400 


2 


06722 




SXD 


TU0.2 






06656 


-0 


53400 


4 


06755 




LXD 


XF0R»4 






06657 


-0 


53400 


2 


05477 


TS55 


LXD 


L(3)»2 






06660 


-0 


53400 


1 


06651 




LXD 


TS38.1 






06661 





50000 





06757 




CLA 


TENA 






06662 





40200 


4 


04510 




SUB 


4VALZ*4 






06663 


-0 


12000 





06647 




TMI 


TS33 






06664 





50000 


4 


04511 




CLA 


4VALZ+1»4 






06665 





34000 


1 


02543 


TS60 


CAS 


D0TAGZ+4#1 






06666 





02000 





06670 




TRA 


TS65 






06667 





02000 





06676 




TRA 


TS80 






06670 


1 


00001 


1 


06671 


TS65 


TXI 


TS70»1»1 






06671 


2 


00001 


2 


06665 


TS70 


TIX 


TS60»2»1 






06672 


1 


77776 


4 


06673 




TXI 


TS75.4*-2 







06673 


3 


00000 


4 


06657 


TS75 


TXH 


TS55.4 






06674 


-0 


53400 


1 


06651 




LXD 


TS38»1 






06675 


1 


77767 


1 


06650 




TXI 


TS35»l.-9 






©6676 


-0 


63400 


2 


06743 


TS80 


SXD 


T148.2 






06677 


-0 


63400 


1 


06742 




SXD 


T144»l 






06700 


-0 


53400 


1 


06651 




LXD 


TS38.1 






06701 


-0 


53400 


2 


06722 




LXD 


T110»2 





GO TO NEST PROCEDURE* IF 
L IS NOT ONE AND LIGHT IS 
OFF* GO TO INNER DO PRECEDURE. 
IF LIGHT IS ON* CONTINUE 
INDEXING FOR NEXT NEST. 



L IS ONE* DO NEST PROCEDURE. 
ESTABLISH BEGINNING OF 
NEST ADDRESS BNA* AND 
END OF NEST ADDRESS ENA. 
SEARCH IN FORT AG UNTIL 
FOR NR5. FOUND GREATER 
THAN ENA. IF NONE* EXIT 
FROM ENTIRE ROUTINE. 
TEST WHETHER FIRST SUCH 
NR. IS IN NEST IF NOT* 
IF SO* (ERROR. GO TO DIAGNOSTIC 
60 TO INDEXING INSTRS. 
FOR NEXT DO* 



FORVAL FALLS IN THIS NEST. 

INNER DO PROCEDURE. 

TEST FOR NON ZERO TAG. 

IN WHICH CASE TRA FOR 

TABLE SEARCH. OTHERWISE* 

INDEX FOR NEXT DO* IF POSSIBLE. 

EXIT* STORAGE FOR INDEX CUR. DO. 

INDEX TEST FOR FORVAL 

EXIT 

SAVE INDEX OF CURRENT DO 

SAVE LEVEL OF CURRENT DO 

OBTAIN FORVAL INDEX IN XRC 

PUT THREE IN XRC 

CURRENT DO IN XRA 

TEST FOR END OF NEST 

NOT IN NEST.TRA FOR NEXT DO. 

IN NEST OBTAIN FORTAG 

SYMBOL* COMPARE WITH VAR 

N SYMBOLS. 

EQUALITY 

INDEX IN XRA* 

COUNT IN XRB 

TAKE NEXT FORTAG ENTRY. 

IF ANY 

RESTORE CURRENT DO INDEX 

AND TRA FOR NEXT DO. 

SAVE VAR. N. COUNTER. 

SAVE COUNTER OF SYM IN DO 

CURRENT DO INDEX IN XRA 

CURRENT DO LEVEL IN XRB 



F2106330 
F2106340 
F2106350 
F2106360 
F2106370 
F2106380 
F2106390 
F2106400 
F2106410 
F2106420 
F2106430 
F2106440 
F2106450 
F2106460 
F2106470 
F2106480 
F2106490 
.JF2106505 
F2106510 
F2106520 
F2106530 
F2106540 
F2106550 
F2106560 
F2106570 
F2106580 
F2106590 
F2106600 
F2106610 
F2106620 
F2106630 
F2 106640 
F2106650 
F2106660 
F2106670 
F2106680 
F2106690 
F2106700 
F2106710 
F2106720 
F2106730 
F2106740 
F2106750 
F2106760 
F2106770 
F2106780 
F2106790 
F2106800 
F2106810 
F2106820 
F2106830 
F2106840 
F2106850 
F2106860 



?? 



DO V 









A 
A 
A 
A 



06702 
06703 
06704 
06705 
06706 
06707 
06710 
06711 
06712 
06713 
06714 
06715 
06716 
06717 
06720 
06721 
06722 
06723 



06724 
06725 
06726 
06727 
06730 
06731 
06732 
06733 
06734 
06735 
06736 
06737 
06740 
06741 
06742 
06743 

06744 
06745 
06746 
06747 
06750 
06751 
06752 
06753 
06754 
06755 
06756 
06757 

06760 
06761 
06762 
06763 



00001 
50000 
62200 
00000 
00011 
00001 
07400 
50000 
32000 
40200 
12000 
50000 
32000 
76700 
40200 
12000 
00000 
02000 



53*00 
50O0O 
73400 
63400 
53400 
00000 
75400 
77100 
62100 
60100 
53400 
50000 
00001 
34000 
00000 
OOOOO 

00001 
00001 
77776 
50000 
621O0 
50000 
00001 
02000 
OOOOO 
OOOOO 
OOOOO 
OOOOO 



2 06703 

1 02544 TS85 

06705 

06711 TS90 

06703 TS92 

06706 TS94 

00004 

02537 T100 

05514 

04510 

06707 

02537 

05516 

00022 

04510 

06707 

06724 T110 

06746 



06742 
02547 
OOOOO 
06731 
06705 
06746 
OOOOO 
00022 

1 02547 

06754 

2 06743 

1 02543 
1 06745 
1 02543 
06744 
06747 



T120 



T130 



06745 
06741 
06673 
06754 
02^47 
02543 
06745 
06760 
OOOOO 
OOOOO 
OOOOO 
OOOOO 



-0 53400 
50000 
07400 
3 02733 



2 05501 

07155 
4 07060 

1 07053 



T140 
T144 
T148 

T150 
T160 
T170 
T180 



T190 
T195 
XFOR 
TBNA 
TENA 

RHOO 



TXI 
CLA 
STD 
TXH 
TXI 
TIX 
TSX 
CLA 
ANA 
SUB 
TPL 
CLA 
ANA 
ALS 
SUB 
TMI 
TXL 
TRA 



LXD 
CLA 
PAX 
SXO 
LXD 
TXL 
PXO 
ARS 
STA 
STO 
LXD 
CLA 
TXI 
CAS 
TXL 
TXL 

TXI 
TIX 
TXI 

CLA 
STA 
CLA 
TXI 
TRA 
HTR 
HTR 
HTR 
HTR 

LXD 
CLA 
TSX 
TXH 



TS85»2»1 

D0TAGZ+5*1 

TS90 

T100»2 

TS85»1*9 

TS92»2*1 

DIAG.4 IF 

D0TAGZ»1 

DECMSK 

4VALZ»4 

TS94 

D0TAGZ»1 

ADDMSK 

18 

4VALZ.4 

TS94 

T120»2 

T170 



T144»l 

00TAGZ+8«1 

0*2 

T130»2 

TS90»2 

T170»2 

Ot2 

18 

00TAGZ+8»1 

T195 

T148»2 

DGTAGZ+4»1 

T160»l»l 

D0TAGZ+4»1 

T150»0 

T180.0 

T160»l»l 

T140»2»l 

TS75*4*-2 

T195 

DOTAGZ*8jl 

00TAGZ+4il 

T160»l»l 

RHOO 



NOT IN NESTt 



ADJUST XRB FOR CURRENT DO TEST* 
OBTAIN NEXT BACK DO IN 
SUBNEST* ON FIRST TIME 
THROUGH* CURRENT DO IS 
PRODUCED* 
ADJUST LEVEL. 

ERROR. GO TO DIAGNOSTIC. 
NEXT BACK DO FOUND. 
TEST TO SEE IF F0RTA6 
FORMULA NR. IS IN THIS 
DO. IF NOT* GO TO TS94 
TO ADJUST LEVEL FOR 
OBTAINING NEW SUBNEST DO. 



DEC CONTAINS CURRENT LEVEL. 
APPARENT DEFINITION OF A VARIABLE N WITHIN 
RANGE OF THE DO WITH VARIABLE N. IGNORE AND 
GET NEXT FORVAL. 

PUT CUR. VAR. DO INDEX IN 

XRAs AND OBTAIN LEV. DEF* 

OF VAR. N. 

STORE IN DEC OF 

OBTAIN LEVEL OF 

FURTAG FOR. NR. 

CHOOSE LARGER AND PUT IN 

LEV. DEF* FIELD OF CURRENT DO, 

IF CHANGE MADE. 

LEVEL* 

AND TEST TO SEE 

SYMBOL 

DUPLICATED 

IN DO VAR.N S. 
IF SO* REPLACE ITS LEVELfDEC HAS IX FOR VAR N) 
OF DEF BY THIS < DEC HAS 3*2*1 IF FORVAL 
MATCHES VARIABLE N3»N2*N1) 

NEW LEVEL. 



T130. 

DO CONTAINING 



SAVE 



IF THIS 



USE OF 

L(5)»2 

4VARAD 

RTAPE.4 

RH95»1*1499 



EXIT 
ES 

FORTAG 
ES 
ES 
SYMBOL WITHIN RANGE AS FXD 
READ IN 
FORVAR 



INDEX 



POINT VAR. FORVAR SEARCH. 



EXIT IF FORVAR EMPTY 



F2106870 
F21Q6880 
F2106890 
F2106900 
F2106910 
F2106920 
F2106935 
F2106940 
F2106950 
F2106960 
F2106970 
F2106980 
F2106990 
F2107000 
F2107010 
F2107020 
F2107030 
F2107044 
F2107046 
F210704? 
F2107050 
F2107060 
F2107070 
F2107080 
F2107090 
F2107100 
F2107110 
F2107120 
F2107130 
F2107140 
F2107150 
F2107160 
F2107170 
F2107180 
F2107190 
F2107200 
F2107201 
F2107210 
F2107220 
F2107230 
F21072&0 
F210T250 
F2107260 
F2107270 
F2107280 
F2107290 
F2107300 
F2107310 
F2107320 
F2107330 
F2107340 
F2107350 
F2107360 
F2107370 



*'/ 



n 



n 



06764 


-0 


76000 





00143 




MSE 


99 


06765 





02000 





06770 




TRA 


RH05 


06766 





76000 





00143 




PSE 


99 


06767 





02000 





07053 




TRA 


RH95 


06770 


-0 


63400 


1 


07032 


RH05 


SXD 


RH60»1 


06771 


-0 


63400 


1 


07043 




SXD 


RH75.1 


06772 


-0 


53400 


1 


00030 




LXD 


D0TAG-1»1 


06773 


-0 


63400 


1 


07052 




SXO 


RH90*1 


06774 


-0 


53400 


1 


05507 




LXD 


L(150O*l 


06775 


-0 


63400 


1 


07054 




SXD 


RHNNXtl 


0677c 


-0 


76000 





00141 




MSE 


97 


06777 





76100 





00000 




NOP 




070O0 


-0 


53400 


1 


05506 




LXD 


L(1350.1 


07001 





50000 


1 


02537 


RH10 


CLA 


DOTAGZ,! 


©7002 





73400 


2 


00000 




PAX 


0*2 


07003 


-0 


32000 





05514 




ANA 


DECMSK 


07004 





60100 





07056 




STO 


RFIRST 


07005 


-0 


75400 


2 


00000 




PXD 


0*2 


07006 





60100 





07057 




STO 


RLAST 


07007 





50000 


1 


02544 




CLA 


D0TAGZ+5»1 


07010 


-0 


73400 


2 


00000 




PDX 


0*2 


07011 


3 


00001 


2 


07017 




TXH 


RH30»2»1 


07012 


-0 


76000 





00141 




MSE 


97 


07013 





02000 





07015 




TRA 


RH20 


07014 





02000 





07053 




TRA 


RH95 


07015 


-0 


53400 


4 


07054 


RH20 


LXD 


RHNNX»4 


07016 


-0 


63400 


4 


07055 




SXD 


RHCNX** 


07017 


-0 


53400 


* 


07055 


RH30 


LXD 


RHCNX.4 


07020 





50000 





07056 




CLA 


RFIRST 


07021 





34000 


4 


05474 


RH40 


CAS 


4VARZ*4 


07022 


1 


77776 


4 


07032 




TXI 


RH60**»-2 


07023 





07400 


4 


00004 




TSX 


DIAG.4 


07024 


-0 


63400 


4 


07055 




SXD 


RHCNX** 


07025 





50000 





07057 


RH50 


CLA 


RLAST 


07026 





34000 


4 


05474 




CAS 


4VARZ*4 


07027 





76100 





00000 




NOP 




07030 





02000 





07034 




TRA 


RH70 


©70*1 


O20OO 


O 


O7047 




TRA 


RH80 


07032 


3 


00000 


4 


07021 


RH60 


TXH 


RH40*4 


07033 





02000 





07053 




TRA 


RH95 


07034 





50000 


1 


025*0 


RH70 


CLA 


DOTAGZ+1.1 


07035 





40200 


4 


05475 




SUB 


4VARZ+1»4 


07036 


-0 


10000 





07042 




TNZ 


RH72 


07037 





50000 





05511 




CLA 


BITONE 


07040 


-0 


60200 


1 


025*4 




ORS 


D0TAGZ+5»1 


07041 


3 


00001 


2 


07051 




TXH 


RH85.2»1 


07042 


1 


77776 


4 


070*3 


RH72 


TXI 


RH75»4.-2 


07043 


3 


00000 


4 


07025 


RH75 


TXH 


RH50»4 


07044 


3 


00001 


2 


07051 




TXH 


RH85t2»l 


07045 





76000 





00141 




PSE 


97 


07046 





02000 





07051 




TRA 


RH85 


07047 


3 


00001 


2 


07051 


RH80 


TXH 


RH85*2,1 


07050 


-0 


63400 


4 


07054 




SXD 


RHNNX.4 


07051 


1 


77767 


1 


07052 


RH85 


TXI 


RH90»l»-9 



TEST FOR EMPTY DOTAG. 

NOT EMPTY. 

EMPTY* RESTORE SENSE LIGHT 

AND EXIT. 

FORVAR TEST 

INITIALIZING* 

DOTAG TEST 

INITIALIZING 

MAX WORDS IN FORVAL 

IN NEXT NEST INDEX. 

TURN LIGHT 97 OFF. 

PUT MAX WDS IN DOTAG IN XRA. 
OBTAIN FIRST DOTAG WORD. 
SEPARATE ALPHA AND BETA* 
STORE IN RFIRST AND RLAST. 



OBTAIN LEVEL IN XRB. 

TRA IF LEVEL GREATER THAN ONE. 
LEVEL IS ONE. TEST WHETHER* 
ON LAST LEVEL ONE* FORVAR 
EXHAUSTED. IF SO* EXIT. 
OTHERWISE. ADJUST FORVAR 
INDEX TO SKIP LAST NEST AREA. 
PUT FORVAR INDEX IN XRC. 
BEGIN SEARCH FOR FIRST 
FORVAR ENTRY IN RANGE. 

ERROR. GO TO DIAGNOSTIC. 
SAVE INDEX AT THIS POINT 
FOR NEXT DO* AND COMPARE 
FORVAR ENTRY WITH RLAST 

TRA* IN RANGE. 

TRA* NOT IN RANGE. 

IF NO ENTRIES GREATER 

THAN RFIRST* EXIT. 

IN RANGE* COMPARE SYMBOLS. 

IF EQUAL. PUT BIT IN 

DOTAG ENTRY. 



INDEX FORVAR AND GO BACK* 

IF POSSIBLE. OTHERWISE. 

TEST LEVEL. IF LEVEL IS 

ONE* ARRAN6E TO EXIT WHEN 

NEXT LEVEL ONE ENCOUNTERED. 

NOT IN RANGE* TEST LEVEL. 

SET NEXT NEST INDEX IF L IS ONE. 

INDEX IN DOTAG AND GO 



F2107380 

F2107390 

F2107400 

F2107410 

F2107420 

F2107430 

F2107440 

F2107450 

F2107460 

F2 107470 

F2107480 

F2 107490 

F21075O0 

F2107510 

F2107520 

F2107530 

F2107540 

F2107550 

F2107560 

F2107570 

F2107580 

F2107590 

F2107600 

F2107610 

F2107620 

F2107630 

F2107640 

F2107650 

F2107660 

F2107670 

F2107680 

F2107695 

F2107700 

F21O7710 

F2107720 

F2107730 

F2107740 

F2107750 

F2107760 

F2107770 

F2107780 

F2107790 

F21078O0 

F2107810 

F2107820 

F2107830 

F2107840 

F21O7850 

F2107860 

F2107870 

F2107880 

F2107890 

F2107900 

F2107910 



y<> 



o 


07052 


3 


00000 


1 


07001 


RH90 


TXH 


RH1Q»1 






BACK* IF POSSIBLE. 


F2107920 




07053 





02000 





07157 


RH95 


TRA 


LBOO 






EXIT 


F2107930 


A 


07054 





00000 





00000 


RHNNX 


HTR 








NEXT NGST INDEX 


F2107940 


A 


07055 





00000 





00000 


RHCNX 


HTR 








CURRENT NEST INDEX 


F2107950 


A 


07056 





00000 





00000 


RFIRST 


HTR 








ALPHA ADDRESS 


F2107960 


A 


07057 





00000 





00000 


RLAST 


HTR 








BETA ADDRESS 


F2107970 


















TAPE READING 


ROUTINE 




F2107980 




07060 





62100 





07101 


RTAPE 


STA 


RT40 






INITIALIZE TABLE ADDRESS 


F2107990 




07061 





60100 





07126 




STO 


RT92 








F2108000 




07062 


-0 


63400 


4 


07124 




SXO 


RT80»4 






SAVEXRC* TSX SET 


F2108010 




07063 


-0 


75400 


2 


00000 




PXD 


0*2 






SAVE XRB* 


F2108020 




07064 





77100 





00022 




ARS 


18 






TABLE NR* IN ADDRESS. 


F21O8O30 




07065 





60100 





07125 




STO 


RT90 








F2108040 




07066 


-0 


53400 


4 


07136 




LXD 


RTD16»4 


INITIALIZE 


ERROR COUNTER. 


F2108055 




07067 


-0 


63400 


4 


07121 




SXO 


RT73.4 








F2108060 




07070 





76200 





00222 


RT10 


RDS 


TTAPE 






SELECT TAPE 


F2108070 




07071 


-0 


53400 


1 


07126 




LXD 


RT92.1 






PUT MAX NR WORDS IN XRA 


F2108080 




07072 


-0 


53400 


4 


05476 




LXD 


L(2).4 






PUT TWO IN XRC 


F2108090 




07073 





70000 


4 


07131 


RT20 


CPY 


RT95+2t4 






COPY FIRST TWO WORDS. 


F2108100 




07074 





02000 





07077 




TRA 


RT30 






INTO E.S. 


F2108110 




07075 





07400 


4 


00004 




TSX 


DIAGt4 EOF* 






ERROR. GO TO DIAGNOSTIC. 


F2108125 




07076 





07400 


4 


00004 




TSX 


DIAG»4 EOR. 






ERROR. GO TO DIAGNOSTIC. 


F2108135 




07077 


2 


00001 


4 


07073 


RT30 


TIX 


RT20t4»l 








F2108140 




071 00 


-3 


0000 1 


2 


07131 




TXL 


RTD00»2»1 








F2108150 




07101 





70000 


1 


00000 


RT40 


CPY 


0*1 






COPY TABLE 


F2108160 




07102 


1 


77777 


1 


07101 




TXI 


RT40»1«-1 






COUNT NR. OF WORDS. 


F2108170 




07103 





07400 


4 


00004 




TSX 


0IAG»4 EOF. 






ERROR. GO TO DIAGNOSTIC. 


F2108185 




07104 





76600 





00333 


RT45 


WRS 


219 








F2108190 




07105 


-0 


76000 





00012 




RTT 








ERROR TEST 


F2108200 




07106 





02000 





07115 




TRA 


RT70 






ERROR* TRA 


F2108210 




07107 





50000 





07125 




CLA 


RT90 






NO ERROR* 


F2108220 




07110 





40200 





07127 




SUB 


RT95 






TEST TABLE NR. 


F2108230 




07111 





10000 





07113 




TZE 


RT60 






NO ERROR 


F2108240 




07112 





07400 


4 


00004 




TSX 


DIAG»4 WRONG 


TABLE IDENT 


NR. ERROR. GO TO DIAGNOSTIC* 


F2108255 




07113 


-0 


53400 


4 


07124 


RT60 


LXD 


RT80»4 






TABLE CORRECT* 


F2108260 




07114 





02000 


4 


00001 




TRA 


lt4 






RETURN. 


F2108270 




07115 


-0 


53400 


4 


07121 


RT70 


LXD 


RT73»4 








F2108280 




07116 





76400 





00222 




BST 


TTAPE 






ERROR* BACK5PACE TAPE 


F2108290 




07117 


-2 


00001 


4 


07122 




TNX 


RT75t4»l 








F21083O0 




07120 


-0 


63400 


4 


07121 




SXD 


RT73»4 






COUNT DOWN ERROR COUNTER. 


F2108310 


£> 


07121 


-3 


00000 





07070 


RT73 


TXL 


RTlOtO 








F2108320 




07122 





56000 





07125 


RT75 


LDO 


RT90 


IF 


FIVE FAILURES* PUT 


F2108332 




07123 





07400 


4 


00004 




TSX 


DIA6*4 TABL.C 


NR. 


IN MO* 


ERROR. 00 TO DIAGNOSTIC* 


F2108345 


A 


07124 





00000 





00000 


RT80 


HTR 








TSX INDEX STORAGE 


F2108350 


A 


07125 





00000 





00000 


RT90 


HTR 








TABLE NR STORAGE* OS* 


F2108360 


A 


07126 





00000 





00000 


RT92 


HTR 








ADDRESS WORD STORAGE 


F2108370 


A 


07127 





00000 





00000 


RT95 


HTR 








TABLE NR* WD ONE OF TABLE* 


F2108380 


A 


07130 





00000 





00000 


RT96 


HTR 








NR* OF WDS IN DEC. 


F2108390 




07131 


-0 


75400 





00000 


RTDOO 


PXD 


0.0 






THIS ROUTINE 


F2108400 




07132 


-0 


53400 


4 


07136 


RTD10 


LXD 


RTD18»A 






READS IN ONE 


F2108410 




07133 





70000 


1 


02537 


RT015 


CPY 


DQTAGZtl 






ENTRY FROM 


F2108420 




07134 


1 


77777 


1 


07137 




TXI 


RTD20.1»-1 






TDO* AFTER WHICH 


F2108430 




07135 





07400 


4 


00004 




TSX 


DIAG»4 FOUR ZERO 


WORDS 


ERROR. GO TO DIAGNOSTIC. 


F2108445 




07136 


-3 


00005 





07104 


RTD16 


TXL 


RT45»0»5 






ARE STORED BEFORE 


F2108450 



</ 



a 



u 



u 



o 



n 



07137 


2 


00001 


4 


07133 


RTD20 


TIX 


RTD15»4»1 


READING IN 


07140 


1 


000O3 


4 


07141 


RT023 


TXI 


RTD25»4,3 


THE NEXT ENTRY* 


07141 





60100 


1 


02537 


RT025 


STO 


D0TAGZ»1 


STORE ZERO 


07142 


1 


77777 


1 


07143 




TXI 


RTD30»1»-1 


INDEX 


07143 





60100 


1 


02537 


RTD30 


STO 


DOTAGZ 1 1 


AND REPEAT. 


07144 


1 


77777 


1 


07145 




TXI 


RT035*1»-1 


WHEN DOTAG 


07145 





60100 


1 


02537 


RTD35 


STO 


DOTAGZ.l 


ENTRY IS 


07146 


1 


77777 


1 


07147 




TXI 


RTD40»lt-l 


COMPLETE, 


07147 





60100 


1 


02537 


RTD40 


STO 


DOTAGZ ,1 


TRA 


07150 


1 


77777 


1 


07132 




TXI 


RTD10»1»-1 


TO RTD10 


07151 





02506 





02537 


DOAD 


HTR 


DOTAGZ ,0.1350 


ADDRESS PART CONTAINS 


07152 





01750 





04510 


4VALA0 


HTR 


4VALZ»0»1000 


ADDRESS OF LAST WORD IN 


07153 





01130 





03670 


TIFAD 


HTR 


TIFZ»0»600 


TABLE PLUS ONE. 


07154 





00372 





04263 


TRADAD 


HTR 


TRADZ»0»250 


DEC CONTAINS MAX NR OF 


07155 





02734 





05474 


4VARAD 


HTR 


4VARZ»O*1500 


WRDS. 


07156 





02734 





03670 


4TAGAD 


HTR 


FORTZ»0»1500 
TRANSFER IN EXTENDED 


RANGE BIT* 


07157 


-0 


76000 





00143 


LB 00 


MSE 


99 


TEST FOR EMPTY DOTAG 


07160 





02000 





07163 




TRA 


LB02 


OFF, NOT EMPTY 


07161 





76000 





00143 




PSE 


99 


ON, EMPTY* RESET LIGHT 


07162 





02000 





07211 




TRA 


EBOO 


AND EXIT 


07163 


-0 


53400 


1 


00030 


LB02 


LXD 


D0TAG-1»1 


OBTAIN NEXT UNUSED INDEX 


07164 


-3 


00000 





07207 


LB05 


TXL 


LB60.0 


TRA TO ADJUST FOR LAST DO. 


07165 





50000 


1 


02545 


LB10 


CLA 


DOTAGZ+6,1 


OBTAIN Tl WORD. 


07166 


-0 


12000 





07207 




TMI 


LB60 


TEST SIGN, TRA IF NEG* 


07167 


-0 


3200Q 





05511 




ANA 


BITONE 


TEST FOR TRA IN IMMED. RANGE. 


07170 





10000 





07207 




TZE 


LB60 


IF NONE, TRA* 


07171 


-0 


63400 


1 


07164 




SXD 


LB05»1 


SAVE XRA 


07172 





50000 


1 


02544 




CLA 


D0TAGZ+5f 1 


PUT LEVEL 


07173 


-0 


73400 


2 


00000 




PDX 


0,2 


IN XRB 


07174 


-0 


50000 





05510 


LB20 


CAL 


LMSK 


OR IN 


07175 


-0 


60200 


1 


02545 




ORS 


DQTAGZ+6,1 


MSK 


07176 


-3 


00001 


2 


07206 




TXL 


LB50»2»1 


EXIT IF LEVEL ONE. 


07177 


1 


00011 


1 


07200 


LB25 


TXI 


LB30»1»9 


FIND NEXT BACK 


07200 





50OOO 


1 


02544 


LB30 


CLA 


DOTAGZ+5,1 


SUBNEST DO. 


07201 





62200 





07202 




STO 


LB40 




07202 


-3 


00000 


2 


07177 


LB40 


TXL 


LB25.2 




©7203 


-0 


73400 


2 


00000 




POX 


0,2 


SAVE NEW LEVEL IN XRB. 


07204 





50000 


1 


02545 




CLA 


D0TA6Z+6»l 


TEST SIGN OF WORD Tl. 


07205 





12000 





07174 




TPL 


LB20 


IF PLUS GO TO PUT IN MSK. 


07206 


-0 


53400 


1 


07164 


LB50 


LXD 


LB05»1 


IF NOT* FIND NEXT DO 


07207 


1 


00011 


1 


07210 


LB60 


TXI 


LB70»1,9 


IN MAIN PASS. 


07210 


-3 


02506 


1 


07165 


LB7Q 


TXL 


LB10,1»1350 

END OF BLOCK ROUTINE 


EBOO FOLLOWS 


07211 
07212 



-0 


77200 
76000 






00223 
00143 


EBOO 


REW 
MSE 


147 
99 


REWIND DOTAG TAPE 
TEST FOR EMPTY DOTAG 


07213 
07214 






02000 
76000 






07216 
00143 




TRA 

PSE 


EB10 
99 


OFF, NOT EMPTY 

ON, EMPTY, RESTORE AND TRA. 


07215 
07216 




-0 


02000 
53400 



1 


07233 
00030 


EB10 


TRA 

LXD 


EB50 
DQTAG-1,1 


INITIALIZE TEST INSTR. 


07217 


-0 


63400 


1 


07230 




SXD 


EB40»I 


AND 


07220 


-0 


53400 


1 


05506 




LXD 


LU350.1 


XRA 


07221 


-0 


53400 


4 


05503 


EB20 


LXD 


L(9),4 


WRITE 


07222 





50000 


1 


02544 




CLA 


D0TAGZ+5»1 


DOTAG 



F2108460 
F2108470 
F2108480 
F2108490 
F2108500 
F2108510 
F2108520 
F2108530 
F2108540 
F2108550 
F2108560 
F2108570 
F2108580 
F2108590 
F2108600 
F2108610 
F2108620 
F2 108630 
F2108640 
F2108650 
F2108660 
F2108670 
F2108680 
F2108690 
F2108700 
F2108710 
F2108720 
F21O8730 
F2108740 
F2108750 
F2108760 
F21O8770 
F2108780 
F2108790 
F2108800 
F21O8810 
F2108820 
F2108830 
F2108840 
F2108850 
F2108860 
F2108870 
F2108880 
F2108890 
F2108900 
F2108910 
F2108920 
F2108930 
F2108940 
F2108950 
F2108960 
F2108970 
F2108980 
F2108990 



ys 



1 



>C V 



©7223 


-0 73400 


2 


00000 




PDX 


0.2 


ON 


07224 


3 00001 


2 


07226 




TXH 


£330.2.1 


TAPE 


07225 


76600 





00223 




WRS 


1*? 


ONE 


07226 


70000 


1 


02537 


EB30 


CPY 


DOTAGZtl 


NEST 


07227 


1 77777 


1 


07230 




TXI 


EB40»1»-1 


PER 


07230 


-3 00000 


1 


07233 


EB40 


TXL 


EB50tl 


RECORD 


07231 


2 00001 


4 


07226 




TIX 


EB30»4»1 




07232 


02000 





07221 




TRA 


EB20 




07233 


77000 





00223 


EB50 


WEF 


147 


WRITE END OF FILE 


07234 


-0 53400 


2 


05500 


EB60 


LXO 


L(4)»2 


READ 


07235 


50000 





07156 




CLA 


4TA6AD 


IN 


07236 


07400 


4 


07060 




TSX 


RTAPE»4 


F0RTA6. 


07237 


-0 63400 


1 


00733 




SXD 


F0RTAG-1»1 


SET SENSE LIGHT 97 


07240 


-0 76000 





00141 




MSE 


97 


ON IF FORTAG 


07241 


76100 





00000 




NOP 




EMPTY. OFF IF 


07242 


-3 02733 


1 


07244 




TXL 


EB70.1.1499 


FORTAG 


07243 


76000 





00141 




PSE 


97 


NOT EMPTY. 


07244 


76200 





00222 


EB70 


RDS 


TTAPE 


MOVE TTAPE PAST 


07245 


70OO0 





07251 




CPY 


EB80 


END OF FILE MARK. 


07246 


02000 





07244 




TRA 


EB70 




07247 


02000 





07252 




TRA 


EB90 


EOF 


07250 


07400 


4 


00004 




TSX 


DIAG.4 SHOULD NOT BE EOR H£RE. ERROR. 6< 


07251 


00000 





00000 


EB80 


HTR 




ES 


07252 


-0 76000 





00142 


EB90 


MSE 


98 


IS TRALEV TALBE EMPTY 


07253 


02000 





07260 




TRA 


EB95 




07254 


76600 





00224 




WRS 


TLTAPE 


ON. EMPTY. 


07255 


70000 





05474 




CPY 


L(0) 




07256 


70000 





05474 




CPY 


L(0) 




07257 


76000 





00142 




PSE 


98 




07260 


77000 





00224 


EB95 


WEF 


TLTAPE 


TRALEV TAPE 


07261 


76200 





00221 




RDS 


145 


SKIP OVER DIAGNOSTIC RECORD ON 


07262 


02000 





00004 




TRA 


ONETCS 


GO TO ONE TO CS I MONITOR). 


07263 


-0 63400 


2 


07301 


ERLIST 


SXD 


ERIR2.2 


SAVE X R B 


07264 


-0 53400 


2 


073O2 




LXO 


ERNBR.2 


6ET ERROR NUMBER 


07265 


50000 


4 


02537 




CLA 


D0TAGZ.4 


SAVE ALPHA DO BETA 


07266 


60100 


2 


77777 




STO 


LIST.2 


IN LIST 


07267 


50000 


4 


02540 




CLA 


D0TAGZ+1.4 


AND SYMBOL 


07270 


60100 


2 


77776 




STO 


LIST-1.2 




07271 


50000 


1 


02537 




CLA 


DOTAGZ.l 


SAVE OTHER ALPHA DO BETA 


07272 


60100 


2 


77775 




STO 


LIST-2.2 




07273 


Q 50000 


1 


02540 




CLA 


D0TAGZ+1*1 


AND SYMBOL 


07274 


60100 


2 


77774 




STO 


LIST-3.2 




07275 


1 00004 


2 


07276 




TXI 


ERNXTt2*4 




07276 


-0 63400 


2 


07302 


ERNXT 


5X0 


ERNBR t 2 




07277 


-0 53400 


2 


07301 




LXD 


ERIR2.2 




073 00 


02000 





05625 




TRA 


MR60 




07301 


00000 





00000 


ERIR2 








07302 


00000 





00000 


ERNBR 








07303 


-0 63400 


2 


07301 


ER6ETA 


SXD 


ERIR2.2 


SAVE ALPHA DO BETA 


07304 


-0 53400 


2 


07302 




LXD 


ERNBR.2 


WHERE ALPHA 


07305 


60000 


2 


77777 




STZ 


LIST. 2 


IS GREATER THAN 


07306 


50000 


1 


02537 




CLA 


DOTAGZ.l 


ITS BETA 


07307 


60100 


2 


77776 




STO 


LIST-1.2 




07310 


50000 


1 


02540 




CLA 


DOTAGZ+l.l 





GO TO DIAGNOSTIC. 



F2109000 

F2109010 

F2109020 

F2109030 

F2109040 

F2109050 

F2109060 

F2109070 

F2109080 

F2109090 

F2109100 

F2109110 

F2109120 

F2109130 

F2109140 

F2109150 

F2109160 

F2109170 

F2109180 

F2109190 

F2109200 

F 2 109215 

F2109220 

F2109230 

F2109240 

F2109250 

F2109260 

F2109270 

F2109280 

F2109290 

F2109295 

F2109296 

F2109311 

F2109321 

F2109331 

F2109341 

F2109351 

F2109361 

F2109371 

F2109381 

F2109391 

F2102401 

F2109411 

F2109421 

F2109431 

F2109441 

F2109451 

F2109461 

F2109471 

F2109481 

F2109491 

F2109501 

F2109511 

F2109521 



V'< 



u 



u 



n 



07311 
07312 
07313 
0731* 
07315 
07316 
07317 
07320 



60100 
00003 
63400 
53400 
02000 
53400 
00000 
07400 



77775 
07313 
07302 
07301 
05570 
07302 
05662 
00004 
77777 
00004 
00004 
05510 
00222 
00224 
00000 



ERNX 



ERTST 



LIST 

ONETCS 

0IA6 

LMSK 

TTAPE 

TLTAPE 



STO 
TXI 
SXD 
LXD 
TRA 
LXD 
TXL 
TSX 
SYN 
EOU 
EQU 
SYN 
EQU 
EQU 
END 



LIST-2»2 

ERNXt2i3 

ERNBRt2 

ERIR2.2 

MR 15 

ERNBRt2 

FLOW#2»0 

4*4 

32767 

4 

4 

L(MZ) 

146 

148 



END OF BLOCK 1 



F2109531 
F2109541 
F2109551 
F2109561 
F2109571 
F2109581 
F2109591 
F2109601 
F2109611 
F2109710 
F2109711 
F2109712 
F2109722 
F2109732 
F2109742 



tf 



3 C V 



REM BLOCK TWO OF SECTION TWO. 

BLOCK TWO OF SECTION TWO. 

MASTER RECORD CARD = FN034 
BLOCK 2 OF SECTION 2 PERFORMS SUBSCRIPT ANALYSIS FOR THOSE 
SUBSCRIPT COMBINATIONS WHICH HAVE SUBSCRIPTS 
SOME OR ALL OF WHICH ARE UNDER CONTROL OF THEIR RESPECTIVE 
DOS. THERE ARE TWO MACHINE STATES* ONE 
OF WHICH IS RESERVED EXCLUSIVELY 
FOR THOSE SUBSCRIPT COMBINATIONS 
SOME SUBSCRIPT ELEMENT/S OF WHICH ARE 
MOT UNDER CONTROL OF A DO (RELATIVE 
CONSTANT). 



00031 




ORG 


25 


00031 


DOTAG 


BSS 


1 


00032 




BSS 


449 


00T33 


DOTAG2 


BSS 


1 


00734 


FORTAfi 


BSS 


1 


00735 




BSS 


1499 


03670 


FORT 2 


BSS 


1 


03670 




ORG 


1976 


03670 


DOREC 


BSS 


1 


03671 




BSS 


1 


03672 


ATSW 


BSS 


1 


03673 


NEWT AG 


BSS 


1 


03674 


XC 


BSS 


1 


03675 


LC 


BSS 


1 


03676 


ALPHA 


BSS 


1 


03677 


BETA 


BSS 


1 


03700 


TAG 


BSS 


1 


03701 


TS 


BSS 


1 


03702 


TAG1 


BSS 


1 


03703 


GROUP 


BSS 


1 


03704 


CI 


BSS 


1 


03705 


SI 


BSS 


1 


03706 


C2 


BSS 


1 


03707 


S2 


BSS 


1 


03710 


C3 


BSS 


1 


03711 


S3 


BSS 


1 


03712 


Dl 


BSS 


1 


03713 


D2 


BSS 


1 


03714 


XI 


BSS 


1 


03715 


LI 


BSS 


1 


03716 


X2 


BSS 


1 


03717 


L2 


BSS 


1 


03720 


X3 


BSS 


1 


03721 


L3 


BSS 


1 


03722 


XL 


BSS 


1 


03723 


LL 


BSS 


1 


03724 


NRSUBS 


BSS 


1 


03725 


NRRC 


BSS 


1 


03726 


NRDS 


BSS 


1 


03727 


DORC 


BSS 


1 


03730 


RCSUBS 


BSS 


1 


03731 


DOSUBS 


BSS 


1 



UNIT ZERO! 

ADDED TAG SWITCH. EQ 1 IF PROC ADDED 

UNIT 4000M0D8* FIRSTTA6) 
IX CURRENT DO. 



F2200004 
F2200006 
F2200010 
F2200020 
F2200030 
F2200040 
F2200050 
F2200060 
F2200070 
F22Q0080 
F2200090 
F2200100 
F2200110 
F2200120 
F2200140 
F2200150 
F2200160 
F2200170 
F2200180 
F220019Q 
TAGSUNIT0F2200200 
F2200210 



ROUTINE TAG 

OR NEW TAG NAME OF CURRENT 



LEV CURRENT DO 

ALPHA CURRENT DO 

BETA CURRENT DO 

TAG CURRENT TAG IN 

TAG* EITHER FOR TAG 

4TH WD OF TAGTAG 

GROUP NR. IN DEC 

COEFF 1ST SYMB (HERE TO D2 

SUBSCR 1ST SYMB 

COEFF 2ND SYMB 

SU8SC 2ND 

COEFF 3RD 

SUBSC 3RD 

DIMENSION 1ST 

DIM 2ND 

IX DO MATHCHING 1ST SYMB.) 

LEV DO MATCHING 1ST SYMB 

IX DO MATHCING 2ND SYMB 

LEV DO MATCHING 2ND 

IX DO MATCHING 3RD 

LEV DO MATCHIN6 3RD 

IX LOWEST LEVEL DOSUB 

LEV LOWEST LEVEL DOSUB 

NR. SUBSCRIPTS IN SUBSCR COMBINATION 

NR. RELCONS IN SUBSCR COMBINATION 

NR DOSUBS IN S.C. 

BIT POS 15*16.17 EQ 1 IF CORRES X1.X2.X3 

BIT POS 15*16*17 EQ 1 IF CORRES X1*X2»X3 

BIT POS 15*16.17 EQ 1 IF CORRES X1»X2*X3 



F2200220 
F2200230 
F2200240 
F2200250 
F22O0260 
F2200270 
F2200280 
F2200290 
BELOW* INIT 0»SUBCOMF2200300 

F2200310 

F2200320 

F2200330 

F2200340 

F2200350 

F2200360 

F2200370 

(HERE TO CARWRD F2200380 

BELOW* INIT 0»IDENTF22O0390 

F 2200400 

F2200410 

F2200420 

F2200430 

F2200440 

F2200450 

F2200460 

F2200470 

F2200480 

DORC F2200490 

RELCONF2200500 

DOSUB F2200510 



w 



n 



D 





03732 
03733 


DELTA 
RCDUP 


BSS 
BSS 


1 
1 


BIT POS 15*16«17»EQ1 FOR CORRES DUPE RELCONS 


F2200520 
F2200530 




03734 


DUPES 


BSS 


1 


BIT POS 15*16*17 EQ 1 FOR CORRES DUPE DOSUBS 


F2200540 




03735 


RSYM1 


BSS 


1 




F2200550 




03736 


RSYM2 


BSS 


1 




F2200560 




03737 


CARWRD 


BSS 


1 


BIT 11 IF LEFT TYPE 1 CARRY* 12 LEFT TYPE 2* 
13 CENTER TYPE 1. 14 CENTER TYPE 2. 
S SET NE6 IF COUNTER AND TEST FOUND 


F2200570 
F2200571 
F2200572 




03740 


TL1 


BSS 


1 




F2200580 




03741 


TL2 


BSS 


1 




F2200590 




03742 


A 


BSS 


1 




F2200600 




03743 


B 


BSS 


1 




F2200610 




03744 


NEXTA 


BSS 


1 




F2200620 




03745 


LASTB 


BSS 


1 




F2200630 




03746 


REBITS 


BSS 


1 




F2200640 




03747 


TRA8IT 


BSS 


1 




F2200650 




4X37 frO LOWPOS 


BSS 


1- 


5*3*1 IF LL SUBSCR IS X1»X2»X3 RESPECT* (ID* 


F2200660 


03751 


00000 00000 


L(0) 




0*0*0 




F2200670 
F2200680 
F2200690 
F2200700 
F2200710 
F2200720 
F2200730 

*>* **** ^^ ** **) y j% 


03752 


00001 00000 


L(l) 




0*0*1 




03753 


00O02 00000 


LI 2) 




0.0»2 




03754 


00003 00000 


L(3) 




0*0*3 




03755 


00004 00000 


L141 




0*0*4 




03756 


00005 00000 


L(5) 




0*0*5 




03757 


00006 00000 


L(6) 




0*0*6 




03760 


00024 00000 


LI 20) 




0*0*20 




F2200740 

*^ r* *V A4L ^9 C *K 


03761 


00044 00000 


L136) 




0*0*36 




F2200750 


03762 


00074 00000 


L(60) 




0*0*60 




F 2200 760 


03763 


00702 00000 


L1450) 




0*0*450 




F2200770 
F2200780 
F2200790 


03764 


02734 00000 


LI1500 




0*0*1500 




03765 


00000 00001 


L(1)A 




1 




03766 


00000 00002 


L(2)A 




2 




F2200800 
F2200810 
F2200820 


03767 


00000 00004 


Lt4)A 




4 




03770 


-0 00000 00000 


L(MZ) 


MZE 






03771 


+377777777777 


350NES 


OCT 


377777777777 




F2200830 


03772 


+077777000000 


DECMSK 


OCT 


77777000000 




F2200840 
F2200850 


03773 


+000000077777 


ADDMSK 


OCT 


77777 




03774 


+000100000000 


CR1 


OCT 


1000000O0 


BIT 11 


F2200860 


03775 


+000040000000 


CR2 


OCT 


40000000 


BIT 12 


F2200870 


03776 


+000000300000 


CARMSK 


OCT 


300000 


BITS 19*20 {CARRY BITS OF DOTAG* WD 6) 


F2200880 


03777 


+000000004000 


FRSTAG 


OCT 


4000 




F2200890 


04000 


+200000000000 


B I TONE 


OCT 


200000000000 




F220090O 


0*001 


+100000000000 


BITTWO 


OCT 


100000000000 




F2200910 


04002 


-200000000000 


2BITS 


OCT 


-200000000000 


S AND 1 BIT 


F2200920 


04003 


+000000400000 


BIT18 


OCT 


400000 




F2200930 


04004 


+000000200000 


B1T19 


OCT 


200000 




F2200940 

W* *\ *% #V *K f% C f\ 


04005 


+000000100000 


BIT20 


OCT 


100000 




F2200950 


04006 


00000 00144 


AOTXX 




100 


DEC CONTAINS (FROM HERE TO NAMXX BELOW. 


F2200960 


04O07 


00000 00454 


RESXX 




300 


IX VALUE FOR NEXT (DEC INIT SET TO ADD) 


F2200970 


04010 


00000 00120 


TAG XX 




80 


TABLE ENTRY. 


F2200980 
F2200990 


04011 


00000 00144 


NAMXX 




100 




04012 


77200 00223 


BEGIN 


REW 


DOTAPE 


REWIND DOTAG TAPE 


F2201000 


04013 


-0 53400 1 03756 




LXO 


L(5)»l 


INITIALIZE 


F2201010 


0*014 


50000 1 05106 


BEG10 


CLA 


LADDIN+5»1 


DRUM PROGRAM 


F2201020 


04OI5 


-0 32000 03773 




ANA 


ADDMSK 


ADDRESSES 


F2201030 



til 



04016 





60100 1 05101 


STO 


LADDS+5tl 








F2201040 


04017 


2 


00001 1 04014 


TIX 


BEGIO.1,1 








F2201050 


04020 





50000 03751 


CLA 


L(0) 








F2201060 


04021 





60100 03670 


STO 


DOREC 








F22O107O 


04022 


-0 


76000 00012 


RTT 








TURN 


F22O1080 


04023 





76100 000O0 


NOP 








LIGHT OFF 


F22G209O 


04024 


-0 


53400 6 03751 


LXD 


LI0J.6 






TEST FOR EMPTY 


F220UOQ 


04025 


-0 


76000 00144 


MSE 


100 






FORVAL 


F2201110 


04026 


-0 


53400 4 03752 


LXD 


L(U»4 






OFF. NOT EMPTY 


F2201120 


04027 


-0 


63400 4 04112 


SXD 


END80t4 






ON. EMPTY 


F2201130 


04030 


-0 


76000 00143 


MSE 


99 






TEST FOR 


F2201140 


04031 


-0 


53400 2 03752 


LXD 


L(l)»2 






EMPTY D0TA6. 


F2201150 


04032 


-0 


63400 2 04113 


SXD 


END85.2 






SAVE TABLE INFO IN END PROG. 


F2201160 


04033 


-3 


00000 2 04043 


TXL 


END. 2.0 






IF DOTAG EMPTY. GO TO END. 


F2201170 


04034 


-0 


53400 1 00733 


LXD 


F0RTA6-1.1 






INITIALIZE 


F2201180 


04035 


-0 


63400 1 05426 


SXD 


TINF30.1 






FORTAG 


F2201190 


04036 


-0 


63400 1 04407 


SXD 


TAG20.1 






TEST 


F220120O 


04037 


-0 


63400 1 04516 


SXD 


TAG90.1 






INSTRUCTIONS. 


F2201210 


04040 





50000 03777 PAT01 


CLA 


FRSTAG 


INITIALIZE 


NEW TAG NAME BASE. 


F2201220 


04041 





60100 03673 


STO 


NEWT AG 








F2201230 


04042 





02000 04116 


TRA 


NEST 








F2201240 


04043 





77000 00224 END 


WEF 


ATAPE 






WEF ON TAGTAG TAPE 


F2201250 


04044 





76600 003O3 


WRS 


195 






MAKE END OF DRUMTAG TABLE ENTRY. 


F2201260 


04045 





46000 05100 


LDA 


LADDS+4 








F2201270 


04046 





70000 03771 


CPV 


350NES 








F2201280 


04047 





70000 03771 


CPY 


350NES 








F2201290 


04050 


-0 


53400 1 03756 


LXD 


LI5).l 








F2201300 


04051 





76600 00333 END10 


WRS 


219 






DELAY. 


F2201310 


04052 





76600 00303 


MRS 


ADRUM 






WRITE 


F2201320 


04053 





50000 1 05106 


CLA 


LADDIN+5.1 






ALL. 


F2201330 


04054 





40200 03766 


SUB 


L«2)A 






DRUM 


F2201340 


04055 





62100 04114 


STA 


END90 






TABLE 


F2201350 


04056 





50000 1 05106 


CLA 


LADDIN+5.1 






WORD 


F2201360 


04057 


-0 


32000 03773 


ANA 


ADDMSK 






COUNTS 


F2201370 


04060 





40200 1 05101 


SUB 


LADDS+5.1 


IN 






F2201380 


04061 





76000 00003 


SSP 




FIRST 






F2201390 


04062 





60100 04115 


STO 


END95 


TWO 






F2201400 


04063 





46000 04114 


LDA 


END90 


WORDS 






F2201410 


04064 





70000 04115 


CPY 


END95 


PRECEDING 




F2201420 


04065 





70000 04115 


CPY 


END95 


EACH TABLE 


• (TSXCOM, TRASTO, NAMK.EY. 


F2201430 


04066 


2 


00001 1 04051 


TIX 


END10.1.1 


CHATAG 


» DRMTAG) 


F2201440 


04067 





76000 00140 


PSE 


96 






RESTORE SENSE LIGHTS 


F2201450 


04070 


-0 


53400 1 04112 


LXD 


END6Q.1 






SL 100 ON, FORVAL EMPTY 


F220146O 


04071 


3 


00000 1 04073 


TXH 


END20.1.0 






SL 99 ON, DOTAG EMPTY. 


F2201470 


04072 





76000 00144 


PSE 


100 








F2201480 


04073 


-0 


53400 1 04113 END20 


LXD 


END85.1 








F2201490 


04074 


3 


00000 1 04076 


TXH 


END30»1»0 








F2201500 


04075 





76000 00143 


PSE 


99 








F2201510 


04076 





77000 00222 END30 


WEF 


TAPE2 


WRITE EOF AFTER DONEST RECORDS. 


F2201520 


04077 





76600 00222 


WRS 


TAPE2 








F2201530 


04100 





70000 03670 


CPY 


DOREC 


MAKE AN EXTRA FILE WITH 


F2201540 


04101 





70000 03670 


CPY 


DOREC 


DONEST 


RECORD COUNT. 


F2201550 


04102 





77000 00222 


WEF 


TAPE2 








F2201560 


04103 





50000 05075 


CLA 


LADDS+1 


TRASTO 


CARRYOVER TO BLOCK 3. 


F2201570 



f*' 



KJ 



n 



r^ 





04104 
04105 


60100 
50000 


07775 
05074 




STO 4093 
CLA LADDS 


TSX COM CARRYOVER TO BLOCK 3. 


F2201580 
F2201590 
F2201600 
F2201610 
F2201620 
F2201635 
F2201640 




04106 
04107 


60100 
50000 


07776 
05076 




STO 4094 
CLA LAODS+2 


NAMKEY (OR 


NAME! CARRYOVER TO BLOCK 3. 


A 
A 
A 


04110 
04111 
04112 


60100 
02000 
00000 


07777 
06647 
00000 


END80 


STO 4095 
TRA NORMRT 
HTR 


ES. (DEC HAS 1 IF FORVAL NOT EMPTY) 


04113 
04114 


00000 
00000 


00000 
00000 


END85 
END90 


HTR 
HTR 


FOR IDEC HAS 1 IF DOTAG NOT EMPTY) 
END 


F2201650 
F2201670 

#» ** *% A * * rt f\ 


A 


04115 


00000 


00000 


END95 


HTR 




PROGRAM. 


F2201680 

^ *\ *\ ^\ ^ j* t\ A 




04116 


-0 53400 


1 03751 


NEST 


LXD 1.(0} tl 




READ 


F2201690 

w~ ** 0\ ^v ^ ^4\^i 




04117 


76200 


00223 


NEST10 


RDS DOTAPE 




ONE 


F22O17O0 




04120 


-0 53400 


2 03763 




LXD LI450) »2 




NEST OF DO FORMULAS 


F2201710 




04121 


70000 


2 00733 


NEST20 


CPY D0TAGZ»2 




FROM 


F2201720 




04122 


1 77777 


2 04156 




TXI NEST60»2»-1 




DOTAPE. 


F2201730 




04123 


02000 


04043 




TRA END 




IF EOF* GO TO ROUTINE END. 


F2201740 




04124 
04125 
04126 


50000 

6 60100 

-0 63400 


03751 
03672 
2 03674 


NEST30 


CLA LCOL 
STO ATSW 
SXD XC»2 




INII1ALI2TNG INSTRUCTIONS. 
PUT CURB) IN XC 


F22O1750 
F2201760 
F 22 01 780 
F2201790 
F22O1800 




04127 


-0 63400 


2 00030 




SXD DOT AG- 1*2 


INITIALIZE 






04130 


-0 63400 


2 04260 




SXD NEST95»2 


DECS 






04131 


-0 63400 


2 05451 




SXD TRAW20*2 


THAT 




F2201810 
F2201820 

^ ** *% rt * ft *% ^ 




04132 


-0 63400 


2 05464 




SXD TRAW50»2 


TEST 






04133 


-0 63400 


2 05316 




SXD SPC040*2 


END OF 




F2201830 

^ r *\ *■* rt •% f\ * t\ 




04134 
04135 


-0 63400 
53400 


2 05353 
4 04006 




SXD SPC090»2 
LXA ADTXX»4 


DONEST. 
INIT 




F2201840 
F2201850 




04136 


-0 63400 


4 04006 




SXD ADTXX*4 


DECS 




F2201860 
F2201870 
F2201880 
F2201690 
F2201900 
F2201910 
F2201920 
F2201930 
F2201940 

^ **■ *H A * #S t F\ 




04137 


53400 


4 04007 




LXA RESXX.4 


FROM 






04140 


-0 63400 


4 04007 




SXD RESXX*4 


ADDRESSES* 






04141 


53400 


4 04010 




LXA TAGXX.4 








04142 
04143 


-0 63400 
53400 


4 04010 
4 04011 




SXD TAGXX*4 
LXA NAMXX*4 






. 


04144 
04145 
04146 


-0 63400 

766 OO 

->0 76000 


4 04011 
00333 
00012 




SXD NAMXX»4 
MRS 219 
RTT 




MAKE 
RTT 




04147 


02000 


04151 




TRA NEST35 




TEST 


F2201950 




04150 
04151 


02000 

1 00001 


04262 

1 04152 


NEST35 


TRA DOFOR 

TXI NEST40*1»1 




IF NO ERROR* GO TO DOFOR. 
IF ERROR. 


F2201960 
F2201970 




04152 


3 00004 


1 04155 


NEST40 


TXH NEST50»1»4 


TRY 4 TIMES 


MORE FOR 


F2201985 




04153 


76400 


00223 




BST DOTAPE 




CORRECT READ. 


F2201990 




04154 
04155 


02000 


04117 




TRA NEST 10 


AFTER FIFTH 


INCORRECT READ. 


F2202002 




0- 07400 


4 00004 


NEST50 


TSX DIAG»4 




ERROR. GO TO DIAGNOSTIC. 


F2202015 




04156 
04157 
04160 
04161 
04162 
04163 
04164 
04165 
04166 


3 00000 


2 04121 


NEST60 


TXH NEST20»2»0 




INDEX COPY. IF DOTAG 


F2202020 




70000 


04163 




CPY NEST70 




STORAGE FULL* AND MORE 


F2202030 




07400 


4 OQOOA 




TSX DIAG.4 NEST 


ENTRIE5 REMAIN, ERROR. GO TO DIAGNOSTIC. 


F2202045 




07400 


4 00004 




TSX DIAG.4 INCORRECT EOF, 


ERROR. GO TO DIAGNOSTIC. 


F2202055 


A 


02000 

00000 

-0 53400 


04124 
00000 
2 03755 


NEST70 

NESTEN 


TRA NEST30 

HTR 

LXD L(4) »2 




NO ENTRIES LEFT* GO TO NEST30. 

E.S. 

PUT END OF NEST INDICATION 


F2202060 
F2202070 
F2202080 




50000 


03771 




CLA 350NES 




IN TAGTAG* CONSISTING OF 


F2202090 




60100 


2 05067 


NEST80 


STO El+4.2 




FOUR WORDS OF 35 ONES. 


F2202100 
F2202120 
F2202130 




04167 
04170 
04171 


2 00001 
07400 


2 04166 
4 05510 




TIX NEST80«2.1 
TSX TAGENT.4 




ENTER IN TAGTAG AND 




07400 


2 05522 




TSX TETAPE.2 




WRITE BUFFER ON TAPE. 


F2202140 



JWJ 



C 1/ 



04172 





50OO0 





03752 




CLA 


L(l) 


04173 





60100 





03672 




STO 


ATSW 


04174 





07400 


4 


05206 




TSX 


DRM£NT»4 


©4175 


-0 


53400 


1 


04011 




LXD 


NAMXX»1 


04176 


-0 


63400 


1 


04212 




SXD 


NEST84»1 


04176 


-0 


63400 


1 


04212 




SXD 


NEST84*1 


04177 





53400 


1 


04011 




LXA 


NAMXX.l 


04200 


-3 


00000 





04212 


NEST81 


TXL 


N£ST84»0 


04201 





50000 


1 


07301 


NEST82 


CLA 


NAMZ,1 


04202 





60100 





05063 




STO 


El 


04203 





500O0 


1 


07302 




CLA 


NAMZ+U1 


04204 





60100 





05064 




STO 


E2 


04205 





50000 





05071 




CLA 


NAMKEY 


04206 


-0 


63400 


1 


04200 




SXD 


NEST81»1 


04207 





07400 


4 


05025 




TSX 


L1ST*4 


04210 


-0 


53400 


1 


04200 




LXD 


NEST81#1 


04211 


1 


77776 


1 


04212 




TXI 


NEST84»l#-2 


04212 


3 


00000 


1 


04201 


NEST84 


TXH 


NEST82»1 


04213 


-0 


53400 


1 


04006 




LXD 


ADTXXtl 


04214 


-0 


63400 


1 


04234 




SXD 


NEST88fl 


04215 





53400 


1 


04006 




LXA 


ADTXXtl 


04216 


-3 


00000 





04234 


NEST85 


TXL 


NEST88.0 


©4217 





SOOOO 


1 


07136 


NEST86 


CLA 


ADTAGZ+1,1 


64220 


-0 


12000 





04233 




TMI 


NEST87 


04221 





60100 





05064 




STO 


E2 


04222 





50000 


1 


07135 




CLA 


ADTAGZtl 


04223 





60100 





05063 




STO 


El 


04224 


-0 


73400 


2 


00000 




PDX 


0*2 


04225 





50000 


2 


00733 




CLA 


D0TAGZ»2 


04226 





62200 





05063 




STD 


El 


04227 


-0 


63400 


1 


04216 




SXD 


NEST85»1 


04230 





50000 





05071 




CLA 


NAMKEY 


04231 





07400 


4 


05025 




TSX 


LIST»4 


04232 


-0 


53400 


1 


04216 




LXD 


NEST85»1 


04233 


1 


77776 


1 


04234 


NEST87 


TXI 


NEST88.1.-2 


04234 


3 


00000 


1 


04217 


NEST88 


TXH 


NEST86»1 


04235 


-0 


53400 


1 


00030 


NST100 


LXD 


00TAG-1»1 


04236 





02000 





04247 




TRA 


NST120 


04237 





50000 


1 


00743 


NST110 


CLA 


D0TAGZ+8»1 


04240 


-0 


32000 





04005 




ANA 


BBIT 


04241 





10000 





04247 




TZE 


NST120 


04242 





50000 


1 


00732 




CLA 


DOTAGZ-lfl 


04243 


-0 


32000 





04003 




ANA 


ABIT 


04244 


-0 


10000 





04247 




TNZ 


NST120 


04245 





50000 





03773 




CLA 


ADDMSK 


04246 





32000 


1 


00743 




ANS 


D0TAGZ+8»1 


0424? 


1 


00011 


1 


04250 


NST120 


Txi 


NST130.1»9 


04250 


-3 


00671 


1 


04237 


NST130 


TXL 


NST110.1»441 


04251 





50000 





03670 




CLA 


DOREC 


04252 





40000 





03752 




ADD 


LID 


04253 





60100 





03670 




STO 


DOREC 


04254 





76600 





00222 




WRS 


TAPE2 


04255 


-0 


53400 


1 


03763 




LXD 


L(450)*l 


04256 





70000 


1 


00733 


NEST90 


CPY 


DOTAGZtl 



SET ADDED TAG SWITCH 
AND GO TO DRMENT TO 
PROCESS ADDED TAGS 
TRANSFER 

TO DRUM TABLE NAME 
TO DRUM TABLE NAME 
ALL ENTRIES 
IN CORE TABLE NAME 



TRANSFER 

TO DRUM TABLE NAME 
ALL ENTRIESP 
IN CORE TABLE ADTAG 
EXCEPT 
RESET 
ENTRIES 



DOES BIT 20 WD 9 OF THIS DOTAG 

EQ 1« 

AND 

DOES BIT 18 WD 9 OF PRIOR DOTAG 

EQ 1. 

YES. ERASE DEC WD 9 
OF PRIOR DOTAG. 



WRITE 

DOTAG 

ON 

TAPE TWO. 

COUNT NR. 

OF NESTS 



F2202150 

F2202160 

F2202170 

F2202180 

F2202190 

F2202190 

F2202200 

F2202210 

F2202220 

F2202230 

F2202240 

F2202250 

F2202260 

F2202270 

F2202280 

F2202290 

F2202300 

F2202310 

F2202320 

F2202330 

F2202340 

F2 202 3 50 

F2202360 

F2202370 

F2202380 

F2202390 

F2202400 

F2202410 

F2202420 

F2202430 

F2202440 

F2202450 

F2202460 

F2202470 

F2202480 

F2202490 

F2202500 

F2202510 

F2202520 

F2202530 

F2202540 

F2202550 

F22O2560 

F2202570 

F2202580 

F2202590 

F2202610 

F2202620 

F2202.630 

F2202640 

F2202660 

F 2202 670 

F2202680 

F2202690 



ti/t/ 



u 



O 



o 



n 



04257 


1 


77777 


1 


04260 




TXI 


NE$T95.1»-1 


04260 


3 


00000 


1 


04256 


NEST95 


TXH 


NEST90»1 


04261 





02000 





04116 




TRA 


HE ST 


04262 


-0 


53400 


1 


03674 


0OFOR 


LXD 


XC l 


04263 


1 


00011 


1 


04264 




TXI 


DOF10»1»9 


04264 


3 


00702 


1 


04164 


DOF10 


TXH 


NESTEN.1.450 


04265 





07400 


4 


04363 




TSX 


0OINF0»4 


04266 





02000 





04377 




TRA 


TAGOO 


04267 


-0 


53400 


1 


03674 


DOFEND 


LXD 


XC»1 


04270 





50000 


1 


00743 




CLA 


D0TAGZ+8»1 


04271 


-0 


320O0 





04004 




ANA 


BIT19 


04272 





10000 





04326 




TZE 


MAKESC 


04273 


-0 


50000 


1 


00740 




CAL 


D0TAGZ+5»1 


04274 


-0 


32000 





04002 




ANA 


2B1TS 


04275 


-0 


10000 





04301 




TNZ 


D0F15 


04276 





50000 





04005 




CLA 


BIT20 


04277 


-o 


32000 


1 


00741 




ANA 


D0TAGZ+6»1 


04300 





10000 





04305 




TZE 


DOF20 


04301 





50000 


1 


00741 


D0F15 


CLA 


D0TAGZ+6»1 


04302 


-0 


3200O 





04001 




ANA 


BI TTWO 


04303 


-0 


10000 





04322 




TNZ 


D0F40 


04304 





02000 





04326 




TRA 


MAKESC 


04305 





50000 


1 


00740 


DOF20 


CLA 


D0TAGZ+5.1 


04306 


-0 


32000 





04003 




ANA 


SUBBIT 


04307 





10000 





04314 




TZE 


D0F30 


04310 





50000 


1 


00743 




CLA 


D0TAGZ+8*1 


04311 


-0 


73400 


2 


00000 




PDX 


0*2 


04312 


3 


00000 


2 


04322 




TXH 


DOF40*2»0 


04313 





02000 





04326 




TRA 


MAKESC 


04314 





50000 


1 


00743 


DOF30 


CLA 


DOTAGZ+8.1 


04315 





77100 





00014 




ARS 


12 


04316 


-0 


73400 


2 


00000 




PDX 


0*2 


04317 


-3 


00013 


2 


04322 




TXL 


DOF40*2»11 


04320 





50000 





04005 




CLA 


BB1T 


04321 


-0 


60200 


1 


00743 




ORS 


D0TAGZ+8*1 


04322 





50000 





04325 


D0F40 


CLA 


D0F50 


04323 





32000 


1 


00743 




ANS 


D0TAGZ+8»1 


04324 





02000 





04262 




TRA 


DOFOR 


04325 


+007777777777 


DOF50 


OCT 


7777777777 


04326 





50000 





03755 


MAKESC 


CLA 


L<4) 


04327 





60100 





03731 




STO 


DOSUBS 


04330 





50000 





03751 




CLA 


L(0) 


04331 





60100 





03730 




STO 


RCSUBS 


0*332 





60100 





03727 




STO 


DORC 


04333 





60100 





03704 




STO 


CI 


04334 





60100 





03737 




STO 


CARWRD 


04335 





50000 





03673 




CLA 


NEWTAG 


04336 





60100 





03701 




STO 


TS 


04337 





40000 





03765 




ADD 


L(1)A 


04340 





60100 





03673 




STO 


NEWTAG 


04341 





07400 


4 


06075 




TSX 


1NS00.4 


04342 





50000 





03757 




CLA 


L(6) 


04343 


-0 


50100 





03767 




ORA 


L(4)A 


04344 


-0 


50100 





03737 




ORA 


CARWRD 



IN DOREC. 

(DEC HAS DOT AG IX) 

RETURN FOR NEXT NEST. 

OBTAIN 

NEXT BACK D0» 

IF ANY. 

USE DOINFO 

AND GO TO TAGOO ROUTINE* 

IS A COUNTER 



NECESSARY BECAUSE OF 

TRANSFERS OR COMPUTATION WITH 

SYMBOL. 

TEST FOR 

DELTA TWO 

INSERT 

HAS A COUNTER BEEN 

FOUND. 

IF NOT. 

MAKE ONE. (RETURN IS TO D0F40J 

IF NO COUNTER NECESSARY. 

HAS SYM OCCURRED WITH 

RECON NOT AS TYPE ONE 

CARRY. IF SO. HAS A 

TEST BEEN FOUND. 

IF NOT. 

MAKE A COUNTER (RETURN IS TO D0F40 

IF SYM HAS NOT OCCURRED WITH 

RELCON OR IN SUCH OCCURRENCES 

WAS ALWAYS A TYPE ONE 

CARRY* IS CURRECT TEST 



MADE. TAKE SIGN AND 
TEST TABLE INTEGER OUT 
OF TEST WORD AND EXIT. 

INITIALIZE 

DOSUBS AND OTHER LOCATIONS 

USED IN 1NS00. 



GET A NAME 

FOR THIS 

SUBSCRIPT AND 

UP DATE NEWTAG. 

USE INSOO FOR TEST INF0»LIST. 

SET UP TAG TAG 

ENTRY 



F2202700 
F2202710 
F2202720 
F2202730 
F2202740 
F2202750 
F2202760 
F2202770 
F2202780 
F2202790 
F22028O0 
F2202810 
F2202820 
F2202830 
F2202840 
F2202850 
F2202860 
F2202870 
F2202880 
F2202890 
F2202900 
F2202910 
F2202920 
F2202930 
F2202940 
F2202950 
F2202960 
F2202970 
)F2202980 
F2202990 
F2203000 
F2203010 
F2203020 
F2203030 
F22O3040 
F2203050 
F2203060 
F2203070 
F2203080 
F2203090 
F2203100 
F2203110 
F2203120 
F 2203 130 
F2203140 
F2203150 
F2203160 
F2203170 
F2203180 
F2203190 
F2203200 
F2203210 
F2203220 
F2203230 



.y. 



/ 



C 1/ 



04345 





60200 





05066 




SLW 


E4 


04346 





50000 





03701 




CLA 


TS 


04347 





60100 





05065 




STO 


E3 


04350 





50000 





03751 




CLA 


L(0) 


043 5 X 





60100 





05064 




STO 


E2 


04352 





50000 





03674 




CLA 


XC 


04353 





77100 





00022 




ARS 


18 


04354 


-0 


50100 





03676 




ORA 


ALPHA 


04355 





60100 





05063 




STO 


El 


04356 





07400 


4 


05510 




TSX 


TAGENT»4 


04357 


-0 


53400 


1 


03674 




LXO 


XC»1 


04360 





50000 





04003 




CLA 


ABIT 


04361 


-0 


60200 


1 


00743 




ORS 


D0TAGZ+8»1 


04362 





02000 





04322 




TRA 


DOF40 


04363 





50000 


1 


00733 


DO INFO 


CLA 


DOTAGZtl 


04364 





73400 


2 


OOOOO 




PAX 


0*2 


04365 


-0 


32000 





03772 




ANA 


DECMSK 


04366 





60100 





03676 




STO 


ALPHA 


04367 


-0 


75400 


2 


OOOOO 




PXO 


0*2 


04370 





60100 





03677 




STO 


BETA 


04371 


-0 


75400 


1 


OOOOO 




PXD 


0*1 


04372 





60100 





03674 




STO 


XC 


04373 





SOO0O 


1 


00740 




CLA 


DOTAGZ+5.1 


04374 


-0 


32000 





03772 




ANA 


DECMSK 


04375 





60100 





03675 




STO 


LC 


04376 





02000 


4 


00001 




TRA 


1*4 


04377 


-0 


53400 


1 


03764 


TAGOO 


LXD 


L(1500»l 


04400 





02000 





04407 




TRA 


TAG20 


04401 





50000 


1 


03670 


TAG05 


CLA 


F0RTZ»1 


04402 


-0 


32000 





03772 




ANA 


DECMSK 


04403 





34000 





03676 




CAS 


ALPHA 


04404 





02000 





04413 




TRA 


TAG30 


04405 





07400 


4 


00004 




TSX 


DIAG»4 DOi 


04406 


1 


77777 


1 


04407 


TAG10 


TXI 


TAG20»1»-1 


04407 


3 


00000 


1 


04401 


TAG20 


TXH 


TAG05*1 


04410 





02000 





04267 




TRA 


DOFEND 


04411 


-0 


53400 


1 


04414 


TAG25 


LXD 


TAC40»1 


04412 





02000 





04406 




TRA 


TAG10 


04413 





34O00 





03677 


TAG30 


CAS 


BETA 


04414 


-3 


OOOOO 





04267 


TAG40 


TXL 


DOFEND #0 


04415 





76100 





OOOOO 




NOP 




04416 





50000 


1 


03670 




CLA 


FORTZtl 


04417 


-0 


12000 





04406 




TMI 


TAG10 


04420 


-0 


32000 





03773 




ANA 


ADDMSK 


04421 





60100 





03700 




STO 


TAG 


04422 


-0 


63400 


1 


04414 




SXD 


TAG40»1 


04423 





07400 


4 


04520 




TSX 


SUBC0M»4 


04424 





76100 





OOOOO 




NOP 




04425 





07400 


4 


05566 




TSX 


IDENT»4 


04426 





02000 





04411 




TRA 


TAG25 


04427 





07400 


4 


06030 




TSX 


NAME. 4 


04430 





07400 


4 


05106 




TSX 


BRANCH. 4 


04431 





07400 


4 


04614 




TSX 


SCEND.4 


04432 





07400 


4 


05510 




TSX 


TAGENT.4 



ENTER INTO TAGTAG. 



RETURN 

FOR THE DO FORMULA WHOSE 

INDEX IS IN XRA» 

ESTABLISH 

ALPHA »BETA.XC»XL 



THIS ROUTINE 

SELECTS EVERY TAG 

IN THE RANGE OF THE 

CURRENT DO WHICH 

CONTAINS THE SUBSCRIPT 

SYMBOL OF THE CURRENT 
AND WHICH HAS NOT (ERROR* GO TO DIAGNOSTIC. 

PREVIOUSLY BEEN 
PROCESSED* AND (DEC HAS FORTAG IX) 

COMPLETELY PROCESSES 

THE TAG. THE RETURN 

IS TO DOFEND 

COMPARE WITH BETA. 
RANGE FINISHED. (DEC HAS CURR FORTAG IX) 

IF ENTRY IS NEGATIVE. 

THEN IT HAS ALREADY 

BEEN PROCESSED. 

STORE 

IN TAG* 

AND SAVE INDEX. 

OBTAIN 5UB. COM. 

USE IDENT. 

SC. NOT WANTED. 

SC. TO BE PROCESSED. USE NAME. 



F2203240 
F2203250 
F2203270 
F2203280 
F2203290 
F2203300 
F2203310 
F2203320 
F2203340 
F2203350 
F2203360 
F2203370 
F2203380 
F2203390 
F2203400 
F2203410 
F2203420 
F2203430 
F2203440 
F2203450 
F2203460 
F2203470 
F 22 03480 
F2203490 
F2203500 
F 22035 10 
F2203520 
F2203530 
F2203540 
F2203550 
F2203560 
F2203570 
)F2203585 
F2203590 
F2203600 
F2203610 
F2203620 
F2203630 
F2203640 
F2203650 
F2203660 
F2203670 
F2203680 
F2203690 
F2203710 
F2203720 
F2203730 
F2203745 
F2203750 
F2203760 
F2203770 
F2203780 
F2203800 
F2203810 



?Vh 



U 



n 



04433 


-0 


53400 


2 


03756 


TAG50 


LXD 


L(5)»2 


04434 





50000 


2 


03721 


TAG52 


CLA 


Xl+5.2 


0*435 





10000 





04447 




T2E 


TAG58 


04436 


-0 


73400 


1 


00000 




PDX 


0*1 


04437 


3 


00004 


2 


04445 




TXH 


TAG56»2*4 


04440 





50000 





03774 




CLA 


CR1 


04441 


3 


00002 


2 


04443 




TXH 


TAG54»2.2 


04442 





77100 





00002 




ARS 


2 


04443 


-0 


32000 





03737 


TAG 54 


ANA 


CARWRO 


04444 


-0 


10000 





04447 




TNZ 


TAG58 


04445 





50000 





04003 


TA656 


CLA 


ABIT 


04446 


-0 


60200 


1 


00743 




ORS 


D0TAGZ+8*1 


04447 


2 


00002 


2 


04434 


TAG58 


TIX 


TAG52.2.2 


04450 


-0 


53400 


4 


03756 




LXD 


L(5)»4 


04451 





50000 


4 


03721 


TAG60 


CLA 


Xl+5»4 


04452 





10000 





04500 




TZE 


TAG68 


04453 


-0 


73400 


1 


00000 




POX 


OYl 


04454 





50000 





03730 




CLA 


RCSUBS 


04455 


-0 


50100 





03727 




ORA 


DORC 


04456 





10000 





04470 




TZE 


TAG66 


04457 


-3 


00001 


4 


04465 




TXL 


TAG64.4.1 


04460 





50000 





03774 




CLA 


CR1 


04461 


3 


00003 


4 


04463 




TXH 


TAG62.4.3 


04462 





77100 





00002 




ARS 


2 


04463 


-0 


32000 





03737 


TAG 62 


ANA 


CARWRO 


04464 


-0 


10000 





04500 




TNZ 


TAG68 


04465 





50000 





04003 


TAG 64 


CLA 


SUBBIT 


04466 


-0 


60200 


1 


00740 




ORS 


DOTAGZ+5.1 


04467 


-3 


00000 





04500 


TAG65 


TXL 


TAG68.0 


04470 





50000 





04004 


TAG66 


CLA 


BIT19 


04471 


-0 


60200 


1 


00743 




ORS 


OOTAGZ+81I 


04472 





50000 


1 


00740 




CLA 


DOTAGZ+5.1 


04473 


-0 


32000 





04002 




ANA 


2BITS 


04474 


-0 


10000 





04500 




TNZ 


TAG68 


04475 


-0 


63400 


4 


04467 




SXD 


TAG65»4 


04476 





07400 


2 


04665 




TSX 


TEST»2 


04477 


-0 


53400 


4 


04467 




LXD 


TAG65»4 


04500 


2 


00002 


4 


044 51 


TAG68 


TIX 


TAG60.4.2 


04501 


-0 


53400 


1 


04414 


TAG70 


LXD 


TAG^O.l 


04502 





50000 


1 


03670 


TAG72 


CLA 


FORTZ.l 


04503 


-0 


32000 





03772 




ANA 


DECMSK 


04504 





34000 





03677 




CAS 


BETA 


04505 


-3 


00000 





04411 


TAG75 


TXL 


TAG25.0 


04506 





76100 





00000 




NOP 




04507 





50000 


1 


03670 




CLA 


FORTZtl 


04510 


-0 


32000 





03773 




ANA 


ADDMSK 


04511 





40200 





03700 




SUB 


TAG 


04512 


-0 


10000 





04515 




TNZ 


TAG80 


04513 


-0 


50000 





03770 




CAL 


L(MZ) 


04514 


-0 


60200 


1 


03670 




ORS 


FORTZ.l 


04515 


1 


77777 


1 


04516 


TAG80 


TXI 


TAG90»lf-l 


04516 


3 


00000 


1 


04502 


TAG90 


TXH 


TAG72»1 


04517 





02000 





04411 




TRA 


TAG25 

THIS ROUTINE* 



ENTER BIT 18 WO 9 
OF MATCHING OOTAG 
IF 1ST SUBSCR OR 
IF THERE IS NO 
TYPE 1 CARRY INTO 
THE 2ND ANO 3RD 
SUBSCRS RESPECT I VEi 



ENTER BIT 18 WD 9. 



TAG 60 SEQUENCE CONCERNS 
TESTS ANO ADDED TAGS* 
FOR EACH INDEXED SUBSCRIPT* 
DETERMINE F IRST WHETHER 



OR NOT IT 

OCCURS WITH 

A RELCON* 

IF SO. PUT IN 

SUBBIT MEANING A TEST 

IS NEEDED UNLESS 

THE 1ST AND 2ND 

SUBSCR PROMOTE A 

TYPE ONE CARRY (LEFT 

OR CENTER RESPECTIVELY) 

IS 

NEEDED* 



IF THE SUBSCRIPT DOES NOT 3CCUR 

WITH A RELCON. DETERMINE WHETHER OR 

NOT A COUNTER HAS ALREAD Y BEEN REQUESTED* 

IF SO. TAKE NEXT INDEXED SUBSCR. 

IF NOT. USE ROUTINE TEST. 

THEN TAKE NEXT INDEXED SUBSCRIPT. 



SET ALL OCCURRANCES 
OF THIS TAG. IN FOR TAG. 
IN THE RANGE OF THIS 
DO* NEGATIVE* 



(DEC HAS FORTAG IX) 

RETURN FOR NEXT TAG. 
GIVEN A TAU TAG. OBTAINS THE 



F2203820 
F2203830 
F2203840 
F220385O 
F2203860 
F2203870 
F2203890 
F2203900 
F2203910 
F2203920 
F2203930 
F2203940 
F2203950 
F2203960 
F2203970 
F22039B0 
F2203990 
F2204000 
F2204020 
F2204030 
F2204040 
F2204050 
F2204060 
F2204070 
F2204080 
F2204090 
F2204100 
F2204110 
F2204120 
F2204130 
F2204140 
F2204160 
F2204170 
F2204180 
F2204190 
F2204200 
F2204210 
F2204220 
F2204230 
F2204240 
F2204250 
F2204260 
F2204270 
F2204280 
F2204290 
F2204300 
F2204310 
F2204320 
F2204330 
F22Q4340 
F2204350 
F2204360 
F2204370 
F2204380 



4L_ 



04520 


-0 


63400 


4 


04601 


SUBCOM 


SXD 


SUB085»4 




04521 


-0 


53400 


1 


04607 




LXD 


SUB0R6»1 




04522 





76200 





00304 


SUB010 


RDS 


TAUDRM 




04523 


-0 


53400 


4 


04611 




LXD 


SUB0RG+2 


»4 


04524 


-0 


75400 





00000 




PXD 


0*0 




04525 





60100 


4 


03714 


SUB020 


STO 


Cl+8.4 




04526 


2 


00001 


4 


04525 




TIX 


SUB020*4 


.1 


04527 





50000 





03700 




CLA 


TAG 




04530 





76500 





00011 




LRS 


9 




04531 





73400 


6 


00000 




PAX 


0.6 




04532 


-0 


75400 





00000 




PXD 


0*0 




04533 





76300 





00011 




LLS 


9 




04534 





60100 





04612 




STO 


SUBES1 




04535 





76700 





00001 




ALS 


1 




04536 





60100 





04613 




STO 


SUBES2 




04537 





50000 


4 


04612 




CLA 


SUB0RG+3 


>4 


04540 





40000 





04612 




ADD 


SUBES1 




04541 





40000 





04613 


SUB030 


ADD 


SUBES2 




04542 


2 


00001 


4 


04541 




TIX 


SUB030»4 


»1 


04543 





62100 





04612 




STA 


SUBES1 




04544 





46000 





04612 




LOA 


SUBES1 




04545 





TOOOO 





O3704 




CPY 


CI 




04546 


-3 


00002 


2 


04550 




TXL 


SUB040*2 


► 2 


04547 





70000 





03710 




CPY 


C3 




04550 





70000 





03705 


SUB040 


CPY 


SI 




04551 


-3 


00001 


2 


045 56 




TXL 


SUB060*2 


.1 


04552 





70000 





03707 




CPY 


S2 




04553 


-3 


00002 


2 


04555 




TXL 


SUB050»2 


>2 


04554 





70000 





03711 




CPY 


S3 




04555 





70000 





03712 


SUB050 


CPY 


01 




04556 





70000 





04612 


SUB060 


CPY 


SUBES1 




04557 


-0 


53400 


4 


04607 




LXD 


SUB0RG*4 




04560 


-0 


50000 





03704 




CAL 


CI 




04561 





36100 


4 


03713 


SUB070 


ACL 


Cl+7.4 




04562 


2 


00001 


4 


04561 




TIX 


SUB070*4 


>1 


04563 





60200 





04613 




SLW 


SUBES2 




04564 





50000 





04613 




CLA 


SUBES2 




04565 





40200 





04612 




SUB 


SUBES1 




04566 





10000 





04571 




TZE 


SUB075 




04567 


2 


00001 


1 


04522 




TIX 


SUBOlOtl) 


>1 


04570 





07400 


4 


00004 


PAT03 


TSX 


DIAG.4 1 


N 


04571 


-0 


53400 


4 


04610 


SUB075 


LXD 


SUBORG+li 


4 


04572 





50000 


4 


03713 


SUB080 


CLA 


Cl+7.4 




04573 





73400 


2 


00000 




PAX 


0*2 




04574 


-0 


32000 





03772 




ANA 


DECMSK 




04575 





60100 


4 


03713 




STO 


Cl+7»4 




04576 


-0 


75400 


2 


00000 




PXD 


0*2 




04577 


-2 


00006 


4 


04602 




TNX 


SUB090»4i 


6 


04600 





60100 





03706 




STO 


C2 




04601 


-3 


00000 





04572 


SUB085 


TXL 


SUB080*0 




04602 





60100 





03713 


SUB090 


STO 


D2 




04603 


-0 


53400 


4 


04601 




LXD 


SUB085.4 





CORRESPONDING SUBSCRIPT COMBINATION FROM THE TAU 
DRUM AND POSITIONS IT IN PROPER FORMAT IN STORAGE* 

SAVE LINKA6E INDEX. 

INITIALIZE ERROR COUNTER. 

SELECT TAU DRUM. 

INITIALIZE 

SUBSCRIPT COMBINATION 

SPACE 

TO ZERO* 

COMPUTE 

DRUM 

ADDRESS* 

TAU ONE ADD. IS 0RG+3TAU* 

TAU TWO ADD. IS 0RG+5TAU. 

TAU THREE ADD. IS 0RG+7TAU. 

STORE 

ADDRESS 

IN SUBES1 

FOR LDA 

INSTRUCTION. 



COPY SUB. COMB. 
TAU ONE* TWO, THREE 

TAU 3 
TAU 1.2*3 

TAU 2*3 

TAU 3 
TAU 2*3 
TAU 1*2*3 
COMPUTE CHECK SUM 
AND COMPARE WITH 
ENTRY CHECK SUM. 
THREE ATTEMPTS ARE MADE 
TO READ SC CORRECTLY. 
IF ERROR STILL PRESENT* 
COMPLETE ROUTINE* MAKE ERROR RET. 
CHECK SUMS AGREE* TRA. 
CHECK SUMS DISAGREE 
IN READING TAU FROM DRUM. ERROR. GO TO DIAGNOSTIC. 
REARRANGE C1.C2»D1,D2» 
TO COMPLY WITH CORE 
STORAGE FORMAT. 



RESTORE LINKAGE INDEX* 



F2204390 

F2204400 

F2204410 

F2204420 

F2204430 

F2204440 

F2204450 

F 2204460 

F2204470 

F2204480 

F2204490 

F2204500 

F2204510 

F2204520 

F2204530 

F2204540 

F2204550 

F2204560 

F2204570 

F2204580 

F2204590 

F2204600 

F2204610 

F2204620 

F2204630 

F2204640 

F2204650 

F2204660 

F2204670 

F2204680 

F2204690 

F2204700 

F2204710 

F2204720 

F2204730 

F2204740 

F2204750 

F2204760 

F2204770 

F2204780 

F2204 79O 

F2204805 

F2204815 

F2204820 

F2204830 

F2204840 

F2204650 

F2204860 

F2204870 

F2204880 

F2204890 

F2204900 

F2204910 

F2204920 



iH'i 



U 



(J 



n 



n 



04604 


76100 





00000 




NOP 


04605 


02000 


4 


00002 




TRA 2»4 


04606 


76100 





00000 


SUB 100 


NOP 


04607 


4-000006001356 


SUBORG 


OCT 6001356 


04610 


+000007000454 




OCT 7000454 


04611 


+000010000000 




OCT 10000O00 


A 04612 


00000 





00000 


SUBES1 


HTR 


A 04613 


00000 





00000 


SUBES2 


HTR 

SCEND COLLECTS 


04614 


50000 





03703 


SCEND 


CLA GROUP 


04615 


60100 





03702 




STO TAG1 


04616 


50000 





03731 




CLA DOSUBS 


0*617 


-0 50100 





03734 




ORA DUPES 


04620 


77100 





00022 




ARS 18 


04621 


-0 60200 





03702 




ORS TAG1 


04622 


50000 





03730 




CLA RCSUBS 


04623 


-0 50100 





03727 




ORA DORC 


04624 


-7-7-100^-0- 0004? 




ARS--15-- 


04625 


-0 60200 





03702 




ORS TAG1 


04626 


50000 





03734 




CLA DUPES 


04627 


77100 





00011 




ARS 9 


04630 


-0 60200 





03702 




ORS TAG1 


04631 


-0 50000 





03737 




CAL CARWRD 


04632 


-0 60200 





03702 




ORS TAG1 


04633 


-0 53400 


1 


03756 




LXD L15)»1 


04634 


50000 





03752 


SCE010 


CLA L(l) 


04635 


34OO0 


1 


03711 




CAS Cl+5.1 


04636 


02000 





046*5 




TRA SCE020 


04637 


02000 





04645 




TRA SCE020 


04640 


-0 75400 


1 


00000 




PXD 0»1 


04641 


-3 00001 


1 


04643 




TXL SCE015.1.1 


04642 


40200 





03752 




SUB L(l) 


04643 


77100 





00006 


SCE015 


ARS 6 


04644 


-0 60200 





03702 




ORS TAG1 


04645 


2 00002 


1 


04634 


SCE020 


TIX SCE010»1»2 


04646 


50000 





03702 




CLA TAG1 


04647 


60100 





05066 




STO E4 


04650 


50000 





03700 




CLA TAG 


04651 


76700 





00022 




ALS 18 


04652 


40000 





03701 




ADD TS 


04653 


60100 





05065 




STO E3 


04654 


50000 





03720 




CLA X3 


04655 


77100 





00022 




ARS 18 


04656 


40000 





03716 




ADD X2 


04657 


60100 





05064 




STO E2 


04660 


50000 





03714 




CLA XI 


04661 


77100 





00022 




ARS 18 


04662 


40000 





03676 




ADD ALPHA 


04663 


60100 





05063 




STO El 


04664 


02000 


4 


00001 




TRA 1*4 


04665 


50000 


1 


00743 


TEST 


CLA D0TAGZ+8»1 


04666 


-0 12000 


2 


00001 




TMI 1»2 


04667 


2 00001 


4 


04670 




TIX TEST10»4.1 


04670 


-0 75400 


4 


00000 


TEST10 


PXD 0f4 



NORMAL RETURN. 



IS 6» ADD* IS ORG* TAU 3 
IS 7* ADD* IS ORG* TAU 2 
IS 8. ADD* IS ORG* TAU 1 



DEC* 
DEC 
DEC 
E.S* 
E*S* 
TAGTAG ENTRY AND MAKES TABLE ENTRY 

ALL OF SCEND IS CONCERNED 
WITH GENERATING THE 
TAGTAG ENTRY FROM ITS 

VARIOUS COMPONENTS* 



GENERATES THE THREE BIT 
TAG SHOWING WHICH 
COEFFICIENTS ARE GREATER 
THAN ONE* 



TAG1 IS NOW COMPLETE. 
CONSTRUCT THE TAGTAG 
ENTRY 



IF A SUFFICIENTLY GOOD 
TEST PREVIOUSLY FOUNDi EXIT. 
XRC CONTAINS 5.3 »1» 
DEPENDING ON POSITION NR 



F2204935 

F2204940 

F2204955 

F2204960 

F2204970 

F2204980 

F2204990 

F2205OO0 

F2205010 

F2205020 

F2205030 

F2205040 

F2205050 

F2205060 

F2205070 

F 22 05 079 

F2205080 

F220MOO 

F2205110 

F2205120 

F2205130 

F2205140 

F2205150 

F2205160 

F2205170 

F2205180 

F2205190 

F2205200 

F2205210 

F2205220 

F2205230 

F2205240 

F2205250 

F2205260 

F220527O 

F2205280 

F220529O 

F2205300 

F220531O 

F2205320 

F2205330 

F2205340 

F2205350 

F220536O 

F2205370 

F2205380 

F2205390 

F2205400 

F2205410 

F2205420 

F2205430 

F2205440 • 

F2205450 

F2205460 



iV'/ 



04671 





76700 





00003 




ALS 


3 


04672 


-0 


50100 





03703 




ORA 


GROUP 


04673 


-3 


00001 


4 


04701 




TXL 


TEST20.4.1 


04674 





60100 





04732 




STO 


TEST85 


04675 





50000 





03737 




CLA 


CARWRD 


04676 





76700 


4 


00005 




ALS 


5.4 


04677 


-0 


32000 





04733 




ANA 


TEST90 


04700 


-0 


50100 





04732 




ORA 


TEST85 


04701 


-0 


53400 


4 


04704 


TEST20 


LXD 


TEST35»4 


04702 





34000 


4 


04754 


TEST30 


CAS 


TESTAB+15»4 


04703 


1 


77777 


4 


04706 




TXI 


TEST40»4>-1 


04704 


-3 


00017 





04707 


TEST35 


TXL 


TEST50.0.15 


04705 


1 


77777 


4 


04706 




TXI 


TEST40.4.-1 


04706 


3 


00000 


4 


04702 


TEST40 


TXH 


TEST30.4.0 


04707 


-0 


63400 


4 


04715 


TEST50 


SXD 


TEST60»4 


04710 





50000 


1 


00743 




CLA 


DOTAGZ+8.1 


04711 


-0 


73400 


4 


00000 




PDX 


0.4 


04712 


-3 


00000 


4 


04720 




TXL 


TEST75.4.0 


04713 





77100 





00014 




ARS 


12 


04714 


-0 


73400 


4 


00000 




PDX 


0»4 


04715 


-3 


00000 


4 


04731 


TEST60 


TXL 


TEST80.4 


04716 





50000 





04734 


TEST70 


CLA 


TEST95 


04717 





32000 


1 


00743 




ANS 


DOTAGZ+8.1 


04720 


-0 


53400 


4 


04715 


TEST75 


LXD 


TEST 60 .4 


04721 


-0 


75400 


4 


00000 




PXD 


0»4 


04722 





77100 





00006 




ARS 


6 


04723 


-0 


50100 





03701 




ORA 


TS 


04724 





76700 





0OO22 




ALS 


18 


04725 


-0 


60200 


1 


00743 




ORS 


D0TAGZ+8tl 


04726 


3 


00000 


4 


04731 




TXH 


TEST80.4.0 


04727 


-0 


50000 





03770 




CAL 


L(MZ) 


04730 


-0 


60200 


1 


00743 




ORS 


D0TAGZ+8»1 


04731 





02000 


2 


00001 


TEST80 


TRA 


1*2 


04732 





00000 





00000 


TEST85 


HTR 




04733 


+000300000000 


TEST90 


OCT 


300000000 


04734 


+000000777777 


TEST95 


OCT 


777777 


04735 


+000241000000 


TESTAB 


OCT 


241000000 


04736 


+000221000000 




OCT 


221000000 


04737 


+000244000000 




OCT 


244000000 


04740 


+000222000000 




OCT 


222000000 


04741 


+000141000000 




OCT 


141000000 


04742 


+000121000000 




OCT 


121000000 


04743 


+000144000000 




OCT 


144000000 


Q4744 


+000122000000 




OCT 


122000000 


04745 


+000045000000 




OCT 


45000000 


04746 


+000041000000 




OCT 


41000000 


04747 


+000021000000 




OCT 


21000000 


04750 


+000044000000 




OCT 


44000000 


04751 


+000022000000 




OCT 


22000000 


04752 


+000043000000 




OCT 


43000000 


04753 


+000023000000 




OCT 


23000000 


04754 


-0 


63400 


4 


04770 


CARRY 


SXD 


CARQ5.4 


04755 





50000 


2 


03720 




CLA 


Xl+4t2 


04756 


-0 


73400 


1 


00000 




PDX 


0*1 



1*2.3. CONSTRUCT A 
TABLE SEARCH MASK IN 
WHICH THE FORTH OCTAL 
DIGIT IS THE CARRY BIT 
INFO. FOR THE POSITION 
BEING CONSIDERED. THE 
FIFTH OCTAL DIGIT IS THE 
POSITION BIT. AND THE 
SIXTH OCTAL DIGIT 
IS THE GROUP NUMBER. 
SEARCH TESTAB FOR 
ENTRY AND CONSIDER 
C(XRC) AFTER SEARCH. IF 
ENTRY NOT FOUND.C(XRC)=0. 
COMPARE THIS INTEGER 
WITH PREVIOUS INTEGER. 
IF ANY. IF NEW NR. IS LESS 
THAN OLD. USE NEW TAG 
FOR TEST. OTHERWISE 
USE OLD TAG. 
(DEC HAS TEST TAB NR. FOR THIS S.C.) 
IF THE NEW TAG IS 
USED. AND CtXRC) 
AFTER SEARCH WAS ZERO. 
SET D0TAGZ+8 WORD 
NEGATIVE. 



STORAGE FOR COMPOSED TST WORD. 
BITS 10. 11 

FIRST SIGNIF DIGIT CONTAINS 
A TWO IF TYPE ONE CARRY t 
ONE IF TYPE TWO FROM LEFT OR 
CENTER. J4TH OCT DIG). NEXT 
HAS 4 IF POSIT OF SUBSC IS 
LEFT. 2 IF CENTER. IF RIGHT 
(5TH OCT DIGIT). FINAL DIG HAS 
GROUP NR. (6TH OCT DIG). 



SAVE LINKAGE 
PUT LEFT INDEX 
IN XRA 



F2205470 

F2205480 

F2205490 

F2205500 

F2205510 

F2205520 

F2205530 

F2205540 

F2205550 

F2205560 

F2205570 

F2205580 

F2205590 

F2205600 

F2205610 

F2205620 

F2205630 

F2205640 

F2205650 

F2205660 

F2205670 

F2205680 

F 2205690 

F2205700 

F2205710 

F2205720 

F2205730 

F2205740 

F2205750 

F2205760 

F2205770 

F2205780 

F2205790 

F2205800 

F2205810 

F2205820 

F2205830 

F2205840 

F2205850 

F2205860 

F2205870 

F2205880 

F2205890 

F220590G 

F2205910 

F2205920 

F2205930 

F2205940 

F2205950 

F2205960 

F2205970 

F2205980 

F2205990 

F2206000 



?■■ 



^ 



u 



n 



<n 



04757 





50000 


2 


03722 




CLA 


Xl+6.2 


PUT RIGHT INDEX 


F2206010 


04760 


-0 


73400 


4 


00000 




POX 


0*4 


IN XRC 


F2206020 


04761 





50000 


1 


00740 




CLA 


DOTAGZ+5.1 


TEST LEFS SUB. 00 


F2206030 


04762 


-0 


32000 





03776 




ANA 


CARMSK, 


CARRY BITS. 


F2206040 


04763 





10000 





05022 




TZE 


CAR 30 


EXIT IF NO CARRY. 


F2206050 


04764 





50000 


1 


00741 




CLA 


DOTAGZ+6.1 


COMPARE 


F2206060 


04765 


-0 


32000 





03772 




ANA 


DECMSK 


NO CARRY TRA LEVEL 


F2206070 


04766 





34000 





03723 




CAS 


LL 


AND LOW LEVEL. 


F2206080 


04767 





02000 





05022 




TRA 


CAR30 


EXIT 


F2206090 


04770 


-3 


00000 





05022 


CAR05 


TXL 


CAR30.0 




F2206100 


04771 





50000 


1 


00740 




CLA 


D0TAGZ+5 1 1 


COMPUTE FOR LEFT 


F2206110 


04772 


-0 


32000 





03773 




ANA 


ADDMSK 


SUBSCRIPT THE QUANTITY 


F2206120 


04773 





60100 





05024 




STO 


CAR40 


C*X (COEF. TIMES ADDED 


F2206130 


04774 





56000 





05024 




LDQ 


CAR40 


VALUE 1. 


F2206140 


04775 





20000 


2 


03710 




MPY 


Cl+4.2 


COMPUTE FOR RIGHT 


F2206150 


04776 


-0 


60000 





05024 




STQ 


CAR40 


SUBSCRIPT THE QUANTITY 


F2206160 


04777 





56000 





03712 




LDQ 


01 


C*N3*D(L) tCOEF.TIMES 


F2206170 


05000 


3 


00002 


2 


05002 




TXH 


CAR10»2»2 


INCREMENT TIMES DIM. OF 


F2206180 


OSOOl 





5600O 





0371:3 




LDQ 


D2 


LETT SUBSCRIPT. 


F2206190 


05002 





20000 


4 


00737 


CAR 10 


MPY 


D0TA6Z+4.4 


IF THESE QUANTITIES 


F2206200 


05003 





20000 


2 


03712 




MPY 


Cl+6»2 


ARE UNEQUAL* 


F2206210 


05004 





76700 





00021 




ALS 


17 


EXIT 


F2206220 


05005 





40200 





05024 




SUB 


CAR40 




F2206230 


05006 


-0 


10000 





05022 




TNZ 


CAR30 


OBTAIN LEFT 


F2206240 


05007 





50000 


1 


00740 




CLA 


D0TAGZ+5#1 


SUB. DOT AG 


F2206250 


05010 


-0 


32000 





03776 




ANA 


CARMSK 


CARRY BITS AGAIN. 


F2206260 


05011 





77100 





00017 




ARS 


15 


TEST FOR 


F2206270 


05412 





76000 





00001 




LBT 




CARRY TYPE ONE 


F2206280 


05013 





02000 





05016 




TRA 


CAR15 


OR CARRY TYPE 


F220&290 


05014 





50000 





03774 




CLA 


CR1 


TWO. 


F2206300 


05015 





02000 





05017 




TRA 


CAR20 


OBTAIN PROPER 


F2206310 


05016 





50000 





03775 


CAR15 


CLA 


CR2 


TA6TAG CARRY BIT. 


F220632O 


05017 


3 


00002 


2 


05021 


CAR20 


TXH 


CAR25»2»2 


SHIFT IF NECESSARY FOR 


F2206330 


05020 





77100 





00O02 




ARS 


2 


CENTER SUB. AND 


F2206340 


05021 


-0 


602O0 





03737 


CAR25 


ORS 


CARWRD 


PLACE IN CARWRD. 


F2206350 


05022 


-0 


53400 


4 


04770 


CAR30 


LXD 


CAR05»4 


EXIT 


F2206360 


05023 





02000 


4 


00001 




TRA 


1.4 




F2206370 


05024 





00000 





00000 


CAR40 


HTR 




E.S. 


F2206380 


05025 


-0 


63400 


4 


05060 


LIST 


SXD 


LIST40.4 


SAVE LINKAGE 


F2206400 


05026 


-0 


73400 


1 


00000 




PDX 


0.1 


PUT INDEX QUANTITY IN XRA 


F2206410 


05027 





73400 


6 


00000 




PAX 


0t6 


PUT NR. OF WDS IN XRB.XRC. 


F2206420 


05030 





40000 





05061 




ADD 


LIST50 


COMPUTE NR. OF WRDS 


F2206430 


05031 





62100 





05046 




STA 


LIST30 


PLUS ORIGIN EI AND 


F2206440 


05032 





62100 





05041 




STA 


LIST20 


INITIALIZE ADDRESSES. 


F2206450 


05033 





50000 


1 


05106 




CLA 


LAD0IN+5il 


TEST 


F2206460 


05034 





77100 





00022 




ARS 


18 


FOR 


F2206470 


05035 





40200 


1 


05101 




SUB 


LADDS+5»1 


FULL 


F2206480 


05036 


-0 


10000 





05040 




TNZ 


LIST10 


TABLE. 


F2206490 


05037 





07400 


4 


07774 




TSX 


BURNCE »4 


DRUM OVERFLOW. GO SAVE IRA BEFORE DIAG. 


F2206505 


05040 


-0 


75400 





00000 


L1ST10 


PXD 


0*0 


ZERO IN ACC. 


F2206510 


05041 





36100 


2 


00000 


LIST20 


ACL 


Ot2 


COMPUTE 


F2206520 


05042 


2 


00001 


2 


05041 




TIX 


LIST20»2»1 


ENTRY 


F2206530 


05043 





76600 





00303 




KRS 


ADRUM 


SELECT DRUMF 


F2206535 


05044 





60200 





05062 




SLW 


LIST60 


CHECK SUM. 


F2206540 



r- 



A 
A 
A 
A 



A 
A 

A 
A 
A 



050*5 
05046 
05047 
05050 
05051 
05052 
05053 
05054 
05055 
05056 
05057 
05060 
05061 
05C62 

05063 
05064 
05065 
05066 

05067 
05070 
05071 
05072 
05073 

05074 
05075 
05076 
05077 
05100 

05101 
05102 
05103 
05104 
05105 
05106 
05107 
05110 
05111 
05112 
05113 
05114 
05115 
05116 
05117 
05120 
05121 
05122 
05123 
0512* 
05125 
05126 



46000 
70000 
00001 
70000 
50000 
40000 
40000 
32000 
60100 
53400 
02000 
00000 
00000 
00000 



00000 
00000 
00000 
00000 

00005 
00004 
00003 
00002 
00001 

00000 
00000 
00000 
00000 
00000 



01756 
01300 
02662 
00*56 
03650 
63*00 
50000 
10000 
07*00 
53*00 
00001 
07*00 
02000 
00002 
50000 
10000 
07*00 
00000 
53*00 
00006 
00000 
00005 



05101 

00000 LIST30 

050*6 

05062 

05101 

0507* 

03765 

03773 

05101 

05060 

00001 

00000 LIST*0 

05063 LIST50 

00000 LI ST 60 

00000 El 
00000 E2 
00000 E3 
00000 E* 

00002 TSXCOM 

00003 TRASTO 
00002 NAMKEY 
00002 CHATAG 

00004 DRMTAG 

00000 LADDS 

00000 

00000 

00000 

00000 



01302 
00*60 
01760 
00002 
0266* 
05122 
03725 
05112 
0553* 
03726 
05116 
06075 
05136 
05123 
0373* 
0511* 
061*7 
05136 
0373* 
0511* 
05135 
05132 



LADDIN 

BRANCH 

BRA10 
BRA20 
BRA30 



BRA*0 
BRA*5 
BRA50 



LDA 
CPY 
TIX 
CPY 
CLA 
ADO 
AOO 
ANA 
STO 
LXD 
TRA 
HTR 
HTR 
HTR 

HTR 
HTR 
HTR 
HTR 

HTR 
HTR 
HTR 
HTR 
HTR 

HTR 
HTR 
HTR 
HTR 
HTR 

HTR 
HTR 
HTR 
HTR 
HTR 
SXD 
CLA 
T2E 
TSX 
LXD 
TXH 
TSX 
TRA 
TXH 
CLA 
TNZ 
TSX 
TXL 
LXD 
TXH 
TXL 
TXH 



LADDS+5»1 

Ot* 

LIST30»*»1 

LIST60 

LADDS+5»1 

TSXC0M+5 » 1 

L(1)A 

ADDMSK 

LADDS+5.1 

LIST*0»* 

1»* 

El 



COPY 

ENTRY 

AND 

CHECK SUM* 

COMPUTE 

NEXT 

ENTRY 

ADDRESS* 

EXIT 

E»S. 

LCE1) 

E*S* 



FOUR WORD ENTRY BLOCK 



FIVE KEY WORDS* C(DEC»=INDEX QUANTITIES. C(ADDJ«=NR. OF WORDS 

2.0.5 ACC KEY WORD WHEN TSX TO LIST. 

3,0.* (ADD DOES NOT INCL CHECK SUM) 

2 .0*3 

2»0»2 

4*0.1 (ADTAG) 

FIVE WORDS CONTAINING CURRENT TABLE ADDRESSES IN ADD* PART. 

TSXCOM - ADD OF LADDIN - LAST PLUS 1 

TRASTO 

NAMKEY 

CHATAG 

DRMTAG 
FIVE WORDS. C{ADD)=ORIGIN» C(DEC)=LAST TABLE LOC. PLUS ONE 



706*0.1006 

30**0*70* 

1008*0.1*58 

2*0.302 

1460*0.1960 

BRA*5»* 

NRRC 

BRA10 

RELC0N.4 

NRDS.l 

BRA30»1»1 

1NS00.* 

BRA90 

BRA50.1.2 

DUPES 

BRA20 

2NS00.4 

BRA90.0 

DUPES.* 

BRA20.4.6 

BRA80.4.0 

BRA60.*»5 



TSXCOM 

TRASTO 

NAMKEY 

CHATAG 

DRMTAG 

IF THERE ARE RELCONS 

(NOT DORC) IN THE SC» 

USE 

RELCON. 

THIS ROUTINE 

CONDENSES 

DUPLICATE 

SUBSCRIPTS 

AND 

TRANSFERS 

TO 

ROUTINES 

1NSOO* 2NS00* 3NSO0 

AFTER 

PROCESSING. 

RETURN 

IS TO 



F2206550 
F2206560 
F2206570 
F2206580 
F2206590 
F2206600 
F2206610 
F2206620 
F2206630 
F22066*0 
F2206650 
F2206660 
F2206670 
F2206680 
F2206690 
F2206700 
F2206710 
F2206720 
F2206730 
•F22067*0 
F2206750 
F2206760 
F22O6770 
F2206780 
F2206790 
F2206800 
F2206810 
F2206820 
F2206830 
F22068*0 
F2206850 
F2206860 
F 2206870 
F 2206880 
F2206890 
F2206900 
F2206910 
F2206920 
F2206930 
F22069*0 
F2206950 
F2206960 
F2206970 
F2206980 
F2206990 
F2207000 
F2207010 
F2207020 
F2207030 
F22070*0 
F2207050 
F2207060 
F2207070 
F2207080 



& + 



n 





05127 


-3 


00003 


4 


05132 




TXL 


BRA60»4*3 




05130 





50000 





03754 




CLA 


L(3) 




05131 





02000 





05133 




TRA 


BRA70 




05132 





50000 





03756 


BRA60 


CLA 


L(5) 




05133 





60100 





03731 


BRA70 


STO 


DOSUBS 




0513* 





02000 





05121 




TRA 


BRA40 




05135 





07400 


4 


06246 


BRA80 


TSX 


3NS00»4 




05136 


-0 


53400 


4 


05122 


BRA90 


LXD 


BRA45»4 




05137 





02000 


4 


00001 




TRA 


1»4 




05140 


-0 


63400 


4 


05204 


RSR 


SXD 


RSR20»4 




05141 


-0 


63400 


1 


05205 




SXD 


RSR30.1 


■■* 


05142 





50000 


1 


00741 




CLA 


DOTAGZ+6.1 




05143 


-0 


32000 





04003 




ANA 


BIT18 




05144 


-0 


10000 





05164 




TNZ 


RSR10 




05145 





50000 





04003 




CLA 


BIT18 




05146 


-0 


60200 


1 


00741 




ORS 


DOTAGZ+6.1 




05147 





50000 


1 


00733 




CLA 


DOTAGZ.l 




0*150 


-0 


76000 





00003 




SSM 






05151 





60100 





05063 




STO 


El 




05152 





50000 


1 


00740 




CLA 


D0TAGZ+5.1 




05153 


-0 


32000 





03772 




ANA 


DECMSK 




05154 





77100 





00022 




ARS 


18 




05155 





60100 





05064 




STO 


E2 




05156 





50000 


1 


00743 




CLA 


D0TAGZ+8.1 




05157 


-0 


32000 





03772 




ANA 


DECMSK 




05160 


-0 


50100 


1 


00735 




ORA 


D0TAGZ+2.1 




05161 





60100 





05065 




STO 


E3 




05162 





50000 





05070 




CLA 


TRASTO 




05163 





07400 


4 


05025 




TSX 


LIST. 4 




05164 


-0 


53400 


1 


05205 


RSR10 


LXD 


RSR30»1 




05165 





50000 


1 


00743 




CLA 


DOTAGZ+8.1 




05166 


-0 


32000 





03772 




ANA 


DECMSK 




05167 


-0 


50100 





03701 




ORA 


TS 




05170 


-0 


76000 





00003 




SSM 






05171 





60100. 





05065 




STO 


E3 




05172 





50000 





03741 




CLA 


TL2 




05173 





77100 





00022 




ARS 


18 




05174 


-0 


50100 





03740 




ORA 


TL1 




05175 





60100 





05064 




STO 


E2 




05176 





50000 


1 


00733 




CLA 


DOTAGZ.l 




05177 





60100 





05063 


- 


STO 


El 




05200 





50000 





05070 




CLA 


TRASTO 




05201 





07400 


4 


05025 




TSX 


LIST. 4 




05202 


-0 


53400 


4 


05204 




LXD 


RSR20.4 




05203 





02000 


4 


00001 




TRA 


1.4 


A 


05204 





00000 





00000 


RSR20 


HTR 




A 


05205 





00000 





00000 


RSR30 


HTR 






05206 


-0 


63400 


4 


05212 


DRMENT 


SXD 


DRM05.4 




05207 


-0 


53400 


2 


04006 




LXD 


ADTXX.2 




05210 


-0 


63400 


2 


05241 




SXD 


DRM20.2 




05211 





53400 


2 


04006 




LXA 


ADTXX.2 





05212 


-3 


00000 





05241 


DRM05 


TXL 


DRM20.0 




05213 





50000 


2 


07135 


0RM10 


CLA 


ADTAGZ.2 




05214 


-0 


73400 


1 


00000 




PDX 


0.1 



n 



DRMENT OR 
TAGOO 



SAVE LINKAGE 

SAVE INDEX 

HAS COUNTER ADJUSTMENT 

INSTRUCTION BEEN ENTERED. 

IF SO. GO TO RSR10 

IF NOT. ENTER IN 

TRASTO AN ENTRY TO CAUSE 

THE COUNTER TO BE 

DECREASED BY Nl» WHICH 
WILL MAKE IT USEFUL AS 
AS A RESET SUB. COMB. 



ENTER IN TRASTO 
AN ENTRY TO CAUSE 
THE TAG UNDER 
CONSIDERATION 

TO BE RESET 
BY THE ADJUSTED 
COUNTER AT THE 
PROPER TIMES. 



THIS ROUTINE 
PROCESSES THE 
ADDED TAG TABLE 



OBTAIN FIRST ENTRY WORD. 
PUT INDEX IN XRA. 



F2207090 

F2207100 

F2207110 

F2207120 

F2207130 

F2207140 

F2207150 

F2207160 

F2207170 

F2207180 

F2207190 

F2207200 

F2207210 

F2207220 

F2207230 

F2207240 

F2207250 

F 2207260 

F2207270 

F2207280 

F2207290 

F2207300 

F2207310 

F2207320 

F2207330 

F2207340 

F2207350 

F2207360 

F2207370 

F2207380 

F2207390 

F2207400 

F2207410 

F2207420 

F2207430 

F2207440 

F2207450 

F2207460 

F2207470 

F2207480 

F2207490 

F22075CO 

F2207510 

F2207520 

F2207530 

F22O7540 

F2207550 

F2207560 

F2207570 

F2207580 

F2207590 

F22O7600 

F2207610 

F2207620 



Hi 



C V 



05215 
05216 


-0 



32000 
60100 






03773 
03700 




ANA 
STO 


ADDMSK 
TAG 




STORE TAG 
IN TAG 


F2207630 
F2207640 


05217 
05220 



-0 


60100 
75400 




1 


03701 
00000 




STO 
PXD 


TS 

0*1 




AND TS 
PUT INDEX 


F2207650 
F2207660 


05221 





60100 





03674 




STO 


XC 




IN XC 


F2207670 


05222 


-0 


63400 


2 


05244 




SXD 


DRM30»2 




SAVE INDEX B« 


F2207680 


05223 





50000 


2 


07136 




CLA 


ADTAGZ+1»2 




OBTAIN WORD TWO. 


F2207690 


05224 


-0 


12000 





05245 




TMI 


DRM40 




TRA IF RESET ENTRY. 


F2207700 


05225 





60100 





03701 




STO 


TS 




SAVE NAME IN TS. 


F2207710 


05226 





07400 


4 


04363 




TSX 


D0INF0.4 




USE DO INFO 


F2207720 


05227 
05230 






07400 
76100 


4 



04520 
00000 




TSX 

NOP 


SUBC0M*4 


OTHER 


AND 


F2207730 
F2207745 


05231 
05232 






07400 
07400 


4 
4 


05566 
00004 




TSX 
TSX 


IDENT.4 
DIAG*4 IN 


ORDER TO 


ROUTINES 

(ERROR. GO TO DIAGNOSTIC 


F2207750 
. JF2207765 


05233 





07400 


4 


05106 




TSX 


BRANCH »4 




PROCESS 


F2207770 
F2207780 
F2207790 


05234 





07400 


4 


04614 




TSX 


SCEND.4 




ENTRY* 


05235 





50000 





05073 




CLA 


DRMTAG 






05236 





07400 


4 


05025 




TSX 


LIST. 4 




ENTER RESULT IN DRMTAG. 


F2207800 

E" *S *% A ^ A* A 


05237 


-0 


53400 


2 


05244 


DRM15 


LXD 


DRM3Q.2 






F2207810 
F2207820 
F2207830 
F2207840 
F2207850 
F2207860 


05240 


1 


77776 


2 


05241 




TXI 


0RM20»2»-2 






05241 


3 


00000 


2 


05213 


DRM20 


TXH 


DRM10.2 






05242 
05243 


-0 



53400 
02000 


4 
4 


05212 
0000 1 




LXD 
TRA 


DRM05f4 
1*4 






05244 





00000 





00000 


DRM30 


HTR 








05245 





73400 


4 


00000 


DRM40 


PAX 


0*4 




FOR RESET ENTRY* 


F2207870 


05246 


-0 


32000 





03772 




ANA 


DECMSK 




INITIALIZE CELLS 


F220788Q 


05247 





60100 





03740 




STO 


TL1 




USED IN RSR ROUTINE. 


F2207890 
F2207900 
F2207910 
F2207920 


05250 


-0 


75400 


4 


00000 




PXD 


0*4 






05251 





60100 





03741 




STO 


TL2 






05252 





07400 


4 


05140 




TSX 


RSR*4 






05253 





02000 





05237 




TRA 


DRM15 
SUBROUTINE 


TAGADD 


TRA FOR NEXT ENTRY. 


F2207930 
F2207940 


05254 


3 


00000 


2 


05256 


TAGADD 


TXH 


TAGAD1*2*0 


CURB) 


EQ 1 IF NORMAL ADTAG 


F2207950 
F2207960 
F2207970 

P* ** ** *\ *»*^ n fs 


05255 


-0 


75400 


1 


00000 




PXD 


0*1 






05256 


-0 


53400 


1 


04006 


TAGAD1 


LXD 


ADTXX»1 






05257 


-3 


00000 


1 


05273 




TXL 


TAGAD6*1*0 






F2207980 


05260 
05261 


3 



00000 
40000 


2 




05274 
03700 




TXH 
ADD 


TAGAD 8.2*0 
TAG 




XRB=1 .NORMAL ADDED TAG 


F2207990 
F22080O0 
F2208010 


05262 





60100 


1 


07135 




STO 


ADTAGZ * 1 






05263 





50000 





03673 




CLA 


NEWTAG 






F22O8020 


05264 





56000 





03673 




LDQ 


NEWTAG 






F2208030 


05265 





60100 


1 


07136 




STO 


ADTAG2+1.1 






F2208040 
F2208050 


05266 





40000 





03765 




ADD 


LIDA 






05267 





60100 





03673 




STO 


NEWTAG 






F2208060 


05270 


1 


77776 


1 


05271 




TXI 


TAGAD2.1.-2 






F22O8070 


05271 


-0 


63400 


1 


04006 


TAG AD 2 


SXD 


ADTXX.l 






F2208080 


05272 





02000 


4 


00001 


TAGAD3 


TRA 


1*4 






F2208088 


05273 





07400 


4 


00004 


TAGAD6 


TSX 


DIAG.4 TABLE WILL NOT HOLD ENTRY* ERROR. GO TO DIAGNOSTIC* 


F2208095 


05274 





60100 


1 


07135 


TAGAD8 


STO 


ADTAGZ. 1 






F2208110 


05275 


-0 


60000 


1 


07136 




STQ 


ADTAGZ+1.1 






F2208120 


05276 


1 


77776 


1 


05271 




TXI 


TAGAD2.1.-2 
SUBROUTINE 


SPCOOO 




F2208130 
F2208140 


05277 
05300 


-0 


63400 


1 


05371 


SPCOOO 


SXD 


SPC115.1 




SAVE INDEX OF DO TO BE SEARCHED* 


F2208150 


-0 


63400 


2 


05344 




SXD 


SPC060.2 




SAVE TINFOR»LIST INDICATOR 


F220816O 



</■ 



■/.'I 



u 



u 



n 





05301 


-0 


63400 4 


05361 




SXD 


SPC105t4 




03302 





60100 


05410 




STO 


SPCKEY 




05303 





5000O 1 


00740 




CLA 


D0TAGZ+5.1 




05304 





62200 


05321 




STD 


SPC050 




05305 





50000 1 


00733 




CLA 


D0TAGZ*1 




05306 





73400 2 


00000 




PAX 


0*2 




05307 


-0 


32000 


03772 




ANA 


DECMSK 




05310 





60100 


03744 




STO 


NEXTA 




05311 





60100 


03742 




STO 


A 




05312 


-0 


75400 2 


OOOOO 




PXD 


0*2 




05313 





60100 


03745 




STO 


LASTB 




05314 


-0 


53400 1 


05371 


SPC010 


LXD 


SPC115»1 




05315 


1 


77767 1 


05316 


SPC020 


TXI 


SPC040.1»-9 





05316 


-3 


00000 1 


05362 


SPC040 


TXL 


SPC110.1 




05317 





50000 1 


00740 




CLA 


D0TAGZ+5*1 




05320 


-0 


73400 2 


OOOOO 




PDX 


0*2 





05324 


-3 


OOOOO 2 


OS362 


SPC050 


TXL 


SRC11Q»2 




05322 





50000 1 


00734 




CLA 


D0TAGZ+1*1 




05323 





40200 


03735 




SUB 


RSYM1 




05324 





10000 


05330 




TZE 


SPC053 




05325 





50000 1 


00734 




CLA 


D0TAGZ+1»1 




05326 





40200 


03736 




SUB 


RSYM2 




©5327 


-0 


10000 


05315 




TNZ 


SPC020 




Q5330 





50000 1 


00733 


SPC053 


CLA 


D0TAGZ»1 




05331 





73400 2 


OOOOO 




PAX 


0*2 




05332 


-o 


32000 


03772 




ANA 


DECMSK 




05333 





60100 


03743 




STO 


B 




05334 


-0 


75400 2 


OOOOO 




PXD 


0*2 




05335 





60100 


03744 




STO 


NEXTA 




05336 


-0 


63400 1 


05371 




SXD 


SPC115»1 




05337 


-0 


53400 2 


05344 


SPC055 


LXD 


SPC060.2 




05340 





50000 


03742 


SPC058 


CLA 


A 




05341 





40200 


03743 




SUB 


B 




05342 





10000 


05345 




TZE 


SPC065 




05343 


-3 


00001 2 


05376 




TXL 


SPCTIN»2»1 


D 


05344 


-3 


OOOOO 


05401 


SPC060 


TXL 


SPCSTO»0 




05345 


-0 


53400 2 


05344 


SPC065 


LXD 


SPC060»2 




05346 


-3 


OOOOO 2 


05372 




TXL 


SPC120»2*0 




05347 


-0 


53400 1 


05371 


SPC070 


LXD 


SPC115*1 




05350 





50000 1 


00740 




CLA 


D0TAGZ+5*1 




05351 





62200 


05356 




STD 


SPC100 




05352 


1 


77767 1 


05353 


SPC080 


TXI 


SPC090*l»-9 





05353 


-3 


OOOOO 1 


05362 


SPC090 


TXL 


SPC110*1 




05354 





50000 1 


00740 




CLA 


D0TAGZ+5»1 




05355 


-0 


73400 2 


OOOOO 




PDX 


0*2 





05356 


3 


00000 2 


05352 


SPC100 


TXH 


SPC080.2 




05357 





50000 


03744 




CLA 


NEXTA 




05360 





60100 


03742 




STO 


A 


D 


05361 


-3 


00000 


05321 


SPC105 


TXL 


SPC050*0 




05362 





50000 


03744 


SPC110 


CLA 


NEXTA 




05363 





60100 


03742 




STO 


A 




05364 





50000 


03745 




CLA 


LASTB 




05365 





60100 


03743 




STO 


B 




05366 


-0 


53400 2 


05344 




LXD 


SPC060.2 



n 



SAVE TSX INDEX. 

SAVE LIST KEY WORD 

OBTAIN L WORD 

INITIALIZE TEST INSTR. 

OBTAIN ALPHABETA WRD* 

SAVE BETA* 

OBTAIN ALPHA ALONE 

STO IN NEXTA 

AND STORE IN A* 

PUT BETA IN LASTB AND 

BETING SEARCH FOR R2 

OBTAIN CURRENT INDEX AND 

GO DOWN ONE DO* IF POSSIBLE»ELSE 

GO TO SET UP LAST INTERVAL. 

TEST WHETHER OR NOT THIS DO 

IS IN RANGE OF RllDXL) 

IF NGT*EX1T FOR LAST INTERVAL. 

IF IN Rl.IS THIS DO TO BE 

SKIPPED. IF NOT* GO BACK TO 

GET NEXT DO. 



R2 FOUND. ARRANGE TO SKIP THIS 
INTERVAL. USE ALPHA OF R2 
AS B»PUT BETA OF R2 IN 
NEXTA. 

DO FORMULAS WITHIN R2 ARE 
ACCOUNTED FOR AFTER SEARCH. 
SAVE INDEX OF R2. 
PUT TINFOR, LIST IND. IN XRB 
FOR 

NON EMPTY 
INTERVALS. 

GO TO ARRANGE TINFOR SEARCH* OR 
TRA TO USE LIST. 
RETURN HERE»TEST TINFOR 
LIST IND. IF ZERO* EXIT. 
TO SET UP NEXT INTERVAL* 
OBTAIN INDEX OF LAST R2 AND 
STEP DOWN IN DOTAG BY USUAL 
PROCEDURE UNTIL SOME DO IS 
FOUND NOT IN R2*0R UNTIL 
DOTAG EXHAUSTED. IF DO FOUND 
NOT IN R2.SET A AND GO TO TEST 
IF THIS DO IS IN Rl. 
IF IT IS»NEWR2 WILL BE FOUND 
OR EXIT MADE TO SPC110. 

THIS IS SETUP FOR LAST 
INTERVAL. FOR A. USE 
CONTENTS OF NEXTA. FOR B* 
USE BETA OF Rl .FOUND IN 
LASTB. OBTAIN T INFOR*STOTAG 



F2208170 

F2208180 

F2208190 

F2208200 

F2208210 

F2208220 

F2208230 

F2208240 

F2208250 

F2208260 

F2208270 

F2208280 

F2208290 

F2208300 

F2208310 

F2208320 

F2208330 

F2208340 

F2208350 

F2208360 

F2208370 

F2208380 

F2208390 

F2208400 

F2208410 

F2208420 

F2208430 

F2208440 

F2208450 

F2208460 

F2208470 

F2208480 

F2208490 

F2208500 

F2208510 

F2208520 

F2208530 

F2208540 

F2208550 

F2208560 

F2208570 

F2208580 

F2208590 

F2208600 

F2208610 

F2208620 

F2208630 

F2208640 

F2208650 

F2208660 

F2208670 

F2208680 

F2208690 

F2208700 



/ 



P' 



05367 





50000 


03751 




CLA 


HO) 


05370 





62200 


05344 




STO 


SPC060 


05371 


-3 


00000 


05340 


SPC115 


TXL 


SPC058.0 


05372 


-0 


53400 4 


05361 


SPC120 


LXO 


SPC105.4 


05373 





02000 4 


00001 




TRA 


1*4 


0537* 


-0 


53400 4 


05361 


SPC130 


LXO 


SPC105t4 


05375 





02000 4 


00002 




TRA 


2»4 


05376 





07400 4 


05417 


SPCTIN 


TSX 


T1NFXX»4 


05377 





02000 


05374 




TRA 


SPC130 


05400 





02000 


05345 




TRA 


SPC0&5 


05401 





50000 


03743 


SPCSTO 


CLA 


B 


05402 





77100 


00022 




ARS 


18 


05403 





40000 


03742 




ADD 


A 


05404 





60100 


05063 




STO 


El 


05405 





50000 


05410 




CLA 


SPCKEY 


05406 





07400 4 


05025 




TSX 


LIST»4 


05407 





02000 


05345 




TRA 


SPC065 


05410 





00000 


00000 


SPCKEY 


HTR 


SUBROUTINES TINFOR 


05411 





50000 1 


00733 


TINFOR 


CLA 


D0TAGZ*1 


05412 





73400 1 


00000 




PAX 


0*1 


05413 


-0 


320O0 


03772 




ANA 


DECMSK 


05414 





60100 


03742 




STO 


A 


05415 


-0 


75400 1 


ooooo 




PXD 


0*1 


05416 





60100 


03743 




STO 


B 


05417 


-0 


53400 1 


03764 


T INF XX 


LXD 


LU500*1 


05420 





50000 1 


03670 


TINF10 


CLA 


FORTZ.l 


05421 


-0 


32000 


03772 




ANA 


DECMSK 


05422 





34000 


03742 




CAS 


A 


05423 





02000 


05430 




TRA 


TINF40 


05424 





76100 


00000 




NOP 




05425 


1 


77777 1 


05426 


TINF20 


TXI 


TINF30»1*-1 


05426 


3 


00000 1 


05420 


TINF30 


TXH 


TINF10.1 


05427 





02000 4 


00002 




TRA 


2*4 


05430 





34000 


03743 


TINF40 


CAS 


B 


05431 





02000 4 


00002 




TRA 


2»4 


05432 





76100 


00000 




NOP 




05433 





50000 1 


03670 




CLA 


F0RTZ*1 


05434 





12000 


05425 




TPL 


TINF20 


05435 


-0 


32000 


03773 




ANA 


ADDMSK 


05436 





40200 


03700 




SUB 


TAG 


©5437 


-0 


10000 


05425 




TNZ 


TINF20 


05440 





02000 4 


00001 




TRA 


1*4 

INSTR PLUS ONE. XR> 

FOUND 

SUBROUTINE TRAWRD 


05441 


-0 


63400 4 


05470 


TRAWRD 


SXD 


TRAW65.4 


05442 





50000 


03751 




CLA 


L(OI 


05443 





60100 


03747 




STO 


TRAB1T 


05444 





50000 1 


00740 




CLA 


D0TAGZ+5»1 


05445 





62200 


05454 




STO 


TRAW30 


05446 





50000 1 


00742 


TRAW10 


CLA 


DOTAGZ+7,1 


05447 


-0 


60200 


03747 




ORS 


TRABIT 



IND»AND SET LOCATION OF 
INDICATOR TO ZERO, GO TO 
TINFOR OR TRASTO. 
EXIT»ALL STORES DONE»OR* 
SEARCH MADE*T NOT FOUND. 
EXIT»T FOUND 
IN SOME INTERVAL 
GO TO SEARCH FORTAG 
T FOUND 
T NOT FOUND 

FOR TRASTO. E2 AND E3 ARE 
ALREADY SET UP. COLLECT 
A AND B INTO El WORD* 
PUT TRASTO INDICATOR IN 
ACC. AND 

TSX TO LISTING ROUTINE. 
ON RETURN, GO TO TEST FINISH. 
STORAGE FOR TABLEKEY 
AND TINFXX 

C(XRA)*INDEX OF DR TO BE 
SEARCHED. SEPARATE ALPHA 
ANO BETA 
AND STORE IN A 



B 



PUT MAX FORTAG INDEX IN XRA 

OBTAIN FORTAG ENTRY 

RETAIN FORMULA NUMBER ONLY 

COMPARE ALPHA AND FORMULA NR. 

FOR. NR. GREATER THAN ALPHA. TRA. 

C«AJ MAY BE SOME BETA FROM SPC 

FOR.NR. LESS THAN ALPHA. GO 

BACK FOR NEXT FORTAG ENTRY 

IF POSSIBLE. OTHERWISE. 

RETURN TO CALLING INSTR PLUS TWO. 

COMPARE FOR. NR. WITH BETA 

FOR. NR. GREATER THAN BETA.EXIT. 

FOR. NR. EQUAL TO OR 

LESS THAN BETA. OBTAIN FORTAG 

TAG AND COMPARE WITH SEARCH TAG. 

I.F. NOT EQUAL. GO BACK FOR NEXT TAGF2209110 

F2209120 

IF EQUAL.RETURN TO CALLING F2209130 

F2209140 
INS INDEX IN FORTAG OF FIRST TAG F2209150 

F2209160 
F2209170 
F2209180 
F2209190 
F2209200 
F2209210 
F2209220 

OBTAIN T2 WORD F2209230 

OR INTO TRABIT F2209240 



F2208710 

F2208720 

F2208730 

F2208740 

F2208750 

F2208760 

F2208770 

F2208780 

F2208790 

F2208800 

F2208810 

F2208820 

F2208830 

F2208840 

F2208850 

F2208860 

F2208870 

F2208880 

F2208890 

F2208900 

F2208910 

F2ZQ992Q 

F2208930 

F2208940 

F2208950 

F2208960 

F2208970 

F2208980 

F2208990 

F2209000 

F2209010 

F2209020 

F2209030 

F2209040 

F2209050 

F2209060 

F2209070 

F2209080 

F2209090 

F2209100 



0^ 



«?■ 



n 



O 





05450 


1 77767 


1 


05451 




TXI 


TRAW20.1.-9 


D 


05451 


-3 00000 


1 


05471 


TRAW20 


TXL 


TRAW70.1 




05452 


50000 


1 


00740 




CLA 


D0TA6Z+5 * 1 




05453 


-0 73400 


4 


OOOOO 




PDX 


0*4 





05454 


-3 00000 


4 


05471 


TRAW30 


TXL 


TRAW70»4 




05455 


-3 00001 


2 


05446 




TXL 


TRAW10.2.1 




05456 


50000 


1 


00734 


TRAW35 


CLA 


DOTAGZ+1.1 




05457 


40200 





03736 




SUB 


RSYM2 




05460 


-0 10000 





05446 




TNZ 


TRAW10 




05461 


500O0 


1 


00740 




CLA 


D0TAGZ+5.1 




05462 


62200 





05467 




STD 


TRAW60 




05463 


1 77767 


1 


05464 


TRAW40 


TXI 


TRAW50.1.-9 





05464 


-3 00000 


1 


05471 


TRAW50 


TXL 


TRAW70.1 




05465 


50000 


1 


00740 




CLA 


D0TAGZ+5*1 




05466 


-0 73400 


4 


QOOOO 




PDX 


0.4 





05467 


3 00000 


4 


05463 


TRAW60 


TXH 


TRAW40.4 


t> 


05470 


-3 00000 





05454 


TRAW65 


TXL 


TRAW30*0 




05471 


-0 53400 


4 


05470 


TRAW70 


LXD 


TRAW65.4 




05472 


50000 





03761 




CLA 


L<36) 




05473 


40200 





03741 




SUB 


TL2 




05474 


77100 





00022 




ARS 


18 




05475 


62100 





05505 




STA 


TRAW90 




05476 


50000 





03741 




CLA 


TL2 




05477 


40200 





03740 




SUB 


TL1 




05500 


77100 





00022 




ARS 


18 




05501 


62100 





05504 




STA 


TRAW80 




05502 


50000 





03751 




CLA 


L(01 




05503 


56000 





03771 




LDQ 


350NES 


A 


05504 


76300 





OOOOO 


TRAW80 


LLS 




A 


05505 


76700 





OOOOO 


TRAW90 


ALS 






05506 


-0 320O0 





03747 




ANA 


TRABIT 




05507 


02000 


4 


00001 




TRA 


1#4 
SUBROUTINES 




05510 


-0 53400 


1 


04010 


TAGENT 


LXD 


TAGXX.l 




05511 


3 00000 


1 


05513 




TXH 


TE10»1»0 




05512 


07400 


2 


05522 




TSX 


TETAPE. 2 




05513 


-0 53400 


2 


03755 


TE10 


LXD 


L(4J»2 




05514 


50000 


2 


05067 


TE20 


CLA 


El+4.2 




05515 


60100 


1 


06771 




STO 


TAGZ»1 




05516 


1 77777 


1 


05517 




TXI 


TE30.1.-1 




05517 


2 00001 


2 


05514 


TE30 


TIX 


TE20.2.1 




05520 


-0 63400 


1 


04010 




SXD 


TAGXX. 1 




05521 


02000 


4 


00001 




TRA 


1.4 




05522 


76600 





00224 


TETAPE 


WRS 


ATAPE 




05523 


-0 53400 


1 


04010 




LXD 


TAGXX.l 




05524 


-0 63400 


1 


05530 




SXD 


TE50.1 




05525 


53400 


1 


04010 




LXA 


TAGXX.l 




05526 


70000 


1 


06771 


TE40 


CPY 


TAGZ.l 




05527 


1 77777 


1 


05530 




TXI 


TE50.1.-1 


D 


05530 


3 OOOOO 


1 


05526 


TE50 


TXH 


TE40.1 




05531 


53400 


1 


04010 




LXA 


TAGXX.l 




05532 


-0 63400 


1 


04010 




SXD 


TAGXX»1 




05533 


02000 


2 


00001 




TRA 


1.2 



TAKE NEXT DO 
IF NONE. EXIT. (DEC HAS DOT AG IX) 

OBTAIN L WORD 

PUT L IN XRC. 

EXIT IF DO IS NOT IN RANGE Rl 

IF COMPLETE TEST*GO BACK. 

IF INCOMPLETE TEST. IS THIS A 

DO TO BE SKIPPED 

IF N0T» GO BACK 

THIS DO IS TO BE SKIPPED 

PUT LEVEL OF THIS DO IN TEST INSTR 

TAKE NEXT DO IF ANY 
IF NOT. EXIT. OTHERWISE. (DEC HAS DOTAG IX) 

OBTAIN L WORD 

PUT L IN XRC 

IF DO IS IN RANGE OF R2.G0 BACK. 

OIHERWISE.GO TO TRAW30 

OBTAIN 36 IN DECREMENT 
36-TL2 
IN ADDRESS 
INITIALIZE SHIFT 
OBTAIN TL2 
TL2-TL1 
IN ADDRESS 
INITIALIZE SHIFT 
ACC CONTAINS ZERO 
MQ CONTAINS ALL ONES 
PUT TL2-TL1 ONES IN ACC 
POSITION ONES IN ACC 
AND IN TRANSFER BITS 
GO BACK TO CALLING INSTR PLUS ONE. 
kGENT AND TETAPE 

THIS ROUTINE ENTERS 
ONE ENTRY IN TAGZ» 
IF POSSIBLE. IF NOT. 
TRA TO TETAPE. 

THIS ROUTINE 

ENTERS ALL THE VALID 

ENTRIES IN TAGZ ON 

THE TAPE 

THE LAST ENTRY ON TAPE 

AFTER EACH NEST IS 

AN ENTRY OF 4 WDS OF 35 ONES 

ROUTINE RELCON PJNGPONGS INSTRUCTIONS 



F2209250 
F2209260 
F2209270 
F2209280 
F2209290 
F2209300 
F2209310 
F2209320 
F2209330 
F2209340 
.F2209350 
F2209360 
F2209370 
F2209380 
F2209390 
F2209400 
F22O9410 
F2209420 
F2209430 
F2209440 
F2209450 
F2209460 
F2209470 
F2209480 
F2209490 
F2209500 
F2209510 
F2209520 
F2209530 
F22Q9540 
F2209550 
F2209560 
F2209570 
F2209580 
F2209590 
F2209600 
F2209610 
F2209620 
F2209630 
F2209640 
F2209650 
F2209660 
F2209670 
F2209680 
F2209690 
F2209700 
F2209710 
F2209720 
F2209730 
F2209740 
F2209750 
F2209760 
F2209770 
F2209780 



**1 



05534 


-0 


53400 


2 


03753 


RELCON 


LXD 


L(Z).2 


05535 


-0 


53400 


4 


03756 


REL10 


LXD 


L(5)»4 INITIALIZE 


05536 


-0 


53400 


1 


05565 


REL20 


LXD 


RELWDS.l 


05537 





76200 





00301 




RDS 


PPDRM 


05540 





46000 


2 


05566 




LDA 


RELDRA+2*2 


05541 





70000 


1 


06566 


REL30 


CPY 


CORESZ.l 


05542 


2 


00001 


1 


05541 




TIX 


REL30.1.1 


05543 


-0 


53400 


1 


05565 




LXD 


RELWDS.l 


05544 


-0 


75400 





00000 




PXD 


0*0 


05545 





36100 


1 


06566 


REL40 


ACL 


CORESZ.l 


05546 


2 


00001 


1 


05545 




TIX 


REL40.1.1 


05547 





60200 





05561 




SLW 


REL80 


05550 





50000 





05561 




CLA 


REL80 


05551 





40200 


2 


05564 




SUB 


RELCS+2*2 


05552 


-0 


10000 





05557 




TNZ 


REL70 


05553 


-3 


00001 


2 


05112 


REL50 


TXL 


BRA10.2.1 


05554 


-3 


00000 





05566 


REL60 


TXL 


CORES. 


05555 


-0 


53400 


2 


03752 


RELEND 


LXD 


Lll)i2 


05556 





02000 





05535 




TRA 


REL10 


05557 


2 


00001 


4 


05536 


REL70 


TIX 


REL20»4»1 


05560 





07400 


4 


00004 




TSX 


DIAG.4 DRUM READ 


05561 





00000 





00000 


REL80 


HTR 




05562 


+103075525444 


RELCS 


OCT 


103075525444 CHECK SUM* 


05563 


-246744643200 




OCT 


-246744643200 CHECK SUM 


05564 


+000000001000 


RELDRA 


OCT 


1000 


05565 


+001000000000 




OCT 


1000000000 










05566 




ORG 


2934 

MASTER RECORD CARD = 


05566 


-0 


63400 


4 


05622 


IDENT 


SXD 


ID075»4 


05567 


-0 


53400 


1 


03760 




LXD 


L(20)*l 


05570 





50000 





03751 




CLA 


L(0> 


05571 





60100 





06027 




STO 


IDES 


05572 





60100 


1 


03740 


10010 


STO 


Xl+20»1 


05573 


2 


00001 


1 


05572 




TIX 


10010*1*1 


05574 





50000 





03771 




CLA 


350NES 


05575 





60100 





03723 




STO 


LL 


05576 


-0 


53400 


2 


03751 




LXD 


L10J.2 


05577 


-0 


53400 


4 


03756 




LXD 


L(5)»4 


05600 





50000 


4 


03712 


10020 


CLA 


Sl+5»4 


05601 





10000 





05603 




TZE 


ID030 


05602 


1 


00001 


2 


05603 




TXI 


1D030.2.1 


05603 


2 


00002 


4 


05600 


I DO 30 


TIX 


ID020»4»2 


05604 


-0 


75400 


2 


00000 




PXD 


0*2 


05605 





60100 





03725 




STO 


NRRC 


05606 





60100 





03724 




STO 


NRSUBS 


05607 


-0 


53400 


1 


03674 




LXD 


XC»1 


05610 


-0 


53400 


2 


03675 




LXD 


LC.2 


05611 





76000 





00141 




PSE 


TL 


05612 





50000 


1 


00734 


ID050 


CLA 


DOTAGZ+1.1 


05613 


-0 


53400 


4 


03756 




LXD 


L<5>*4 


05614 





34000 


4 


03712 


ID060 


CAS 


Sl+5*4 


05615 





02000 





05617 




TRA 


ID070 


05616 





02000 





05632 




TRA 


ID120 


05617 


2 


00002 


4 


05614 


ID070 


TIX 


ID060»4»2 



INITIALIZE SWITCH 
ERROR COUNTER. 

PUT NR OF DRM WDS IN XRA 

LOCATE DRUM ADDRESS 

LOCATE PROPER DRM ADDRESS 

READ STATE 8* OR A. INTO 

STORAGE 

LOAD XRA WITH NR OF DRM WDS 
COMPUTE 

CHECK 

SUM 

AND 

COMPARE. 

IF NOT ZERO* 

GO TO ERROR ROUTINE. 

IF STATE A. RETURN TO BRANCH. 
AND TRA TO REL ROUTINE 

GO TO READ IN STATE A. 

COUNT IN ERROR COUNTER AND RETURN 

ERROR. GO TO DIAGNOSTIC. 
E.S. 
STATE B* RELCON 
STATE A» NORMAL 

DRUM ADDRESS. STATE B. 

NR* WDS. DRUM ADDRESS STATE A. 



FN032 

SAVE INDEX 
INITIALIZE 
TO ZERO 



IDENT STORAGE. 



INITIALIZE 

LOW LEVEL 

COUNT THE SUBSCRIPT 

SYMBOLS. 

STORE COUNT IN 

NRSUBS. AND ALSO IN 

NRRC. WHICH IS THE 

COUNT OF REL. CON. 

SUBSCRIPTS. DO SUBS ARE 

SUBTRACTED OUT LATER. 

COMPARE EACH SYMBOL 
IN THE SUB. COMB. WITH 
THE SYMBOL OF EACH 
DO IN THE SUB NEST. 
WHEN EQUALITY IS 
FOUND. GO TO ID120. 
IF THE CURRENT DO 
SYMBOL IS NOT FOUND. 
MAKE EXIT FROM ID410 



F2209790 

F2209805 

F2209810 

F2209820 

F2209830 

F2209840 

F2209850 

F2209860 

F2209870 

F2209880 

F2209890 

F2209900 

F2209910 

F2209920 

F2209930 

F2209940 

F2209950 

F2209960 

F2209970 

F2209980 

F2209995 

F2210000 

F2210O14 

F2210024 

F2210030 

F2210040 

F2210050 

F2210055 

F2210060 

F2210070 

F2210080 

F2210090 

F 2210100 

F2210110 

F2210120 

F2210130 

F2210140 

F2210150 

F2210160 

F2210170 

F2210180 

F2210190 

F2210200 

F2210210 

F2210220 

F2210230 

F2210240 

F2210250 

F2210260 

F2210270 

F2210280 

F2210290 

F2210300 

F2210310 



J- i < 



u 



u 



n 



05620 


-0 


76000 





00141 




MSE 


TL 


05621 





02000 





05623 




TRA 


10080 


05622 


-3 


00000 





06025 


I DO 75 


TXL 


10410*0 


05623 


-3 


00001 


2 


05646 


10080 


TXL 


1D150»2»1 


05624 


1 


00011 


1 


05625 


ID090 


TXI 


ID100»1*9 


05625 





50000 


1 


00740 


ID100 


CLA 


D0TAG2+5»1 


05626 





62200 





05627 




STD 


ID110 


05627 


-3 


00000 


2 


05624 


10110 


TXL 


10090*2 


05630 


-0 


73400 


2 


00000 




POX 


0*2 


05631 





02000 





05612 




TRA 


ID050 


05632 


-0 


76000 





00141 


ID120 


MSE 


TL 


05633 





76100 





00000 




NOP 




05634 


-0 


75400 


1 


00000 




PXD 


0*1 


05635 





60100 


4 


03721 




STO 


Xl+5»4 


05636 


-0 


75400 


2 


00000 




PXD 


0*2 


05637 





60100 


4 


03722 




STO 


Ll+5.4 


05640 





50000 





03725 




CLA 


NRRC 


05641 





40200 





03752 




SUB 


L(l) 


05642 





60100 





03725 




STO 


NRRC 


05643 





10000 





05646 




TZE 


ID150 


05644 





50000 


1 


00734 




CLA 


D0TA6Z+1»1 


05645 





02000 





05617 




TRA 


ID070 


05646 





76600 





00333 


ID150 


100 




05647 





50000 





03714 




CLA 


XI 


05650 





56000 





03716 




LOQ 


X2 


05651 





04000 





05653 




TLQ 


PTQ41 


05652 





50000 





03716 




CLA 


X2 


05653 





56000 





03720 


PT041 


LOQ 


X3 


05654 





04000 





05656 




TLQ 


PT042 


05655 





50000 





03720 




CLA 


X3 


05656 





60100 





05662 


PT042 


STO 


PT043 


05657 


-0 


53400 


4 


03757 




LXD 


L(6)»4 


05660 


-0 


53400 


3 


03754 




LXO 


L<3)*3 


05661 





02000 





05663 




TRA 


ID160 


05662 





00000 





00000 


PT043 


HTR 




05663 





50000 


1 


03710 


1D160 


CLA 


Sl+3»1 


05664 





10000 





05671 




TZE 


ID170 


05665 





40200 


2 


03712 




SUB 


51+5*2 


05666 


-0 


10000 





05671 




TNZ 


ID170 


05667 


-0 


75400 


4 


00000 




PXD 


0*4 


05670 


-0 


60200 





03734 




ORS 


DUPES 


05671 


2 


00001 


4 


05672 


ID170 


TIX 


10180*4*1 


05672 


2 


00002 


2 


05663 


10180 


TIX 


ID160»2*2 


05673 


2 


00001 


4 


05674 




TIX 


10190*4*1 


05674 


2 


00002 


1 


05663 


1D190 


TIX 


ID160*1»2 


05675 


-0 


53400 


2 


03725 




LXD 


NRRC»2 


05676 


-3 


00000 


2 


05723 




TXL 


10300*2*0 


05677 


-3 


00001 


2 


05704 




TXL 


10195*2*1 


05700 





50000 





03734 




CLA 


DUPES 


05701 





60100 





03733 




STO 


RCDUP 


05702 





50000 





03751 




CLA 


L(01 


05703 





60100 





03734 




STO 


DUPES 


05704 


-0 


53400 


4 


03756 


ID195 


LXD 


L<5)»4 


05705 





50000 


4 


03722 


10200 


CLA 


Ll+5»4 



o 



THESE INSTRUCTIONS 
FIND THE NEXT BACK. 
SUB NEST 00 FORMULA* 
AND RETURN CONTROL 
TO 1D050* 



TURN OFF TEST LIGHT 

AND 

ESTABLISH 

INDEX 

AND 

LEVEL FOR THIS SUBSCRIPT. 

SUBTRACT ONE FROM 

NRRC. THIS WORD 

CONTAINS INITIALLY 

THE NUMBER OF 

SUBSCRIPTS IN THE 

COMBINATION. 

THIS - EORECNO FN 265001 P463 

ROUTINE FN265002 

LOOKS FOR THE 

OUTERMOST 

DOTAG 

OF A 

SUBSCRIPT 

COMBINATION. 



RETURN 

WHICH CAN BE ASSIGNED 

HAVE BEEN ASSIGNED. 

THIS 

ROUTINE 

MAKES UP THE 

DUPLICATE 

SUBSCRIPT 

WORD. 



IF THERE IS MORE 
THAN ONE RELCON. 
AND IF THERE ARE 
DUPLICATES* THEN THE 
RELCONS ARE DUPLICATES. 
OTHERWISE* THE DOSUBS 
ARE DUPLICATES. 
IF THERE ARE RELCONS. 
THERE ARE NOT MORE 



F2210320 

F2210330 

F22 10340 

F2210350 

F2210360 

F2210370 

F2210380 

F2210390 

F2210400 

F2210410 

F2210420 

F2210430 

F2210440 

F2210450 

F2210460 

F2210470 

F2210480 

F2210490 

F2210500 

F2210510 

F2210520 

F2210530 

F2210540 

F2210550 

F2210560 

F2210570 

F2210580 

F2210590 

F221O60O 

F2210610 

F2210620 

F2210630 

F2210640 

F2210650 

F2210660 

F2210670 

F2210680 

F2210690 

F2210700 

F2210710 

F2210720 

F2210730 

F2210740 

F2210750 

F2210760 

F2210770 

F2210780 

F2210790 

F2210800 

F2210810 

F2210820 

F2210830 

F2210840 

F2210850 



05706 


-0 


10000 





05720 




TNZ 


ID210 


05707 





50000 


4 


03712 




CLA 


Sl+5»4 


05710 





10000 





05720 




TZE 


ID210 


05711 


-0 


75400 


4 


00000 




PXO 


0*4 


05712 


-3 


00001 


4 


05714 




TXL 


ID205»4»1 


05713 





40200 





03752 




SUB 


L(l) 


05714 


-0 


60200 





03730 


ID205 


ORS 


RCSUBS 


05715 





50000 


4 


03712 




CLA 


Sl+5»4 


05716 


-2 


00001 


2 


05722 




TNX 


ID220»2»1 


05717 





60100 





03736 




STO 


RSYM2 


05720 


2 


00002 


4 


05705 


10210 


TIX 


10200*4*2 


05721 





02000 





05723 




TRA 


ID300 


05722 





60100 





03735 


1D220 


STO 


RSYM1 


05723 


-0 


53400 


4 


03756 


ID300 


LXD 


H5)»4 


05724 





50O00 


4 


03721 


ID310 


CLA 


Xl+5*4 


05725 





10000 





05740 




TZE 


ID340 


05726 


-0 


73400 


1 


00000 




PDX 


0*1 


05727 


-0 


53400 


2 


03754 




LXD 


L(3)»2 


05730 





50000 


1 


00741 


ID320 


CLA 


D0TA6Z+6.1 


05731 


-0 


32000 





03773 




ANA 


ADDMSK 


05732 





76700 





00022 




ALS 


18 


05733 





34000 





06027 




CAS 


IDES 


05734 





60100 





06027 




STO 


IDES 


05735 





76100 





00000 




MOP 




05736 


2 


00001 


1 


05737 




TIX 


ID330*1»1 


05737 


2 


00001 


2 


05730 


ID330 


TIX 


ID320»2»1 


05740 


2 


00002 


4 


05724 


ID340 


TIX 


ID310*4*2 


05741 


-0 


53400 


4 


03756 




LXD 


L(5)»4 


05742 


-0 


53400 


2 


03751 




LXD 


L(0)*2 


05743 





50000 


4 


03722 


ID350 


CLA 


Ll+5»4 


05744 





10000 





06000 




TZE 


ID380 


05745 





34000 





06027 




CAS 


IDES 


05746 





02000 





05764 




TRA 


ID370 


05747 





76100 





00000 




NOP 




05750 


-0 


75400 


4 


00000 




PXD 


0*4 


05751 


-3 


00001 


4 


05753 




TXL 


ID360»4»1 


05752 





40200 





03752 




SUB 


L(l) 


05753 


-0 


60200 





03727 


ID360 


ORS 


DORC 


05754 





50000 


4 


03721 




CLA 


Xl+5»4 


05755 


-0 


73400 


I 


00000 




PDX 


0*1 


05756 





50000 





0^000 




CLA 


BITONE 


05757 


-0 


60200 


1 


007^0 




ORS 


D0TAGZ+5»1 


05760 


-0 


75400 





00000 




PXD 


0*0 


05761 





60100 


4 


03722 




STO 


Ll+5»4 


05762 





60100 


4 


03721 




STO 


Xl+5*4 


05763 





02000 





06000 




TRA 


ID380 


05764 





34000 





03723 


ID370 


CAS 


LL 


05765 





02000 





05773 




TRA 


ID372 


05766 





02000 





05773 




TRA 


ID372 


05767 





60100 





03723 




STO 


LL 


05770 





50O00 


4 


03721 




CLA 


Xl+5»4 


05771 





60100 





03722 




STO 


XL 


05772 


-0 


63400 


4 


03750 




SXD 


L0WP0S»4 


05773 


-0 


75400 


4 


00000 


ID372 


PXD 


0*4 



THAN TWO* 

PUT THEIR SYMBOLS 

IN PSYM1 AND RSYM2* 

AND PUT BITS IN THE 

PROPER POSITIONS OF 

RCSUBS* 



FOR ALL DO SUBS* 
SELECT THE 
MAXIMUM OF ALL 
VARAIBLE N LEVEL 
OF DEFINITION 
QUANTITIES. 



COMPARE THIS MAXIMUM 

WITH EACH SUBSCRIPT 
LEVEL* THOSE SUBSCRIPT 
LEVELS LESS THAN OR 
EQUAL TO THE MAXIMUM 
LEVEL OF DEFINITION 
QUANTITY WILL BE TREATED 
AS REL» CONS. 
INDICATE THIS CONDITION 
IN THE DORC WORD. 



MAKE INDICATION FOR STORED COUNTER 

FOR THIS DORC. 

CLEAR X<N) AND L(N) 

SINCE THEY ARE NO LONGER DOSUBS. 



FOR TRUE DO SUBS* 

ESTABLISH LOW LEVEL 
AND LOW INDEX. LOW 
LEVEL WORD WAS 
INITIALIZED TO 
350NES* 

PUT BITS IN 



F2210860 

F2210870 

F2210880 

F2210890 

F2210900 

F2210910 

F2210920 

F2210930 

F2210940 

F2210950 

F2210960 

F2210970 

F2210980 

F2210990 

F2211000 

F2211010 

F2211020 

F2211030 

F2211040 

F2211050 

F22U060 

F2211070 

F2211080 

F2*1109O 

F2211100 

F2211110 

F2211120 

F2211130 

F2211140 

F2211150 

F2211160 

F2211170 

F2211180 

F2211190 

F2211200 

F2211210 

F2211220 

F2211230 

F22U240 

F22U250 

F2211260 

F2211270 

F2211280 

F2211290 

F2211300 

F2211310 

F2211320 

F2211330 

F2211340 

F2211350 

F2211360 

F2211370 

F2211380 

F2211390 



W 



u 



O 



n 



n 





©5774 


-3 


00001 


4 


05776 




TXL 


ID375t4tl 




05775 





40200 





03752 




SUB 


1(1) 




05776 


-0 


60200 





03731 


1D375 


ORS 


DOSUBS 




05777 


1 


00001 


2 


06000 




TXI 


ID380»2»1 




06000 


2 


00002 


4 


05743 


ID380 


TIX 


10350*4.2 




06001 


-0 


75400 


2 


00000 




PXD 


0*2 




06002 





60100 





03726 




STO 


NRDS 




06003 


-0 


10000 





06005 




TNZ 


1D385 




06004 





07400 


4 


00004 




TSX 


DlAGi4 N 




06005 


-0 


53400 


2 


03725 


10385 


LXD 


NRRC»2 




06006 


-3 


00000 


2 


06023 




TXL 


10400*2*0 




06007 


-0 


53400 


4 


03752 




LXD 


L(l)»4 




06010 





50000 





03733 




CLA 


RCDUP 




06011 


-0 


10000 





06021 




TNZ 


10395 




06012 





50000 





03734 




CLA 


DUPES 




06013 


-0 


10000 





06021 




TNZ 


ID395 




06014 


-3 


00001 


2 


06016 




TXL 


103.90*2*1 




06015 


1 


00002 


4 


06021 




TXI 


10395*4.2 




06016 


-0 


53400 


2 


03726 


10390 


LXD 


NRDS»2 




06017 


-3 


00001 


2 


06021 




TXL 


ID395»2«1 




06020 


1 


00001 


4 


06021 




TXI 


ID395.4»1 




06021 


-0 


75400 


4 


00000 


ID395 


PXD 


0*4 




06022 





60100 





03732 




STO 


DELTA 




06023 


-0 


53400 


4 


05622 


1D400 


LXD 


10075*4 




06024 





02000 


4 


00002 




TRA 


2»4 




06025 


-0 


53400 


4 


05622 


10410 


LXD 


10075*4 




06026 





02000 


4 


00001 




TRA 


1*4 


A 


06027 





00000 





00000 


IDES 


HTR 






06030 


-0 


63400 


4 


06036 


NAME 


SXD 


NAM10.4 




06031 





50000 





03700 




CLA 


TAG 




06032 





60100 





03701 


PAT05 


STO 


TS 




06033 


-0 


53400 


1 


05662 




LXD 


PT043»1 




06034 





07400 


4 


05411 


RET01 


TSX 


TINF0R»4 




06035 





02000 





06037 




TRA 


NAM20 


TD 


06036 


-3 


00000 





06073 


NAM10 


TXL 


NAM50 




06037 





50000 





03673 


NAM20 


CLA 


NEWTAG 




06040 





60100 





03701 




STO 


TS 




06041 





40000 





03765 




ADD 


LU>A 




06042 





60100 





03673 




STO 


NEWTAG 




06043 


-0 


53400 


1 


03674 




LXD 


XC»1 




06044 





50000 


1 


00733 




CLA 


DOTAGI.l 




06045 





60100 





05063 




STO 


El 




06046 





50000 





03700 




CLA 


TAG 




06047 





76700 





00022 




ALS 


18 




06050 





40000 





03701 




ADD 


TS 




06051 





60100 





05064 




STO 


E2 




06052 





50000 





05072 




CLA 


CHATAG 




06053 


-0 


53400 


4 


03725 




LXD 


NRRC*4 




06054 


3 


00000 


4 


06057 




TXH 


NAM30*4»0 




06055 





07400 


4 


05025 




TSX 


LIST»4 




06056 





02000 





06061 




TRA 


NAM40 




06057 


-0 


53400 


2 


03753 


NAM30 


LXD 


L(2)»2 




06060 





07400 


4 


05277 




TSX 


SPC000*4 




06061 


-0 


53400 


1 


04011 


NAM40 


LXD 


NAMXX*1 



PROPER POSITIONS 

OF DOSUBS 

WORD 



CHECK TO SEE THAT 
AT LEAST ONE SUBSCR IS A DOSUB 
DOSUB WAS PRECLUDED. ERROR. GO TO DIAGNOSTIC. 
THESE INSTRUCTIONS 
COMPUTE DELTA. 
IF ONE DISTINCT DOSUB* 
ONE DISTINCT RELCON* 
DELTA IS ONE. 
IF TWO DISTINCT DOSUBS. 
ONE RELCON* DELTA IS TWO. 
15 ONE DOSUB* TWO 
DISTINCT RELCONS* 
DELTA IS THREE. 
FOR ALL OTHER CASES. 
DELTA IS ZERO. 



EXIT* 

SUBCOM USED. 

EXIT* 

SUBCOMB NOT USED. 



P463 



SAVE LINKAGE 
PUT TAU IN TS* 



SEARCH RANGE OF XL 
{FOUND) FOR NEGATICE TAG. 
NOT FOUND 
OBTAIN 
NEW 
NAME 

ARRANGE 
ENTRY BLOCK 
FOR CHATAG 
ENTRY. 



USE LIST OR SPCOOO* 

DEPENDING UPON 

WHETHER OR NOT 
WORD NRRC IS ZERO. I.E.. ARE THERE RELCONS. 
NO TINFOR SEARCH REQUIRED. 

ENTER 



F2211400 

F2211410 

F2211420 

F2211430 

F2211440 

F2211450 

F2211460 

F2211472 

F2211485 

F2211490 

F2211500 

F2211510 

F2211520 

F2211530 

F2211540 

F22U550 

F 22 11560 

F2211570 

F2211580 

F2211590 

F2211600 

F2211610 

F 2211620 

F2211630 

F2211640 

F2211650 

F2211660 

F2211670 

F2211680 

F22U690 

F2211700 

F2211710 

F2211720 

F2211730 

F2211740 

F2211750 

F2211760 

F2211770 

F2211780 

F2211790 

F2211800 

F2211810 

F2211820 

F2211830 

F2211840 

F2211850 

F2211860 

F2211870 

F2211880 

F2211890 

F2211900 

F2211910 

F2211920 

F2211930 



^ 



tl 



06062 


3 


00000 


1 


06064 




TXH 


NAM44*1»0 


ALPHA t 


F22U940 


06063 





07400 


4 


00004 




TSX 


DIAG*4 TAG* 


(NAME TABLE FULL. ERROR. GO TO DIAGNOSTIC. 


>F2211955 


06064 





50000 





03676 


NAM44 


CLA 


ALPHA 


AND 


F2211960 


06065 


-0 


50100 





03700 




ORA 


TAG 


NAME 


F2211970 


06066 





60100 


1 


07301 




STO 


NAMZ»i 


IN 


F2211980 


06067 





50000 





03701 




CLA 


TS 


NAME 


F2211990 


06070 





60100 


1 


07302 




STO 


NAMZ+1»1 


TABLE 


F22 12000 


06071 


1 


77776 


1 


06072 




TXI 


NAM48tl»-2 




F2212010 


06072 


-0 


63400 


1 


04011 


NAM48 


SXD 


NAMXXtl 




F2212020 


06073 


-0 


53400 


4 


06036 


NAM 50 


LXD 


NAM10>4 


EXIT 


F2212030 


06074 





02000 


4 


00001 




TRA 


1»4 

1NS00 PROCESSES 


SC CONTAINING ONE DISTINCT INDEXED SUBSCRIPT 


F2212040 
•F2212050 


06075 


-0 


63400 


4 


06146 


1NS00 


SXD 


1NS20»4 


SAVE LINKAGE 


F2212060 


06076 


-0 


53400 


1 


03674 




LXD 


XC»1 




F2212070 


06077 





50000 





04001 




CLA 


BITTWO 


IF A COUNTER HAS 


F2212080 


06100 


-0 


32000 


1 


00741 




ANA 


D0TAGZ+6»1 


BEEN FOUND* 


F2212090 


06101 


-0 


10000 





06142 




TNZ 


1NS10 


GO TO 1NS10 


F2212100 


06102 


-0 


53400 


4 


03731 




LXO 


D0SUBS*4 


SKIP TO 1NS10 


F2212110 


06103 


-3 


00003 


4 


06142 




TXL 


1NS10»4*3 


IF NOT FIRST POSITION. 


F2212120 


06104 


3 


00004 


4 


06142 




TXH 


1NS10»4»4 




F2212130 


06105 





50000 





03730 




CLA 


RCSUBS 


IF ANY RELCONS* 


F2212140 


06106 


-0 


50100 





03727 




ORA 


OORC 


GO TO 1NS10 


F2212150 


06107 


-0 


10000 





06142 




TNZ 


1NS10 




F 2212160 


06110 


-0 


53400 


4 


03704 




LXD 


Cl*4 


IF CI IS NOT ONE* 


F2212170 


06111 


3 


00001 


4 


06142 




TXH 


1NS10»4»1 


GO TO 1NS10 


F2212180 


06112 





50000 





03773 




CLA 


ADDMSK 


THIS SUB. COMB. WILL SERVE 


F2212190 


06113 





32000 


1 


00743 




ANS 


D0TAGZ+8»1 


AS COUNTER AND TEST. ENTER IN 


F2212200 


06114 





50000 





03701 




CLA 


TS 


DOTAGZ+8. 


F2212210 


06115 





76700 





00022 




ALS 


18 


INDICATE 


F2212220 


06116 


-0 


50100 





03770 




ORA 


L(MZ) 


BEST TEST 


F22 12230 


06117 


-0 


60200 


1 


00743 




ORS 


D0TAGZ+8»1 


FOUND. 


F 22 12 240 


06120 





50000 





04001 




CLA 


BITTWO 


INDICATE COUNTER FOUND. 


F2212250 


06121 


-0 


60200 


1 


00741 




ORS 


DQTAGZ+6tl 




F2212260 


06122 


-0 


50000 





03770 




CAL 


LtMZ) 


SET CARWRD NEGATIVE. 


F2212270 


06123 


-0 


60200 





03737 




ORS 


CARWRD 


TEST BITONE OF L WORD. 


F2212280 


06124 





50000 





04000 




CLA 


81 TONE 


IF ONE* SKIP TRASTO 


F2212290 


06125 


-0 


32000 


1 


00740 




ANA 


D0TAGZ+5»1 


TEST. 


F2212300 


06126 


-0 


10000 





06142 




TNZ 


1NS10 




F2212310 


06127 





50000 


1 


00740 


1NS05 


CLA 


D0TAGZ+5»1 


TEST TO SEE IF TRANSFER 


F2212320 


06130 





12000 





06142 




TPL 


1NS10 


STORE NECESSARY. 


F2212330 


06131 





50000 


1 


00733 




CLA 


DOTAGZ.l 


MAKE TRASTO ENTRY 


F2212340 


06132 





60100 





05063 




STO 


El 


TO STORE COUNTER 


F2212350 


06133 





50000 


1 


00734 




CLA 


D0TAGZ+1»1 


IN LOCATION OF SYMBOL. 


F2212360 


06134 





60100 





05064 




STO 


E2 




F2212370 


06135 





50000 





03675 




CLA 


LC 




F2212380 


06136 


-0 


50100 





03701 




ORA 


TS 




F2212390 


06137 





60100 





05065 




STO 


E3 




F2212400 


06140 





50000 





05070 




CLA 


TRASTO 




F2212410 


06141 





07400 


4 


05025 




TSX 


LIST»4 




F2212420 


06142 





50000 





03757 


1NS10 


CLA 


L<6> 


ENTER 


F2212430 


06143 





60100 





03703 




STO 


GROUP 


GROUP NR. 


F2212440 


06144 


-0 


53400 


4 


06146 




LXD 


1NS20»4 


AND EXIT. 


F2212450 


06145 





02000 


4 


00001 




TRA 


1»4 




F2212460 


06146 





00000 





00000 


1NS20 


HTR 






F2212470 



p~+ 



G 



n 



O 

















2NS00 ROUTINE PR 
















SUBSCRIPTS. 


06147 


-0 


63400 


4 


06157 


2NS00 


SXD 


2NS25»4 


06150 


-0 


53400 


1 


03731 


2NS10 


LXO 


DOSUBStl 


06151 


-0 


53400 


2 


03753 




LXD 


L<2>»2 


06152 





50000 





03715 




CLA 


LI 


06153 


3 


00003 


1 


06155 




TXH 


2NS20tlt3 


06154 





50000 





03717 




CLA 


L2 


06155 


-3 


00005 


1 


06160 


2NS20 


TXL 


2NS30»1»5 


06156 





40200 





03717 




SUB 


L2 


06157 


-3 


00000 





06161 


2NS25 


TXL 


2NS40»0 


06160 





40200 





03721 


2NS30 


SUB 


L3 


06161 


-0 


12000 





06174 


2NS40 


TMI 


2NS70 


0616Z 





40200 





03752 




SUB 


LU) 


06163 


-0 


10000 





06172 




TNZ 


2NS60 


06164 


-3 


00003 


1 


06167 




TXL 


2NS50»1»3 


06165 


-3 


00005 


1 


06172 




TXL 


2NS60.1.5 


06166 


1 


00002 


2 


06167 




TXi 


2NS50.2.2 


06167 


-0 


53400 


4 


03734 


2NS50 


LXD 


DUPES»4 


06170 


3 


00000 


4 


06172 




TXH 


2NS60»4fO 


06171 





07400 


4 


04754 




TSX 


CARRY. 4 


06172 





50000 





03752 


2NS60 


CLA 


L(l) 


06173 


-3 


00000 





06175 


2NS65 


TXL 


2NS80»0 


06174 





50000 





03757 


2NS70 


CLA 


LI6) 


06175 





60100 





03703 


2NS80 


STO 


GROUP 


06176 


-0 


73400 


4 


00000 




PDX 


0.4 


06177 


-0 


53400 


2 


03731 




LXD 


D0SUBS»2 


06200 





50000 





03715 




CLA 


LI 


06201 


3 


00003 


2 


06203 




TXH 


2NS82.2.3 


06202 





50000 





03717 




CLA 


L2 


06203 


-3 


00005 


2 


06206 


2NS82 


TXL 


2NS84.2.5 


06204 





56000 





03717 




LDQ 


L2 


06205 





02000 





06207 




TRA 


2NS86 


06206 





56000 





03721 


2NS84 


LOO 


L3 


06207 


-3 


00001 


4 


06220 


2NS86 


TXL 


2NS88.4.1 


06210 





60100 





03740 




STO 


TL1 


06211 


-0 


60000 





03741 




STO 


TL2 


06212 


-0 


53400 


1 


03720 




LXD 


X3.1 


06213 





50000 





03752 




CLA 


LU) 


06214 


-3 


00005 


2 


06227 




TXL 


2NS90.2.5 


06215 


-0 


53400 


1 


03716 




LXD 


X2.1 


06216 





50000 





03753 




CLA 


L(2) 


06217 





02000 





06227 




TRA 


2NS90 


06220 





60100 





03741 


2NS88 


STO 


TL2 


06221 


-0 


60000 





03740 




STQ 


TL1 


06222 


-0 


53400 


1 


03714 




LXD 


Xl»l 


06223 





50000 





03755 




CLA 


L14) 


06224 


3 


00003 


2 


06227 




TXH 


2NS90»2»3 


06225 


-0 


53400 


1 


03716 




LXD 


X2tl 


06226 





50000 





03753 




CLA 


L(2) 


06227 





60100 





03746 


2NS90 


STO 


REBITS 


06230 


-0 


32000 





03734 




ANA 


DUPES 


06231 





10000 





06235 




TZE 


2NS91 


06232 





50000 





03746 




CLA 


REBITS 



PROCESSES SC WITH TWO DISTINCT INDEXED 

SAVE LINKAAGE 

2NS10 TO 2NS80 DETERMINE THE 
GROUP NR AND CARRY BITS 
FOR THE SL. 



THIS DUPE TEST 
FOR DUPLICATES 
3NS CASE. 



IS AN ADJUSTMENT 
IN A REDUCED 



THIS ROUTINE.TO 2NS90. 
PREPARES A TRAWRD CALLING 
SEQUENCE TO DETERMINE 
WHETHER OR NOT RESETTING 
IS NECESSARY 



TEST GROUP 



2NS90 SEQ. SINGLE REBITS 
ARE PART OF THE TAG OF THE 
RESETTING SC.IT MUST BE 
ADJUSTED FOR DUPE RESETS. 



F2212480 
F22 12490 
F22 12500 
F2212510 
F2212520 
F2212530 
F2212540 
F2212550 
F2212560 
F2212570 
F2212580 
F2212590 
F2212600 
F2212610 
F2212620 
F22 12630 
F2212640 
F22 12650 
F2212660 
F2212670 
F2212680 
F2212690 
F2212700 
F2212710 
F2212720 
F2212730 
F2212740 
F2212750 
F2212760 
F2212770 
F2212780 
F2212790 
F2212800 
F2212810 
F2212820 
F2212830 
F2212840 
F2212850 
F2212860 
F2212870 
F2212880 
F2212890 
F2212900 
F2212910 
F2212920 
F2212930 
F2212940 
F2212950 
F2212960 
F2212970 
F2212980 
F2212990 
F2213000 
F2213010 



/ 



<>} 



06233 


-0 


50100 





03734 




ORA 


DUPES 




F2213020 


06234 





60100 





03746 




STO 


REBITS 




F2213030 


06235 


-0 


63400 


1 


06173 


2NS91 


SXD 


2NS65.1 




F2213040 


06236 


-0 


53400 


2 


03752 




LXD 


L ( X } 1 2 




F2213050 


06237 





07400 


4 


05441 




TSX 


TRAWRD.4 


TEST FOR TANSFER BITS. 


F2213060 


06240 





10000 





06244 




TZE 


2NSEND 


RESETTING NOT NECESSARY IF 


F2213070 


06241 


-0 


53400 


2 


03746 




LXD 


REBITS.2 


TRAWRD RESULT ZERO. IF 


F2213080 


06242 


-0 


53400 


1 


06173 




LXD 


2NS65»1 


RESETTING NECESSARY. EXECUTE 


F2213090 


06243 





07400 


4 


06370 




TSX 


RESET»4 


RESET ROUTINE AND 


F2213100 


06244 


-0 


53400 


4 


06157 


2NSEND 


LXD 


2NS25»4 


EXIT 


F2213110 


06245 





02000 


4 


00001 




TRA 


1»4 

3NS00 ROUTINE PROCESSES 

SUBSCRIPTS. 


SC WITH THREE DISTINCT INDEXED 


F2213120 
F2213130 
F2213140 


06246 


-0 


63400 


4 


06255 


3NS00 


SXD 


3GRP15*4 

THIS ROUTINE DETERMINES 


SAVE LINKAGE 
GROUP NUMBER FOR 3NS NO DUPE SC 


F2213150 
F2213160 


06247 


-0 


53400 


2 


03751 




LXD 


L(0)*2 


PUT ZERO IN XRB 


F2213170 


06250 





50000 





03721 




CLA 


L3 


OBTAIN L3 


F2213180 


06251 





34000 





03717 




CAS 


L2 


COMPARE WITH L2 


F2213190 


06252 


1 


00004 


2 


06254 




TX1 


3GRP10»2»4 


L3 GREATER THAN L2 


F2213200 


06253 





07400 


4 


00004 




TSX 


DIAG»4 NO DUPES. 


ERROR. GO TO DIAGNOSTIC. 


F2213215 


06254 





34000 





03715 


3GRP10 


CAS 


LI 


L3 LESS THAN L2 .COMPARE L3»L1 


F2213220 


06255 


-3 


00000 





06260 


3GRP15 


TXL 


3GRP20»0 


L3 GREATER THAN LI 


F2213230 


06256 





07400 


4 


00004 




TSX 


DIAG.4 NO DUPES. 


ERROR. GO TO DIAGNOSTIC. 


F2213245 


06257 


1 


00001 


2 


06260 




TXI 


3GRP20.2.1 


L3 LESS THAN LI 


F22I3Z50 


06260 





50000 





03717 


3GRP20 


CLA 


L2 


OBTAIN L2 


F 2213260 


06261 





40200 





03715 




SUB 


LI 


SUBTRACT LI 


F2213270 


06262 


-0 


12000 





06264 




TMI 


3GRP30 


TRA IF L2 LESS THAN LI 


F2213280 


06263 


1 


00002 


2 


06264 




TXI 


3GRP30*2»2 


L2 GREATER THAN LI 


F2213290 


06264 


-0 


75400 


2 


ooooo 


3GRP30 


PXD 


0*2 


PUT GROUP NUMBER IN ACC DEC. 


F2213300 


06265 





60100 





03703 




STO 


GROUP 


OR INTO TAG 1 


F2213310 


06266 





50000 





03715 




CLA 


LI 


OBTAIN LI 


F2213320 


06267 





40200 





03752 




SUB 


L(l) 


LI LESS 1 


F2213330 


0627& 





40200 





03717 




SUB 


L2 


LI LESS 1 LESS L2 


F2213340 


06271 


-0 


10000 





06274 




TNZ 


3GRP40 


NOT ZERO. NO CARRY.TRA 


F2213350 


06272 


-0 


53400 


2 


03755 




LXD 


L(4)»2 


SET XRB 


F2213360 


06273 





07400 


4 


04754 




TSX 


CARRY»4 


AND TSX TO CARRY 


F2213370 


06274 





50000 





03717 


3GRP40 


CLA 


L2 


RE-ENTRY.OBTAIN L2 


F2213380 


06275 





40200 





03752 




SUB 


L(l) 


L2 LESS 1 


F2213390 


06276 





40200 





03721 




SUB 


L3 


L2 LESS 1 LESS L3 


F2213400 


06277 


-0 


10000 





06302 




TNZ 


3GRP50 


NOT ZERO. NO CARRY.TRA 


F2213410 


06300 


-0 


53400 


2 


03753 




LXD 


LC2) »2 


SET XRB 


F2213420 


06301 





07400 


4 


04754 




TSX 


CARRY »4 


AND TSX TO CARRY 


F2213430 


06302 


-0 


53400 


6 


03751 


3GRP50 


LXD 


LI01.6 


THE FOLLOWING ROUTINE. 


F2213440 


06303 


-0 


53400 


1 


03703 




LXD 


GROUP »1 


THROUGH 3GRP72. COMPUTES 


F2213450 


06304 





02000 


1 


06313 


3GRP55 


TRA 


3GRP55+7.1 


QUANTITIES FOR XRB. XRC. 


F2213460 


06305 


1 


00002 


2 


06314 




TXI 


3GRP65»2»2 


GROUP IS SIX 


F2213470 


06306 


1 


00004 


4 


06314 




TXI 


3GRP65»4.4 


FIVE 


F2213480 


06307 


1 


00004 


2 


06314 




TXI 


3GRP65»2t4 


FOUR 


F2213490 


06310 


1 


00002 


6 


06313 




TXI 


3GRP6Q.6.2 


THREE 


F2213500 


06311 


1 


00002 


4 


06314 




TXI 


3GRP65.4.2 


TWO 


F2213510 


06312 


1 


00004 


4 


06313 




TXI 


3GRP60*4.4 


ONE 


F2213520 


06313 


1 


00002 


2 


06314 


3GRP60 


TXI 


3GRP65.2.2 




F2213530 


06314 





50000 


4 


03720 


3GRP65 


CLA 


Xl+4.4 




F2213540 


06315 





60100 





06362 




STO 


I NX 




F2213550 



*1 



u 



u 



n 



n 





06316 





50000 


4 


03721 




CLA 


Xl+5»4 




06317 





60100 





06363 




STO 


INL 




06320 





50000 


2 


03720 




CLA 


Xl+4»2 




06321 





60100 





06364 




STO 


MIDX 




06322 





50000 


2 


03721 




CLA 


Xi+5.2 




06323 





60100 





06365 




STO 


MIDL 




06324 


3 


00000 


4 


06326 




TXH 


3GRP70»4*0 




06325 


1 


00001 


4 


06326 




TXI 


3GRP70*4*1 




06326 


-0 


63400 


4 


06357 


3GRP70 


SXD 


INP»4 




06327 


3 


00000 


2 


06331 




TXH 


3GRP72»2»0 




06330 


1 


O0001 


2 


06331 




TXI 


3GRP72»2*1 




06331 


-0 


63400 


2 


06361 


3GRP72 


SXD 


MIDP»2 




06332 


-0 


53400 


4 


03755 




LXD 


L(4)»4 




06333 





50000 


4 


06366 


3GRP75 


CLA 


INX+4»4 




06334 


-0 


73400 


1 


00000 




PDX 


0*1 




06335 





50000 


4 


06367 




CLA 


INL+4*4 




06336 





60100 





03741 




STO 


TL2 




©6337 





CAAAA 


O ©3723 




■CLA 


LL 




06340 





60100 





03740 




STO 


TL1 




06341 


-0 


53400 


2 


03752 




LXD 


L(l)*2 




06342 


-0 


63400 


4 


06360 




SXD 


3GRP80»4 




06343 





07400 


4 


05441 




TSX 


TRAWRD»4 




06344 


-0 


53400 


4 


06360 




LXD 


3GRP80»4 




06345 





10000 





06355 




TZE 


3GRP77 




06346 





50000 


4 


06363 




CLA 


INP+4»4 




06347 


-0 


73400 


2 


00000 




PDX 


0*2 




06350 





50000 


4 


06366 




CLA 


INX+4*4 




06351 


-0 


73400 


1 


00000 




PDX 


0*1 




06352 


-0 


63400 


4 


06360 




SXD 


3GRP80f4 




06353 





07400 


4 


06370 




TSX 


RESET»4 




06354 


-0 


53400 


4 


06360 




LXD 


3GRP80*4 




06355 


2 


00002 


4 


06333 


3GRP77 


TIX 


3GRP75»4,2 




06356 





02000 





06366 




TRA 


3NSEND 


A 


06357 





00000 





00000 


INP 


HTR 




A 


06360 





00000 





00000 


3GRP80 


HTR 




A 


06361 





00000 





00000 


MIDP 


HTR 




A 


06362 





00000 





00000 


INX 


HTR 




A 


06363 





00000 





00000 


INL 


HTR 




A 


06364 





00000 





00000 


MIDX 


HTR 




A 


06365 





00000 





00000 


MIDL 


HTR 






06366 


-0 


53400 


h 


06255 


3NSEND 


LXD 


3GRP15»4 




06367 





02000 


4 


00001 




TRA 


1*4 




©6370 


-0 


63400 


4 


06421 


RESET 


SXD 


RES45.4 




06371 


-0 


75400 


2 


00000 




PXD 


0*2 




06372 





60 100 





06613 




STO 


RES300 




06373 


-0 


75*00 


1 


00000 




PXD 


0.1 




06374 





60100 





06614 




STO 


RES310 




06375 





50000 





03710 




CLA 


C3 




06376 





77100 





00022 




ARS 


18 




06377 





02000 


2 


06406 


RES05 


TRA 


R£S05+7»2 




06400 





02000 





06422 




TRA 


RES50 




06401 





02000 





06414 




TRA 


RES30 




06402 





02000 





06416 




TRA 


RES40 




06403 





02000 





06412 




TRA 


RES20 



THE QUANTITIES IN XRBe 

XRC» ARE ZERO* TWO* OR 

FOUR* ADJUSTED TO ONE* 

TWO* FOUR* TO INDICATE THE 

POSITION OF THE SUBCCRIPT 

BEING RESET* STORE IN INP* MIDP* 

THIS LOOP IS EXECUTED TWICE. 

OBTAIN INNER INDEX OF PAIR 

IN XRA 

OBTAIN INNER LEVEL OF PAIR 

TL2 

OBTAIN LOWER LEVEL IN 

TL1 

PUT ONE IN XRB* 

SAVE XRC* 

AND USE TRAWRD. 

RESTORE XRC* 

GO TO INDEXING IF ZERO. 

TRAWRD RESULT NOT ZERO. 

PREPARE TO 

USE RESET 

SAVE XRC* 

GO TO RESET* 

RESTROE XRC* 

INDEX AND GO BACK* 

OR EXIT 

POSITION OF INNER SUB. 

POSITION OF MIDDLE SUB. 
INDEX INNER LEVEL SUBSCRIPT 
LEVEL INNER LEVEL SUBSCRIPT 
INDEX MIDDLE LEVEL SUBSCRIPT 
LEVEL MIDDLE LEVEL SUBSCRIPT 



SAVE LINKAGE 

SAVE 

PREFIX (REBITS) 

SAVE INDEX 

OF RESET 

OBTAIN C3 IN 

ADDRESS PART. 

INDEXED T RANSFER. CCXRBJ=C (REBITS 

C(XRB)=110 

CIXRB)=101 

CtXRBl=100 

C(XRB)=011 



F2213560 
F2213570 
F2213580 
F2213590 
F2213600 
F2213610 
F2213620 
F22 13630 
F2213640 
F2213650 
F22 13660 
F2213670 
F2213680 
F2213690 
F2213700 
F22 13710 
F2213718 
F2213720 
F2213740 
F2213750 
F2213760 
F2213770 
F2213780 
F2213790 
F2213800 
F2213810 
F2213820 
F 2213830 
F2213840 
F2213850 
F2213860 
F2213870 
F2213880 
F2213890 
F2213900 
F2213910 
F2213920 
F2213930 
F2213940 
F2213950 
F2213960 
F2213970 
F2213980 
F2213990 
F2214000 
F2214010 
F2214020 
F2214030 
F2214040 
JF2214050 
F2214060 
F2214070 
F2214080 
F2214090 



& 



/ 



■*=& 


06404 





02000 


06422 




TRA 


RES50 


C(XRB»= 010 


F2214100 






06405 





60100 


05064 


RES10 


STO 


E2 


CtXRB)=001 


F2214110 






06406 





50000 


03713 




CLA 


02 


THESE INSTRUCTIONS* THROUGH 


F2214120 






06407 





77100 


00022 




ARS 


18 


RES60» COMPUTE THE 


F2214130 






06410 





40000 


03712 




ADD 


01 


CHARACTERISTIC WORDS OF THE 


F2214140 






06411 





02000 


06430 




TRA 


RES60 


SUBSCRIPT COMBINATION. 


F2214150 






06412 





40000 


03706 


RES20 


ADD 


C2 




F22 14160 

F* #fc rf» 1 J * *» 4* 






06413 





02000 


06405 




TRA 


RES10 




F2214170 






06414 





40000 


03704 


RES30 


ADD 


CI 




F2214180 






06415 





02000 


06405 




TRA 


RES10 




F2214190 






06416 





50000 


03704 


RES40 


CLA 


CI 




F2214200 
F2214210 
F22 14220 






06417 





60100 


05064 




STO 


E2 








06420 





50000 


03751 




CLA 


L(0) 








06421 


-3 


00000 


06430 


RES45 


TXL 


RES60»0 




F2214230 






06422 





50000 


03706 


RES50 


CLA 


C2 




F2214240 
F2214250 






06423 





77100 


00022 




ARS 


18 








06424 


-3 


00002 2 


06426 




TXL 


RES55»2»2 




F2214260 
F2214270 

f* t *v % 4 4fe r% ^ 






06425 





40000 


03704 




ADD 


CI 








06426 





60100 


05064 


RES55 


STO 


E2 




F2214280 

T? »* »* i *. *» rt r\ 






06427 





50000 


03712 




CLA 


01 




F2214290 






06430 





60100 


05065 


RES60 


STO 


E3 




F2214300 






06431 


3 


00004 2 


06433 




TXH 


RES65*2.4 


IF PREFIX IS 1*0*0* 


F2214310 






06432 


3 


00003 2 


06620 




TXH 


RES400»2»3 


T RA TO RES400 


F2214320 






06433 


-0 


53400 1 


04007 


RES65 


LXD 


RESXX.l 


SEARCH 


F2214330 






06434 


-0 


63400 1 


06445 




SXD 


RES75.1 


RETAB 


F2214340 






06435 





53400 1 


04007 




LXA 


RESXX.l 


FOR 


F2214350 






06436 





02000 


06445 




TRA 


RES75 


SAME 


F22 14360 






06437 





50000 1 


07755 


RES70 


CLA 


RETABZ*1 


INDEX. 


F2214370 

F" *"fc *^ % d *^- A A 






06440 


-0 


32000 


03772 




ANA 


DECMSK 




F2214380 






06441 





34000 


06614 




CAS 


RES310 




F2214390 






06442 


1 


77775 1 


06445 




TXI 


RES75.1.-3 




F22 14400 






06443 





02000 


06447 




TRA 


RES80 


INDEX FOUND* GO TO RES80 


F2214410 






06444 


1 


77775 1 


06445 


RES73 


TXI 


RES75»l»-3 




F2214420 






06445 


3 


00000 1 


06437 


RES75 


TXH 


RES70»1 




F2214430 






06446 





02000 


06466 




TRA 


RES85 


NOT FOUND* GO TO RES85 


F22 14440 






06447 





50000 1 


07755 


RES80 


CLA 


RETABZfl 


COMPARE PREFIX OF 


F2214450 






06450 


-0 


32000 


06615 




ANA 


RES320 


RETAB ENTRY 


F2214460 






06451 





76700 


00006 




ALS 


6 


WITH CURRENT 


F22 14470 






06452 





40200 


06613 




SUB 


RES300 


PREFIX. IF NOT EQUAL* 


F2214480 






06453 


-0 


10000 


06444 




TN2 


RES73 


CONTINUE RETAB SEARCH. 


F2214490 






06454 





50000 1 


07756 




CLA 


RETABZ+1»1 


IF EQUAL. COMPARE 


F2214500 






06455 





40200 


05064 




SUB 


E2 


C HARACTERISTIC WORDS. 


F2214510 






06456 


-0 


10000 


06444 




TN2 


RES73 


IF 


F2214520 






©6457 
06460 






50000 1 
40200 


07757 
05065 




CLA 
SUB 


RETABZ+2»1 
E3 


NOT 


F2214530 
F2214540 






06461 


-0 


1000O 


06444 




TNZ 


RES73 


EQUAL* CONTINUE SEARCH. 


F2214550 






06462 





50000 1 


07755 




CLA 


RETA8Z.1 


IF EQUAL* 


F2214560 






06463 


-0 


32000 


03773 




ANA 


ADDMSK 


USE RESET TAG ALREADY 


F2214570 






06464 





60100 


06616 




STO 


RE5330 


ENTERED. SAVE NAME. 


F2214580 






06465 





02000 


06573 




TRA 


RES200 


TRA TO RES200 


F2214590 






06466 





50000 


06613 


RES85 


CLA 


RES300 


NO USABLE ENTRY FOUND. 


F2214600 






06467 





77100 


00006 




ARS 


6 


MAKE 


F2214610 






06470 


-0 


50100 


03700 




ORA 


TAG 


NEW 


F2214620 






06471 





60100 


06616 




STO 


RES330 




F2214630 


? { ' 




o 
















o 





n 



O 



06472 


-0 


50100 





06614 




OR A 


RES310 


ENTRY 


F22 14640 


06473 


-0 


53400 


1 


04007 




LXD 


RESXXtl 


IN 


F2214650 


06474 


3 


00000 


1 


06476 




TXH 


RES87.1»0 


RETAB. 


F2214660 


06475 





07400 


4 


00004 




TSX 


DIAG»4 RETAB 


TABLE FULL. ERROR. GO TO 


DIAGNOSTIC. F2214675 


06476 





60100 


1 


07755 


RES87 


STO 


RETABZtl 




F2214680 


06477 





50000 





05064 




CLA 


E2 




F22 14690 


06500 





60100 


1 


07756 




STO 


RETABZ+lfl 




F2214700 


06501 





50000 





05065 




CLA 


E3 




F2214710 


06502 





60100 


1 


07757 




STO 


RETABZ+Zil 




F2214720 


06503 


1 


77775 


1 


06504 




TXI 


RES88*l»-3 


ADJUST IN DEX. 


F2214730 


06504 


-0 


63400 


1 


04007 


RES88 


SXD 


RESXXtl 




F2214740 


06505 





50000 





06614 




CLA 


RES310 


MAKE E2 WORD 


F22 14750 


06506 


3 


00005 


2 


06522 




TXH 


RES96*2t5 


FOR DRUMTAG OR 


F2214760 


06507 


3 


00004 


2 


06521 




TXH 


RES94»2t4 


TAGTAG ENTRY 


F2214770 


06510 


3 


00003 


2 


06520 




TXH 


RES92>2»3 




F2214780 


06511 


3 


0O002 


2 


06515 




TXH 


RES90»2»2 




F22 14790 


06512 


3 


00001 


2 


06522 




TXH 


RES96»2»1 




F2214800 


06«3 


O 


77100 


00022 




ARS 


18 




F2214810 


06514 





02000 





06522 




TRA 


RES96 




F2214820 


06515 





77100 





00022 


RES90 


ARS 


18 




F2214830 


06516 





40000 





06614 




ADD 


RES310 




F2214840 


06517 





02000 





06522 




TRA 


RES96 




F22 14850 


06520 





50000 





03751 


RES92 


CLA 


L(0) 




F2214860 


06521 





77100 





00022 


RES94 


ARS 


18 




F2214870 


06522 





60100 





05064 


RES96 


STO 


E2 




F2214880 


06523 





50000 





06614 




CLA 


RES310 


MAKE 


F2214890 


06524 





77100 





00022 




ARS 


18 


El WORD 


F2214900 


06525 


3 


00003 


2 


06527 




TXH 


RES98»2»3 




F2214910 


06526 





50000 





03751 




CLA 


L(0) 




F2214920 


06527 





60100 





05063 


RES98 


STO 


El 




F2214930 


06530 


-0 


53400 


1 


06614 




LXD 


R£S310»1 




F2214940 


06531 





50000 


1 


00733 




CLA 


DOTAGZtl 




F2214950 


06532 


-0 


32000 





03772 




ANA 


DECMSK 




F2214960 


06533 


-0 


60200 





05063 




0R5 


El 




F2214970 


06534 





50000 





06616 




CLA 


RES330 


MAKE 


F22 14980 


06535 





60100 





05065 




STO 


E3 


E3 WORD 


F2214990 


06536 





50000 





03757 




CLA 


L(6) 


MAKE 


F2215000 


06537 





60100 





05066 




STO 


E4 


E4 


F2215010 


06540 





50000 





06613 




CLA 


RES300 


WORD 


F2215020 


06541 





77100 





00022 




ARS 


18 




F2215030 


06542 


-0 


60200 





05066 




ORS 


E4 




F2215040 


06543 


-3 


00002 


2 


06550 




TXL 


RES110»2*2 




F2215050 


06544 


-3 


00003 


2 


06546 




TXL 


RES100t2*3 




F2215060 


06545 


-3 


00004 


2 


06550 




TXL 


RES110*2»4 




F2215070 


06546 





76700 





00011 


RES100 


ALS 


9 




F2215080 


06547 


-0 


60200 





05066 




ORS 


E4 




F2215090 


06550 





50000 





03751 


RES110 


CLA 


LIO) 


THESE INSTRUCTIONS* 


F2215100 


06551 





60100 





06617 




STO 


RES340 


TO RES170* DETERMINE 


F2215110 


06552 


-0 


53400 


4 


03756 




LXD 


L(5).4 


WHICH COEFFICIENTS 


F2215120 


06553 





50000 


4 


03711 


RES120 


CLA 


Cl+5.4 


ARE GREATER THAN 


F2215130 


06554 





40200 





03752 




SUB 


L(l) 


ONE AND PLACE 


F2215140 


06555 





10000 





06562 




TZE 


RES140 


THIS INFO IN 


F2215150 


06556 


2 


00001 


4 


06557 




TIX 


RES13Q,4»1 


E4ITAG1). 


F2215160 


06557 


-0 


75400 


4 


00000 


RES130 


PXD 


0»4 




F2215170 



j 



',1 





06560 


-0 


60200 





06617 




ORS 


RES340 




06561 


1 


00001 


4 


06562 




TXI 


RES140.4.1 




06562 


2 


00002 


4 


06553 


RES140 


TIX 


RES120»4»2 




06563 





50000 





06617 




CLA 


RES340 




06564 


-0 


32000 





06613 




ANA 


RES300 




06565 





77100 





00006 




ARS 


6 




06566 


-0 


60200 





05066 




ORS 


E4 




06567 





50000 





05073 




CLA 


DRMTAG 




06570 





07400 


4 


05025 




TSX 


L1ST.4 




06571 





02000 





06573 




TRA 


RES200 




06572 





07400 


4 


05510 


RES180 


TSX 


TAGENT.4 




06573 


-0 


53400 


1 


06614 


RES200 


LXD 


RES310tl 




06574 





50000 


1 


00733 




CLA 


DOTAGZ.l 




06575 





60100 





05063 




STO 


El 




06576 





50000 





03741 




CLA 


TL2 




06577 





77100 





00022 




ARS 


18 




06600 





40000 





03740 




AOD 


TL1 




06601 





60100 





05064 




STO 


E2 




06602 





50000 





06616 




CLA 


RES330 




06603 





76700 





00022 




ALS 


18 




06604 





40000 





03701 




ADO 


TS 




06605 


-0 


76000 





00003 




SSM 






06606 





60100 





05065 




STO 


E3 




06607 





50000 





05070 




CLA 


TRASTO 




06610 





07400 


4 


05025 




TSX 


LIST.4 




06611 


-0 


53400 


4 


06421 


RES210 


LXD 


RES45»4 




06612 





02000 


4 


00001 




TRA 


lt4 


A 


06613 





00000 





00000 


RES300 


HTR 




A 


06614 





00000 





00000 


RES310 


HTR 






06615 


+000000070000 


RES320 


OCT 


70O0O 


A 


06616 





00000 





00000 


RES330 


HTR 




A 


06617 





00000 





00000 


RES340 


HTR 






06620 





50000 





05064 


RES400 


CLA 


E2 




06621 





40200 





03752 




SUB 


L(l) 




06622 


-0 


10000 





06433 




TNZ 


RES65 




06623 





50000 


1 


O0733 




CLA 


DOTAGZ.l 




06624 





77100 





00021 




ARS 


17 




06625 





76000 





00001 




LBT 






06626 





02000 





06630 




TRA 


RES410 




06627 





02000 





06433 




TRA 


RES65 




06630 





50O00 


1 


00741 


RES410 


CLA 


D0TAGZ+6»1 




06631 


-0 


32000 





04001 




ANA 


BITTWO 




06632 


-0 


10000 





06645 




TN2 


RES420 




06633 





50000 





03741 




CLA 


TL2 




06634 





77100 





00022 




ARS 


18 




06635 


-0 


50100 





03740 




ORA 


TL1 




06636 


-0 


76000 





00003 




SSM 






06637 





76500 





00043 




LRS 


35 




06640 


-0 


75400 


1 


00000 




PXD 


0*1 




06641 


-0 


50100 





03701 




ORA 


TS 




06642 


-0 


53400 


2 


03752 




LXD 


Lll)»2 




06643 





07400 


4 


05254 




TSX 


TAGADDt4 




06644 





02000 





06611 




TRA 


RES210 




06645 





07400 


4 


05140 


RES420 


TSX 


RSR»4 



DRUM TAG ENTRY 

OR 

TAGTAG 

ENTRY. 

MAKE 

PROPER 

TRASTO 

ENTRY 



EXIT. 

PREFIX STORAGE 

INDEX STORAGE 

PREFIX MASK 

RESET NAME STORAGE 

E.S. 

TEST FOR COEFFICIENT 

EQUAL TO ONE. 

IF NOT* PROCESS NORMALLY 

THROUGH RESET. 

TEST FOR CONSTANT Nl. 

IF VARIABLE. NORMAL PROCESSING. 



1 

HAS COUNTER BEEN FOUND. 

IF SO» GO TO RES420 
IF NOT» MAKE ENTRY 
IN ADDED TAG TABLE 
FOR PROCESSING INTO 
DRUM TAG AFTER NEST 
ANALYSIS. 



TRA TO EXIT 

COUNTER FOUNDt USE RSR. 



F2215180 
F2215190 
F22 15200 
F2215210 
F2215220 
F2215230 
F2215240 
F2215250 
F2215260 
F2215270 
F2215280 
F2215290 
F2215300 
F2215310 
F2215320 
F2215330 
F2215340 
F2215350 
F2215360 
F2215370 
F2215380 
F2215390 
F2215400 
F2215410 
F2215420 
F2215430 
F2215440 
F2215450 
F2215460 
F2215470 
F2215480 
F2215490 
F2215500 
F2215510 
F2215520 
F2215530 
F2215540 
F2215550 
F2215560 
F2215570 
F2215580 
F2215590 
F2215600 
F2215610 
F2215620 
F2215630 
F2215640 
F2215650 
F2215660 
F2215670 
F2215680 
F2215690 
F2215700 
F2215710 



# 



fJ 



u 



O 



n 



n 



06646 02000 06611 



06647 
06650 



76200 
02000 



00221 
00004 
06651 
06771 
06772 
07135 
07136 
07301 
07302 
07755 



NORMRT 

TAGZ 
ADTAGZ 
NAMZ 
RETABZ 













05566 




ORG 


IDENI 




05566 


-0 


53400 


1 


00030 


CORES 


LXD 


DOTAG-l*l 




05567 


-0 


63400 


1 


05602 




SXD 


DSDR20»1 




05570 


-0 


63400 


1 


05745 




SXD 


DSD118*1 




05571 


-0 


63400 


1 


05762 




SXD 


DSD145»1 




05572 


-0 


63400 


1 


06026 




SXD 


2R0O2O*l 




05573 


-0 


76000 





00144 


DSDROO 


MSE 


100 




05574 





76100 





00000 




NOP 






05575 


-0 


53400 


1 


03674 




LXD 


XC»1 




05576 


-0 


53400 


4 


03732 




LXD 


DELTA* 4 




05577 





50000 





03675 




CLA 


LC 




05600 





62200 





05605 




STD 


DSDR30 




05601 


1 


77767 


1 


05602 


DSDR10 


TXI 


DSDR20»l»-9 


D 


05602 


-3 


00000 


1 


05734 


DSDR20 


TXL 


DSD100»1 




05603 





50000 


1 


00740 




CLA 


DOTAGZ+5»l 




05604 


-0 


73400 


2 


00000 




PDX 


0*2 





05605 


-3 


00000 


2 


05734 


DSDR30 


TXL 


DSD100»2 




05606 





50000 


1 


00734 




CLA 


DOTAGZ+l*l 




05607 





40200 





03735 




SUB 


RSYM1 




05610 





10000 





05621 




TZE 


DSDR50 




05611 


-3 


00002 


4 


05601 




TXL 


0SDR10*4*2 




05612 





50000 


1 


00734 




CLA 


DOTA6Z+l»l 




05613 





40200 





03736 




SOB 


RSYM2 




05614 


-0 


10000 





05601 




TNZ 


0SDR10 




05615 





50000 





03736 




CLA 


RSYM2 




05616 





56000 





03735 




LDQ 


RSYM1 




05617 





60100 





03735 




STO 


RSYM1 




05620 


-0 


60000 





03736 




STQ 


RSYM2 




05621 


-0 


63400 


1 


06365 


DSDR50 


SXD 


XR1»1 




05622 


-0 


75400 


2 


00000 




PXD 


0*2 




05623 





60100 





06366 




STO 


LR1 




05624 





60100 





03741 




STO 


TL2 




05625 





50000 





03723 




CLA 


LL 




05626 





60100 





03740 




STO 


TL1 




05627 


-0 


53400 


2 


03752 




LXD 


L(l)»2 




05630 


-3 


00002 


4 


05632 




TXL 


DSDR55»4,2 




05631 


-0 


53400 


2 


03753 




LXD 


L(2)»2 



THE 2 WD SUBRT NORMRT SPACES TAPE 1 PAST DIAGNOSTIC RECORD. 

RDS 145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE. 

TRA ONETCS GO TO ONE TO CS I MONITOR) 

BSS 80 

BSS 1 

BSS 99 

BSS 1 

BSS 99 

BSS 1 

BSS 299 

BSS 1 

MASTER RECORD CARD = FN030 
THIS ROUTINE PROCESSES SINGLE RELATIVE CONSTANTS 
AND* FOR SC WITH TWO RC SUBS* DOES ALL PROCESSING 
EXCEPT WHERE THERE IS A POSSIBLE MULTIPLE DEFINITION* 
AT WHICH POINT IT CALLS ON 2R0OOO. 
STATE B 



PUT INDEX OF DC IN XRA 

PUT DELTA IN XRC 

INITIALIZE END OF 

DC TEST INSTR 

TAKE NEXT DOWN DO* IF POSSIBLE 

EXIT IF DOTAG EXHAUSTED. 

OBTAIN LEVEL OF THIS DO IN 

XRB*COMPARE WITH LEVEL OF 

D6 AND EXIT IF NOT IN DC. 

OBTAIN SYMBOL OF THIS DO 

COMPARE WITH (FIRST) R SYM. 

IF THIS DO IS DR1»TRA. 

IF NOT DR1»G0 BACK»UNLESS DELTA3 

OBTAIN SYMBOL AGAIN 

AND COMPARE WITH RSYM2 

IF NOT RSYM1 OR RSYM2,G0 BACK 

IF DO SYM IS RSYM2. 

SWITCH RSYM1 AND RSYM2 

TO MAKE BUCKET LABLES 

AGREE WITH ORDER OF DO FORMULAS 

SAVE 

INDEX OF Rl 

AND LEVEL OF Rl 

INITIALIZE TRAWRD TL2 

INITIALIZE TRAWRD TLl 

PREPARE 

TRAWRD C(XRB) 



F2215720 
F2215725 
F2215726 
F2215727 
F2215730 
F2215740 
F2215750 
F2215760 
F2215770 
F2215780 
F2215790 
F2215800 
F2215805 
F2215810 
F2215820 
F2215830 
F2215840 
F22 15*50 
F2215860 
F2215870 
F2215880 
F2215890 
F2215900 
F2215910 
F2215920 
F2215930 
F2215940 
F2215950 
F2215960 
F2215970 
F2215980 
F2215990 
F2216000 
F2216O10 
F2216020 
F2216030 
F2216040 
F2216050 
F2216060 
F2216070 
F2216080 
F2216090 
F221610O 
F2216110 
F2216120 
F2216130 
F2216140 
F2216150 
F2216160 
F2216170 
F2216180 
F2216190 
F2216200 
F2216210 



;o 



05632 





07400 


4 


05441 


0SDR55 


TSX 


TRAWRD»4 


05633 





60100 





06371 




STO 


D2D1 


05634 


-0 


53400 


4 


03732 




LXD 


DELTA.4 


05635 


3 


00002 


4 


05703 




TXH 


DSDR85»4*2 


05636 





10000 





05602 




TZE 


DSDR20 


05637 


-0 


63400 


1 


05733 




SXD 


DSDR95.1 


05640 


-3 


ooooi 


4 


05655 




TXL 


DSDR65.4.1 


05641 





50000 





03761 




CLA 


L(36) 


05642 





40200 





03675 




SUB 


LC 


05643 





77100 





00022 




ARS 


18 


05644 





62100 





05647 




STA 


DSDR60 


05645 





56000 





03751 




LDQ 


L<0) 


05646 





50000 





06371 




CLA 


D2D1 


05647 





76500 





00000 


0SDR60 


LRS 




05650 





10000 





05652 




TZE 


DS0R62 


05651 





76000 





00144 




PSE 


100 


05652 


-0 


60000 





06371 


DSDR62 


STQ 


D2D1 


05653 





50000 





06371 




CLA 


D2D1 


05654 





10000 





05700 




TZE 


DSDR80 


05655 





50000 





03672 


DSDR65 


CLA 


ATSW 


05656 


-0 


10000 





05700 




TNZ 


DSDR80 


05657 


-0 


53400 


1 


06365 




LXD 


XR1.1 


05660 





074O0 


4 


05411 




TSX 


TINF0R.4 


05661 





02000 





05667 




TRA 


DSDR70 


05662 


-0 


53400 


2 


03751 




LXD 


L<0)>2 


05663 


-0 


53400 


1 


06365 




LXD 


XR1»1 


05664 





07400 


4 


05254 




TSX 


TAGADD.4 


05665 


-0 


60000 





06374 




STQ 


TR1 


05666 





02000 





05675 




TRA 


DSDR75 


05667 


-0 


53400 


1 


06365 


DSDR70 


LXD 


XR1.1 


05670 





50000 


1 


00733 




CLA 


DOTAGZ.l 


05671 


-0 


32000 





03772 




ANA 


DECMSK 


05672 





40000 





03700 




ADD 


TAG 


05673 





07400 


4 


06376 




TSX 


GETNAM»4 


05674 





60100 





06374 




STO 


TR1 


05675 


-o 


53400 


1 


06365 


DSDR75 


LXD 


XR1.1 


05676 


-0 


53400 


2 


03751 




LXD 


L(0)»2 


05677 





07400 


4 


06431 




TSX 


ST0RES.4 


05700 


-0 


53400 


1 


05733 


DSDR80 


LXD 


DSDR95.1 


05701 


-0 


53400 


4 


03732 




LXD 


DELTA. 4 


05702 





02000 





05602 




TRA 


DSDR20 


05703 





10000 





06022 


DSDR85 


TZE 


2R0000 


05704 


-0 


53400 


1 


06365 




LXD 


XR1»1 


05705 


-0 


53400 


2 


03752 




LXD 


LUJ.2 


05706 





07400 


4 


05277 




TSX 


SPC000.4 


05707 





02000 





05717 




TRA 


DSDR87 


05710 


-0 


53400 


1 


06365 




LXD 


XRltl 


05711 





50O00 


1 


00733 




CLA 


DOTAGZ.l 


05712 


-0 


32000 





03772 




ANA 


DECMSK 


05713 





40000 





03700 




ADD 


TAG 


05714 





07400 


4 


06376 




TSX 


GETNAM.4 


05715 





60100 





06374 




STO 


TR1 


05716 





02000 





05726 




TRA 


DSDR89 


05717 


-0 


53400 


1 


06365 


DSDR87 


LXD 


XR1.1 



GO 70 TRAWRD AND 

SAVE IF NOT ZERO 

RETURN HERE 

TRANSFER IF DELTA IS THREE 

RETURN IF RESULT ZERO 

TR IF DELTA=1 

FOR DELTA=2. SEPARATE 

TRAWRD RESULTS. 



IF TRANSFERS EXIST DC TO DL» 
SET SENSE SWITCH 



IF NO TRANSFERS DR TO DC.EXIT 

TEST ADDED TAG SWITCH 

IF ADDED DELTA TWO, SKIP INSERT 

IS TAG IN DR1 

GO T© TINFOR AND RETURN 

FOUND 

NOT FOUND 

INSERT TAG IN Rl .RETURN 
HERE AND STORE NAME IN TR1 

FIND NAME OF TAG IN Rl 



LIST STORES 



GO TO R2 SEARCH IF NO TRA Rl TO D6 

IF TRA Rl TO DC. 

USE SPCOOO TO LOOK FOR 

TAG IN Rl 

NOT FOUND.GO TO DSDR87 

FOUND. USE SUBROUTINE 

6ETNAM TO DETERMINE LABLE 

OF TAG IN Rl 



PUT NAME IN TR1 

USE TAGADD TO INSERT 



F2216220 
F2216230 
F2216240 
F2216250 
F2216260 
F2216270 
F2216280 
F2216290 
F2216300 
F2216310 
F2216320 
F2216330 
F2216340 
F2216350 
F2216360 
F2216370 
F2216380 
F2216390 
F2216400 
F2216410 
F2216420 
F2216430 
F2216440 
F2216450 
F2216460 
F2216470 
F2216480 
F2216490 
F2216500 
F2216510 
F2216520 
F2216530 
F2216540 
F2216550 
F2216560 
F2216570 
F2216580 
F2216590 
F2216600 
F2216610 
F22 16620 
F2216630 
F2216640 
F2216650 
F2216660 
F2216670 
F2216680 
F2216690 
F22 16700 
F2216710 
F2216720 
F2216730 
F2216740 
F2216750 



■jr< 



U 



u 



n 



C") 





05720 


-0 


53400 


2 


03751 




LXD 


L(0J»2 




05721 





07400 


4 


05254 




TSX 


TAGADD»4 




05722 


-0 


60000 





06374 




STQ 


TR1 




05723 


-0 


53400 


1 


03722 




LXD 


XL»1 




05724 





50000 





04005 




CLA 


BIT20 




05725 


-0 


60200 


1 


00741 




ORS 


D0TAGZ+6*1 




05726 


-0 


53400 


1 


06365 


DSDR89 


LXD 


XRltl 




05727 


-0 


53400 


2 


03752 




LXD 


L(l)»2 




05730 





07400 


4 


06431 




TSX 


ST0RES#4 




05731 





02000 





06022 


DSDR90 


TRA 


2RO0O0 




05732 


-0 


53400 


4 


03732 


DSDR92 


LXD 


DELTA. 4 





05733 


-3 


00000 





05602 


DS0R95 


TXL 


DSDR20»0 




05734 


-3 


00001 


4 


06021 


DSD100 


TXL 


DSD200»4»1 




05735 


3 


00002 


4 


06021 




TXH 


DSD200.4.2 




05736 


-0 


76000 





00144 




MSE 


100 




05737 





02000 





05741 




TRA 


DSD110 




05740 





02000 





05776 




TRA 


DSD170 




05741 


-a .53-400 


1 


03722 


DSD110 


LXD 


XL.l 




05742 





50000 


1 


00740 




CLA 


D0TAGZ+5»1 




05743 





62200 





05750 




STD 


DSD120 




05744 


1 


77767 


1 


05745 


DSD115 


TXI 


DSDU8»lt-9 





05745 


-3 


00000 


1 


06021 


DSD118 


TXL 


DSD200»1 




05746 





50000 


1 


00740 




CLA 


D0TAGZ+5»1 




05747 


-0 


73400 


2 


OOOQO 




PDX 


0*2 


D 


05750 


-3 


00000 


2 


06021 


DSD120 


TXL 


DSD200»2 




05751 


-0 


75400 


1 


OOOOO 




PXD 


0*1 




05752 





40200 





03674 




SUB 


XC 




05753 





10000 





05760 




TZE 


DSD130 




05754 





50000 


1 


00734 




CLA 


D0TAGZ+1»1 




05755 





40200 





03735 




SUB 


RSYM1 




05756 





10000 





05767 




TZE 


DSD160 




05757 





02000 





05744 




TRA 


DSD115 




05760 


-0 


63400 


2 


05765 


DSD130 


SXD 


DSD150»2 




05761 


1 


77767 


1 


05762 


0SD140 


TXI 


DSD145»l»-9 





05762 


-3 


ooooo 


1 


06021 


DSD145 


TXL 


DSD200.1 




05763 





50000 


1 


00740 




CLA 


DOTAGZ+5.1 




05764 


-0 


73400 


2 


OOOOO 




PDX 


0*2 





05765 


-3 


OOOOO 


2 


05750 


DSD150 


TXL 


DSD120»2 




05766 





02000 





05761 




TRA 


DSD140 




05767 


-0 


75400 


2 


OOOOO 


DSD160 


PXD 


0*2 




05770 





60100 





03741 




STO 


TL2 




05771 





50000 





03723 




CLA 


LL 




05772 





60100 





03740 




STO 


TL1 




05773 


-0 


53400 


2 


03752 




LXD 


L(l)»2 




05774 





07400 


4 


05441 




TSX 


TRAWRD»4 




05775 





10000 





05745 




TZE 


DSD118 




05776 


-0 


53400 


2 


03722 


DSD170 


LXD 


XL. 2 




05777 





50000 





04000 




CLA 


BITONE 




06000 


-0 


60200 


2 


00740 




ORS 


D0TAGZ+5»2 




06001 


-0 


53400 


2 


03750 




LXD 


L0WP0S»2 




06002 





50000 





03751 




CLA 


L(0) 




06003 





60100 


2 


03721 




STO 


Xl+5.2 




06004 





60100 


2 


03722 




STO 


Xl+6.2 




06OC5 


2 


00001 


2 


06006 




TIX 


DSD175.2.1 



TAG IN Rl 

PUT NAME IN TR1 

LIST STORES 



GO TO R2 ROUTINE AND 

RETURN HERE 

NEXT Rl. DEC CONTAINS XNEXTR1 

TRA IF DELTA IS 1 

TRA IF DELTA IS 3 

DELTA IS 2»TEST D3D1 SWITCH 

LIGHT OFF 

LIGHT ON 

OBTAIN INDEX OF DL IN XRA 

OBTAIN LEVEL OF DL 

AND STORE IN TEST INSTR. 

TAKE NEXT DOWN DO IF POSSIBLE 

OTHERWISE.EXIT. 

OBTAIN LEVEL OF THIS DO 

AND TEST WHETHER THIS DO IS 

IN DL. IF NOT.EXIT. 

IF IN DL. 

IF THIS DO D6. 

IF SO»TRA. 

IF NOT*IS THIS DO A DR. 

IF SO.TRA. 

IF NOT*GO BACK TO GET NEXT DO 

IF DO IS DC* 



IS NEW IN DL. 

IF SO. GO BACK TO STEP DOWN 

AGAIN IN DC. IF NOT IN 

DC* GO TO TEST IF IN OL 

INITIALIZE 

TL2 TO LEVEL OF OR 

PUT LEVEL OF DL 

IN TL1 

PUT 1 IN XRB 

AND GO TO TRAWRD. 

IF RESUTL ZERO .GO BACK 



F22 16760 

F2216770 

F2216780 

F2216790 

F2216800 

F2216810 

F2216820 

F2216830 

F 2216840 

F2216850 

F2216860 

F2216870 

F2216880 

F2216890 

F2216900 

F2216910 

F221692Q 

F2216»30 

F22 16940 

F22 16950 

F22 16960 

F22 16970 

F2216980 

F2216990 

F22 17000 

F2217010 

F2217020 

F2217030 

F2217040 

F2217050 

F2217060 

F2217070 

F2217080 

F2217090 

F2217100 

F2217110 

F2217120 

F2217130 

F2217140 

F2217150 

F2217160 

F2217170 

F2217180 

F2217190 

F2217200 

F2217210 

F2217220 

F22 17230 

F2217240 

F2217250 

F2217260 

F2217270 

F2217280 

F22 17290 



;1' 





06006 


-0 


75400 


2 


ooooo 


DSD175 


PXD 


0*2 






06007 


-0 


60200 





03727 




ORS 


DORC 






06010 





76000 





00006 




COM 








06011 





32000 





03731 




ANS 


DOSUBS 






06012 





50000 





03674 




CLA 


XC 






06013 





60100 





03722 




STO 


XL 






06014 





50000 





03675 




CLA 


LC 






06015 





60100 





03723 




STO 


LL 






06016 





50000 





03752 




CLA 


L(l) 






06017 





60100 





03726 




STO 


NRDS 






06020 





60100 





03732 




STO 


DELTA 






06021 





02000 





06123 


DSD200 


TRA 


DS4VAL 




















RELCON DELTA THREE SECOND 




06022 


-0 


53400 


1 


06365 


2R00OO 


LXD 


XRltl 






06023 





50000 





06366 




CLA 


LR1 






06024 





62200 





06031 




STD 


2R0030 






06025 


1 


77767 


1 


06026 


2R0010 


TXI 


2R0020.1.-9 




D 


06026 


-3 


00000 


1 


05732 


2R002O 


TXL 


DSDR92.1 






06027 





50000 


1 


00740 




CLA 


D0TAGZ+5tl 






O6030 


-0 


73400 


2 


OOOOO 




PDX 


0*2 







06031 


-3 


00000 


2 


05732 


2R0030 


TXL 


DSDR92»2 






06032 





50000 


1 


00734 




CLA 


D0TAGZ+1»1 






06033 





40200 





03736 




SUB 


RSYM2 






06034 


-0 


10000 





06025 




TNZ 


2R0010 






06035 


-0 


63400 


1 


06367 




SXD 


XR2.1 






06036 


-0 


75400 


2 


OOOOO 




PXD 


0.2 






06037 





60100 





06370 




STO 


LR2 






06040 





60100 





03741 




STO 


TL2 






06041 





50000 





03675 




CLA 


LC 






06042 





60100 





03740 




STO 


TL1 






06043 


-0 


53400 


2 


03752 




LXD 


L(l)»2 






06044 





07400 


4 


05*41 




TSX 


TRAWRD»4 






06045 





10000 





06026 




TZE 


2R0020 






06046 


-0 


63400 


1 


06072 




SXD 


2R0065»1 






06047 





60100 





06373 




STO 


D3D2 






06050 





50000 





03761 




CLA 


L(36) 






06051 





40200 





06366 




SUB 


LR1 






06052 





77100 





00022 




ARS 


16 






06053 





62100 





06056 




STA 


2R0O50 






06054 





56000 





03751 




LDQ 


L(0) 






06055 





50000 





06373 




CLA 


D3D2 




A 


06056 





76500 





OOOOO 


2R0050 


LRS 








06057 





60100 





06372 




STO 


D3D1 






06O60 


-0 


60000 





06373 




STQ 


D3D2 






06061 





50000 





06372 




CLA 


D3D1 






06062 


-0 


10000 





06065 




TNZ 


2R0060 






06063 





50000 





06371 




CLA 


D2D1 






06064 





10000 





06121 




TZE 


2R0200 






06065 


-0 


53400 


1 


06367 


2R0060 


LXD 


XR2»1 






06066 





07400 


4 


05411 




TSX 


TINF0R.4 






06067 





02000 





06100 




TRA 


2R0080 






06070 


-0 


53400 


1 


06367 




LXD 


XR2.1 






06071 





07400 


4 


06413 




TSX 


ADDSER.4 







06072 


-3 


00000 





06105 


2R0065 


TXL 


2R0090.0 





LEVEL DEFINITION. 

PUT INDEX OF Rl IN XRA 

OBTAIN LEVEL OF Rl 

INITIALIZE TEST INSTR. 

TAKE NEXT DOWN DO IF POSSIBLE 



F2217300 
F2217310 

F2217320 

F2217330 

F2217340 

F2217350 

F 22 17360 

F2217370 

F2217380 

F2217390 

F221740O 

F2217410 

F2217420 

F2217430 

F 22 17440 

F2217450 

F2217460 



EXIT IF PARTLY FULL DOTAG EXHAUSTEDF2217470 



OBTAIN LEVEL OF DO 

PUT IN XRB AND COMPARE WITH 

LR1.EXIT IF NEW DO NOT IN XRli 

OBTAIN SYMBOL OF NEW D0» 

COMPARE WITH RSYM2. 

IF NOT RSYM2»60 BACK. 

SAVE INDEX 

AND LEVEL 

OF R2. 

PREPARE FOR TSX TO TRAWRD. 

TO TEST FOR TRANSFERS 

FROM R2 TO DS. 

IF NO TRANSFERS. GO BACK 
FOR NEXT DO. 

TEMPORARY STORAGE 
PUT 36 IN ACC 
SUB LEVEL OF Rl. 
SHIFT RESULT AND 

PUT ZERO IN MQ. 

OBTAIN TRAWRD RESULT. 

PERFORM SEPARATION 

AND SAVE 

RESULTS. 

IF D3D1 IS ZERO.THEN D3D2 

IS NOT ZERO 

IF D2D1 IS ZERO* 

TR TO GET NEX DO 

SEARCH FOR TAG 

IN R2 

FOUND. TR TO OBTAIN NAME 

NOT FOUND. LOOK FOR DELTA TWO 

INSERT IN ADDED TAG TABLE. 

FOUND. NAME IN ACC. 



F2217480 
F2217490 
F2217500 
F2217510 
F2217520 
F2217530 
F2217540 
F2217550 
F2217560 
F2217570 
F2217580 
F2217590 
F2217600 
F2217610 
F2217620 
F2217630 
F2217640 
F2217650 
F2217660 
F22 17670 
F2217680 
F2217690 
F2217700 
F2217710 
F2217720 
F2217730 
F2217740 
F2217750 
F2217760 
F2217770 
F2217780 
F2217790 
F2217800 
F2217810 
F2217820 
F2217830 



2?^ 



u 



O 



r 



o 



06073 -0 53400 1 06367 LXO XR2*1 

06074 -0 53400 2 03751 LXD 1.(0) .2 

06075 07400 4 05254 TSX TAGAD0.4 

06076 -0 60000 06375 STQ TR2 

06077 02000 06106 TRA 2R0100 

06100 -0 53400 1 06367 2R0080 LXO XR2»1 

06101 50000 1 00733 CLA DOTAGZ.l 

06102 -0 32000 03772 ANA DECMSK 

06103 40000 0370O ADD TAG 

06104 07400 4 06376 TSX GETNAM»4 

06105 60100 06375 2R0090 STO TR2 

06106 50000 06372 2R0100 CLA D3D1 

06107 10000 06113 TZE 2R0150 

06110 -0 53400 1 06367 LXD XR2»1 

06111 -0 53400 2 03753 LXD L<2)»2 

06112 07400 4 06431 TSX ST0RES.4 

06113 50000 06373 2R0150 CLA D3D2 

06114 10000 06121 TZE 2R02O0 

06115 50000 06371 CLA D2D1 

06116 10000 06121 TZE 2R0200 

06117 -0 53400 1 06367 LXD XR2»1 

06120 07400 4 06447 TSX STORXX.4 

06121 -0 53400 1 06072 2R0200 LXD 2R0065»1 

06122 02000 06026 TRA 2R0020 

DRUM SEARCH OF FORVAL 

06123 -0 53400 1 04112 DS4VAL LXD END80»1 

06124 -3 00000 1 06207 TXL DS4V20.1.0 

06125 50000 03700 CLA TAG 

06126 76700 00022 ALS 18 

06127 40000 03701 ADD TS 

06130 60100 05064 STO E2 

06131 -0 76000 00144 MSE 100 

06132 76100 00000 NOP 

06133 50000 03676 CLA ALPHA 

06134 60100 03742 STO A 

06135 50000 03677 CLA BETA 

06136 40000 03765 ADD LUJA 

06137 60100 03743 STO B 

06140 50000 06363 CLA 4VALAD 

06141 60100 06362 STO FORAD 

06142 -0 53400 1 03751 LXD LCO.l 

06143 07400 4 06210 TSX FSXX.4 

06144 -0 53400 4 03732 LXD DELTA. 4 

06145 3 00002 4 06207 TXH DS4V20.4.2 

06146 -3 00001 4 06207 TXL DS4V20.4.1 

06147 76000 00144 PSE 100 

06150 50000 03743 CLA B 

06151 60100 03744 STO NEXTA 

06152 50000 03742 CLA A 

06153 60100 03743 STO 6 

06154 -0 53400 2 03722 LXD XL. 2 

06155 50000 2 00733 CLA D0TAGZ»2 

06156 73400 2 00000 PAX 0»2 

06157 -0 32000 03772 ANA DECMSK 



NOT FOUND 

ADD TAG 

IN TABLE OF ADDED TAGS 

PUT NAME IN TR2 

SEARCH 

FOR 

NAME 



PUT NAME IN TR2 

LIST STORES.IF ANY TR. 

FOR TRANSFERS 

0301 



TEST TR 

D3D2 

TEST TR 

D2D1 

LIST STORES 

RETURN FOR 
NEXT R2 

OBTAIN FORVAL EMPTY INDICATOR. 
EXIT IF FORVAL EMPTY 
PRESET WORD E2 FOR LIST 
ROUTINE»TAU TAG AND NAME 



LIGHT 100 OFF 

THESE INSTRUCTIONS SET UP 
FOR DRUM SEARCH. 



OBTAIN LOCATION FO FIRST 
FORVAL DRUM ENTRY.STORE IN 
LDA ADDRESS. PUT ZERO 
IN XRA AND GO TO 
SEARCH ROUTINE. UPON RETURN. 
ECIT UNLESS DELTA IS 2. 
IN WHICH CASE. CONTINUE 
TURN INDICATOR LI6HT ON 
THE FOLLOWING INSTR. 
SET UP TWO ADDITIONAL 
RANGES FOR SEARCHING. 
THOSE FORMULAS OUTSIDE 
OF DC BUT WITHIN DL. 
IN THESE SPECIAL RANGES 
AS SOON AS ONE ENTRY IS 
FOUND IN EITHER RANGE* 



F2217840 

F2217850 

F2217860 

F2217870 

F2217880 

F2217890 

F2217900 

F2217910 

F2217920 

F2217930 

F2217940 

F2217950 

F2217960 

F2217970 

F2217980 

F2217990 

F22180OO 

F2218010 

F2218020 

F2218030 

F2218040 

F2218050 

F2218060 

F2218070 

F2218080 

F2218090 

F2218100 

F2218110 

F2218120 

F2218130 

F2218140 

F2218150 

F 2218160 

F2218170 

F2218180 

F2218190 

F 2218200 

F2218210 

F2218220 

F2218230 

F2218240 

F2218250 

F2218260 

F2218270 

F2218280 

F2218290 

F2218300 

F2218310 

F2218320 

F2218330 

F2218340 

F2218350 

F2218360 

F2218370 



;?3 



06160 
06161 
06162 
06163 
06164 
06165 
06166 
06167 
06170 
06171 
06172 
06173 
06174 
06175 
06176 
06177 
06200 
06201 
06202 
06203 
06204 
06205 
06206 
06207 
06210 
06211 
06212 
06213 
06214 
06215 
06216 
06217 
06220 
06221 
06222 
06223 
06224 
06225 
06226 
06227 
06230 
06231 
06232 
06233 
06234 
06235 
06236 
06237 
06240 
06241 
06242 
06243 
06244 
06245 



60100 
75400 
40000 
60100 
50000 
40000 
40200 
10000 
50000 
60100 
53400 
07400 
50000 
60100 
50000 
60100 
40200 
10000 
76000 
50000 
60100 
53400 
07400 
02000 
63400 
50000 
62200 
76200 
53400 
46000 
50000 
70000 
04000 
70000 
50000 
70000 
00003 
70000 
04000 
40200 
12000 
00000 
70000 
700©© 
00003 
70000 
70000 
00003 
53400 
02000 
63400 
63400 
63400 
53400 



03742 
00000 
03765 
03745 
03742 
03752 
03743 
06174 
06363 
06362 
03751 
06210 
03744 
03742 
03745 
03743 
03742 
06207 
00144 
06363 
06362 
03751 
06210 
05555 
06231 
03756 
06361 
00302 
06300 
06362 
03742 
06472 
06232 
06473 
03743 
06474 
06225 
06566 
06235 
06472 
06242 
06353 
06473 
06474 
06217 
06567 
06570 
06225 
03751 
06227 
06255 
06265 
06262 
03762 



DS4V10 



DS4V20 

FSXX 

FS00 

FS05 



FS10 



FS20 
FS25 

FS28 

FS30 

FS4Q 



FS50 



CSOO 



STO 
PXD 
ADO 
STO 
CLA 
ADO 
SUB 
TZE 
CLA 
STO 
LXD 
TSX 
CLA 
STO 
CLA 
STO 
SUB 
TZE 
PSE 
CLA 
STO 
LXD 
TSX 
TRA 
SXD 
CLA 
STD 
RDS 
LXD 
LDA 
CLA 
CPY 
TLQ 
CPY 
CLA 
CPY 
TXI 
CPY 
TLQ 
SUB 
TPL 
TXL 
CPY 
CPY 
TXI 
CPY 
CPY 
TIX 
LXD 
TRA 
SXD 
SXD 
SXD 
LXD 



A 

0.2 

L(1)A 

LASTB 

A 

LCD 

B 

DS4V10 

4VALAD 

FORAD 

LIOJ.l 

FSXX*4 

NEXTA 

A 

LASTB 

B 

A 

DS4V20 

100 

4VALAD 

FORAD 

LfOltl 

FSXX. 4 

RELEND 

FS28.4 

LC51 

4VLHL8 

194 

BS71.2 

FORAD 

A 

BLOCK 

FS30 

BLOCK+1 

B 

BLOCK+2 

FS20.1.3 

BLOCK+60.2 

FS40 

BLOCK 

FS50 

BS99.0 

BLOCK+1 

BLOCK+2 

FS10.1.3 

BL0CK+61.2 

BLOCK+62.2 

FS20.2.3 

LC0J.2 

FS25 

CS20.2 

BS40.2 

BS25.1 

LC60J.2 



TO BE DONE* 



INITIALIZE 



IF THIS RANGE IS EMPTY. 
SKIP SEARCH* 



60 TO SEARCH ROUTINE 
A AND B FOR SECOND 
SPECIAL RANGE. 



EXIT 

SAVE TSX INDEX 

ERROR COUNTER 



FIND FIRST OR NEXT ADDRESS 

IN FORVAL.PUT A IN ACC. 

COPY FORMULA NR. 

A GREATER THAN FOR«NR.»TRA. 

A LESS.COPY BALANCE OF 

ENTRY. PUT B IN ACC. 

ADJUST XRA FOR THIS 

ENTRY. 

COPY NEXT FOR. NR. 

B GREAT THAN FOR. NR..TRA. 

TEST FIRST ENTRY. 

B GREATER THAN F.TRA 

B LESS THAN F.EXIT 

COPY BALANCE OF ENTRY.GO 

BACK IF POSSIBLE TO CONTINUE 

SEARCH FOR BEGINNING OF RANGE. 

THIS ENTRY IS IN RANGE. 

CONTINUE READING IN ENTRIES 

UNTIL BLOCK FULL OR RANGE 

EXCEEDED. 



THIS ROUTINE COMPUTES 



F2218380 

F2218390 

F22 18400 

F2218410 

F2218420 

F2218430 

F2216440 

F2218450 

F2218460 

F2218470 

F2218480 

F2218490 

F2218500 

F2218510 

F2218520 

F2218530 

F2218540 

F2218550 

F2218560 

F2218570 

F2218580 

F2218590 

F2218600 

F2218610 

F2218620 

F2218632 

F2218640 

F2218650 

F2218660 

F2218670 

F2218680 

F2218690 

F2218700 

F2218710 

F2218720 

F2218730 

F2218740 

F2218750 

F2218760 

F2218770 

F2218780 

F2218790 

F2218800 

F2218810 

F2218820 

F2218830 

F2218840 

F2218850 

F2218860 

F2218870 

F2218880 

F2218890 

F2218900 

F2218910 



ni 



v« **— - 



o 



o 





06246 


-0 


50000 2 


06566 


CS10 


CAL 


BLOCK+60.2 




06247 





36100 2 


06567 




ACL 


BLOCK+61.2 




06250 





60200 


06364 




SLW 


4VALES 




06251 





50000 


06364 




CLA 


4VALES 




06252 





40200 2 


06570 




SUB 


BLOCK+62.2 




06253 


-0 


10000 


06355 




TNZ 


4VLHLT 




06254 


1 


77775 2 


06255 




TXI 


CS20»2»~3 


D 


06255 


3 


00000 2 


06246 


CS20 


TXH 


CS10.2 




06256 





50000 


03735 


BSOO 


CLA 


RSYM1 




06257 


-0 


53400 4 


03732 




LXD 


DELTA»4 




06260 


-0 


53400 2 


03762 


BS10 


LXD 


L(60)»2 




06261 





34000 2 


06567 


BS20 


CAS 


BLOCK+61»2 





06262 


-3 


00000 


06264 


BS25 


TXL 


BS30»0 




06263 





02000 


06272 




TRA 


BS60 




06264 


1 


77775 2 


06265 


BS30 


TXI 


BS40.2.-3 





06265 


3 


00000 2 


06261 


BS40 


TXH 


BS20.2 




06266 


-3 


00002 4 


06275 


BS50 


TXL 


BS70.4.2 




06267 


-0 


53400 4 


03751 




LXD 


L 101*4 




06270 





50000 


03736 




CLA 


RSYM2 




06271 





02000 


06260 




TRA 


BS10 




06272 


-0 


76000 


00144 


BS60 


MSE 


100 




06273 





02000 


06307 




TRA 


BS80 




06274 





02000 


06327 




TRA 


BS90 




06275 


-0 


53400 2 


06265 


BS70 


LXD 


BS40*2 




06276 


3 


00000 2 


06353 




TXH 


BS99»2»0 




06277 


-0 


53400 1 


06262 




LXD 


BS25tl 




06300 


1 


00071 1 


06301 


BS71 


TXI 


BS72»1»57 




06301 


3 


02733 1 


06353 


BS72 


TXH 


BS99*1»1499 




06302 


-0 


75400 1 


00000 




PXD 


0*1 




06303 





77100 


00022 




ARS 


16 




06304 





40000 


06363 




ADO 


4VALAD 




06305 





60100 


06362 




STO 


FORAD 


D 


06306 


-3 


00000 


06211 


BS78 


TXL 


FSOO.O 




06307 





60100 


06364 


BS80 


STO 


4VALES 




06310 


-0 


53400 1 


03722 




LXD 


XL»1 




06311 





5OO0O 


04000 




CLA 


B I TONE 




06312 


-0 


60200 1 


00740 




ORS 


DOTAGZ+5.1 




06313 


-0 


53400 1 


03674 




LXD 


XC»1 




06314 


-0 


60200 1 


00740 




ORS 


DOTAGZ+5tl 




06315 





50000 2 


06566 




CLA 


BLOCK+60.2 




06316 





60100 


05063 




STO 


El 




06317 





50000 


05067 




CLA 


TSXCOM 




06320 


-0 


63400 2 


06326 




SXD 


BS85»2 




06321 


-0 


63400 4 


06306 




SXD 


BS78»4 




06322 





07400 4 


05025 




TSX 


LIST. 4 




06323 


-0 


53400 2 


06326 




LXD 


BS85»2 




06324 


-0 


53400 4 


06306 




LXD 


BS78»4 




06325 





50000 


06364 




CLA 


4VALES 


TO 


06326 


-3 


00000 


06264 


BS85 


TXL 


BS30 




06327 


-0 


53400 2 


03722 


BS90 


LXD 


XL»2 




06330 





50000 


04000 




CLA 


BITONE 




06331 


-0 


60200 2 


00740 




ORS 


DOTAGZ+5.2 




06332 


-0 


53400 2 


03750 




LXD 


L0WP0St2 




06333 





50000 


03751 




CLA 


L(0) 



THE CHECK SUMS OF THE 
ENTRIES AND COMPARES 

THEM WITH THE GIVEN CHECK 

SUMS. 

TRA TO EXIT IF BAD ENTRY. 

CONTINUE WITH BSOO 
THIS ROUTINE SEARCHES 
THE STORAGE BLOCK FOR 
RSYM1»AND RSYM2 IF DELTA 
IS THREE. 

EQUALITY FOUND.TRA. 
RE-ENTRY 



TEST TO SEE IF 
NORMAL SEARCH* OR IF 
SPECIAL CASE OF DELTA TWO. 
BLOCK SEARCH DONE. IF BLOCK 
WAS NOT FULL.EXlT. 
OTHERWISE. PREPARE TO CONTINUE 
SEARCH* IF MORE ENTRIES IN FORVAL. 

AND COMPUTE 
NEW FORVAL 
ADDRESS 

60 BACK TO CONTINUE SEARCH 
RSYM FOUND. ARRANGE TO 
SAVE INDEXED SUBSCRIPTS. 



RSYM FOUND »E2 PREVIOUSLY 
PREPARED .NOW PREPARE 
E1»SAVE ACC.XRB.XRC. 
AND LIST. 
AFTER LISTING. 
RESTORE ACC.XRB.XRC 
AND RETURN TO CONTINUE 
SEARCH. 



SPECIAL CASE.DELTA TWO. 
PUT IN BIT TO SAVE SL 

OBTAIN INDEX QUANTITY 1. 3* 5. 
FOR XL» 



F2218920 

F2218930 

F2218940 

F2218950 

F2218960 

F2218970 

F2218980 

F2218990 

F2219000 

F2219010 

F2219020 

F2219030 

F2219040 

F2219050 

F2219060 

F2219070 

F2219080 

F2219090 

F2219100 

F 2219110 

F2219120 

F221913Q 

F2219140 

F2219150 

F2219160 

F2219170 

F2219180 

F2219190 

F2219200 

F2219210 

F2219220 

F2219230 

F2219240 

F2219250 

F2219260 

F2219270 

F2219280 

F2219290 

F2219300 

F2219310 

F2219320 

F2219330 

F2219340 

F2219350 

F2219360 

F2219370 

F2219380 

F2219390 

F2219400 

F2219410 

F2219420 

F2219430 

F2219440 

F2219450 



;r> 





06334 





60100 


2 


03721 




STO 


Xl+5.2 


SET PROPER X AND L TO ZERO. 


F2219460 




06335 





60100 


2 


03722 




STO 


Xl+6»2 




F2219470 




06336 


2 


00001 


2 


06337 




TIX 


BS91»2»1 


ADJUST 1*3*5 TO 1*2*4* 


F2219480 




06337 


-0 


75400 


2 


00000 


BS91 


PXD 


0*2 


PUT IN ACC 


F2219490 




06340 


-0 


60200 





03727 


BS92 


ORS 


DORC 


AND PUT BIT IN DORC 


F2219500 




06341 





76000 





00006 




COM 




REMOVE BIT 


F2219510 




06342 





32000 





03731 




ANS 


DOSUBS 


FROM DOSUBS 


F22 19520 




06343 





50000 





03674 




CLA 


XC 




F2219530 




06344 





60100 





03722 




STO 


XL 




F2219540 

•* ** «V % A #• ^ 4t 




06345 





50000 





03675 




CLA 


LC 




F2219550 

^ *% ** ^ ^* ^ * f\ 




06346 





60100 





03723 




STO 


LL 




F2219560 




06347 





50000 





03752 




CLA 


L(l) 




F2219570 




06350 





60100 





03726 




STO 


NRDS 




F2219580 




06351 





60100 





03732 




STO 


DELTA 




F2219590 




06352 





02000 





06207 




TRA 


DS4V20 


EXIT 


F2219600 




06353 


-0 


53400 


4 


06231 


BS99 


LXD 


FS28.4 


EXIT FROM FSXX ENTRY 


F2219610 




06354 





02000 


4 


00001 




TRA 


1*4 




F 2219620 




06355 


-0 


53400 


2 


06361 


4VLHLT 


LXO 


4VLHL8»2 


IF THERE IS AN ERROR IN THE 


F2219630 




06356 


2 


00001 


2 


06360 




TIX 


4VLHL4»2»1 


CHECK SUM ROUTINE»THE BLOCK 


F2219640 




06357 





07400 


4 


00004 


4VLHL2 


TSX 


DlAGt4 WILL BE REREAD 5 


TIMES* { ERROR t GO TO DIAGNOSTIC. 


1F2219655 




06360 


-0 


63400 


2 


06361 


4VLHL4 


SXD 


4VLHL8»2 


BEFORE THE MACHINE STOPS* 


F2219660 


o 


06361 


-3 


00000 





06213 


4VLHL8 


TXL 


FS05»0 




F2219670 


A 


06362 


00000 





00000 


FORAD 


HTR 




DRUM ADDRESS FOR tDA INSTR. 


F2219680 




06363 





00000 





00312 


4VALAD 


HTR 


202 




F2219690 


A 


06364 





00000 





00000 


4VALES 


HTR 




E«S. 


F2219700 




06365 





00000 





00000 


XR1 








F2219710 
F2219720 




06366 





00000 





00000 


LR1 










06367 





00000 





00000 


XR2 








F2219730 




06370 





00000 





00000 


LR2 








F2219740 

t^ *% ** %- rf* *» f* 4% 




06371 





00000 





00000 


02D1 








F2219750 
F2219760 
F2219770 
F2219780 
F2219790 




06372 





00000 





00000 


D3D1 










06373 





00000 





00000 


D3D2 










06374 





00000 





00000 


TR1 










06375 





00000 





00000 


TR2 
























SUBROUTINE GETNAM 




F2219800 




06376 


-0 


53400 


1 


04011 


GETNAM 


LXD 


NAMXX.l 


THIS ROUTINE SEARCHES 


F2219810 




06377 


-0 


63400 


1 


06406 




SXD 


GETN20*1 


TABLE NAMZ FOR THE NAME 


F2219820 




06400 





53400 


1 


04011 




LXA 


NAMXXjl 


OF TAU TAG IN A PARTICULAR 


F2219830 




06401 





02000 





06406 




TRA 


GETN20 




F2219840 




06402 





34000 


1 


07301 


GETN05 


CAS 


NAMZ ♦ 1 


DO FORMULA* 


F2219850 




06403 





02000 





06405 




TRA 


GETN10 




F2219860 




06404 





02000 





06411 




TRA 


GETN30 




F2219870 




06405 


1 


77776 


1 


06406 


GETN10 


TXI 


GETN20»l»-2 




F2219880 


D 


06406 


3 


00000 


1 


06402 


GETN20 


TXH 


GETN05.1 




F2219890 




06407 


-0 


32000 





03773 




ANA 


ADDMSK 




F2219900 
F2219910 




06410 





02000 


4 


00001 




TRA 


1.4 






06411 





50000 


1 


07302 


GETN30 


CLA 


NAMZ+ltl 




F2219920 
F2219930 




06412 





02000 


4 


00001 




TRA 


1*4 




















SUBROUTINE ADDSER 




F2219940 




06413 


-0 


75400 


1 


00000 


ADDSER 


PXD 


0*1 




F2219950 




06414 





40000 





03700 




ADD 


TAG 




F2219960 




06415 


-0 


53400 


1 


04006 




LXD 


ADTXX»1 


PREPARE XRA AND DEC 


F2219970 




06416 


-0 


63400 


1 


06425 




SXD 


ADS030.1 


ADS030 FOR TABLE SEARCH. 


F2219980 




06417 





53400 


1 


04006 




LXA 


ADTXX.l 




F2219990 



1% 



u 



O 



n 



O 



06420 





02000 





06425 




TRA 


ADS030 


TRA FOR EMPTY TABLE TEST 


F2220000 


06421 





34000 


1 


07135 


AOS010 


CAS 


ADTAGI*1 




F222001O 


06422 





02000 





06424 




TRA 


ADS020 




F2220020 


06423 





02000 





06427 




TRA 


ADS040 


FIRST WORD FOUND 


F2220030 


06424 


1 


77776 


1 


06425 


ADS020 


TXI 


ADS03O.1.-2 




F2220040 


06425 


3 


00000 


1 


0642 1 


AOS030 


TXH 


ADS010.1 




F2220050 


06426 





02000 


4 


00002 




TRA 


2*4 


NOT FOUND 


F2220060 


06*27 





50000 


1 


07136 


ADS040 


CLA 


ADTAGZ+1.1 




F2220070 


06430 





02000 


4 


00001 


ADS050 


TRA 


1*4 

SUBROUTINES STORES AND 


STORXX 


F2220080 
F2220090 


06431 


-0 


63400 


4 


06464 


STORES 


SXD 


ST040t4 


THIS ROUTINE PREPARES 


F2220100 


06432 





50000 





06366 




CLA 


LR1 


AN ENTRY FOR TABLE TRASTO 


F2220110 


06433 





77100 





00022 




ARS 


18 


AND USES LIST TO ENTER 


F2220120 


06434 





40000 





03675 




ADO 


LC 


THE ENTRY ON THE PROPER 


F2220130 


06435 





60100 





05064 




STO 


E2 


DRUM TABLE. IF SPCOOO 


F2220140 


06436 





50000 





06374 




CLA 


TR1 


IS USED BY THE ROUTINE* 


F2220150 


06437 


-3 


00001 


2 


06441 




TXL 


ST020»2*1 


MANY ENTRIES MAY BE MADE 


F2220160 


06440 





50000 





06375 




CLA 


TR2 


IN TRA STO. 


F2220170 


06441 





76700 





00022 


ST020 


ALS 


18 


IF DELTA EQUALS ONE OR TWO* 


F2220180 


06442 





40000 





03701 




ADO 


TS 


THIS ROUTINE IS ENTERED 


F2220190 


06443 





60100 





05065 




STO 


E3 


THROUGH STORES WITH C(XRB) 


F2220200 


06444 


-3 


00000 


2 


06460 




TXL 


5T035*2»0 


ZERO. IF DELTA IS THREE 


F2220210 


06445 


-3 


00001 


2 


06465 




TXL 


ST050»2*1 


AND WE ARE WORKING ON 


F2220220 


06446 





02000 





06460 




TRA 


ST035 


TRANSFERS DR2 TO DS*THEN 


F2220230 


06447 


-0 


63400 


4 


06464 


STORXX 


SXD 


ST040.4 


STORES ENTRY IS USED WITH 


F2220240 


06450 





50000 





06370 




CLA 


LR2 


CtXRB)=2 


F2220250 


06451 





77100 





00022 




ARS 


18 


IF DELTA=3»TRA DR1 TO DS* 


F2220260 


06452 





40000 





06366 




ADD 


LR1 


STORES ENTRY IS USED WITH 


F2220270 


06453 





60100 





05064 




STO 


E2 


C(XRB)=>1 


F2220280 


06454 





50000 





06375 




CLA 


TR2 


IF DELTA=3»TRA DR2 TO DR1* 


F2220290 


06455 





76700 





00022 




ALS 


18 


ENTRY STORXX IS USED. 


F2220300 


06456 





40000 





06374 




ADD 


TR1 


CtXRB) NOT USED. 


F2220310 


06457 





60100 





05065 




STO 


E3 


LIST ROUTINE IS USED IN 

EVERY CASE»MAKING ONE 
TRASTO ENTRY. EXCEPT FOR 
CASE DELTA=3»TRA DR1 TO DS* 
C{XRBJ=1*WHEN SPCOOO IS USED. 


F2220320 
F2220330 
F2220340 
F2220350 
F2220360 


06460 





50000 


1 


00733 


ST035 


CLA 


D0TAGZ»1 


LIST ROUTINE USED 


F2220370 


06461 


Q 


60100 





O5063 




STO 


£4 




FZ22TJ380 


06462 





50000 





05070 




CLA 


TRASTO 




F2220390 


06463 





07400 


4 


05025 




TSX 


LIST.4 




F2220400 


06464 


-3 


00000 





06470 


ST040 


TXL 


ST100.0 




F2220410 


06465 


-0 


53400 


2 


03753 


ST050 


LXD 


LI2I.2 


SPCOOO USED. 


F2220420 


06466 





50000 





05070 




CLA 


TRASTO 




F2220430 


06467 





07400 


4 


05277 




TSX 


SPC0OO»4 




F2220440 


06470 


-0 


53400 


4 


06464 


ST100 


LXD 


ST040»4 


EXIT 


F2220450 


06471 





02000 


4 


00001 




TRA 


1.4 




F2220460 










06472 


BLOCK 


BSS 


60 




F2220470 










07730 




ORG 


4056 

MASTER RECORD CARD = 


FN029 


F2220460 
F2220485 


07730 


-0 


53400 


2 


07770 


PPONG 


LXD 


PG80»2 


ROUTINE PPONG SETS UP DRUM ONE FOR 


F2220490 


07731 





02000 





07733 




TRA 


P610 


PING-PONGING. 


F2220500 


07732 


-0 


53400 


2 


07767 




LXD 


PG70»2 




F2220510 


07733 


-0 


53400 


4 


07771 


PG10 


LXD 


PG90*4 




F2220520 



711 



07734 





76600 





00301 


PG15 


WRS 


193 






F2220530 


07735 


-0 


53400 


1 


07772 




LXD 


PG95»1 






F2220540 


07736 





46000 


2 


07767 




LDA 


PG60+2»2 






F2220550 


07737 





70000 


1 


06566 


PG20 


CPY 


CORESZ *1 






F2220560 


07740 


2 


00001 


1 


07737 




TIX 


PG20tl»l 






F2220570 


07741 





76600 





00333 




WRS 


219 






F2220580 


67742 





76200 





00301 




RDS 


193 






F2220590 


07743 


-0 


53400 


1 


07772 




LXD 


PG95.1 






F2220600 


07744 





46000 


2 


07767 




LDA 


PG60+2.2 






F2220610 


07745 





70000 


1 


05566 


PG30 


CPY 


CORES* 1 






F2220620 


07746 


2 


00001 


1 


07745 




TIX 


PG30»1*1 






F2220630 


07747 


-0 


53400 


1 


07772 




LXD 


PG95.1 






F2220640 


07750 


-0 


75400 





00000 




PXD 


0»0 


PG40-1 




F2220650 


07751 





36100 


1 


05566 


PG40 


ACL 


CORES* 1 






F2220660 


07752 


2 


00001 


1 


07751 




TIX 


PG40»1»1 






F2220670 


07753 





60200 





07773 




SLW 


PG99 






F2220680 


07754 





50000 





07773 




CLA 


PG99 






F2220690 


07755 





40200 


2 


07765 




SUB 


PG50+2»2 






F2220700 


07756 





10000 





07761 




TZE 


NORMRP 






F2220715 


07757 


2 


00001 


4 


07734 




TIX 


PG15»4*1 






F2220720 


07760 





07400 


4 


00004 




TSX 


DIAG»4 DRUM READ 


ERROR. 


. GO TO DIAGNOSTIC 


► F2220735 


07761 





76200 





00221 


NORMRP 


RDS 


145 SKIP OVER 


DIAGNOSTIC RECORD 


ON SYSTEM TAPE. 


F2220736 


07762 





02000 





00004 




TRA 


ONETCS GO TO ONE 


TO CS <MONIT0R)= 




F2220737 


07763 


+103075525444 


PG50 


OCT 


103075525444 CHECK. SUM 


, STATE B* RELCON 




F2220744 


07764 


-246744643200 




OCT 


-246744643200 CHECK SUM 


STATE A* NORMAL 




F2220754 


07765 


+000000001000 


PG60 


OCT 


1000 






F2220760 


07766 


+000000000000 




OCT 








F2220770 


07767 


+000001000000 


PG70 


OCT 


1000000 






F2220780 


07770 


+000002000000 


PG80 


OCT 


2000000 






F2220790 


07771 


+000005000000 


P690 


OCT 


5000000 






F2220805 


07772 


+001000000000 


PG95 


OCT 


1000000000 






F2220810 


07773 





00000 





00000 


PG99 


HTR 








F2220820 


07774 


-0 


63400 


1 


77777 


BURNCE 


SXD 


TOP»l DRUM OVERFLOW 




F2220825 


07775 





02000 





00004 
77777 
00222 
00223 
00224 
00301 
00303 
©03«4 
00141 
05565 
O40Q3 
04005 
04003 
06566 
00004 
00004 
00000 


TOP 
TAPE2 
DOTAPE 
ATAPE 
PPORM 
ADRUM 
TAUORM 
TL 

RELWDS 
ABIT 
BBIT 
SOBBIT 
CORESZ 
ONETCS 
DIAG 


TRA 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
SYN 
SYN 
SYN 
SYN 
SYN 
EQU 
EQU 
END 


DIAG ERROR 

32767 

146 

147 

148 

193 

195 

196 

97 

RELDRA+1 

SIT18 

BIT20 

BIT18 

CORES+512 

4 

4 


PROCEDURE. 




F2220826 
F2220827 
F2220830 
F2220840 
F222O850 
F2220860 
F2220870 
F2220880 
F 222 0890 
F2220900 
F2220910 
F2220920 
F2220930 
F2220940 
F2220945 
F2220946 
F2220950 



r/* 



n 



n 



REM BLOCK THREE OF SECTION TWO. 

BLOCK THREE OF SECTION TWO. 

MASTER RECORD CARD = FN036 F2300004 

BLOCK 3 OOES SUBSCRIPT ANALYSIS FOR F2300006 

THOSE SUBSCRIPT COMBINATIONS NO SUBSCRIPT F2300010 

ELEMENT OF WHICH IS UNDER CONTROL OF F230O02O 

A DO (PURE RELATIVE CONSTANTS). TWO F2300030 

TYPES OF TSXCOM TABLE ENTRIES ARE MADE IN ROUTINE FOUND F2300040 
WHICH WILL INDICATE TO SUCCEEDING BLOCKS THE NECESSITY TO F230O05O 
COMPILE EITHER DIRECT LXDS OF INDEX REG VALUES OR TSXS TO F2300060 
SUBROUTINES TO COMPUTE THOSE INDEX REG VALUES. FOUR TYPES OF F2300070 
TRASTO TABLE ENTRIES ARE MADE WHICH WILL INDICATE THAT F2300O80 
CERTAIN INDEXING INSTRUCTIONS SHOULD BE COMPILED ACCOMPANY INGF2300090 
THE TRANSFERS OUT OF THE RANGE OF DOS WHICH DEFINE VALUES 
OF THE SUBSCRIPTS IN QUESTION. FINALLY* TSXCOM ENTRIES AND 
TABLE IRV ENTRIES ARE SORTED AND WRITTEN ON DRUM. ROUTINES 
ENCOUNTERED IN BLOCK 2 WILL BE RECOGNIZED IN THIS BLOCK 3 - 
SUBCOM* TRAWORD. SPC» TINFOR* LIST. 

TABLE STORAGE 



00031 




ORG 


25 


00031 


NAME 


BSS 


1 


00032 




BSS 


449 


00733 


NAMZ 


BSS 


1 


00734 


FOR TAG 


BSS 


1 


00735 




BSS 


1499 


03670 


FORTZ 


BSS 


1 


03671 


FORVAL 


BSS 


1 


03672 




BSS 


1499 


06625 


4VALZ 


BSS 


1 


00031 




ORG 


25 


00031 


TCOM 


BSS 


1 


00032 




BSS 


749 


01407 


TCOMZ 


BSS 


1 


03671 




ORG 


1977 


03671 


DO TAG 


BSS 


1 


03672 




BSS 


1349 


06377 


DOTAGZ 


BSS 


1 


06400 




BSS 


149 


06625 


1RVZ 


BSS 


1 


06626 


TAG 


BSS 


1 


06627. 


TS 


BSS 


1 


06630 


TAGIND 


BSS 


1 


06631 


DELTA 


BSS 


1 


06632 


RSYM1 


BSS 


1 


06633 


RSYM2 


BSS 


1 


06634 


RSYM3 


BSS 


1 


06635 


CI 


BSS 


I 


06636 


SI 


BSS 


1 


06637 


C2 


BSS 


1 


06640 


S2 


BSS 


1 


06641 


C3 


BSS 


1 


06642 


S3 


BSS 


1 


06643 


Dl 


BSS 


1 


06644 


D2 


BSS 


1 


06645 


TL2 


BSS 


1 



ONEi OTHERWISE 
SUB COMB 



ADDRESS HAS FORTAG IX CURRENT 

NEW NAME 

ONE IF SOLITARY SUB COEFF 

COUNT OF NO OF SYMBOLS IN 

WORKING SYMBOL ONE 

WORKING SYMBOL TWO 

WORKING SYMBOL THREE 

COEFF FIRST SYMBOL 

FIRST SYMBOL 

COEFF 2ND SYMBOL 

2ND SYMBOL 

COEFF 3RD SYMBOL 

3RD SYMBOL 

DIM 1ST SYM» IF TWO-DIMENSIONAL 

DIM 2ND SYM« IF THREE-OIMENSIONAL 

LEVEL DOTAG MATCHING SUBXCRIPT SYMBOL 



ZERO 



F2300100 
F2300110 
F2300120 
F2300130 
F2300140 
F2300150 
F2300160 
F2300170 
F2300i80 
F2300190 
F2300200 
F2300210 
F2300220 
F2300230 
F2300240 
F2300250 
F2300260 
F2300270 
F23O028O 
F23O0290 
F23O0300 
F2300310 
F2300320 
F2300330 
F2300340 
F2300350 
F2300360 
F2300370 
F2300380 
F2300390 
F2300400 
F2300410 
F2300420 
F2300430 
F2300440 
F2300450 
F2300460 
F2300470 
F2300480 
F2300490 
F2300500 



vf] 











06646 


XR1 


B5S 


1 










06647 


LR1 


BSS 


1 










06650 


NEXTR1 


BSS 


1 










06651 


XR2 


BSS 


1 










06652 


LR2 


BSS 


1 










06653 


NEXTR2 


BSS 


1 










06654 


XR3 


BSS 


1 










06655 


NEXTR3 


BSS 


1 










06656 


SKIP 


BSS 


1 










06657 


TRABIT 


BSS 


1 










06660 


NEXTA 


BSS 


1 










06661 


LASTB 


BSS 


1 










06662 


A 


BSS 


1 










06663 


B 


BSS 


1 










06664 


IRVXX 


BSS 


1 


06665 





00000 





00000 


HO) 




0*0*0 


06666 





00001 





OOOOO 


L(l) 




0*0*1 


06667 





00002 





00000 


1.(2) 




0*0*2 


06670 





00003 





00000 


L(3) 




0*0*3 


06671 





00006 





OOOOO 


LC6) 




0*0*6 


06672 





00044 





00000 


L(36) 




0*0*36 


06673 





02506 





OOOOO 


H1350 




0*0*1350 


06674 





02734 





00000 


L(1500 




0*0*1500 


06675 


4-000000000001 


L(1)A 


OCT 


1 


06676 


-0 


00000 





OOOOO 


L(MZ) 


M2E 




06677 


+200000000000 


B I TONE 


OCT 


200000000000 


06700 


+000000400000 


BIT18 


OCT 


400000 


06701 


+177777777777 


340NES 


OCT 


177777777777 


06702 


+377777777777 


350NES 


OCT 


377777777777 


06703 


+000000077777 


ADDMSK 


OCT 


77777 


06704 


+077777000000 


DECMSK 


OCT 


77777000000 


06705 


-200000000000 


PREMSK 


OCT 


-200000000000 


06706 





00000 





00312 


DRMADD 




202 


06707 





00000 





01760 


NAMORG 




1008 


06710 





00000 





00031 


NAMAD 




NAME 


06711 





00702 





00000 


NAMAX 




0*0*450 


06712 





00000 





02430 


IRVORG 




1304 


06713 





ooooo 





06377 


IRVAD 




IRV 


06714 





00226 





00000 


IRVMAX 




0*0*150 


06715 





00000 





01300 


TCOMOR 




704 


06716 





OOOOO 





01302 


TSXORG 




706 


06717 





OOOOO 





00031 


TCOMAD 




TCOM 


06720 





01356 





00000 


TCOMAX 




0*0*750 


©6721 


© 







07776 


BLOCK3 


CLA 


4694 


06722 





60100 





07667 




STO 


LADDS 


06723 





50000 





07775 




CLA 


4093 


06724 





60100 





07670 




STO 


LADOS+1 


06725 





50000 





06714 




CLA 


IRVMAX 


06726 





60100 





06664 




STO 


IRVXX 


06727 


-0 


53400 


1 


00733 




LXD 


FORTAG-1*! 


06730 


3 


02733 


1 


07616 




TXH 


N0RMRT*1*1499 


06731 


-0 


53400 


2 


06671 


NAMRD 


LXD 


L(6)*2 


06732 





50000 





07777 


NAM 10 


CLA 


4095 


06733 





40200 





06707 




SUB 


NAMORG 



IX DOT AG MATCHING FIRST SUB SYMBOL (RSYM1) F2300510 
LEV DOTAG MATCHING 1ST SUB SYMB (RSYM1) F2300520 
IX LAST DOTAG OF NEST SEARCHED IN TRAWRD 1ST LVF2300530 
IX DOTAG MATCHING 2ND SUB SYMB { RSYM2 ) F2300540 

LEV DOTAG MATCHING 2ND SUB SYMB (RSYM2) F2300550 
IX LAST DO OF NEST SRCHD IN TRAWORD ON 2ND LEV F2300560 
IX DOTAG MATCHING THIRD SUB SYMB (RSYM3) F2300570 
IX LAST DO OF NEST SRCHD IN TRWRD ON 3RD LEVEL F2300580 



SKIP* ZERO OR 1 
TRAWORD TEMP STORAGE 
INTERMEDIATE UPPER LIMIT OF RANGE 
INTERMEDIATE LOWER LIMIT OF RANGE 
UPPER LIMIT OF RANGE 
LOWER LIMIT OF RANGE 
CURRENT TABLE IRV I*R# VALUE 



DRUM ORIGIN OF FORVAL TABLE 

DRUM ORIGIN OF NAME TABLE 

CORE ORIGIN OF NAME TABLE 

MAXIMUM WORDS IN NAME TABLE 

DRUM ORIGIN OF WD COUNT TABLE IRV 

CORE ORIGIN OF IRV TABLE 

MAXIMUM WORDS IN IRV TABLE 

DRUM ORIGIN OF WD COUNT* TABLE TCOM 

DRUM ORIGIN OF TSXCOM TABLE 

CORE ORIGIN OF TCOM TABLE 

TSXCOM CARRYOVER FROM BLOCK TW© 

EQUAL TO LAST TABLE ENTRY PLUS ONE. 

TRASTO CARRYOVER FROM BLOCK TWO 

EQUAL TO LAST TABLE ENTRY PLUS ONE. 

INITIALIZE IRVXX. 

EQUAL TO ETC. 

IF FORTAG EMPTY* 

NORM RET MONITOR. GO TO SPACE TAPE 1. 

INITIALIZE EERROR COUNTER. 

OBTAIN NAME ADDRESS CARRYOVER FROM BLOCK 2 

FROM BLOCK TWO. 



F2300590 

F2300600 

F2300610 

F2300620 

F2300630 

F2300640 

F2300650 

F2300660 

F2300670 

F2300680 

F2300690 

F2300700 

F2300710 

F2300720 

F2300730 

F2300740 

F2300750 

F2300760 

F2300770 

F2300780 

F2300790 

F2300800 

F2300810 

F2300820 

F2300830 

F2300840 

F2300850 

F2300860 

F2300870 

F2300880 

F2300890 

F2300900 

F2300910 

F2300920 

F23O0930 

F2300940 

F2300950 

F2300960 

F2300970 

F2300980 

F2300990 

F2301000 

F2301015 

F2301022 

F2301030 

F 230 1040 



z* e 



n 



D 



06734 
06735 
06736 
06737 
06740 
06741 
06742 
06743 
06744 
06745 
06746 
06747 
06750 
06751 
06752 
06753 
06754 
06755 
06756 
06757 
06760 
06761 
06762 
06763 
06764 
06765 
06766 
66767 
06770 
06771 
06772 
06773 
06774 
06775 
06776 
06777 
07000 
07001 
07002 
07O03 
07004 
07005 
07006 
07007 
07010 
07011 
07012 
07013 
0701* 
07015 
07016 
07017 
07O20 
07021 



73400 

00000 

76200 

40000 

62100 

75400 

76000 

40000 

60100 

46000 

70000 

00001 

53400 

63400 

53400 

50000 

36100 

60200 

50000 

40200 

10000 

77775 

00000 

02000 

00001 

07400 

50000 

60100 

02000 

00000 

76000 

02000 

76000 

02000 

53400 

76200 

50000 

46000 

53400 

70000 

04000 

02000 

70000 

70000 

00003 

53400 

63400 

63400 

53400 

50000 

36100 1 

60200 

50000 

4020O 1 



00000 
06766 
00303 
06710 
06746 
00000 
00003 
06711 
00030 
06707 
00000 
06746 
00030 
06762 
06711 
00733 
00734 
06771 
06771 
00735 
06764 
06762 
06753 
06772 
06732 
00004 
06711 
00030 
06772 
00000 
00144 
06776 
00144 
07616 
06671 
00302 
06701 
06706 
06674 
06625 
07006 
07012 
06626 
06627 
07003 
06665 
03670 
07024 
06674 
06625 
06626 
07030 
07030 
06627 



NAM60 



NAM70 



NAM80 
NAM90 
NAM95 



NAMES1 
BEGIN 



CPYLP 
RDSDRM 



CPYONE 
CPYTWO 

CHKSUM 
CSLOOP 



PAX 
TXL 
ROS 
ADO 
STA 
PXO 
SSM 
ADO 
STO 
LDA 
CPY 
TIX 
LXO 
SXD 
LXD 
CAL 
ACL 
SLW 
CLA 
SUB 
TNZ 
TXI 
TXH 
TRA 
TIX 
TSX 
CLA 
STO 
TRA 
HTR 
MSE 
TRA 
PSE 
TRA 
LXO 
RDS 
CLA 
LDA 
LXD 
CPY 
TLQ 
TRA 
CPY 
CPY 
TIX 
LXD 
SXD 
SXD 
LXD 
CAL 
ACL 
SLW 
CLA 
SUB 



0*1 

NAM95»1»0 

ADRUM 

NAMAD 

NAM60 

0*1 

NAMAX 

NAME-1 

NAMORG 

0*1 

NAM60.1.1 

NAME-1 *1 

NAM8Q»1 

NAMAX. 1 

NAMZ»1 

NAMZ+1.1 

NAMES1 

NAMES 1 

NAMZ+2»1 

NAM90 

NAM80*l»-3 

NAM70»1 

BEGIN 

NAM10>2*1 

DIAG.4 DRUM 

NAMAX 

NAME-1 

BEGIN 

LIGHT 

CPYLP 

LIGHT 

NORMRT 

L(6)»2 

BDRUM 

340NES 

DRMADD 

L(1500»l 

4VALZ.1 

CPYTWO 

CHKSUM 

4VALZ+1.1 

4VALZ+2.1 

CPY0NE»1.3 

L(0)»1 

F0RVAL-1»1 

NEXT»1 

L(1500*l 

4VALZ»1 

4VAL2+1.1 

COMCS 

COMCS 

4VALZ+2»1 



IF NO TABLE NAME* GO TO READ IN FORVAL. 
READ IN TABLE NAME. 

ADD CORE ORG TABLE NAME TO COMP TERMINUS AND 
STORE IN COPY ADDRESS. 



DIFF BETWEEN MAX NO ENTRIES AND ACTUAL NO. 
DRUM ORG 



COMPUTE CHECK SUM 

FOR 

EACH 

TABLE ENTRY* 

AND COMPARE 

SAME. 



TABLE NAME ALL IN. 

READ NAME TABLE. 
TABLE NAME EMPTY. 



ERROR. GO TO DIAGNOSTIC. 



TEMP STORAGE 

TEST FOR EMPTY FORVAL 

IF EMPTY. 

NORM RET MONITOR. GO TO SPACE TAPE 1 
READ IN FORVAL 

PUT DRUM MARK IN ACC. 



PULL IN FIRST WORD OF FORVAL. 
TEST FOR DRUM MARK. 

PULL IN 2ND WORD OF FORVAL. 
AND CHECK SUM. 



COMPUTE AND 
COMPARE 
CHECK 
SUMS. 



F2301050 
F2301060 
F2301070 
F2301080 
F2301090 
F230HO0 
F230U10 
F2301120 
F2301130 
F2301140 
F2301150 
F2301160 
F2301170 
F2301180 
F2301190 
F2301200 
F2301210 
F2301220 
F23C1230 
F2301240 
F2301250 
F2301260 
F2301270 
F2301280 
F2301290 
F2301305 
F2301310 
F2301320 
F2301330 
F2301340 
F2301350 
F2301360 
F2301370 
F2301385 
F2301392 
F2301400 
F2301410 
F2301420 
F2301430 
F2301440 
F2301450 
F2301460 
F2301470 
F2301480 
F2301490 
F2301500 
F2301510 
F2301520 
F2301530 
F2301540 
F2301550 
F2301560 
F2301570 
F2301580 



7*4 



07022 
07023 
07024 
07025 
07026 
07027 
07030 
07031 
07032 
07033 
07034 
07035 
07036 
07037 
07040 
07041 
07042 
07043 
07044 
07045 
07046 
07047 
07050 
07051 
07052 
07053 
07054 
07055 
07056 
07057 
07060 
07061 
07062 
07063 
07064 
07065 
07066 
07067 
07070 
07071 
07072 
07073 



07614 
07615 

07616 
07617 
07620 
07621 
07622 
07623 
07624 



10000 
77775 
00000 
02000 
00001 
07400 
00000 
53400 
77200 
53400 
76000 
02000 
76000 
02000 
76000 
76100 
76200 
53400 
70000 
02000 
02000 
02000 
70000 
02000 
07400 
07400 
70000 
02000 
07400 
07400 
00001 
77776 
63400 
76600 
76000 
02000 
02000 
00001 
07400 
00*54 
00007 
00000 



-0 63*00 
02000 



76200 
02000 
63400 
73400 
73400 
40000 
62100 



07026 
07024 
07015 
07031 
06777 
00004 
00000 
06671 
00223 
07071 
00143 
07040 
00143 
07062 
00012 
00000 
00223 
07072 
07570 
07050 
07062 
07042 
07571 
07054 
00004 
00004 
07073 
07060 
00004 
00004 
07054 
07043 
07570 
00333 
00012 
07067 
07616 
07032 
00004 
00000 
00000 
00000 



NEXT 

ERROR 

COMCS 
2WDD0 
2WD05 



2WD10 

2W020 
2WD30 



2W040 

2WD50 

2WD60 
2WD70 

2WD80 

U300) 

L(7) 

ESXX 



©7614 
1 77777 BURNCE 
00004 



00221 NORMRT 

00004 

07653 LIST 

00000 

00000 

07654 

07641 



TNZ 
TXI 
TXH 
TRA 
TIX 
TSX 
HTR 
LXD 
REW 
LXD 
MSE 
TRA 
PSE 
TRA 
RTT 
NOP 
RDS 
LXD 
CPY 
TRA 
TRA 
TRA 
CPY 
TRA 
TSX 
TSX 
CPY 
TRA 
TSX 
TSX 
TIX 
TXI 
SXD 
WRS 
RTT 
TRA 
TRA 
TIX 
TSX 



HTR 

ORG 
SXD 
TRA 

RDS 
TRA 
SXD 
PDX 
PAX 
ADD 
STA 



ERROR 

NEXT.l*-3 

CSL0OP*l 

2WDD0 

RDSDRM»2.1 

DIAG*4 DRUM REAAD FORVAL TABLE. 



FORVAL ALL IN. 



ERROR. GO TO DIAGNOSTIC. 



L(6>*4 

TAPE3 

L(300)*l 

99 

2WD10 

99 

2WD70 



TAPE3 

L(7).2 

D0Z»1 

2WD40 

2WD70 

2WD20 

D0Z+1»1 

2WD50 

DIAG»4 

DIAG.4 

ESXX 

2WD60 

DIAG»4 

DIAG»4 

2WD50»2*1 

2WD3Q»l»-2 

DOZ.l 

219 

2WD80 

NORMRT 

2WD05»4tl 

DIAG*4 TAPE 

0*0*300 

0*0*7 



ERROR COUNTER. 

PREPARE TO READ IN DOTAG. 

TEST FOR EMPTY DOTAG. 



PULL 

IN 

DOTAG 

BUT 

ONLY 

THE . 

FIRST 

TWO 



WORDS 
OF 



EACH 
TABLE 



ENTRY. 



ERROR. GO TO DIAGNOSTIC. 
ERROR. GO TO DIAGNOSTIC. 



ERROR. GO TO DIAGNOSTIC. 
ERROR. GO TO DIAGNOSTIC. 



READ ERROR. 
NORM RET MONITORi 

3 READING DOTAG* 



GO TO SPACE TAPE 1 



ERROR. GO TO DIAGNOSTIC. 



TEMP STORAGE. 
MASTER RECORD CARD = FN037 
39*0 

DRUM OVERFLOW 
ERROR PROCEDURE 
SUBRT NORMRT SPACES TAPE 



WD 



TOP.l 

OIAG 

THE 2 

145 

ONETCS 

LIST40*4 

0*1 

0*6 

LIST50 

LIST30 



1 PAST THE DIAGNOSTIC REC. 



SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE. 
GO TO ONE TO CS (MONITOR) 

SAVE LINKAGE 
PUT INDEX QUANTITY IN XRA 
PUT NR. OF WDS IN XRB»XRC. 
COMPUTE NR. OF WRDS 
PLUS ORIGIN El AND 



F2301590 

F2301600 

F2301610 

F2301620 

F2301630 

F2301645 

F2301650 

F2301662 

F2301670 

F2301680 

F23O1690 

F2301700 

F2301710 

F2301720 

F2301730 

F2301740 

F2301750 

F2301760 

F2301770 

F2301780 

F2301790 

F2301800 

F2301810 

F2301820 

F2301835 

F2301845 

F2301850 

F2301860 

F2301875 

F2301885 

F2301890 

F2301900 

F2301910 

F2301920 

F2301930 

F2301940 

F2301955 

F2301960 

F2301975 

F2301980 

F2301990 

F2302000 

F2302005 

F2302010 

F2302011 

F2302012 

F2302016 

F2302017 

F2302018 

F2302030 

F2302040 

F2302050 

F2302060 

F2302070 



iyV 



n 



O 







07625 





62100 





07634 




STA 


LIST20 


INITIALIZE ADDRESSES. 


F2302080 






07626 





50000 


1 


07701 




CLA 


LADDIN+5»1 


TEST 


F2302090 






07627 





77100 





00022 




ARS 


18 


FOR 


F23O2100 






07630 





40200 


1 


07674 




SUB 


LADDS+5»1 


FULL 


F2302110 






07631 


-0 


10000 





07633 




TNZ 


LIST10 


TABLE. 


F23O2120 






07632 





07400 


h 


07614 




TSX 


BURNCE.4 


DRUM OVERFLOW* GO SAVE IRA BEFORE DIAG. 


F2302135 






07633 


-0 


75400 





00000 


LIST10 


PXD 


0.0 


ZERO IN ACC. 


F2302140 






07634 





36100 


2 


00000 


LIST20 


ACL 


0*2 


COMPUTE 


F2302150 






07635 


2 


00001 


2 


07634 




TIX 


LIST20*2»1 


ENTRY 


F2302160 






07636 





76600 





00303 




WRS 


ADRUM 


SELECT DRUM. 


F2302165 






07637 





60200 





07655 




SLW 


LIST60 


CHECK SUM. 


F2302170 






07640 





46000 


1 


07674 




LDA 


LADDS+5*1 


COPY 


F2302180 






07641 





70000 


4 


00000 


LIST30 


CPY 


0t4 


ENTRY 


F2302190 






07642 


2 


00001 


4 


07641 




TIX 


LIST30»4»1 


AND 


F2302200 






07643 





70000 





07655 




CPY 


LIST60 


CHECK SUM. 


F2302210 






07644 





50000 


1 


07674 




CLA 


LADDS+5»1 


COMPUTE 


F2302220 






07645 





40000 


1 


07667 




ADO 


TSXC0M+5»1 


NEXT 


F2302230 






07646 





40000 





06675 




ADO 


L(1)A 


ENTRY 


F2302240 






07647 


-0 


32000 





06703 




ANA 


AODMSK 


ADDRESS. 


F2302250 






07650 





60100 


1 


07674 




STO 


LADDS+5»1 




F2302260 






07651 


-0 


53400 


4 


07653 




LXD 


LIST40*4 


EXIT 


F2302270 






07652 





02000 


4 


00001 




TRA 


1«4 




F2302280 




A 


07653 





00000 





00000 


LIST40 


HTR 




E.S* 


F2302290 






07654 





00000 





07656 


LIST50 


HTR 


El 


L(E1) 


F2302300 




A 


07655 





00000 





00000 


HST60 


HTR 




E.S. 


F2302310 




















FOUR WORD ENTRY BLOCK 


F2302320 




A 


07656 





00000 





00000 


El 


HTR 






F2302330 




A 


07657 





00000 





00000 


E2 


HTR 






F2302340 




A 


07660 





00000 





00000 


E3 


HTR 






F2302350 




A 


07661 





00000 





00000 


E4 


HTR 






F2302360 




















FIVE KEY WORDS* C(DEC)=INDEX QUANTITIES* CCADDi=NR. OF WORDS 


•F2302370 






07662 





00005 





00002 


TSXCOM 


HTR 


2»0«5 




F2302380 






07663 





00004 





00003 


TRASTO 


HTR 


3*0.4 




F2302390 






07664 





00003 





00002 


NAMKEY 


HTR 


2*0*3 




F2302400 






07665 





00002 





00002 


CHAT AC 


HTR 


2*0*2 




F230241O 






07666 





00001 





00004 


DRMTAG 


HTR 


4*0>1 




F2302420 




















FIVE WORDS CONTAINING CURRENT TABLE ADDRESSES IN ADD. PART. 


F2302430 




A 


07667 





00000 





00000 


LAOOS 


HTR 




TSXCOM 


F230244O 




A 


07670 





00000 





00000 




HTR 




TRASTO 


F2302450 




A 


07671 





00000 





00000 




HTR 




NAMKEY 


F2302460 




A 


07672 





00000 





00000 




HTR 




CHATAG 


F2302470 




A 


07673 





00000 





00000 




HTR 




DRMTAG 


F2302480 




















FIVE WORDS* C(ADD)=0RI6IN*C(DEC)=LAST TABLE LOC. PLUS ONE 


F2302490 






07674 





02660 





01302 


LADOIN 


HTR 


706*0*1456 


TSXCOM 


F2302500 






07675 





01300 





00460 




HTR 


304*0*704 


TRASTO 


F2302510 






07676 





02662 





01760 




HTR 


1008*0*1458 


NAMKEY 


F2302520 






07677 





00456 





00002 




HTR 


2»0»302 


CHATAG 


F2302530 






07700 





03650 





02664 




HTR 


1460*0*1960 
THIS ROUTINE. 
CORRESPONDING 


DRMTAG 

GIVEN A TAU TAG* OBTAINS THE 

SUBSCRIPT COMBINATION FROM THE TAU 


F2302540 
F2302550 
F2302560 




















DRUM AND POSITIONS IT IN PROPER FORMAT IN STORAGE. 


F2302570 






07701 


-0 


63400 


4 


07762 


SUBCOM 


SXD 


SUBQ85*4 


SAVE LINKAGE INDX. 


F2302580 






07702 


-0 


53400 


1 


07770 




LXD 


SUBORGtl 


INITIALIZE ERROR COUTNER. 


F2302590 


1 * — 




07703 





76200 





00304 


SUB010 


RDS 


TAUDRM 


SELECT TAU DRUM. 


F230260O 



£t*> 



07704 


-0 


53400 


4 


07772 




LXO 


SUBORG+2.4 


INITIALIZE 


F2302610 




07705 


-0 


75400 





00000 




PXD 


0*0 


SUBSCRIPT COMBINATION 


F2302620 




07706 





60100 


4 


06645 


SUB020 


STO 


Cl+8.4 


SPACE 


F2302630 




07707 


2 


00001 


4 


07706 




TIX 


SUB020*4*1 


TO ZtRQ. 


F2302640 




07710 





50000 





06626 




CLA 


TAG 


COMPUTE 


F2302650 




07711 





76500 





00011 




LRS 


9 


DRUM 


F2302660 




©7712 





73400 


6 


00000 




PAX 


0*6 


ADDRESS* 


F2302670 




07713 


-0 


75400 





00000 




PXD 


OtO 


TAU ONE ADD. IS 0RG+3TAU. 


F2302680 




07714 





76300 





00011 




LLS 


9 


TAU TWO ADD. IS 0RG+5TAU. 


F2302690 




07715 





60100 





07773 




STO 


SUBES1 


TAU THREE ADD. IS 0RG+7TAU. 


F2302700 




07716 





76700 





00001 




ALS 


1 


STORE 


F2302710 




07717 





60100 





07774 




STO 


SUBES2 


ADDRESS 


F2302720 




07720 





50000 


4 


07773 




CLA 


SUB0RG+3.4 


IN SUBES1 


F2302730 




07721 





40000 





07773 




ADO 


SUBES1 


FOR LDA 


F2302740 




07722 





40000 





07774 


SUB030 


ADD 


SUBES2 


INSTRUCTION. 


F2302750 




07723 


2 


00001 


4 


07722 




TIX 


SUB030.4.1 




F2302760 




07724 





62100 





07773 




STA 


SUBES1 




F2302770 




07725 





46000 





07773 




LDA 


SUBES1 


COPY SUB. COMB. 


F2302780 




07726 





70000 





06635 




CPY 


CI 


TAU ONE. TWO. THREE 


F2302790 




07727 


-3 


00002 


2 


07731 




TXL 


SUB040.2.2 




F2302800 




07730 





70000 





06641 




CPY 


C3 


TAU 3 


F2302810 




07731 





70000 





06636 


SUB040 


CPY 


SI 


TAU 1*2*3 


F2302820 




07732 


-3 


00001 


2 


07737 




TXL 


SUB060»2»1 




F2302830 




07733 





70000 





06640 




CPY 


S2 


TAU2»3 


F2302840 




07734 


-3 


00002 


2 


07736 




TXL 


SUB050.2.2 




F2302850 




07735 





70000 





06642 




CPY 


S3 


TAU 3 


F2302860 




07736 





70000 





06643 


SUB050 


CPY 


Dl 


TAU 2.3 


F2302870 




07737 





70000 





07773 


SUB060 


CPY 


SUBES1 


TAU 1*2.3 


F2302880 




0774Q 


-0 


53400 


4 


07770 




LXD 


SUBORG *4 


COMPUT CHECK SUM 


F2302890 




07741 


-0 


50000 





06635 




CAL 


CI 


AND COMPARE WITH 


F2302900 




07742 





36100 


4 


06644 


SUB070 


ACL 


Cl+7.4 


ENTRY CHECK CUM. 


F2302910 




07743 


2 


00001 


4 


07742 




TIX 


SUB070»4»1 


THREE ATTMPTS ARE MADE 


F2302920 




07744 





6Q200 





07774 




SLW 


SUBES2 


TO READ SC CORRECTLY. 


F2302930 




07745 





50000 





07774 




CLA 


SUBES2 


IF ERROR STILL PRESENT. 


F2302940 




07746 





40200 





07773 




SUB 


SUBES1 


COMPLETE ROUTINE. MAKE ERROR RET. 


F2302950 




07747 





10000 





07752 




T2E 


SUB075 


CHECK SUMS AGREE. TRA. 


F2302960 




07750 


2 


00001 


1 


07703 




TIX 


SUB010*1»1 


CHECK SUMS DISAGREE. 


F2302972 




07751 





07400 


4 


00004 




TSX 


DIAG.4 IN READING TAU FROM DRUM» ERROR. GO TO 


DIAGNOSTIC. F2302985 




07752 


-0 


53400 


4 


07771 


SUB075 


LXD 


SUB0RG+1.4 


REARRANGE CI. C2. Dl. D2. 


F2302990 




07753 





50000 


4 


06644 


SUB080 


CLA 


Cl+7.4 


TO COMPLY WITH CORE 


F2303000 




07754 





73400 


2 


00000 




PAX 


0t2 


STORAGE FORMAT. 


F2303010 




©7755 


-0 


32000 





06704 




ANA 


DECMSK 




F2303020 




07756 





60100 


4 


06644 




STO 


Cl+7.4 




F2303030 




©7757 


-0 


75400 


2 


00000 




PXO 


0*2 




F2303040 




07760 


-2 


00006 


4 


07763 




TNX 


SUB090.4.6 




F2303050 




07761 





60100 





06637 




STO 


C2 




F2303060 




D 07762 


-3 


00000 





07753 


SUB085 


TXL 


SUB330.0 




F2303070 




07763 





60100 





06644 


SUB090 


STO 


D2 




. F23O3080 




07764 


-0 


53400 


4 


07762 




LXD 


SUB085.4 


RESTORE LINKAGE INDEX* 


F2303090 




07765 





76100 





00000 




NOP 






F2303102 




07766 





02000 


4 


00001 




TRA 


1.4 




F2303110 




07767 





76100 





00000 


SUB100 


NOP 






F2303122 




07770 


+000006001356 


SUBORG 


OCT 


000006001356 




F2303130 


;;/ 


07771 


+000007000454 




OCT 


7000454 


DEC. IS 7* ADO. IS ORG. TAU 2 


F2303140 


U 


















c 


y 



n 



D 



07772 +000010000000 
A 07773 00000 00000 
A 07774 00000 00000 

06721 



06721 
06722 
06723 
06724 
06725 
06726 
06727 
06730 
06731 
06732 
06733 
06734 
06735 
06736 
06737 
06740 
06741 
06742 
06743 
06744 
06745 
06746 
06747 
06750 
06751 
06752 
06753 
06754 
06755 
06756 
06757 
06760 
06761 
06762 
06763 
06764 
06765 
06766 
06767 
06770 
06771 
06772 
06773 
06774 
06775 
06776 
06777 
07000 
07001 



53400 
02733 
76000 
02000 
02000 
53400 
63400 
53400 
63400 
63400 
53400 
63400 
53400 
50000 
12000 
32000 
10000 
50000 
32000 
60100 
63400 
07400 
53400 
75400 
60100 
00001 
534O0 
53400 
50000 
10000 
60100 
77777 
00002 
75400 
76000 
40000 
10000 
60100 
53400 
40200 
10000 
50000 
10000 
53400 
00001 
53400 
63400 
00000 
53400 



00733 
07616 
00144 
06726 
07616 
03670 
07034 
00733 
07015 
07020 
07570 
07101 
06674 
03670 
07017 
06677 
07017 
03670 
06703 
06626 
07000 
07701 
06670 
00000 
06635 
06751 
06671 
06670 
06644 
06761 
06635 
06761 
06755 
00000 
00003 
06670 
07001 
06631 
06665 
06666 
06777 
06636 
06777 
06635 
06777 
06666 
06630 
07022 
07000 



SUBES1 
SUBES2 



BL3A 



INIT 



VALTAG 
VAUO 



VAL20 



VAL30 



VAL40 



VAL50 
SAVEA 
VAL60 



OCT 
HTR 
HTR 
ORG 

LXD 
TXH 
MSE 
TRA 
TRA 
LXD 
SXD 
LXD 
SXD 
SXD 
LXD 
SXD 
LXD 
CLA 
TMI 
ANA 
TNZ 
CLA 
ANA 
STO 
SXD 
TSX 
LXD 
PXD 
STO 
T1X 
LXD 
LXD 
CLA 
TZE 
STO 
TXI 
TIX 
PXD 
SSM 
ADD 
TZE 
STO 
LXD 
SUB 
TNZ 
CLA 
TZE 
LXD 
TXH 
LXD 
SXD 
TXL 
LXD 



10000000 DEC* IS 8t ADD* IS ORG* TAU 1 
E.S. 
E.S. 

RECORD CARD = FN039 

1 IF FOR TAG 

1499 IS EMPTY, NORM RET MONITOR. GO SPACE TP 1* 

IF FORVAL IS EMPTY* 

NORM RET MONITOR. GO TO SPACE TAPE 1 
1 INITIALIZE 



3537 

MASTER 
FORTAG-1 * 
NORMRT.l. 
LIGHT 
INIT 
NORMRT 
FORVAL-1, 
TAB60.1 
FORTAG-l* 
VAL80.1 
VAL95.1 
DOZfl 
IND20.1 
LU500.1 
FORTZtl 
VAL90 
8IT0NE 
VAL90 
F0RTZ*1 
ADDMSK 
TAG 

SAVEAtl 
SUBC0M»4 
L(3)»4 
OtO 

RSYM1+3.4 
VAL20*4»1 
L(6>»1 
LI31.2 
Sl+6»1 
VAL40 
RSYMl+3,2 
VAL40.2.-: 
VAL30»1»2 
0.2 

L(3) 

VAL60 

DELTA 

L(0),4 

LU) 

VAL50 

SI 

VAL50 

Cltl 

VAL50,1»1 

L(l)»4 

TAGIND.4 

TABSER.O 

SAVEA. 1 



THIS PROGRAM 

MAKES A 

PASS OVER 

FORTAG. AND 

FOR EACH NON-NEGATIVE (NOT TRREATED IN BL 2) 

TAG WITH B I TONE EQUAL 

TO ZERO* (NOT YET TREATED HERE) 

OBTAINS THE CORRESPONDING SUBSCRIPT 

COMBINATION FROM THE 

TAU TABLE DRUM. 



INITIALIZE WITH ZEROES. 

THIS ROUTINE STORES 

THE SYMBOLS AS FOLLOWS 

LEFTMOST IN RSYM1. 

NEXT SYMBOL IN RSYM2* 

RIGHTMOST IN RSYM3. 

IF THERE ARE NOT THREE 

SYMBOLS IN THE SO THEN 

THE RSYM LOCATIONS ARE 

SET TO ZERO. 

DELTA IS THE SYMBOL COUNT. 

SUBSCRIPT IS CONSTANT. NO SYMBOLS. 

LOCATION TAGIND IS SET 
TO ZERO, UNLESS THE SC 
HAS THE FOLLOWING 
CHARACTERISTICS 
ONE SYMBOL 

IN LEFTMOST POSITION 
WITH COEFFICIENT EQUAL 
TO ONE 

GO TO PROCESSING ROUTINE. (DEC HAS FORTAG IX) 
RETURN FROM PROCESSING 



F2303150 
F2303160 
F2303170 
F2303180 
F2303185 
F2303190 
F2303205 
F2303210 
F2303220 
F2303235 
F2303240 
F2303250 
F2303260 
F2303270 
F2303280 
F2303290 
F23033O0 
F2303310 
F2303320 
F2303330 
F2303340 
F2303350 
F2303360 
F2303370 
F2303380 
F2303390 
F2303400 
F2303410 
F2303420 
F2303430 
F2303440 
F2303450 
F2303460 
F2303470 
F2303480 
F2303490 
F2303500 
F23G331Q 
F2303520 
F2303530 
F2303540 
F2303550 
F2303560 
F2303570 
F2303580 
F2303590 
F2303600 
F2303610 
F2303620 
F2303630 
F2303640 
F2303650 
F2303660 
F2303670 



/ 





07002 





50000 


1 


03670 




CLA 


FORTZ.l 


ROUTINE. FOR THIS TAG, 




F2303680 




07003 


-0 


12000 





07014 




TMI 


VAL70 


AND ALL TAGS EQUAL TO 




F2303690 




07004 


-0 


32000 





06677 




ANA 


BITONE 


THIS TAG. SET FORTAG 




F2303700 




07005 


-0 


10000 





07014 




TNZ 


VAL70 


ENTRY BIT ONE EQUAL 




F2303710 




07006 





50000 


1 


03670 




CLA 


F0RTZ»1 


TO ONE» 




F2303720 




07007 


-0 


32000 





06703 




ANA 


ADDMSK 






F2303730 




07010 





40200 





06626 




SUB 


TAG 






F2303740 




07011 


-0 


10000 





07014 




TNZ 


VAL70 






F2303750 




©7012 





50000 





06677 




CLA 


BITONE 






F2303760 




07013 


-0 


60200 


1 


03670 




ORS 


FORTZtl 






F2303770 




07014 


1 


77777 


1 


07015 


VAL70 


TXI 


VAL80*1»-1 






F2303780 





07015 


3 


00000 


1 


07002 


VAL80 


TXH 


VAL60+1»1 


IF FORTAG DONE* (DEC HAS FORTAGIX) 


F2303790 




07016 


-0 


53400 


1 


07000 




LXD 


SAVEA»1 


GO BACK. 




F23038OO 




07017 


1 


77777 


1 


07020 


VAL90 


TXI 


VAL95»lt-l 


FOR NEXT TAG 




F2303810 


D 


07020 


3 


00000 


1 


06736 


VAL95 


TXH 


VAL10.1 


IF ANY (DEC HAS FORTAGIX) 




F2303820 




07021 





02000 





07616 




TRA 


NORMRT 


NORM RET MONITOR. GO TO SPACE TAPE 


1 


F2303835 




07022 


-0 


53400 


1 


06674 


TABSER 


LXD 


LU500.1 


SEARCH 




F2303840 




07023 


-0 


63400 


2 


07032 




SXD 


TAB40.2 


(6 - 2X NO SUB SYMBOLS 


VAL40) 


F2303850 




07024 


-0 


53400 


2 


06670 


TAB 10 


LXD 


L(3)»2 


FORVAL 




F2303860 




07025 





50000 


1 


06626 




CLA 


4VALZ+1.1 


FOR AN 




F2303870 




07026 





34000 


2 


06635 


TAB20 


CAS 


RSYM1+3.2 


OCCURRANCE 




F2303880 




07027 





02000 





07031 




TRA 


TAB30 


OF ANY SYMBOL 




F2303890 




07030 





02000 





07036 




TRA 


FOUND 


IN THIS SO 




F2303900 




07031 


1 


77777 


2 


07032 


TAB30 


TXI 


TAB40.2.-1 






F2303910 


D 


07032 


3 


00000 


2 


07026 


TAB40 


TXH 


TAB20.2 


( DEC LOADED FROM TABSER + 


1) 


F2303920 




07033 


1 


77775 


1 


07034 


TAB50 


TXI 


TAB6Q.1.-3 






F2303930 


D 


07034 


3 


00000 


1 


07024 


TAB60 


TXH 


TAB10»1 


{DEC HAS FORVAL IX) 




F2303940 




07035 





02000 





07001 




TRA 


VAL60 






F2303950 




07036 


-0 


63400 


1 


07053 


FOUND 


SXD 


FND10.1 


IF SYMBOL FOUND* 




F230396O 




07037 


-0 


53400 


4 


06630 




LXD 


TAGIND.4 


MAKE NORMAL OR SPECIAL 




F2303970 




07040 





50000 


1 


06625 




CLA 


4VALZ* 1 


ENTRY IN TSXCOM. DEPENDING 




F2303980 




07041 


3 


00000 


4 


07054 




TXH 


FND20.4.0 


ON TAGIND. (UNLESS SEE SUBRT INDO) 




F2303990 




07042 





60100 





07112 




STO 


FORNR 






F 2304 000 




07043 





07400 


4 


07064 




TSX 


INDO. 4 






F2304010 




07044 





02000 





07062 




TRA 


FND40 


INDO RETURN IF FRVL ALPH IN RANGE MTCHNG DOTAG 


F2304020 




07045 


-0 


53400 


1 


07053 




LXD 


FNDlOf 1 


RETURN FROM INDO WHEN NOT SO. 




F2304030 




07046 





50000 


1 


06625 




CLA 


4VALZ»1 






F2304040 




07047 





60100 





07656 




STO 


El 


SPECIAL ENTRY IF TAGIND 




F2304050 




07050 





50000 





06626 




CLA 


TAG 


NOT ZERO 




F2304060 




07051 





76700 





00022 




ALS 


18 






F2304070 




07052 


-0 


50100 





06626 




ORA 


TAG 






F2304080 


o 


07053 


-3 


OOOOO 





07057 


FND10 


TXL 


FND30»0 


(DEC HAS FORTAG IX) 




F23O409O 




07054 


-0 


50100 





06626 


FND20 


ORA 


TAG 


SET UP E BLOCK WHEN TAGIND EQUAL 1 




F 2 304 100 




07055 





60100 





07656 




STO 


El 






F2304110 




07056 





50000 





06632 




CLA 


RSYM1 


TAG SYMBOL 




F2304120 




07057 





60100 





07657 


FND30 


STO 


E2 






F2304130 




07060 





50000 





07662 




CLA 


TSXCOM 


TSXCOM KEY 




F2304140 




07061 





07400 


4 


07620 




TSX 


LIST. 4 






F2304150 




07062 


-0 


53400 


1 


07053 


FND40 


LXD 


FND10.1 






F2304160 




07063 





02000 





07033 




TRA 


TAB50 


CONTINUE SEARCH 




F2304170 


















SUBRT 1ND0.... THIS ROUTINE DETERMINES WHETHER THE FORVAL 


F2304180 


















WHICH HAS BEEN FOUND TO MATCH A SUBSCRIPT FALLS WITHIN RANGE 


F2304190 


















OF A DO WHICH 


IN TURN MATCHES THE FORAVAL. IF SO A 


RETURN IS 


F2304200 


















HADE AND TSXCOM ENTRY FOR THIS FORVAL ALPHA IS OMMITTED. 


F2304210 



2<fe- 



u 



o 





n 


















o 




VC V 




















.... .... 






07064 
07065 


-0 


53400 


1 


07113 


INDO 


LXD 
TRA 


IND60.1 
IND20 


• 


F2304220 
F2304230 









02000 





07101 










07066 





50000 


1 


07570 


IND10 


CLA 


D0Z»1 


OBTAIN FIRST WORD DOTAG. 


F2304240 






07067 





73400 


2 


00000 




PAX 


0*2 


DOTAGS BETA. 


F2304250 






07070 


-0 


32000 





06704 




ANA 


DECMSK 


DOTAGS ALPHA 


F2304260 






07071 





34000 





07112 




CAS 


FORNR 


AGAINST FORVAL ALPHA. 


F2304270 






07072 





02000 


4 


00002 




TRA 


2*4 


OUTSIDE RANGE • RETURN. 


F2304280 






07073 





07400 


4 


00004 




TSX 


0IAG»4 FORVAL ALPHA EQ DO ALPHA* ERROR. GO TO DIAGNOSTIC. 


F2304295 






07074 


-0 


75400 


2 


00000 




PXD 


0*2 


- 


F2304300 






07075 





34000 





07112 




CAS 


FORNR 


DOTAGS BETA AGAINST FORVAL ALPHA. 


F2304310 






©7076 





02000 





07103 




TRA 


IND30 


FORVAL WITHIN RANGE 


F2304320 






07077 





02000 





07103 




TRA 


IND30 


OF DOTAG. 


F2304330 






07100 


1 


77776 


1 


07101 




TXI 


IND20»l»-2 




F2304340 






D 07101 


3 


00000 


1 


07066 


IND20 


TXH 


IND10.1 




F2304350 






07102 





02000 


4 


00002 




TRA 


2*4 


DOTAG EXHAUSTED. RETURN. 


F2304360 






07103 


-0 


53400 


2 


06670 


IND30 


LXD 


L(3)»2 




F2304370 






07104 





50000 


1 


07571 




CLA 


DOZ+1.1 


FN EDIT CORR CD NR. 


F2304384 






07105 





34000 


2 


06635 


IND40 


CAS 


RSYMl+3»2 


DOES DOTAG SYMBOL EQUAL 


F2304390 






07106 





02000 





07110 




TRA 


IND50 


FORVAL SYMBOL (WHICH HAS BEEN FOUND 


F2304400 






07107 





02000 


4 


00001 




TRA 


1.4 


TO EQUAL SUBSCRIPT). IF SO. RETURN. 


F2304410 






07110 


2 


00001 


2 


07105 


IND50 


TIX 


IND40*2»1 




F2304420 






07111 


1 


77776 


1 


07101 




TXI 


IND20»l*-2 




F2304430 






A 07112 





00000 





00000 


FORNR 


HTR 




STORAGE FOR FIRST WD FORVAL {ALPHA) 


F2304440 






07113 





00454 





00000 
07114 
07115 
07570 
06721 


IND60 
DO 

DOZ 


BSS 
BSS 
BSS 
ORG 


0*0*300 

1 

299 

1 

3537 




F2304450 
F2304460 
F2304470 
F2304480 
F2 304490 




















MASTER RECORD CARD = FN041 


F2304495 






06721 


-0 


53400 


1 


00733 


BL3B 


LXD 


F0RTAG-1»1 


FORTAG EMPTY 


F2304500 






06722 


3 


02733 


1 


07616 




TXH 


N0RMRT*1*1499 


NORM RET MONITOR. GO TO SPACE TAPE 1. 


F2304515 






06723 


-0 


76000 





00143 




MSE 


99 


TEST FOR EMPTY DOTAG 


F2304520 






06724 





02000 





06727 




TRA 


RDOTAG 


OFF 


F2304530 






06725 





76000 





00143 




PSE 


99 


ON. EMPTY 


F2304540 






06726 





02000 





07616 




TRA 


NORMRT 


NORM RET MONITOR. GO TO SPACE TAPE 1 


F2304555 






06727 


-0 


53400 


6 


06671 


R DO TAG 


LXD 


L<6).6 


INITIALIZE ERROR COUNTERS. 


F2304562 






06730 





76400 





00222 


RDPOS 


BST 


TAPE2 


POSITION TAPE 2 FOR DOTAG 


F2304570 






06731 





76400 





00222 




BST 


TAPE2 




F2304580 






G6T32 





76200 





00222 




Rt»S 


TAPE2 




F2304590 






06733 





70000 





06770 




CPY 


RDES1 




F2304600 






06734 





700O0 





06771 




CPY 


RDES2 




F2304610 






A 06735 





70000 





00000 




CPY 






F2304620 






06736 





07400 


4 


00004 




TSX 


DIAG.4 


ERROR. 60 TO DIAGNOSTIC. 


F2304635 






06737 





07400 


4 


00004 




TSX 


DIAG»4 


ERROR. GO TO DIAGNOSTIC. 


F2304645 






06740 





50000 





06770 


RDREC 


CLA 


RDES1 




F2304650 






06741 





40200 





06771 




SUB 


RDES2 




F2304660 






06742 





10000 





06745 




TZE 


RDBACK 




F2304670 






06743 


2 


00001 


4 


06731 




TIX 


RDP0S+1.4.I 


ERROR - REREAD 


F2304680 






06744 





07400 


4 


00004 




TSX 


01 AG* 4 


ERROR. GO TO DIAGNOSTIC. 


F2304695 






06745 


-0 


53400 


1 


06770 


RDBACK 


LXD 


RD£S1»1 


NO RECORDS 


F2304700 






06746 


1 


00002 


1 


06747 




TXI 


RDBST*1»2 




F2304710 






06747 





76400 





00222 


RDBST 


BST 


TAPE2 


BACKSPACE DESIGNATED NO RECORDS 


F2304720 






06750 


2 


00001 


1 


06747 




TIX 


RDBST.1.1 




F2304730 






06751 


-0 


53400 


1 


06673 




LXD 


H1350.1 


MAX SIZE DOTAG 


F2304740 


I* 



A 
A 



06752 
06753 
06754 
06755 
06756 
06757 
06760 
06761 
06762 
06763 
06764 
06765 
06766 
06767 
06770 
06771 
06772 
06773 
06774 
06775 
06776 
06777 
07000 
07001 
07002 
07003 



76200 
70000 
77777 
02000 
02000 
63400 
76200 
76200 
76600 
76000 
02000 
02000 
00001 
07400 
00000 
00000 
53400 
63400 
63400 
63400 
63400 
63400 
63400 
63400 
53400 
63400 



00222 


RORDS 


RDS 


TAPE2 




06377 


RDCPY 


CPY 


D0TAGZ«1 


READ IN D0TA6 


06753 




TXI 


RDCPY *1»-1 




06757 




TRA 


RDEOF 




06752 




TRA 


RDRDS 




03670 


RDEOF 


SXD 


D0TAG-1»1 


DOTAG INDEXC1350-N0 DOTAG ENTRIES) 


00222 




RDS 


TAPE2 


SPACE TAPE. 


00222 




RDS 


TAPE2 




00333 




MRS 


219 




00012 




RTT 






06766 




TRA 


RDER 


ON 


06772 




TRA 


DOPASS 




06730 


RDER 


TIX 


RDPOS.2.1 


TRY TWICE MORE. 


00004 




TSX 


DIAG.4 TAPE 


2. READING DOTAG. ERROR. GO TO 


00000 


RDES1 


HTR 




RECORD COUNT 


00000 


RDES2 


HTR 




RECORD COUNT 


03670 


DOPASS 


LXD 


D0TAG-1»1 


DOTAG INDEX. 


07110 




SXD 


SYM40»1 


INITIALIZE. 


07160 




SXD 


SYM130*1 




07222 




SXD 


SYM220.1 




07523 




SXD 


TRAW20.1 




07541 




SXD 


TRAW50.1 




07420 




SXD 


SPC040.1 




07455 




SXD 


SPC090.1 




00030 




LXD 


NAME-1»1 




07261 




SXD 


GETN20.1 










THIS ROUTINEMAKES A PASS OVER FORTAG AND FOR EACH 








NEGATIVE TAG» 


OBTAINS THE CORRESPONDING SUBSCRIPT 



DIAGNOSTIC. 



NON- 



F2304750 
F2304760 
F 2304770 
F2304780 
F2304790 
F2304800 
F2304810 
F2304820 
F2304830 
F2304840 
F2304850 
F2304860 
F2304870 
F2304885 
F2304890 
F2304900 
F2304910 
F2304920 
F2304930 
F2304940 
F2304950 
F2304960 
F2304970 
F2304980 
F2304990 
F 2305000 
F2305010 



COMBINATIONF2305020 



FROM THE TAU DRUM. THE SYMBOLS ARE PUT INTO THE LOCATIONS 
RSYM1. RSYM2. RSYM3. AND LOCATION TAGIND IS INITIALIZED. 
CONTROL THEN GOES TO ROUTINE SYMONE. UPON RETURN* THIS ENTRY 
IN FORTAG AND ALL OTHER NON- NEGATIVE ENTRIES CONTAINING 
THIS TAG ARE SET NEGATIVE. 



07004 


-0 


53400 


1 


00733 


07005 


-0 


63400 


1 


07601 


07006 


-0 


63400 


1 


07073 


07007 


-0 


63400 


1 


07076 


07010 


-0 


53400 


1 


06674 


07011 





50000 


1 


03670 


07012 


-0 


12000 





07075 


07013 


-0 


32000 





06703 


07014 





60100 





06626 


07015 


-0 


63400 


1 


07077 


07©16 


O 


©740© 


4 


©7701 


07017 


-0 


53400 


4 


06670 


07020 


-0 


75400 





00000 


07021 





60100 


4 


06635 


07022 


2 


00001 


4 


07021 


07023 


-0 


53400 


1 


06671 


07024 


-0 


53400 


2 


06670 


07025 


-0 


53400 


4 


06665 


07026 





50000 


1 


06644 


07027 





10000 





07041 


07030 


3 


00002 


2 


07037 



TAGPAS 



TAGP10 



TAGP20 



T AGP 30 



LXO FORTAG-1.1 




SXD TINF30»1 




SXD TAGP80.1 




SXD T AGP 98.1 




LXD L( 1500*1 




CLA F0RTZ»1 




TMI TAGP94 


IF NEG. GET NEXT FORTAG 


ANA ADOMSK 


TAG 


STO TAG 




SXD TAGX.l 


SAVE CURRENT FORTAG IX 


TSX SU8COM*4 


OBTAIN AND DISPERSE THE 


LXD L(3)*4 




PXD 0*0 




STO RSYM1+3.4 


INITIALIZE RSYM LOCATION 


TIX TAGP20.4.1 




LXD L(6)»l 




LXD L(3)»2 




LXD LC0J»4 




CLA Sl+6.1 


GET SYMBOL 


TZE TAGP40 


IF ZERO. GET NEXT SYMBOL 


TXH TAGP34.2.2 


AT RSYM2 AND RSYM3 PASS* 



WITH ZERO. 



F2305030 
F2305040 
F2305050 
F2305060 
F2305070 
F2305080 
F2305090 
F2305100 
F2305110 
F2305120 
F2305X30 
F2305140 
F2305150 
F2305160 
F2305170 
F2305180 
F2305190 
F2305200 
F2305210 
F2305220 
F2305230 
F2305240 
F2305250 
F2305260 
F2305270 
F2305280 



l« 



X 



1 \ 



O 



n 



O 




D 



07031 
07032 
07033 
07034 
07035 
07036 
07037 
07040 
07041 
07042 
07043 
07044 
07045 
07046 
07047 
07050 
07051 
©7052 
07053 
07054 
07055 
07056 
07057 
07060 
07061 
07062 
07063 
07064 
07065 
07066 
07067 
©7070 
07071 
07072 
07073 
07074 
07075 
07076 
07077 



07100 
07101 
07102 
07103 
07104 
07105 
07106 
07107 
07110 
07111 
07112 



34000 
02000 
00001 
34000 
02000 
00001 
60100 
77777 
00002 
75400 
76000 
40000 
10000 
60100 
53400 
00000 
40200 
10000 
50000 
10000 
53400 
00001 
53400 
63400 
02000 
53400 
50000 
12000 
32000 
40200 
10000 
50000 
60200 
77777 
0000 
53400 
77777 
Q0000 
00000 



53400 
53400 
50000 
34000 
02000 
02000 
00001 
77767 
00000 
02000 
50000 



06632 
07034 
07041 
06633 
07037 
07041 
06635 
07041 
07026 
00000 
00003 
06670 
07062 
06631 
06665 
07060 
06666 
07060 
06636 
07060 
06635 
07060 
06666 
06630 
07100 
07077 
03670 
07072 
06703 
06626 
07072 
06676 
03670 
07073 
07063 
07077 
07076 
07011 
07616 



06673 
06670 
06400 
06635 
07106 
07112 
07103 
1 07110 
1 07101 
07062 
06632 



TAGP32 

TAGP34 
TAGP40 



TAGP45 

TAGP50 
TAGP60 



TAGP70 
TAGP80 
TAGP90 
TAGP94 
TA6P98 
TAGX 



SYMONE 
SYM10 

SYM20 



SYM30 
SYM40 
SYM50 



CAS 
TRA 
TXI 

CAS 
TRA 
TXI 
STO 
TXI 
TIX 
PXD 
SSM 
ADO 
TZE 
STO 
LXD 
TXH 
SUB 
TNZ 
CLA 
TZE 
LXD 
TXH 
LXD 
SXD 
TRA 
LXD 
CLA 
TMI 
ANA 
SUB 
TNZ 
CAL 
ORS 
TXI 
TXH 
LXD 
TXI 
TXH 
TXL 



LXD 
LXD 
CLA 
CAS 
TRA 
TRA 
TIX 
TXI 
TXH 
TRA 
CLA 



RSYM1 

TAGP32 

TAGP40.4.1 

RSYM2 

TAGP34 

TAGP40.4.1 

RSYM1+3.2 

TAGP40*2*-1 

TAGP30.1.2 

0.2 

L13) 
TAGP50 
DELTA 
L(0)»2 

TAGP45»4*0 

LU) 

TAGP45 

SI 

TAGP45 

Cl.l 

TAGP45*1»1 

L(l)*2 

TAGIND.2 

SYMONE 

TAGX.l 

FORTZ.l 

TAGP70 

ADDMSK 

TAG 

TAGP70 

L(MZ) 

FORTZ.l 

TAGP80.1.-1 

TAGP60»1 

TAGXtl 

TAGP98.1.-1 

TAGP10*1 

NORMRT.O 

ROUTINE SYMONE 



C".ECK. FOR DUPLICATE SYMBOLS. 
SYMBOL DUPLICATES RSYM1. 



SYMBOL DUPLICATES RSYM2« 

BUMP DELTA COUNTER. 

COMPUTE 

DELTA AS NO 

OF DISTINCT SYMBOLS. 

CONSTANT SUBSCRIPT. 



IF DUPES* SET TAGIND TO ZERO 

IF DELTA OTHER THAN ONE. SET TAGIND TO ZERO 

IF SUBSCRIPT CONSTANT. SET TAGIND TO ZERO 
IF COEFF OTHER THAN 1 SET TAGIND TO ZERO 

OTHERWISE SET TAGIND TO ONE. 

GO TO ANALYZE DONEST. 

IF ANY 

OF THE AS YET UNTREATED 

FOR TAGS 

ARE 

THE SAME AS THAT TAG 

JUST TREATED. 

SET THEM 

MINUS. 

[ DEC HAS FORTAG IX) 

IF ALL OF FORTAG 

HAS BEEN COMPLETED. {DEC HAS FORTAG IX) 
NORMAL RET MONITOR. (DEC HAS CURR FORTAG IX) 
FINDS DOFORMULAS DEFINING SOME SYMBOL IN THIS 



SC. IT USES TRAWRD TO DETERMINE WHETHER OR NOT ROUTINE 

PROCESS SHOULD BE USED. 

IF MORE THAN ONE SYMBOL. IT THEN USES ROUTINE SYM2. 

LI1350.1 

Lt3).2 

DOTAGZ+1.1 

RSYM1+3.2 

SYM30 

SYM50 

SYM20.2.1 

5YM40.1.-9 

SYM10.1 

TAGP50 

RSYM1 



GET NEXT DOTAG SYMBOL. 

IS IT SAME AS SUBSCRIPT SYMBOL. 

YES 



END OF DOTAG. RETURN. 



INTERCHANGE THE 



F2305290 

F2305300 

F2305310 

F2305320 

F2305330 

F2305340 

F2305350 

F2305360 

F2305370 

F2305380 

F2305390 

F2305400 

F2305410 

F2305420 

F2305430 

F2305440 

F2305450 

F2305460 

F2305470 

F2305480 

F2305490 

F2305500 

F2305510 

F2305520 

F2305530 

F2305540 

F2305550 

F2305560 

F2305570 

F2305580 

F23O5590 

F2305600 

F2305610 

F2305620 

F2305630 

F2305640 

F2305650 

F23O5660 

F2305675 

F2305680 

F2305690 

F2305700 

F2305710 

F2305720 

F2305730 

F2305740 

F2305750 

F2305760 

F2305770 

F2305780 

F2305790 

F2305800 

F2305810 

F2305820 



Pit 



07113 
07114 
07115 
07116 
07117 
07120 
07121 
07122 
07123 
07124 
07125 
07126 
07127 
07130 
07131 
07132 
©7133 
07134 
07135 
07136 
07137 
07140 
07141 
07142 
07143 








56000 
60100 
-0 60000 

50000 
-0 32000 

60100 

60100 
-0 63400 
-0 53400 
-0 53400 
-3 00001 
-0 53400 

07400 
-0 63400 

10000 
-0 53400 
-0 53400 

07400 
-0 53400 
-3 00001 
-0 53400 
-0 53400 

02000 
-0 53400 

02000 



07144 
07145 
07146 
07147 
07150 
07151 
07152 
07153 
07154 
07155 
07156 
07157 
07160 
07161 
07162 
07163 
07164 
07165 
07166 
07167 
07170 
07171 
07172 
07173 
07174 
07175 



63400 
02000 
50000 
73400 
00000 
50000 
34000 
02000 
02000 
40200 
10000 
77767 
00000 
02000 
50000 
56000 
60100 
60000 
63400 
63400 
53400 
53400 
00002 
53400 
07400 
63400 



06635 
06635 
06632 
06404 
06704 
06647 
06645 
06646 
06631 
06666 
07127 
06667 
07513 
06650 
07135 
06646 
06666 
07236 
06631 
07142 
06646 
06647 
07144 
06650 
07110 



07150 
07157 
06404 
00000 
07110 
06400 
06633 
07155 
07166 
06634 
07162 
07160 
07146 
07110 
06633 
06634 
06634 
06633 
06651 
06652 
06666 
06631 
07174 
06667 
075 1 3 
06653 



SYM60 

SYM70 

SYM80 

SYM2 

SYM90 

SYM100 

SYM110 

SYM120 

SYM130 

SYM140 
SYM150 

SYM160 



LDQ 
STO 
STQ 
CLA 
ANA 
STO 
STO 
SXD 
LXD 
LXD 
TXL 
LXD 
TSX 
SXD 
TZE 
LXD 
LXD 
TSX 
LXD 
TXL 
LXD 
LXD 
TRA 
LXD 
TRA 



RSYM1+3.2 

RSYMl+3*2 

RSYM1 

D0TAGZ+5»1 

DECMSK 

LR1 

TL2 

XRltl 

DELTA* 4 

HH»2 

SYM60»4»1 

L(2)*2 

TRAWRD»4 

NEXTR1*1 

SYM70 

XR1»1 

LU)»2 

PR0CES»4 

DELTA* 4 

SYM80»4*1 

XR1»1 

LR1»2 

SYM2 

NEXTR1»1 

SYM40 



MATCHING SUBSCRIPT 
SYMBOL WITH 
RSYM1. 

STORE LEVEL 

OF 

DOT AG 

THIS DOTAG IS Rl. 

IF DELTA IS 

ONE* THEN 

NO TRAWORD SKIP. 

OTHERWISE* TRAWORD SKIP. 



SAVE INDEX LAST DOTAG HANDLED* 

ARE THERE TRANSFERS OUTtTRABITSl . 

YES. LOAD I.R. FOR MATCHING DOTAG. 

A ONE TELLS PROCESS THAT 

CALLER WAS SYMONE. (B). 

NO TRANSFERS OUT (TRABITS) 

IF DELTA IS GREATER THAN ONE. THEN 

LOAD INDEX REG FOR MATCHING DOTAG. 

AND LEVEL AND 

GO TO SECOND LEVEL SEARCH. 

DELTA IS ONE* 

CONTINUE FIRST LEVEL SEARCH. 
ROUTINE SYMTWO MAKES A SECOND LEVEL SEARCH AMONG THOSE DOS 
NESTED WITHIN THE DO MATCHING RSYM1. USES PROCESS ROUTINE 
IF NECESSARY* AND ROUTINE SYM3 IF NECESSARY. 



SXD 
TRA 
CLA 
PDX 
TXL 
CLA 
CAS 
TRA 
TRA 
SUB 
TZE 
TXI 
TXH 
TRA 
CLA 
L0O 
STO 
STQ 
SXD 
SXD 
LXD 
LXD 
TXL 
LXD 
TSX 
SXD 



SYM100*2 

SYM120 

DOTAGZ+5.1 

0*2 

SYM40.2 

DOTAGZ+l»l 

RSYM2 

SYM110 

SYM150 

RSYM3 

SYM140 

SYM130»l*-9 

SYM90»1 

SYM40 

RSYM2 

RSYM3 

RSYM3 

RSYM2 

XR2»1 

LR2*2 

L(l)*2 

DELTA. 4 

SYM160»4»2 

L<2).2 

TRAWRD.4 

NEXTR2.1 



INITIALIZE LEVEL TEST 

GET LEVEL OF 

NEW DOTAG AND 

TEST AGAINST LEVEL OF Rl AND 

IF WITHIN RANGE OF Rl* 

TEST MATCH DOTAG SYMBOL AGAINST RSYM2. 

MATCHES • GO TO TREAT R2. 
DOESNT MATCH RSYM2* TRY RSYM3. 

GET NEXT DOTAG 

(DEC CONTAINS DOTAG IX) 
IF END OF DOTAG. EXIT. 
DOTAG SYMBOL MATCHES RSYM3 - 
INTERCHANGE 
RSYM2 AND 
RSYM3. 

THIS DOTAG IS R2 
SAVE ITS LEVEL . 
IF DELTA IS 
TWO OR ONE* THEN 
NO TRAWORD SKIP. 
OTHERWISE TRAWORD SKIP. 

SAVE INDEX LAST DOTAG HANDLED. 



F2305830 

F2305840 

F2305850 

F2305860 

F2305870 

F2305880 

F2305890 

F 2305 9 00 

F2305910 

F2305920 

F2305930 

F2305940 

F2305950 

F2305960 

F2305970 

F2305980 

F2305990 

F2306000 

F2306010 

F2306020 

F2306030 

F2306040 

F2306050 

F2306060 

F2306O70 

F2306080 

F2306090 

F2306100 

F2306110 

F2306120 

F2306130 

F2306140 

F2306150 

F2306160 

F2306170 

F2306180 

F2306190 

F23062O0 

F2306210 

F2306220 

F2306230 

F2306240 

F2306250 

F2306260 

F2306270 

F2306280 

F2306290 

F2306300 

F2306310 

F2306320 

F2306330 

F2306340 

F2306350 

F2306360 



;i 



\s^_^- / 



u 



r^ 



O 



-C V 



07176 





10000 





07202 




TZE 


SYM170 


ARE THERE TRANSFERS OUT (TRABITS). 


F2306370 


07177 


-0 


53400 


1 


06651 




LXD 


XR2.1 


YES* LOAD IX REG FOR MATCHING DOTAG. 


F2306380 


07200 


-0 


53400 


2 


06667 




LXO 


L<2>.2 


A TWO TELLS PROCESS THAT 


F2306390 


07201 





07400 


4 


07236 




TSX 


PROCES »4 


CALLER WAS SYM2. (2). 


F2306400 


07202 


-0 


53400 


4 


06631 


SYM170 


LXO 


DELTA* 4 


NO TRANSFERS OUT (TRABITSi. 


F2306410 


07203 


-3 


00002 


4 


07207 




TXL 


SYM180.4.2 


IF DELTA IS 3 ♦ THEN 


F2306420 


07204 


-0 


53400 


1 


06651 




LXD 


XR2.1 


LOAD INDEX REG FOR MATCHING DOTAG. 


F2306430 


07205 


-0 


5340O 


2 


06652 




LXD 


LR2.2 


AND LEVEL AND 


F2306440 


07206 





02000 





07211 




TRA 


SYM3 


60 TO THRID LEVEL SEARCH. 


F2306450 


07207 


-0 


53400 


1 


06653 


SYM180 


LXD 


NEXTR2.1 


DELTA IS LESS THAN THREE » 


F2306460 


07210 





02000 





07160 




TRA 


SYM130 


CONTINUE SECOND LEVEL SEARCH. 


F2306470 
















ROUTINE SYM3 


MAKES A THIRD LEVEL SEARCH OF DOTAG AMONG THOSEF2306480 
















DOS NESTED WITHIN THE DO MATCHING RSYM2. USES PROCESS IF 


F2306490 
















NECESSARY. AND THEN RETURNS TO SYM2. 


F2306500 


07211 


-0 


63400 


2 


07215 


SYM3 


SXD 


SYM200»2 


INITIALIZE WITH LEVEL OF R2. 


F2306510 


07212 





02000 





07221 




TRA 


SYM210 




F2306520 


07213 





50000 


1 


06404 


SYM190 


CLA 


DOTAGZ+5.1 


OBTAIN LEVEL 


F2306530 


07214 


-0 


73400 


2 


00000 




PDX 


0*2 


OF CURRENT DOTAG AND IF IT IS 


F2306540 


07215 


-3 


00000 


2 


07160 


SYM200 


TXL 


SYM130t2 


OUTSIDE RAN6E OF R2» EXIT. (DEC HAS LEVEL R2) 


F2306550 


07216 





50000 


1 


06400 




CLA 


DOTAGZ+1.1 


OTHERWISE CHECK FOR IDENTIRY 


F2306560 


07217 





40200 





06634 




SUB 


RSYM3 


WITH THIRD FORTAG SYMBOL. 


F2306570 


07220 





10000 





07224 




TZE 


SYM230 


IF IDENTITY. GO TO ANALYZE • OTHERWISE. 


F2306580 


07221 


1 


77767 


1 


07222 


SYM210 


TXI 


SYM220.1.-9 


GET NEXT DOTAG. 


F2306590 


07222 


3 


00000 


1 


07213 


SYM220 


TXH 


SYM190«1 


IF END OF DOTAG. (DEC HAS DOTAG IX > 


F2306600 


07223 





02000 





07160 




TRA 


SYM130 


EXIT FROM THIRD LEVEL SEARCH 


F2306610 


07224 


-0 


63400 


1 


06654 


SYM230 


SXD 


XR3.1 


SAVE IX OF MATCHING DO 


F23O6620 


07225 


-0 


53400 


2 


06666 




LXD 


L(l)»2 


NO TRAWORD SKIP. 


F2306630 


07226 





07400 


4 


07513 




TSX 


TRAWRD»4 


GO TO HUNT TRANSFERS-OUT. 


F2306640 


07227 





10000 





07222 




TZE 


SYM220 


IF NO TRNSFRS OUT (TRABITSJ RETURN TO SRCH 


F2306650 


07230 


-0 


63400 


1 


06655 




SXD 


NEXTR3»1 


TRNSFRS OUT. SAVE IX LAST DO HANDLED IN TRAW0RDF2306660 


07231 


-0 


53400 


1 


06654 




LXD 


XR3.1 




F2306670 


07232 


-0 


53400 


2 


06670 




LXD 


LI3J.2 


THREE TELLS PROCESS THAT CALLER WAS SYM3. 


F2306680 


07233 





07400 


4 


07236 




TSX 


PR0CES.4 




F2306690 


07234 


-0 


53400 


1 


06655 




LXD 


NEXTR3»1 


GET IX NEXT DOTAG AND 


F2306700 


07235 





020O0 





07222 




TRA 


SYM220 


CONTINUE THIRD LEVEL SEARCH. 


F2306710 
















ROUTINE PROCESS DETERMINES WHETHER OR NOT THERE EXISTS A 


F2306720 
















TAG IDENTICAL 


TO THE CURRENT RELCON TAG AND WHETHER ITS 


F2306730 
















TAG. NAME HAS 


BEEN CHANGED. THE 5€ARCH FOR THIS IDENTICAL TAG 


F23067A0 
















IS MADE THRU 


APPROPRIATE RANGES OF THAT DO WHOSE SYMBOL HAS 


F2306750 
















BEEN FOUND TO 


MATCH ONE OF THE RELCON SYMBOLS, TRASTO ENTRIESF2306760 
















ARE ENTERED DEPENDING UPON WHICH OF THOSE CONDITIONS HOLDS. 


F2306770 


07236 


-0 


63400 


1 


07262 


PROCES 


SXD 


DOX.l 


SAVE DOTAG IX 


F2306780 


07237 


-0 


63400 


4 


07265 




SXD 


SYMLNK.4 


AND CALLER 


F2306790 


07240 


-0 


63400 


2 


07243 




SXD 


PR10»2 


AND INITIALIZE WITH B. 


F2306800 


07241 


-0 


53400 


2 


06631 




LXD 


DELTA.2 




F2306810 


07242 


-0 


53400 


4 


06665 




LXD 


L(0).4 




F2306820 


07243 


3 


00000 


2 


07245 


PR10 


TXH 


PR20»2 


DOES DELTA EXCEED B. (DEC HAS B) 


F2306830 


07244 


-0 


53400 


4 


06666 




LXD 


Ltll.4 


IF NOT. THEN NO SKIP. OTHERWISE. 


F230684O 


07245 


-0 


63400 


4 


06656 


PR20 


SXD 


SKIP. 4 


SKIP IF C(SKIP)=0. 


F2306850 


07246 


-0 


53400 


4 


06630 




LXD 


TAGIND.4 


TRA IF SPECIAL CASE. I.E.. MOST SIMPLE. 


F2306860 


07247 


3 


00000 


4 


07317 




TXH 


PRSPEC.4.0 


(TAGIND NOT ZERO) 


F2306870 


07250 





50000 


1 


06377 




CLA 


D0TAGZ»1 


SEARCH TABLE NAME 


F2306880 


07251 


-0 


32000 





06704 




ANA 


DECMSK 


GET RSYM1 DOTAG ALPHA IN DEC 


F2306890 


07252 





40000 





06626 




ADD 


TAG 


AND FORTAG IN ADDRESS. 


F230690O 



?'li 



D 




07253 
07254 
07255 
07256 
07257 
07260 
07261 
07262 
07263 
07264 
07265 
07266 
07267 
07270 
07271 
07272 
07273 
07274 
07275 
07276 
07277 
07300 

07301 
07302 
07303 
O7304 
07305 
07306 
07307 
07310 
07311 
07312 
07313 
07314 
07315 
07316 



07317 
07320 
07321 
07322 
07323 
07324 
07325 
07326 
07327 
07330 
07331 
07332 
07333 
07334 
07335 



53400 
02000 
34000 
02000 
02000 
77775 
00000 
00000 
50000 
60100 
00000 
53400 
53400 
00000 
53400 
07400 
02000 
02000 
07400 
02000 
53400 
07400 

53400 
00000 
07400 
50000 
76700 
40000 
60100 
77777 
63400 
02000 
53400 
07400 
53400 
02000 



50000 

77100 

40200 

10000 

50000 

32000 1 

10000 

53400 

07400 

02000 

07400 

O2000 

53400 

07400 

02000 



06711 
07261 
00733 
07260 
07263 
07261 
07255 
07266 
00734 
06627 
07313 
06656 
07262 
07275 
06666 
07401 
07277 
07315 
07564 
07315 
06665 
07336 

06664 
07304 
00004 
06626 
00022 
06626 
06625 
07311 
06664 
07315 
06666 
07336 
07265 
00001 



06407 
00022 
06626 
07331 
06700 
06405 
07315 
06670 
07336 
07315 
07564 
07315 
06667 
07336 
07315 



GETNAM 
GETN05 



GETN10 
GETN20 
DOX 
GETN30 

SYMLNK 
PR25 



PR30 
PR40 

PR60 

PR70 

PR75 
PR80 
PR90 

PRSPEC 



LXD NAMAX»1 
TRA GETN20 
CAS NAMZ»1 
TRA GETN10 
TRA GETN30 
TXI GETN20»l.-3 
TXH GETN05tl 
TXL PR25»0 
CLA NAMZ+1»1 
STO TS 
TXL PR80*0 
LXD SKIP.4 
LXD D0X»1 
TXH PR30»4*0 
LXD LC1)»2 
TSX SPC000»4 
TRA PR40 
TRA PR90 
TSX TINF0R»4 
TRA PR90 
LXD L<0>*2 
TSX TRAENT*4 



LOAD MAX NO NAME TABLE WORDS 



F2306910 
F2306920 
F2306930 
F230694Q 
F2306950 
F2306960 
F2306970 



MAKE ENTRY IN TABLE IRV 



LXD IRVXX.l 

TXH PR70»1»0 

TSX DIAG»4 TABLE IRV FULL. 

CLA TAG 



DOES THE DOT AG ALPHA AND FORTAG INDEX OF THE 
FIRST WORD OF NAME TABLE MATCH THOSE ABOVE. 
YES. 

NO* GET NEXT NAME TABLE. 

IS NAME TABLE EXHAUSTED (DEC HAS NAME IX) 
YES* NOT NOT FOUND. { DEC HAS IX MATCHING DOTAGF2306980 
FOUND. OBTAIN NEW TAG NAME F2306990 

AND SAVE IT. F2307000 

F2307010 
F2307020 
F2307030 
F2307040 
F2307050 
F2307060 
F2307070 
F2307080 
F2307090 
F2307100 
F2307110 
F2307120 
F2307130 
F2307140 
F2307150 
ERROR. 60 TO DIAGNOSTIC. F2307165 



NOT FOUND IN NAME TABLE* 

SEARCH FORTAG 

IN PROPER RANGE. 

INDICATE TINFOR SEARCH REQUIRED 

NOT FOUND 
T FOUND 

FOUND* GO TO EXIT. 

T NOT FOUND* MAKE TYPE 6 

TRASTO ENTRY 



GET IX FOR ENTRY IN TABLE IRV. 



ALS 18 
ADD TAG 
STO IRVZ»1 
TXI PR75.1.-1 
SXD IRVXX»1 
TRA PR90 
LXD LCI). 2 
TSX TRAENT.4 
LXD SYMLNK »4 
TRA 1*4 



PLACE TAG IN 

DECREMENT AND 

ADDRESS AND 

STORE ENTRY IN TABLE IRV 

BUMP IRV TABLE INDEX AND 

SAVE IT FOR NEXT ENTRY. 

MAKE TYPE ONE TRASTO ENTRY 

RESTORE INDEX REG 
AND RETURN TO CALLER 



F2307170 
F2307180 
F2307190 
F2307200 
F2307210 
F2307220 
F2307230 
F2307240 
F2307250 
F2307260 
F2307270 



ROUTINE PERSPEC IS FOR THE SPECIAL CASE OF A SINGLE SUBSCRIPTF2307280 



RELCON WITH NO COEFFICIENT (TAGIND EQUALS ONE) 



PR 100 



CLA DOTAG2+8»l 
ARS 18 
SUB TAG 
TNZ PR 100 
CLA BIT18 
ANA DOTAGZ+6»l 
TZE PR90 
LXD L(3) »2 
TSX TRAENT.4 
TRA PR90 
TSX TINF0R.4 
TRA PR90 
LXD L(2)»2 
TSX TRAENT*4 
TRA PR90 



IF OOTAGS 
TEST NAME 
IS SAME AS 
CURRENT FORTAG 
AND IF 
THERE IS A 

MAKE A TYPE 5 TRASTO ENTRY 



LOOK FOR ALREADY PROCESSED IDENT FORTAG. 

FOUND. 

NOT FOUND* MAKE A TYPE 1 TRASTO 

ENTRY 



F2307290 
F2307300 
F2307310 
F2307320 
F2307330 
F2307340 
F2307350 
F2307360 
F2307370 
F2307380 
F2307390 
F2307400 
F2307410 
F2307420 
F2307430 
F2307440 



y,x 



u 



u 



n 



o 



07336 


-0 


63400 


4 


07375 


TRAENT 


SXD 


TE70»4 


07337 


-0 


53400 


1 


07262 




LXD 


DOXtl 


073*0 





50000 


1 


06377 




CLA 


D0TAGZ*1 


07341 


-3 


00002 


2 


07343 




TXL 


TE10»2*2 


07342 


-0 


76000 





00003 




SSM 




07343 





60100 





07656 


TE10 


STO 


El 


07344 





50000 





06645 




CLA 


TL2 


07345 





77100 





00022 




ARS 


18 


07346 


3 


00000 


2 


07350 




TXH 


TE20»2*0 


07347 


-0 


76000 





00003 




SSM 




07350 





60100 





0765? 


TE20 


STO 


E2 


07351 


-3 


00001 


2 


07361 




TXL 


TE40»2.1 


07352 





50000 


1 


06407 




CLA 


D0TAGZ+8*1 


07353 


-0 


32000 





06704 




ANA 


DECMSK 


07354 


3 


00002 


2 


07357 




TXH 


TE30»2*2 


07355 


-0 


50100 





06626 




OR A 


TAG 


07356 





02000 





07367 




TRA 


TE60 


07357 


-0 


50100 


1 


06401 


TE30 


ORA 


D0TAGZ+2*! 


07360 





02000 





07366 




TRA 


TE50 


07361 





50000 





06626 


TE40 


CLA 


TAG 


07362 


-3 


00000 


2 


07366 




TXL 


TE50»2*0 


07363 





76700 





00022 




ALS 


18 


07364 





40000 





06627 




ADD 


TS 


07365 





02000 





07367 




TRA 


TE60 


07366 


-0 


76000 





00003 


TE50 


SSM 




07367 





60100 





07660 


TE60 


STO 


E3 


07370 


-0 


50000 





07663 




CAL 


TRASTO 


07371 


-0 


53400 


2 


06667 




LXD 


L(2)t2 


07372 


-0 


53400 


4 


06656 




LXD 


SKIP»4 


07373 


3 


00000 


4 


07376 




TXH 


TE80*4»0 


07374 





07400 


4 


07401 




TSX 


SPC0OO*4 


07375 


-3 


00000 





07377 


TE70 


TXL 


TE90»0 


07376 





07400 


4 


07620 


TE80 


TSX 


LIST.4 


07377 


-0 


53400 


4 


07375 


TE90 


LXD 


TE70.4 


07400 





02000 


4 


00001 




TRA 


1»4 
SUBROUTINE 


07401 


-0 


63400 


1 


07473 


SPCOOO 


SXD 


SPC115.1 


07402 


-0 


63400 


2 


07446 




SXD 


SPC060»2 


07403 


-0 


63400 


4 


07463 




SXD 


SPC105»4 


07404 





60100 





07512 




STO 


SPCKEY 


07405 





50000 


1 


06404 




CLA 


D0TAG2+5»1 


07406 





62200 





07423 




STD 


SPC050 


07407 





50000 


1 


06377 




CLA 


D0TAGZ»1 


07410 





73400 


2 


00000 




PAX 


0*2 


07411 


-0 


32000 





06704 




ANA 


DECMSK 


07412 





60100 





06660 




STO 


NEXTA 


07413 





60100 





06662 




STO 


A 


07414 


-0 


75400 


2 


ooooo 




PXD 


0.2 


07415 





60100 





06661 




STO 


LASTB 


07416 


-0 


53400 


1 


07473 


SPC010 


LXD 


SPC115.1 


07417 


1 


77767 


1 


07420 


SPC020 


TX1 


SPC040«l»-9 



MAKE A TRASTO ENTRY 4 TRASTO TYPE ONE ENTRY IS MADE WHEN 
B IS ONE OR TWO* TYPE FIVE ENTRY WHEN B IS THREE* AND TYPE 
SIX TRASTO ENTRY WHEN B IS ZERO. 



GET DOTAGS ALPHA AND BETA 

WHERE B IS 3 (TYPE5) 

SET El NEG. 

AND STORE IN El. 

GET LEVEL OF DOTAG 

INTO ADDRESS AND 

WHERE B ZERO J TYPE 6)* 

SET NEG AND 

PUT It INTO E2« 

WHERE B 20R3 (TYPE 1 OR 5)* 

PREPARE DOTAGS 

TEST NAME • 

IF 8 2 (TYPE 1) 

PREPARE FORTAG INDEX AND 

GO TO STORE IN £3. 

WHERE B IS 3* (TYPE 5) PREPARE DOTAGS 

PARAMETER Nl. 

WHERE B ZERO OR 1 (TYPE 1)» GET FORTAG 

AND WHEN ONE* 

PUT IN DEC WITH 

NEW TAG NAME IN ADDRESS. 

SET MINUS FOR B ZERO OR 3 (TYPE 6QR5) 

AND STORE IN E3. FINALLY. 

GET TRASTO KEY WORD. 

INDICATE TINFOR SEARCH NOT REQUIRED 

IF SKIP IS 1 (DELTA GREATER THEN B), 
60 TO SPC. 

(DEC SAVES TSXLINK) 
GO TO LIST KF SKIP IS ZERO. 
RETURN FROM LIST. 
RETURN TO CALLER. 
SPCOOO 

SAVE INDEX OF DO TO BE SEARCHED. 

SAVE TINFOR* LIST INDICATOR 

SAVE TSX INDEX. 

SAVE LIST KEY WORD 

OBTAIN L WORD 

INITIALIZE TEST INSTR. 

OBTAIN ALPHABETA WRD* 

SAVE BETA* 

OBTAIN ALPHA ALONE 

STO IN NEXTA 

AND STORE IN A. 

PUT BETA IN LASTB AND 

BE6IN SEARCH FOR R2 

OBTAIN CURRENT INDEX AND 

GO DOWN ONE DO* IF POSSIBLE* ELSE 



F2307450 

F2307460 

F2307470 

F2307480 

f 230 7490 

F2307500 

F2307510 

F230752O 

F2307530 

F2307540 

F2307550 

F2307560 

F2307570 

F2307580 

F2307590 

F2307600 

F2307610 

F2307620 

F2307630 

F2307640 

F2307650 

F2307660 

F2307670 

F2307680 

F2307690 

F2307700 

F2307710 

F2307720 

F2307730 

F2307740 

F2307750 

F2307760 

F2307770 

F2307780 

F2307790 

F23078O0 

F2307810 

F2307S20 

F230783O 

F2307840 

F2307850 

F2307860 

F2307870 

F2307880 

F2307890 

F2307900 

F2307910 

F2307920 

F2307930 

F2307940 

F2307950 

F2307960 

F2307970 

F2307980 



,*> 



D 


07420 


-3 


00000 


1 


07464 


SPC040 


TXL 


SPC110»1 




07421 





50000 


1 


06404 




CLA 


D0TAGZ+5*! 




07422 


-0 


73400 


2 


00000 




PDX 


0*2 





07423 


-3 


00000 


2 


07464 


SPC050 


TXL 


SPC110.2 




07424 





50000 


1 


06400 




CLA 


D0TAGZ+1»1 




07425 





40200 





06634 




SUB 


RSYM3 




07426 





10000 





07432 




TZE 


SPC053 




07427 





50000 


1 


06400 




CLA 


OOTAGZ+l*! 




07430 





40200 





06633 




SUB 


RSYM2 




07431 


-0 


10000 





07417 




TNZ 


SPC020 




07432 





50000 


1 


06377 


SPC053 


CLA 


D0TAGZ»1 




07433 





73400 


2 


ooooo 




PAX 


0*2 




07434 


-0 


32000 





06704 




ANA 


DECMSK 




07435 





60100 





06663 




STO 


B 




07436 


-0 


75400 


2 


OOOOO 




PXD 


0*2 




07437 





60100 





06660 




STO 


NEXTA 




07440 


-0 


63400 


1 


07473 




SXD 


SPC115.1 




07441 


-0 


53400 


2 


07446 


SPC055 


LXD 


SPC060.2 




07442 





50000 





06662 


SPC058 


CLA 


A 




07443 





40200 





06663 




SUB 


B 




07444 





10000 





07447 




TZE 


SPC065 




07445 


-3 


00001 


2 


07500 




TXL 


SPCTIN. 2tl 


D 


07446 


-3 


00000 





07503 


SPC060 


TXL 


SPCSTO. 




07447 


-0 


53400 


2 


07446 


SPC065 


LXD 


SPC060.2 




07450 


-3 


00000 


2 


07474 




TXL 


SPC120.2.0 




0745X 


-0 


53400 


1 


07473 


SPC070 


LXD 


SPC115.1 




07452 





50000 


1 


06404 




CLA 


D0TAGZ+5.1 




07453 





62200 





07460 




STD 


SPC100 




07454 


1 


77767 


1 


07455 


SPC080 


TXI 


SPC090.1.-9 


D 


07455 


-3 


00000 


1 


07464 


SPC090 


TXL 


SPC110.1 




07456 





50000 


1 


06404 




CLA 


DOTAGZ+5.1 




07457 


-0 


73400 


2 


OOOOO 




PDX 


0.2 





07460 


3 


00000 


2 


07454 


SPC100 


TXH 


SPC080.2 




07461 





50000 





06660 




CLA 


NEXTA 




07462 





60100 





06662 




STO 


A 





07463 


-3 


00000 





07423 


SPC105 


TXL 


SPC050.0 




07464 





50000 





06660 


SPC110 


CLA 


NEXTA 




07465 





60100 





06662 




STO 


A 




07466 





50000 





06661 




CLA 


LASTB 




07467 





60100 





06663 




STO 


B 




07470 


-0 


53400 


2 


07446 




LXD 


SPC060.2 




07471 





50000 





06665 




CLA 


L(0) 




07472 





62200 





07446 




STD 


SPC060 


D 


07473 


-3 


00000 





07442 


SPC115 


TXL 


SPCO&S*© 




07474 


-0 


53400 


4 


07463 


SPC120 


LXD 


SPC105.4 




07475 





02000 


4 


00001 




TRA 


1.4 




07476 


-0 


53400 


4 


07463 


SPC130 


LXD 


SPC105.4 




07477 





02000 


4 


00002 




TRA 


2.4 




07500 





07400 


4 


07572 


SPCTIN 


TSX 


TINFXX.4 




07501 





02000 





07476 




TRA 


SPC130 




07502 





02000 





07447 




TRA 


SPC065 




07503 





50000 





06663 


SPCSTO 


CLA 


B 




07504 





77100 





00022 




ARS 


18 




07505 





40000 





06662 




ADD 


A 



GO TO SET UP LAST INTERVAL. (DEC HAS DOTAG IX 

TEST WHETHER OR NOT THIS DO 

IS IN RANGE OF RHDXL) 

IF NOT» EXIT FOR LAST INTRVL. (DEC LEV DO) 

IF IN Rl. IS THIS DO TO BE 

SKIPPED. IF NOT. GO BACK TO 

6ET NEXT DO. 



R2 FOUND. ARRANGE TO SKIP THIS 

INTERVAL. USE ALPHA OF R2 

AS B. PUT BETA OF R2 IN 

NEXTA. 

DO FORMULAS WITHIN R2 ARE 

ACCOUNTED FOR AFTER SEARCH. 

SAVE INDEX OF R2. 

PUT TINFOR. LIST IND. IN XRB 

FOR 

NON EMPTY 

INTERVALS. 

GO TO ARRANGE TINFOR SEARCH. OR 

TRA TO USE LIST. (DEC HAS TINFOR SEARCH INDIC) 

RETURN HERE. TEST TINFOR 

LIST IND. IF ZERO. EXIT. 

TO SET UP NEXT INTERVAL. 

OBTAIN INDEX OF LAST R2 AND 

STEP DOWN IN DOTAG BY USUAL 

PROCEDURE UNTIL SOME DO IS 

FOUND NOT IN R2. OR UNTIL (DEC HAS DOTAG TX) 

DOTAG EXHAUSTED. IF DO FOUND 

NOT IN R2. SET A AND GO TO TEST 

IF THIS DO IS IN Rl. (DEC HAS LEV LAST R2 DO) 

IF IT IS. NEWR2 WILL BE FOUND 

OR EXIT MADE TO SPC110. 

THIS IS SETUP FOR LAST 

INTERVAL. FOR A. USE 

CONTENTS OF NEXTA. FOR B» 

USE BETA OF Rl. FOUND IN 

LASTB. OBTAIN TINFOR. STOTAG 

IND. AND SET LOCATION OF 

INDICATOR TO ZERO. GO TO 

TINFOR OR TRASTO. (DEC HAS DOTAG IX) 

EXIT. ALL STORES DONE. OR. 

SEARCH MADE. T NOT FOUND. 

EXIT.T FOUND 

IN SOME INTERVAL 

GO TO SEARCH FORTAG 

T FOUND 

T NOT FOUND 

FOR TRASTO. E2 AND E3 ARE 

ALREADY SET UP. COLLECT 

A AND B INTO El WORD. 



) F2307990 
F2308000 
F2308010 
F2308020 
F2308030 
F2308040 
F2308050 
F2308060 
F2308070 
F2308080 
F2308090 
F2308100 
F2308110 
F2308120 
F2308130 
F2308140 
F2308150 
F2308160 
F2308170 
F2308180 
F2308190 
F2308200 
F2308210 
F2308220 
F2308230 
F2308240 
F2308250 
F2308260 
F2308270 
F2308280 
F2308290 
F2308300 
F2308310 
F2308320 
F2308330 
F2308340 
F2308350 
F2308360 
F2308370 
F2308380 
F2308390 
F2308400 
F2308410 
F23O8420 
F2308430 
F2308440 
F2308450 
F2308460 
F2308470 
F2308480 
F2308490 
F2308500 
F2308510 
F2308520 



?-w 



U 



(J 



n 



( J 



6 1/ 





07506 





60100 





07656 




STO El 




07507 





50000 





07512 




CLA SPCKEY 




07510 





07400 


4 


07620 




TSX LIST»4 




07511 





02000 





07447 




TRA SPC065 


A 


07512 





00000 





00000 


SPCICEY 


HTR 

SUBROUTINE 




07513 


-0 


63400 


4 


07545 


TRAWRD 


SXD TRAW65»4 




07514 





50000 





06665 




CLA L(0) 




07515 





60100 





06657 




STO TRABIT 




07516 





50000 


1 


06404 




CLA D0TAGZ+5»1 




07517 





62200 





07526 




STD TRAW30 




07520 


-0 


50000 


1 


06406 


TRAW10 


CAL DOTAGZ+7*! 




07521 


-0 


60200 





06657 




ORS TRABIT 




07522 


1 


77767 


1 


07523 




TXI TRAW20»l»-9 


D 


07523 


-3 


00000 


1 


07546 


TRAW20 


TXL TRAW70»1 




07524 





50000 


1 


06404 




CLA D0TA62+5»1 




07525 


-0 


73400 


4 


00000 




PDX 0*4 





07526 


-3 


00000 


4 


07546 


TRAW30 


TXL TRAW70»4 




07527 


-3 


00001 


2 


07520 




TXL TRAW10»2»1 




07530 





50000 


1 


06400 


TRAW35 


CLA D0TA6Z+1»1 




07531 





40200 





06633 




SUB RSYM2 




07532 





10000 





07536 




TZE TRAW38 




07533 





50000 


1 


06400 




CLA DOTAGZ+l*! 




07534 





40200 





06634 




SUB RSYM3 




07535 


-0 


10000 





07520 




TNZ TRAW10 




07536 





50000 


1 


06404 


TRAW38 


CLA D0TAGZ+5»1 




07537 





62200 





07544 




STD TRAW60 




07540 


1 


77767 


1 


07541 


TRAW40 


TXI TRAW50»1.~9 


D 


07541 


-3 


00000 


1 


07546 


TRAW50 


TXL TRAW70»1 




07542 





50000 


1 


06404 




CLA D0TAGZ+5»1 




07543 


-0 


73400 


4 


00000 




PDX 0t4 


D 


07544 


3 


00000 


4 


07540 


TRAW60 


TXH TRAW40»4 


b 


07545 


-3 


00000 





07526 


TRAW65 


TXL TRAW30»0 




07546 


-0 


53400 


4 


07545 


TRAW70 


LXD TRAW65»4 




07547 





50000 





06672 




CLA L(36) 




07550 





40200 





06645 




SUB TL2 




07551 





77100 





00022 




ARS 18 




07552 





62100 





07561 




STA TRAW90 




07553 





50000 





06645 




CLA TL2 




07554 





77100 





00022 




ARS 18 




07555 





62100 





07560 




STA TRAW80 




07556 





50000 





06665 




CLA L(0) 




07557 





56000 





06702 




LDQ 350NES 


A 


07560 





76300 





00000 


TRAW80 


LLS 


A 


07561 





76700 





00000 


TRAW90 


ALS 




07562 


-0 


32000 





06657 




ANA TRABIT 




07563 





02000 


4 


00001 




TRA 1»4 

SUBROUTINES 




07564 





50000 


1 


06377 


TINFOR 


CLA D0TAGZ»1 




07565 





73400 


1 


00000 




PAX 0*1 




07566 


-0 


32000 





06704 




ANA DECMSK. 




07567 





60100 





06662 




STO A 




07570 


-0 


75400 


1 


00000 




PXD 0*1 




07571 





60100 





06663 




STO B 



PUT TRASTO INDICATOR IN 
ACC. AND 

TSX TO LISTING ROUTINE. 
ON RETURN* GO TO TEST FINISH. 
STORAGE FOR TABLEKEY 
TRAWRD 



INITIALIZE. 
LEVEL OF DOTAG 



OBTAIN T2 WORD. 

OR INTO TRABIT 

TAKE NEXT DO 

IF NONE* EXIT (DEC HAS DOTAG IX) 

ODTAIN L WORD 

PUT L IN XRC. 

EXIT IF DO IS NOT INRANGE Rl (DEC HAS LEV DO) 

IF COMPLETE TEST* GO BACK (NO TRAWORD SKIP) 

IF INCOMPLETE TEST* IS THIS A 

DO TO BE SKIPPED 

IF SO* GO TO TRAW38 

TEST RSYM3 

IF NO SKIP 

GO BACK. 

THIS DO IS TO BE SKIPPED. 

PUT LEVEL OF THIS DO IN TEST INSTR. 

TAKE NEXT DO IF ANY 

IF NOT* EXIT. OTHERWISE* (DEC HAS DO IX) 

ODTAIN L WORD 

PUT L IN XRC 

IF DO IS IN RANGE OF R2» GO BACK. 

OTHERWISE* GO TO TRAW30 

OBTAIN 36 IN DECREMENT 
36-TL2 (LEVEL OF DOTAG) 
IN ADDRESS 
INITIALIZE SHIFT 
OBTAIN TL2 
IN ADDRESS 
INITIALIZE SHIFT 
ACC CONTAINS ZERO 
MO CONTAINS ALL ONES 
PUT TL2 ONES IN ACC (LEV. DOTAG) 
POSITION ONES IN ACC 
AND IN TRANSFER BITS 
GO BACK TO CALLING INSTR PLUS ONE. 
TINFOR AND TINFXX 

C(XRA)=INDEX OF DO TO BE 
SEARCHED, SEPARATE ALPHA 
AND BETA 
AND STORE IN A 

B 



F2308530 

F2308540 

F2308550 

F2308560 

F2308570 

F2308580 

F2308590 

F2308600 

F2308610 

F2308620 

F2308630 

F2308640 

F2308650 

F2308660 

F2308670 

F2308680 

F2308690 

F2308700 

F2308710 

F2308720 

F2308730 

F2308740 

F2308750 

F2308760 

F2308770 

F2308780 

F2308790 

F2308800 

F2308810 

F2308820 

F2308830 

F2308840 

F2308850 

F2308860 

F2308870 

F2308880 

F2308S90 

F2308900 

F2308910 

F2308920 

F2308930 

F2308940 

F2308950 

F2308960 

F2308970 

F2308980 

F2308990 

F2309000 

F2309010 

F2309020 

F2309030 

F2309040 

F2309050 

F2309060 



*< 



07572 


-0 


53400 


1 


06674 


TINFXX 


LXD 


L(1500.1 


PUT MAX FORT AG INDEX IN XRA 




F2309070 


07573 





50000 


1 


03670 


TINF10 


CLA 


FORTZtl 


OBTAIN FORTAG ENTRY 




F2309080 


07574 


-0 


32000 





06704 




ANA 


DECMSK 


RETAIN FORMULA NUMBER ONLY 




F2309090 


07575 





34000 





06662 




CAS 


A 


COMPARE ALPHA AND FORMULA NR« 




F2309100 


07576 





02000 





07603 




TRA 


TINF40 


FOR. NR. GREATER THAN ALPHA. 


TRA. 


F2309110 


07577 





76100 





00000 




NOP 




C(A) MAY BE SOME BETA FROM SPC* HENCE* NO HALT.F2309120 


07600 


1 


77777 


1 


07601 


TINF20 


TXI 


TINF30*1*-1 


FOR. NR. LESS THAN ALPHA. GO 
BACK FOR NEXT FORTAG ENTRY 




F2309130 
F2309140 


07601 


3 


00000 


1 


07573 


T1NF30 


TXH 


TINF10*1 


IF POSSIBLE. OTHERWISE* (DEC 


HAS FORTAG IX I 


F2309150 


07602 





02000 


4 


00002 




TRA 


2*4 


RETURN TO CALLING INSTR PLUS 


TWO* 


F2309160 


07603 





34000 





06663 


TINF40 


CAS 


B 


COMPARE FOR. NR. WITH BETA 




F2309170 


07604 





02000 


4 


00002 




TRA 


2*4 


FOR. NR. GREATER THAN BETA* EXIT. 


F2309180 


07605 





76100 





00000 




NOP 




FOR. NR. EQUAL TO OR 




F2309190 


07606 





50000 


1 


03670 




CLA 


FORTZ.l 


LESS THAN BETA* OBTAIN FORTAC 




F2309200 


07607 





12000 





07600 




TPL 


TINF20 


TAG AND COMPARE WITH SEARCH TAG. 


F2309210 


07610 


-0 


32000 





06703 




ANA 


ADDMSK 


I.F. NOT EQUAL* GO BACK FOR NEXT TAG 


F2309220 


07611 





40200 





06626 




SUB 


TAG 






F2309230 


07612 


-0 


10000 





07600 




TNZ 


TINF20 


IF EQUAL* RETURN TO CALLING 




F2309240 


07613 





02000 


4 


00001 
06721 




TRA 
ORG 


1*4 
3537 


INSTR PLUS ONE. XRA CONTAINS 
FIRST TAG FOUND 


IX IN FORTAG OF 


F2309250 
F2309260 
F2309270 
















MASTER RECORD CARD a FN043 




F2309275 


06721 


-0 


53400 


1 


00733 


BL3C 


LXD 


FORTAG-l»l 


IF FORTAG IS EMPTY* 




F2309280 


06722 


3 


02733 


1 


07164 




TXH 


WRTIRV*1»1499 


GO TO WRITE IRV 




F2309290 
















READ IN TSXCOM 




F2309300 


06723 


-0 


53400 


4 


06671 


RDTSX 


LXD 


L(6>*4 


INITIALIZE ERROR COUNTER 




F2309312 


06724 





50000 





07667 


RTSX10 


CLA 


LADOS 


COMPUTE NUMBER 




F2309320 


06725 





40200 





06716 




SUB 


TSXORG 


OF TSXCOM ENTRIES 




F2309330 


06726 





73400 


1 


00000 




PAX 


0*1 


AND 




F2309340 


06727 


-0 


63400 


1 


00030 




SXD 


TCOM-1.1 


SAVE. 




F2309350 


06730 





10000 





06763 




TZE 


RTSX60 


IF EMPTY* GO TO EXIT. 




F2309360 


06731 





40000 





06717 




ADD 


TCOMAD 


OTHERWISE* COMPUTE TERMINAL CORE ADDRESS 


F2309370 


06732 





62100 





06735 




STA 


RTSX20 


AND INITIALIZE CPY ADDRESS THEREWITH. 


F2309380 


06733 





76200 





00303 




RDS 


195 


DRUM 3 




F2309390 


06734 





46000 





06716 




LOA 


TSXORG 


ORIG OF TSXCOM TABLES ON DRUM 




F2309400 


06735 





70000 


1 


00000 


RTSX20 


CPY 


0*1 


READ TSXCOM (ADD HAS TERM CORE ADD TSXCOM) 


F2309410 


06736 


2 


00001 


1 


06735 




TIX 


RTSX20.1il 


TABLES • 




F2309420 


06737 


-0 


53400 


1 


00030 




LXD 


TC0M-1»1 


COMPUTE 




F2309430 


06740 


-0 


75400 


1 


00000 




PXD 


0*1 


NUMBER OF 




F2309440 


06741 


-0 


76000 





00003 




SSM 




UNFILLED TSXCOM TABLE 




F2309450 


06742 





40000 





06720 




ADD 


TCOMAX 


SPACES* 




F2309460 


06743 





60100 





00030 




STO 


TCOM-1 


SAVE* 




F2309470 


06744 





62200 





06756 




STD 


RTSX30 


AND INITIALIZE. 




F2309480 


0*745 


-0 


53400 


1 


06720 




LXD 


TCOMAX #1 


COMPUTE 




F 2309490 


06746 


-0 


50000 


1 


01407 


RTSX25 


CAL 


TC0MZ#1 


CHECK 




F2309500 


06747 





36100 


1 


01410 




ACL 


TCOMZ+l.l 


SUM FOR EACH TABLE ENTRY 




F2309510 


06750 





60200 





06760 




SLW 


RTSX40 


AND COMPARE 




F2309520 


06751 





50000 





06760 




CLA 


RTSX40 


AGAINST 




F230953O 


06752 





40200 


1 


01411 




SUB 


TC0MZ+2»1 


GIVEN SUM. 




F2309540 


06753 





76100 





00000 




NOP 








F2309550 


06754 


-0 


10000 





06761 




TNZ 


RTSX50 


ERROR. 




F2309560 


06755 


1 


77775 


1 


06756 




TXI 


RTSX30»l»-3 






F2309570 


06756 


3 


00000 


1 


06746 


RTSX30 


TXH 


RTSX25*1 


IF COMPLETE* (DEC HAS UNUSED 


TSXCOM BUFFER) 


F2309580 


06757 





02000 





06766 




TRA 


SORT 


GO TO SORT. 




F2309590 



u 



Jfc 



O 



n 



r^ 



06760 
06761 
06762 
06763 
06764 
06765 

06766 
06767 
06770 
06771 
06772 
06773 
06774 
06775 
06776 
06777 
07000 
07001 
07002 
07003 
07004 
07005 
07006 
07007 
07010 
07011' 
07012 
07013 
07014 
07015 
07016 
07017 
07020 
07021 
07022 
07023 
07024 
07025 
07026 
07027 
07030 
07031 
07032 
07033 

07034 
07035 
07036 
07037 
07040 
0704.1 
07042 
07043 



00000 
00001 
07400 
50000 
60100 
02000 



76000 
76100 
53400 
00003 
01353 
63400 
53400 
50000 
34000 
02000 
02000 
02000 
50000 
34000 
02000 
02000 
02000 
50000 
56000 
60100 
60000 
50000 
56000 
60100 
60000 
50000 
56000 
60100 
60000 
76000 
77775 
00000 
76000 
02000 
53400 
00003 
63400 
02000 















■0 




-0 




-0 


1 

3 
-0 


-0 

1 

-0 




53400 
53400 
63400 
53400 
50000 
32000 
10000 
50000 



00000 
06724 
00004 
06720 
00030 
07053 

00144 
00000 
00030 
06772 
07034 
07025 
06720 
01407 
01412 
07007 
07002 
07024 
01410 
01413 
07013 
07024 
07024 
01407 
01412 
01412 
01407 
01410 
01413 
01413 
01410 
01411 
01414 
01414 
01411 
00144 
07025 
06775 
00144 
07034 
07025 
07032 
07025 
06774 

06664 
00030 
07051 
06720 
01410 
06705 
07050 
01410 



RTSX40 
RTSX50 

RTSX60 



SORT 



SORT 10 

SORT20 
SORT30 



SORT40 



SORT50 



SORT60 



HTR 

TIX RTSX10.4»1 GO BACK TO REREAD 

TSX DIAG.4 READING TSXCOM FROM DRUM3. 



ERROR. GO TO DIAGNOSTIC* 



SORT70 
SORT80 



SORT90 
MAKIRV 

MAK10 



CLA TCOMAX 
STO TCOM-l 
TRA IRVSRT 

SORT TSXCOM 
MSE LIGHT 
NOP 

LXD TCOM-l »1 
TXI SORT10.1.3 
TXH MAKIRV.1.747 
SXD SORT80»1 
LXD TCOMAX*! 
CLA TCOMZ.l 
CAS TC0MZ+3.1 
TRA SORT50 
TRA SORT40 
TRA S0RT70 
CLA TCOMZ+l»l 
CAS TC0MZ+4»1 
TRA SORT60 
TRA SORT70 
TRA SORT70 
CLA TCOMZ»l 
LDQ TC0MZ+3tl 
STO TC0MZ+3»1 
STQ TCOMZ.l 
CLA TC0MZ+1»1 
LDQ TC0MZ+4tl 
STO TC0MZ+4»1 
STQ TC0MZ+1»1 
CLA TC0MZ+2»1 
LDQ TC0MZ+5»1 
STO TC0MZ+5.1 
STQ TCOMZ+2»l 
PSE LIGHT 
TXI SORT80.1.-3 
TXH SORT30*1 
MSE LIGHT 
TRA REMOVE 
LXD SORT80.1 
TXI S0RT90»1*3 
SXD S0RT80»1 
TRA SORT20 



IF TSXCOM EMPTY PUT MAX NO 
TSXCOM ENTRIES IN KEY WORD AND 
EXIT. 

TURN OFF LIGHT 



INITIALIZE 

IS THERE ONLY ONE ENTRY 
INITIALIZE 



IN TSXCOM. 



OBTAIN FIRST WORD. FIRST ENTRY TSXCOM (ALPHA) 
COMPARE IT AGAINST SECOND ENTRY 
OUT OF ORDER . REARRANGE TOTAL TSXCOM ENTRY. 
IN ORDER BY FIRST WORDS. GO CHECK 2ND WORDS. 
ENTRIES IN ORDER. IGNORE. 
ALRIGHT- FIRST WORDS IN ORDER BUT 
HOW DO THEIR 2ND WORDS COMPARE. 
IF OUT OF ORDER. GO TO REARRANGE. 
IF EQUAL OR 
IF IN ORDER. IGNORE. 

FIRST ENTRY GREATER. OUT OF ORDER 1ST WORDS. 
INTERCHANGE THE FIRST WORDS 
OF THE 
TWO ENTRIES. 
INTERCHANGE 
THE 

SECOND 
AND 
THIRD 
WORDS 
OF THE 
TWO ENTRIES. 

INDICATE OUT OF ORDER ENTRY HAS BEEN FOUND. 
BUMP FOR NEXT COMPARISON. 
IS PASS COMPLETE. (DEC HAS UNUSED TSXCOM BUFF+3F2309980 
YES. WAS OUT OF ORDER ENTRY APPREHENDED . F2309990 
NO. GO TO MAKIRV. F2310000 

YES. NUMBER OF COMPARISONS F2310010 

MADE IS DECREASED BY ONE F2310020 

ON EACH PASS. F2310030 

F2310040 



F2309600 
F2309610 
F2309625 
F2309630 
F2309640 
F2309650 
F2309660 
F2309670 
F2309680 
F2309690 
F2309700 
F2309710 
F2309720 
F2309730 
F2309740 
F2309750 
F2309760 
F2309770 
F2309780 
F2309790 
F2309800 
F2309810 
F2309820 
F2309830 
F2309840 
F2309850 
F2309860 
F2309870 
F2309880 
F2309890 
F2309900 
F2309910 
F2309920 
F2309930 
F2309940 
F2309950 
F2309960 
F 2309970 



BUILD UP TABLE IRV FROM TSXCOM 



LXD IRVXX.2 
LXD TCOM-l .1 
SXD MAK50.1 
LXD TCOMAX .1 
CAL TCOMZ+1.1 
ANA PREMSK. 
TNZ MAK40 
CLA TCOMZ+1.1 



(IX VALUE FOR NEXT IRV ENTRY) 



GET SECOND WORD OF TSXCOM. 
PULL OUT PREFIX. 
IS ANYTHING THERE. 



F2310050 
F2310060 
F2310070 
F2310080 
F2310090 
F2310100 
F2310110 
F2310120 
F2310130 



>i1 



07044 


3 


00000 


2 


07046 




TXH 


MAK20»2»0 






F2310140 


07045 





07400 


4 


00004 




TSX 


DIAG»4 TABLE IRV BUFFER FULL. ERROR. GO 


TO DIAGNOSTIC 


• F2310155 


07046 





60100 


2 


06625 


MAK20 


STO 


IRVZ.2 


STORE IRV. 




F2310160 


07047 


1 


77777 


2 


07050 




TXI 


MAK40.2»-1 






F2310170 


07050 


1 


77775 


1 


07051 


MAK40 


TXI 


MAK50»l.-3 






F231O180 


07051 


3 


00000 


1 


07040 


MAK50 


TXH 


MAK10*1 


IS TSXCOM TABLE EXHAUST IDEC HAS 


UNUSED TSXCOM)F231019O 


07052 


-o 


63400 


2 


06664 


MAK60 


SXD 


IRVXX.2 
SORT TABLE 


YES. SAVE INDICATION OF SIZE OF 
IRV. 


IRV. 


F2310200 
F231O210 


07053 


-0 


53400 


1 


06664 


1RVSRT 


LXD 


IRVXX»1 






F231022O 


07054 


1 


00001 


1 


07055 




TXI 


IRVS10*1»1 






F2310230 


07055 


3 


00225 


1 


07120 


IRVS10 


TXH 


WRTTSX* It 149 IS THERE BUT ONE ENTRY IN IRV. 




F2310240 


07056 


-0 


63400 


1 


07067 




6X0 


IRVS50»1 






F2310250 


07057 


-0 


76000 





00144 




MSE 


LIGHT 


TURN OFF LITE. 




F2310260 


07060 





76100 





00000 




NOP 








F2310270 


07061 


-0 


53400 


1 


06714 


IRVS20 


LXD 


IRVMAX.l 


INITIALIZE 




F2310280 


07062 





50000 


1 


06625 


IRVS30 


CLA 


IRVZ*1 


GET FIRST IRV ENTRY AND 




F2310290 


07063 





34000 


1 


06626 




CAS 


IRVZ+ltl 


COMPARE AGAINST ITS NEIGHBOR. 




F23103O0 


07064 





02000 





07073 




TRA 


IRVS60 


OUT OF ORDER. GO TO REARRANGE. 




F2310310 


07065 





76100 





00000 




NOP 








F2310320 


07066 


1 


77777 


1 


07067 


IRVS40 


TXI 


IRVS50*1»-1 


BUMP FOR NEXT COMPARISON 




F2310330 


07067 


3 


00000 


1 


07062 


1RVS50 


TXH 


IRVS30»1 


IS PASS COMPLETE (DEC HAS IRV INDEX) 


F2310340 


07070 


-0 


76000 





00144 




MSE 


LIGHT 


YES • WAS OUT OF ORDER NABBED. 




F2310350 


07071 





02000 





07100 




TRA 


DELETE 


NO. SORT COMPLETE. 




F2310360 


07072 





02000 





07061 




TRA 


IRVS20 


YES. MAKE ANOTHER PASS. 




F2310370 


07073 





56000 


1 


06626 


IRVS60 


LDQ 


IRVZ+1»1 


REARRANGE 




F2310380 


07074 





60100 


1 


06626 




STO 


IRVZ+ltl 


THE OUT OF ORDER 




F2310390 


07075 


-0 


60000 


1 


06625 




STQ 


IRVZ»1 


IRV ENTRIES AND 




F2310400 


07076 





76000 





00144 




PSE 


LIGHT 


INDICATE SAME. 




F2310410 


07077 





02000 





07066 




TRA 


1RVS40 
DELETE DUPE 


ENTRIES FROM TABLE IRV 




F2310420 
F2310430 


07100 


-0 


53400 


1 


06664 


DELETE 


LXD 


IRVXX.l 






F2310440 


07101 


-0 


63400 


1 


07112 




SXD 


DEL30»1 


INITIALIZE 




F2310450 


07102 


-0 


53400 


3 


06714 




LXD 


IRVMAX.3 


INITIALIZE CANDIDATE IR AND STANDARD IR 


F2310460 


07103 


2 


00001 


2 


07104 




TIX 


DEL10.2.1 


BUMP CANDIDATE IR. 




F2310470 


07104 





50000 


2 


06625 


DEL10 


CLA 


IRVZ*2 


GET CANDIDATE. 




F2310480 


07105 





34000 


1 


06625 




CAS 


IRVZ»1 


COMPARE AGAINST STANDARD. 




F2310490 


07106 





02000 





07116 




TRA 


DEL40 


CANDIDATE DOES NOT MATCH STANDARD. 


F2310500 


07107 





02000 





07111 




TRA 


DEL20 


CAND MATCHES STAND. IGNORE ITS REINSTATEMENT. 


F2310510 


07110 





07400 


4 


00004 




TSX 


DIAG.4 IRV 


UNORDERED DESPITE SORT. ERROR. GO ' 


ro DIAGNOSTIC. 


F2310525 


07111 


1 


77777 


2 


07112 


DEL20 


TXI 


DEL30.2.-1 


BUMP FOR NEXT CANDIDATE* 




F2310530 


07112 


3 


00000 


2 


07104 


0EL30 


TXH 


DEL 10* 2 


IS IT END OF PASS. (DEC HAS IRV 


INDEX) 


F2310540 


07113 


1 


77777 


1 


07114 




TXI 


DEL35»1»-1 


YES. BUMP STANDARD IR. 




F231055O 


07114 


-0 


63400 


1 


06664 


0EL35 


SXD 


IRVXX.l 


SAVE NEW EDITED-IRV TABLE-SIZE INDICATION. 


F2310560 


©7115 


O 


O200O 





D7120 




TRA 


WRTTSX 






F2310570 


07116 





60100 


1 


06626 


0EL40 


STO 


IRVZ+1.1 


NOT DUPE* PUT CANDIDATE BACK. 




F2310580 


07117 


1 


77777 


1 


07111 




TXI 


DEL20.1.-1 
WRITE EDITED 


AND INSTALL IT AS STANDARD. 
1 TSXCOM TABLE ON DRUM 




F231059O 
F2310600 


07120 





76600 





00303 


WRTTSX 


WRS 


ADRUM 






F2310610 


07121 


-0 


53400 


1 


00030 




LXD 


TC0M-1»1 


INITIALIZE 




F2310620 


07122 


-0 


63400 


1 


07133 




SXD 


WTSX30.1 






F2310630 


07123 


-0 


53400 


1 


06720 




LXD 


TCOMAX.l 






F2310640 


07124 


-0 


75400 





00000 




PXD 


0»0 






F2310650 


07125 


-0 


53400 


2 


06665 




LXD 


L(0).2 






F2310660 


07126 





02000 





07133 




TRA 


WTSX30 






F2310670 



u 



u 



n 



r\ 



07127 





36100 


1 


01407 


WTSX10 


ACL 


TCOMZ.l 


COMPUTE 


F2310680 


07130 





36100 


1 


01410 




ACL 


TC0MZ+1*1 


CHECK SUM OF ALL ENTRIES 


F2310690 


07131 


1 


77775 


1 


07132 




TXI 


WTSX20»l»-3 




F2310700 


07132 


1 


00002 


2 


07133 


WTSX20 


TXI 


WTSX30*2»2 




F2310710 


07133 


3 


00000 


1 


07127 


WTSX30 


TXH 


WTSX10»1 


IS THAT ALL OF TSXCOM. (DEC HAS TSXCOM LIMIT) 


F2310720 


0713* 





60200 





07163 




SLW 


WTSX60 


STORE CHECK SUM. 


F2310730 


07135 


-0 


53400 


1 


00030 




LXD 


TCOM-l »1 


COMPUTE 


F23107*0 


07136 


-0 


75400 


1 


00000 




PXD 


0*1 


NUMBER 


F2310750 


07137 


-0 


76000 





00003 




SSM 




OF 


F2310760 


07140 





40000 





06720 




ADD 


TCOMAX 


TSXCOM 


F2310770 


07141 


-0 


73400 


1 


00000 




PDX 


0.1 


ENTRIES. 


F2310780 


07142 





77100 





00022 




ARS 


18 


COMPUTE CORE 


F2310790 


07143 





40000 





06717 




ADD 


TCOMAD 


TERMINUS 


F2310800 


07144 





62100 





07155 




STA 


WTSX*0 


AND INITIALIZE CPY ADDRESS FOR FIRST WORD* 


F2310810 


07145 





40000 





06675 




ADO 


L(1)A 


FOR SECOND 


F2310820 


07146 





62100 





07156 




STA 


WTSX50 


WORD. 


F2310830 


07147 


-0 


75400 


2 


00000 




PXD 


0.2 




F23108*0 


07150 





60100 





00030 




STO 


TCOM-l 


NOW CONTAINS NO OF TSXCOM ENTRIES MINUS C«S. 


F2310850 


07151 





46000 





06715 




LDA 


TCOMOR 




F2310860 


07152 





70000 





00030 




CPY 


TCOM-l 


CPY WORD COUNT 


F2310870 


07153 





70000 





00030 




CPY 


TCOM-l 


ONTO DRUM 


F2310880 


07154 


-3 


00000 


2 


07164 




TXL 


WRTIRV.2.0 


IF EMPTY* EXIT. 


F2310890 


07155 





70000 


1 


00000 


WTSX*0 


CPY 


0*1 


WRITE TSXCOM ENTRIES 


F2310900 


07156 





70000 


1 


00000 


WTSX50 


CPY 


0»1 


ONTO DRUM 


F2310910 


07157 


2 


00003 


1 


07155 




TIX 


WTSX*0»1*3 




F2310920 


07160 





70000 





07163 




CPY 


WTSX60 


CHECKSUM 


F2310930 


07161 





70000 





07163 




CPY 


WTSX60 




F23109*0 


07162 





02000 





07164 




TRA 


WRTIRV 




F2310950 


07163 





00000 





00000 


WTSX60 


HTR 


WRITE EDITED 


C.S. STORAGE 
TABLE 1RV ON DRUM 


F2310960 
F2310970 


07164 





76600 





00303 


WRTIRV 


WRS 


ADRUM 




F2310980 


07165 


-0 


53400 


1 


0666* 




LXD 


IRVXX»1 




F2310990 


07166 


-0 


63400 


1 


07173 




SXD 


WIRV20*1 


INITIALIZE TEST INSTR. 


F2311000 


07167 


-0 


75400 





00000 




PXD 


0*0 




F2311010 


07170 


-0 


53400 


1 


0671* 




LXD 


IRVMAXtl 




F2311020 


07171 





36100 


1 


06625 


WIRV10 


ACL 


IRVZ»1 


COMPUTE CHECK SUM. 


F2311030 


07172 


1 


77777 


1 


07173 




TXI 


WIRV20»1*-1 




F23110*0 


07173 


3 


AAflOfl 
VvVVv 


1 


07171 


WIRV20 


TXH 


WIRV1Q.1 


IS IRV DONE FOR. (DEC HAS IRV IX) 


F2311050 


07174 





60200 





07217 




SLW 


WIRV*0 


YES. SAVE C.S. 


F2311060 


07175 


-0 


53400 


1 


0666* 




LXD 


IRVXX»1 


COMPUTE 


F2311070 


07176 


-0 


75*00 


1 


00000 




PXD 


0*1 


NUMBER 


F2311080 


07177 


-0 


76000 





00003 




SSM 




OF 


F2311090 


07200 





40000 





0671* 




ADD 


IRVMAX 


IRV ENTRIES 


F23111O0 


07201 





60100 





0666* 




STO 


IRVXX 


AND SAVE. 


F2311110 


07202 


-0 


73400 


1 


00000 




PDX 


0*1 


COMPUTE 


F2311120 


07203 





77100 





00022 




ARS 


18 


CORE TERMINUS 


F2311130 


07204 





40000 





06713 




ADD 


IRVAD 


OF IRV. 


F23111*0 


07205 





62100 





07212 




STA 


WIRV30 


INITIALIZE CPY. 


F2311150 


07206 





46000 





06712 




LDA 


1RVORG 




F2311160 


07207 





70000 





0666* 




CPY 


IRVXX 


WRITE WORD 


F2311170 


07210 





70000 





0666* 




CPY 


IRVXX 


COUNT. 


F2311180 


07211 


-3 


00000 


1 


07220 




TXL 


END»1»0 


EXIT IF IRV EMPTY. 


F2311190 


07212 





70000 


1 


00000 


WIRV30 


CPY 


0*1 


WRITE IRV. 


F2311200 


07213 


2 


00001 


1 


07212 




TIX 


WIRV30»1»1 




F2311210 



0721* 





70000 





07217 




CPY 


WIRV40 


07215 





70000 





07217 




CPY 


WIRV40 


07216 





02000 





07220 




TRA 


END 


07217 





ooooc 





ccoco 


t-i rntff.A 

H 1 Kvtw 


n i K 




07220 





76600 





00303 


END 


WRS 


195 


07221 





50000 





07670 




CLA 


LADDS+1 


07222 





40200 





07232 




SUB 


LJ304A 


07223 





60100 





07230 




STO 


ENDES 


07224 





46000 





07231 




LDA 


U302A 


07225 





70000 





07230 




CPY 


ENDES 


07226 





70000 





07230 




CPY 


ENDES 


07227 





02000 





07616 




TRA 


NORMRT 


07230 





00000 





00000 


ENDES 


HTR 




07231 





00000 





00456 


L1302A 


HTR 


302 


07232 





00000 





00460 


L(304A 


HTR 


304 










77777 


TOP 


EQU 


32767 










00304 


TAUDRM 


EQU 


196 










00303 


ADRUM 


EQU 


195 










00302 


BDRUM 


EQU 


194 










00222 


TAPE2 


EQU 


146 










00223 


TAPE3 


EQU 


147 










00144 


LIGHT 


EQU 


100 










07034 


REMOVE 


SYN 


MAKIRV 










06377 


IRV 


SYN 


DOTAGZ 










00004 


OKETCS 


EQU 


4 










00004 


01 AG 


EQU 


4 










OOOOO 




END 





WRITE 
CHECK SUM. 

C*5c STORAGE 

WRITE NR OF WDS IN TRASTO ON DRUM, 
ORIGIN PLUS NR OF WDS IN TRASTO 
LESS ORIGIN OF TRASTO 



NORM RET MONITOR. GO TO SPACE TAPE 1 



IF FORVAL EMPTY. LIGHT ON, 



F2311220 

F2311230 

F2311240 

F2311250 

F2311260 

F2311270 

F2311280 

F2311290 

F2311300 

F2311310 

F2311320 

F2311335 

F2311340 

F2311350 

F2311360 

F2311365 

F2311370 

F23113B0 

F2311390 

F2311400 

F2311410 

F2311420 

F2311430 

F2311440 

F2311445 

F2311446 

F2311450 



'\J 



o 



n 



r\ 



REK BLOCK FOUR OF 



M 
M 

M 

K 



00030 
00030 
00174 
00204 
00434 
00450 

00450 +01O0OOO00O01 

00451 +060000000003 

00456 
00456 +010000000002 

00466 

00466 +010000000003 

00467 00000 00000 

00470 50000 01430 

00471 -0 76000 00143 

00472 02000 00474 

00473 60100 01415 

00474 07400 4 00752 

00475 02000 00542 

00476 -0 53400 1 01007 

00477 07400 4 00710 

00500 -0 53400 2 01427 

00501 5OO00 2 00204 

00502 62100 01375 

00503 77100 00022 

00504 62100 01376 

00505 -0 63400 2 01414 

00506 -O 63400 1 01413 

00507 07400 4 01143 

00510 07400 4 00562 

00511 -0 53400 2 01414 

00512 -0 53400 1 01413 

00513 1 77777 2 00514 

00514 -2 00001 1 00531 

00515 50000 2 00204 

00516 07400 4 00735 

00517 02000 00501 

00520 62100 01377 

00521 40200 01376 

00522 10000 00527 

00523 07400 4 00735 

00524 50000 01377 

00525 60100 01376 

00526 02000 00505 



SECTION TWO. 

BLOCK FOUR OF SECTION TWO. 
MASTER RECORD CARD * FN045 

BLOCK 4 

THIS PART COMPILES THE SUBROUTINES WHICH COMPUTE 

INDEX LOAD VALUES FOR PURE RELCONS. 

THE LOAD VALUE FOR SUBSCRIPTS < C1I »C2J»C3K J IS 

(C1I-1 )+ ( C2D1J-D1 )+ ( C3D1D2K-D1D2 )+l 

TABLE IRV» PRODUCED BY BLOCK 3» 6IVES A LIST OF THE 

SUBROUTINES REQUIRED. 
ORG 24 
CIB BSS 100 
WRKSC BSS 8 

152 

28 

296 

010000000001 

060000000003 

302 

010000000002 

310 

010000000003 



L(l) 

99 

START 

SENSE1 

RDRM.4 

FINISH+9 

1CNT.1 

1NITFX.4 

L(0)t2 

BOB* 2 

NAME1 

18 

TAG1 

BX.2 

AX.l 

SUBC0M.4 

C0MPIL.4 



BSS 
BSS 
ORG 
OCT 
OCT 
ORG 
OCT 
ORG 
OCT 
HTR 
CLA 
MSE 
TRA 
STO 
TSX 
TRA 
LXD 
TSX 
LXD 
CLA 
STA 
ARS 
STA 
SXD 
SXD 
TSX 
TSX 
LXD BX.2 
LXD AX.l 
TXI TEST.2.-1 
TEST TNX FINISH. 1,1 
CLA BOB. 2 
TSX LINKTR.4 
TRA REPETE 
STA TAG2 
SUB TAG1 
TZE EQUAL 
TSX LINKTR.4 
CLA TAG2 
STO TAG1 
TRA ENTRY 



BOB 
OROOO 

OR012 
OR013 

OR018 

OR026 

START1 



START 



REPETE 



ENTRY 



SAVE STATUS OF SENSE-L1GHT3 
SO THAT IT CAN BE USED 
IN THIS BLOCK* 

READ TABLE IRV (BOB ALSO) 

RETURN HERE IF NO ENTRIES. 

LOAD IRA WITH NO. OF IRV ENTRIES 

FORM END TEST FOR FIXCON SEARCH 

BEGIN WITH FIRST TABLE BOB ENTRY. 

SELECT TABLE IRV ENTRY. 

PUT SUBCOM NAME IN NAME 1. 

PUT TAU REFERENCE 

IN TAG1. 



READ TAU ENTRY FROM DRUM. 
COMPILE SUBROUTINE FRO COMPUTING 
LOAD VALUE. 

STEP DOWN COUNT THROUGH TABLE IRV. 

END OF TABLE IRV. 

REDUNDANT. 

COMPILE SUBROUTINE RETURN. 

THE INSTRUCTIONS FROM HERE 

THROUGH 

TRA ENTRY 

ARE 

REDUNDANT. 



F2400O00 
F2400005 
F2400010 
F2400020 
F2400030 
F2400040 
F2400050 
F2400060 
F2400070 
F240O080 
F2400090 
F2400100 
F2400110 
F2400120 
F2400130 
F2400140 
F2400150 
F2400160 
F2400170 
F2400180 
F2400190 
F2400200 
F2400210 
F2400220 
F2400230 
F2400240 
F2400250 
F2400260 
F2400270 
F2400280 
F2400290 
F 2 400 3 00 
F2400310 
F2400320 
F2400330 
F2400340 
F2400350 
F2400360 
F2400370 
F2400380 
F2400390 
F2400400 
F2400410 
F2400420 
F2400430 
F2400440 
F2400450 
F2400460 
F2400470 
F2400480 
F2400490 
F2400500 



l'\ 



00527 





07400 


4 


00674 


EQUAL TSX 


ST0TP»4 


00530 





02000 





00513 


TRA 


TEST-1 


00531 





07400 


4 


00735 


FINISH TSX 


LINKTR.4 


00532 





50000 





01071 


CLA 


FC08+1 


00533 





76600 





00302 


MRS 


194 


00534 


-0 


32000 





01424 


ANA 


DECMSK 


00535 





40000 





01421 


ADO 


L1DEC 


00536 





77100 





00021 


ARS 


17 


00537 





60100 





01401 


STO 


AD1 


00540 





70000 





01401 


CPY 


A01 


00541 





70000 





01401 


CPY 


A01 


00542 





07400 


4 


01021 


TSX 


CITSP.4 


00543 





77000 





00222 


WEF 


146 


00544 





76600 





00222 


WRS 


146 


00545 





70000 





01400 


CPY 


RECCNT 


00546 





70000 





01400 


CPY 


RECCNT 


00547 





77000 





00222 


WEF 


146 


00550 





53400 


1 


01400 


LXA 


RECCNT. 1 


00551 


1 


OO003 


1 


00552 


TXI 


BST»1»3 


00552 





76400 





00222 


BST BST 


146 


00553 


2 


00001 


1 


00552 


TIX 


BST.1.1 


O0554 





76000 





00140 


PSE 


96 


00555 





50000 





01415 


CLA 


SENSE1 


00556 





10000 





00560 


T2E 


END 


00557 





76000 





00143 


PSE 


99 


00560 





76200 





00221 


END RDS 


145 


00561 





02000 





00004 


TRA 


4 


00562 


-0 


63400 


1 


01402 


COMPIL SXD 


1XB0X.1 


00563 


-0 


63400 


2 


01403 


SXD 


2XBOX.2 


00564 


-0 


63400 


4 


01012 


SXD 


LINK1.4 


00565 





76000 





00140 


PSE 


96 


00566 





07400 


4 


01240 


TSX 


COSE. 4 


00567 





50000 





01426 


CLA 


L«CLA) 


00570 





60100 





01051 


STO 


CIL01 


00571 





50000 





00451 


CLA 


ORO00+13 


00572 


-0 


32000 





01422 


ANA 


60NES 


00573 





60100 





01052 


STO 


C1L02 


00574 





50000 





01432 


CLA 


L(3) 


00575 





76700 





00022 


ALS 


18 


00576 





60100 





01053 


STO 


C1L03 


00577 





50000 





01375 


CLA 


NAME1 


00600 


-0 


50100 





01420 


ORA 


BCD10 


00601 





60100 





01050 


STOLOC STO 


CILOO 


00602 





07400 


4 


01015 


TSX 


CIT.4 


00603 





50000 





01425 


CLA 


LJSTO) 


00604 





60100 





01051 


STO 


CIL01 


00605 





50000 





00466 


CLA 


OR000+26 


00606 





73400 


1 


00000 


PAX 


0.1 


00607 


-0 


32000 





01422 


ANA 


60NES 


00610 


-0 


63400 


1 


01053 


SXD 


CIL03.1 


00611 





60100 





01052 


STO 


CIL02 


0O612 


-0 


75400 





00000 


PXD 





00613 





60100 





01050 


STO 


CILOO 


00614 





07400 


4 


01015 


TSX 


CIT.4 



FORM LAST SUBROUTINE RETURN* 
FIXCON WORD COUNT 

ADJUST FIXCON WDRDCT 

WRITE FIXCON WORDCT AND 

ITS CHECKSUM ON DRUM. IN 

ITS ORIGINAL POSITION. AT THE 

BE6INNIN6. 

WRITE CIT BUFFER ON TAPE 

WRITE E.O.F. ONC1T TAPE 

WRITE CIT RECORDCOUNT AND 
CHECKSUM ON CIT TAPE 
WRITE E.O.F. ON CIT TAPE. 
BACKSPACE CIT TAPE 
UNTIL 1ST CIT RECORD 
THAT THIS BLOCK COMPILED. 

TURN OFF ALL SENSE LI6HTS. 
RESET LIGHT 3 TO THE STATUS 
IT HELD BEFORE THE 
COMMENCEMENT OF THIS BLOCK. 
SKIP OVER DIAGNOSTIC RECORD ON 



SAVE LINKAGE 

TURN ALL SENSE LIGHTS OFF 

OBTAIN NAME OF IOEFF. IN FIXCON. 

THIS ROUTINE COMPILES 
THE INSTRUCTION 

CLA 6)+3. 
WITH ZERO TAG, 

TOGETHER WITH A SYMBOLIC 
LOCATION OF 

10J+NAME1 

ENTER INSTR. IN CIT 

THIS ROUTINE COMPILES THE 
INSTRUCTION. 

STO l>+3 

THESE COMPILED INSTR. PLACE 

1 IN ERASABLE STORAGE 



ENTER INSTR. IN CIT 



F2400510 
F2400520 
F24G0530 
F2400540 
F2400550 
F2400560 
F2400570 
F2400580 
F2400590 
F2400600 
F2400610 
F2400620 
F2400630 
F 2400640 
F2400650 
F2400660 
F2400670 
F2400680 
F2400690 
F2400700 
F2400710 
F2400720 
F2400730 
F 2400740 
F2400750 



SYSTEM TAPE 



F 2400 770 
F2400780 
F2400790 
F2400800 
F2400810 
F 2400820 
F2400830 
F24OO840 
F2400850 
F 2400 860 
F2400870 
F2400880 
F240O89O 
F2400900 
F2400910 
F2400920 
F2400930 
F2400940 
F2400950 
F2400960 
F2400970 
F2400980 
F2400990 
F2401000 
F2401010 
F2401020 
F2401030 



'J S 



o 



n 



n 



00615 





50000 





00175 




CLA 


WRK.SC+1 


00616 





10000 





00630 




TZE 


S2 


00617 





60100 





00435 




STO 


OR0O0+1 


00620 





53400 


1 


01433 




LXA 


L<4J.l 


00621 


-0 


76000 





00141 




MSE 


97 


00622 





02000 





00624 




TRA 


COMP20 


00623 


1 


00002 


1 


00626 




TX1 


COMP30*1»2 


00624 





50000 





01436 


COMP20 


CLA 


KLX02 


00625 





02000 





00627 




TRA 


COMP30+1 


00626 





50000 





01437 


COMP30 


CLA 


KLX021 


00627 





07400 


4 


01257 




TSX 


LXC»4 


00630 





50000 





00177 


S2 


CLA 


WRKSC+3 


00631 





10000 





00645 




TZE 


S3 


00632 





60100 





00440 




STO 


OR000+4 


00633 





50000 





00202 




CLA 


WRKSC+6 


00634 





07400 


4 


01054 




TSX 


FIXC0N.4 


00635 





60100 





00443 




STO 


OR000+7 


00636 





53400 


1 


01435 




LXA 


Ll6).l 


00637 


-0 


76000 





00142 




MSE 


98 


00640 





02000 





00643 




TRA 


COMP40 


00641 





50000 





01440 




CLA 


KLX03 


00642 


1 


00002 


1 


00644 




TXI 


COMP40+1»1»2 


00643 





50000 





01441 


COMP40 


CLA 


KLX031 


00644 





07400 


4 


01257 




TSX 


LXC»4 


00645 





50000 





00201 


S3 


CLA 


WRKSC+5 


00646 





10000 





00664 




TZE 


COMP55 


00647 





60100 





00461 




STO 


OR 000+21 


00650 





56000 





00202 




LDQ 


WRK.SC+6 


00651 





20000 





00203 




MPY 


WRKSC+7 


00652 





76700 





00021 




ALS 


17 


00653 





07400 


4 


01054 




TSX 


FIXC0N.4 


00654 





60100 





00464 




STO 


OR 000+24 


00655 





53400 


1 


01435 




LXA 


L(6)»l 


00656 


-0 


76000 





00143 




MSE 


99 


00657 





02000 





00662 




TRA 


COMP50 


00660 





50000 





01442 




CLA 


KLX05 


00661 


1 


00002 


1 


00663 




TXI 


COMP50+1»1»2 


00662 





50000 





01443 


COMP50 


CLA 


KLX051 


00663 





07400 


4 


01257 




TSX 


LXC»4 


00664 


-0 


53400 


4 


01045 


COMP55 


LXD 


BB0X»4 


00665 


1 


00004 


4 


00666 




TXI 


COMP55+2»4.4 


00666 


-0 


63400 


4 


01045 




SXD 


BB0X.4 


00667 





07400 


4 


00674 




TSX 


ST0TP.4 


00670 


-0 


53400 


1 


01402 




LXD 


1XBOX.1 


00671 


-0 


53400 


2 


01402 




LXD 


1XBOX.2 


00672 


-0 


53400 


4 


01012 




LXD 


LINK1.4 


00673 





02000 


4 


00001 




TRA 


1.4 


00674 


-0 


63400 


4 


01404 


STOTP 


SXD 


LINK2.4 


00675 





50000 





01427 




CLA 


L(0) 


00676 





60100 





01050 




STO 


C1L00 


00677 





60100 





01053 




STO 


CIL03 


00700 





50000 





01425 




CLA 


L(STO) 


00701 





60100 





01051 




STO 


CIL01 


00702 





50000 





01375 




CLA 


NAME1 



TEST 1ST SUBSCRIPT SYMBOL 

NO SYMBOL PRESENT 

SAVE SI FOR LXC ROUTINE 

INDEX FOR NO. OF COMPILED INSTR. 

DOES 1ST COEFF EXCEED 1 

NO 

YES. 6 INSTR. TO BE COMPILED 

NO. COMPILE INSTR TO COMPUTE 

Sl-1+(1 ALREADY IN ERASABLE* 

YES. COMPILE C1A1-1 

+(1 AREADY IN ERASABLE) 

TRA IF NO 2ND SUBSC. SYMBOL 

SAVE S2 FOR LXC ROUTINE. 

OBTAIN SYMBOLIC ADDRESS 

OF Dl IN FIXCON TABLE 

AND STORE FOR LXC ROUTINE. 

6 INSTR. TO BE COMPILED 

IS COEFF. C2 GREATER THAN 1. 

NO. COMPILE D1*S2-D1+ 

YES. 8 INSTR. COMPILED TO 

COMPUTE D1*S2*C3-D1+ 

+ THAT ALREADY COMPUTED. 
TEST FOR 3RD SUBSCRIPT 
SYMBOL. 

STORE FOR LXC ROUTINE. 
COMPUTE D1*D2» 
AND OBTAIN 

NAME FOR THIS CONSTANT FROM 
FIXCON. AND STORE FOR 
LXC ROUTINE. 
6 INSTR. TO BE COMPILED 
IS 3RD COEFF GREATER THAN 1. 
NO. COMPILE D1D2*S3-D1D2+ 
YES. COMPILE D1D2*C3S3-D1D2+ 



+ THAT ALREADY COMPUTED. 

STEP UP CIT BUFFER COUNT 

COMPILE INSTRUCTION TO STORE 
LOADING VALUE FOR SUBSCRIPT COMB. 



RETURN 

ROUTINE COMPILES THE INSTR. 

TO STORE THE RESULTS OF 

THE SUBROUTINE COMPILATION IN 

THE TAG NAME. 

THIS INSTRUCTION IS 



STO 12)+ NAME1 



F2401040 
F2401050 
F 240 1060 
F2401070 
F2401080 
F2401090 
F2401100 
F2401110 
F2401120 
F2401130 
F 240 1140 
F2401150 
F2401160 
F2401170 
F2401180 
F2401190 
F 240 1200 
F2401210 
F2401220 
F2401230 
F2401240 
F2401250 
F 2401260 
F2401270 
F2401280 
F2401290 
F2401300 
F2401310 
F2401320 
F2401330 
F 240 1340 
F2401350 
F2401360 
F2401370 
F2401380 
F2401390 
F2401400 
F2401410 
F2401420 
F2401430 
F2401440 
F2401450 
F2401460 
F2401470 
F2401480 
F2401490 
F2401500 
F2401510 
F2401520 
F2401530 
F2401540 
F2401550 
F2401560 
F2401570 



S'J 



00703 
00704 
00705 
00706 
00707 

00710 
00711 
00712 
00713 
00714 
00715 
00716 
00717 
00720 
00721 
00722 
00723 
00724 
00725 
00726 
00727 
00730 
00731 
00732 
00733 
00734 
00735 
00736 
00737 
00740 
00741 
007*2 
00743 
00744 
00745 
00746 
00747 
00750 
00751 

00752 
00753 
00754 
00755 
00756 
00757 
00760 
00761 
00762 
00763 
00764 
00765 
00766 



-0 50100 01417 
60100 01052 
07400 4 01015 

-0 53400 4 01404 
02000 4 00001 



53400 2 01434 

76200 00302 

70000 01007 

70000 01010 

50000 01007 

40200 01010 

-0 10000 00733 

50000 01007 

10000 00725 

40200 01431 

76700 00021 

62200 01071 

02000 4 00001 

76200 00302 

70000 01427 

70000 01427 

70000 01427 

70000 01427 

02000 00723 

00001 2 00711 

07400 4 00004 

50000 01427 

60100 01050 

60100 01052 

50000 00750 

60100 01051 

50000 00751 

60100 01053 

-0 63400 4 01012 

07400 4 01015 

-0 53400 4 01012 

0200O 4 00001 

635121000000 

+000001000004 



INITFX 
CI 














2 











C2 

C4 



C6 
LINKTR 



53400 
63400 
76200 
53400 
46000 
70000 
70000 
70000 
00001 
50000 
40200 
10000 
53400 



01434 
01012 
00303 
01013 
01014 
01007 
01010 
00434 
00761 
01007 
01010 
01005 
01007 



L(TRA) 
RELTG 

RDRM 

RDS 



CPY 



ORA BC014 
STO C1L02 
TSX CIT.4 
LXD LINK2.4 
TRA 1»4 

ROUTINE FORMS 
LXA L(5)»2 
RDS 194 
CPY 1CNT 
CPY 2CNT 
CLA 1CNT 
SUB 2CNT 
TNZ C6 
CLA 1CNT 
TZE C4 
SUB L(2) 
ALS 17 
STD FC08+1 
TRA 1»4 
RDS 194 
CPY L<0) 
CPY HO) 
CPY L«0) 
CPY LCO) 
TRA C2 
TIX CI. 2.1 
TSX DIA6.4 
CLA LCO) 
STO CILOO 
STO CIL02 
CLA L(TRA) 
STO CIL01 
CLA RELTG 
STO CIL03 
SXD LINK1.4 
TSX CIT.4 
LXD LINK1.4 
TRA 1.4 
BCD 1TRA000 
OCT 000001000004 

ROUTINE READS 
LXA LI5I.1 
SXD LINK1i4 
RDS 195 
LXA LU52J.2 
LDA L1304 
CPY 1CNT 
CPY 2CNT 
CPY BOB+152.2 
TIX CPY.2.1 
CLA 1CNT 
SUB 2CNT 
TNZ EROR 
LXD 1CNT.2 



ENTER IN CiT TABLE 

RETURN 
END TEST FOR FIXCON SEARCH ROUTINE 
LOAD READING ERROR COUNTER. 

READ FIXCON WD.CT 
AND ITS CHECKSUM 

TEST FOR READING ERROR. 

ERROR. 

IS FIXCON EMPTY. 

YES 

STORE END TEST IN 

FIXCON SEARCH ROUTINE 

RETURN TO MAIN ROUTINE. 

FIXCON IS EMPTY. 

SET FIRST FOUR LOCATIONS 

TO 

ZERO. 

STORE ZERO AS END TEST 
ERROR. TRY TO READ 3 TIMES. 
DRUM 2 READING ERROR FIVE TIMES. 

THIS ROUTINE COMPILES 
INSTRUCTION FOR RETURN 
TO THE FORTRAN MASTER 
ROUTINE. 
TRA1.4 



FENTER IN CIT TABLE. 
RETURN 



AND CHECKS TABLE IRV (ALSO CALLED BOB) 
LOAD ERROR COUNTER. 
SAVE ENTRY PT» 



DRUM ADDRESS OF TABLE IS 1304 
READ WO. CT. OF TABLE. 
READ WD. CT. CHECKSUM. 
READ 150 TABLE ENTRIES. 

DOES WD. CT AGREE 
WITH ITS CHECKSUM. 
NO. ERROR. 
YES. 



F2401580 

F2401590 

F240160O 

F 240 1610 

F2401620 

F2401630 

F2401640 

F2401650 

F2401660 

F2401670 

F2401680 

F2401690 

F2401700 

F2401710 

F2401720 

F2401730 

F 240 1740 

F2401750 

F2401760 

F2401770 

F2401780 

F2401790 

F2401800 

F2401810 

F2401820 

F2401830 

F2401840 

F2401850 

F2401860 

F2401870 

F2401880 

F2401890 

F2401900 

F2401910 

F2401920 

F2401930 

F2401940 

F2401950 

F2401960 

F2401970 

F2401980 

F2401990 

F2402000 

F2402010 

F2402020 

F2402030 

F2402040 

F2402050 

F2402060 

F2402070 

F2402080 

F2402090 

F2402100 

F2402110 



r< 



o 



o 



n 



O 



6 P 





00767 


3 


00000 


2 00772 




TXH 


PROCED »2»0 




00770 


-0 


53400 


4 01012 




LXO 


LINK1»4 




00771 





02000 


4 00001 




TRA 


1*4 


T 


00772 


-0 


75400 


ooooo 


PROCED 


PXD 







00773 


-0 


73400 


4 00000 




PDX 


0*4 




00 774 





36100 


4 00204 


ACCSUM 


ACL 


B0B»4 




00775 


1 


77777 


4 00776 




TXI 


TIX»4.-1 




00776 


2 


00001 


2 00774 


T1X 


TIX 


ACCSUM »2»1 




00777 





60200 


01011 




SLW 


LOGWD 




01000 





50000 


01011 




CLA 


LOGWD 




01001 





40200 


4 00204 




SUB 


B0B»4 




01002 


-0 


10000 


01005 




TNZ 


EROR 




01003 


-0 


53400 


4 01012 




LXD 


LINK1.4 




01004 





02000 


4 00002 




TRA 


2»4 




01005 


2 


00001 


1 00754 


EROR 


TIX 


RDStlrl 




01006 





07400 


4 00004 




TSX 


DIAG.4 


A 


01007 





00000 


ooooo 


1CNT 


HTR 




A 


01010 





00000 


ooooo 


2CNT 


HTR 




A 


01011 





ooooo 


ooooo 


LOGWO 


HTR 




A 


01012 





00000 


ooooo 


LINK1 


HTR 






01013 





ooooo 


00230 


L(152) 


HTR 


152 




01014 





ooooo 


02430 


L1304 


HTR 


1304 

ROUTINE WRITES 

NEW CIT INTO BU 




01015 


-0 *3400 


1 01046 


CIT 


SXD 


E2C»1 




01016 


-0 


63400 


2 01047 




SXD 


E3C»2 




01017 


-0 


53400 


2 01045 




LXD 


BB0X»2 




01020 


3 


77634 


2 01034 




TXH 


CITQ4»2»-100 




01021 


-0 


53400 


2 01045 


CITSP 


LXD 


BB0X»2 




01022 


-3 


OOOOO 


2 01034 




TXL 


CIT04.2.0 




01023 





50000 


01400 




CLA 


RECCNT 




01024 





40000 


01430 




ADD 


Ltl) 




01025 





60100 


01400 




STO 


RECCNT 




01026 





76600 


O0222 




MRS 


146 




01027 





53400 


1 01427 




LXA 


L(0)«1 




01030 





70000 


1 00030 


CIT01 


CPY 


CIB»1 




01031 


1 


77777 


1 01032 




TXI 


CIT02»1»-1 




01032 


1 


AAAOl 
VvvW X 


2 ©1033 


CIT02 


TXT 


CIT03.2.1 




01033 


3 


00001 


2 01030 


CIT03 


TXH 


CIT01»2»1 




01034 





53400 


1 01433 


CIT04 


LXA 


LJ4).l 




01035 





50000 


1 01054 


CIT05 


CLA 


CIL00+4.1 




01036 





60100 


2 00030 




STO 


CIB.2 




01037 


1 


77777 


2 01040 




TXI 


CIT07.2»-1 




01040 


2 


00001 


1 01035 


CIT07 


TIX 


CIT05.1.1 




01041 


-0 


63400 


2 01045 




SXD 


BB0X*2 




01042 


-0 


53400 


1 01046 




LXD 


E2C.1 




01043 


-0 


53400 


2 01047 




LXD 


E3C*2 




01044 





02000 


4 00001 




TRA 


1*4 




01045 





ooooo 


ooooo 


BBOX 


HTR 





A 


01046 





ooooo 


ooooo 


E2C 


HTR 




A 


01047 





ooooo 


ooooo 


E3C 


HTR 












01050 


C1L00 


BSS 


1 










01051 


CIL01 


BSS 


1 










01052 


CIL02 


BSS 


1 



IS TABLE EMPTY. 

YES. RETURN TO 

MAIN ROUTINE. 

TABLE IRV IS NOT EMPTY. 

INITIALISE IRC TO ZERO. 

FORM LOGICAL CHECKSUM OF 

ENTRIES 



COMPUTED CHECKSUM. 

DRUM CHECKSUM FOLLOWS LAST ENTRY. 

NOT EQUAL 

DRUM READ CORRECTLY. 

RETURN 

TRY TO READ THREE MORE TIMES. 

DRUM 3 READING ERROR FIVE TIMES. 



LENGTH OF TABLE IRV» WD. CT. t CHECKSUMS 
ORG OF WD. CT OF TABLE IRV 
WRITES CIT BUFFER ON TAPE »IF FULL. THEN ENTERS 



COMPLEMENT OF CURRENT BUFFER CT. 
BUFFER NEITHER FULL NOR ZERO 



TRA IF BUFFER CT ZERO 
BUFFER IS ALREADY FULL. 
UPDATE CIT RECORD COUNT. 



WRITE CIT BUFFER ON TAPE. 

STEP BUFFER COUNT BACK TO ZERO 
TEST FOR BUFFER END 

STORE 4WD CIT IN BUFFER. 

UPDATE CIT BUFFER COUNT 

SAVE CIT BUFFER COUNT 

RELOAD INDEX REGS. 

RETURN 

CIT BUFFER CT. INITIALLY ZERO 



SYMBOLIC LOCN OF CIT 
OP.DAND DEC. OF CIT. 
SYMBOLIC ADDRESS OF CIT 



F2402120 

F2402130 

F2402140 

F2402150 

F2402160 

F2402170 

F2402180 

F240219O 

F2402200 

F2402210 

F2402220 

F2402230 

F2402240 

F2402250 

F2402260 

F2402270 

F2402280 

F2402290 

F2402300 

F2402310 

F2402320 

F2402330 

F2402340 

F2402350 

F2402360 

F2402370 

F 2402 380 

F2402390 

F 2402400 

F2402410 

F2402420 

F2402430 

F2402440 

F2402450 

F2402460 

F2402470 

F2402480 

F2402490 

F2402500 

F2402510 

F2402520 

F2402530 

F2402540 

F2402550 

F2402560 

F2402570 

F2402580 

F2402590 

F2402600 

F2402610 

F2402620 

F2402630 

F2402640 

F2402650 



/ 



01053 CIL03 BSS 1 



















REQUIRED FIXCON I 


















BEGUN. THE FIXCON 


















NOT ALREADY THERE 


















(SEARCH IS MADE I 


















FOR ODD» FOR TIMI 




01054 


-0 


63400 


1 


01107 


FIXCON 


SXD 


FC29#1 




01055 


-0 


63400 


2 


01077 




SXD 


FC18»2 




01056 


-0 


63400 


4 


01111 




SXD 


FC34t4 




01057 





60100 





01406 




STO 


ERDRM1 




01060 





53400 


4 


01434 




LXA 


L(5)*4 




01061 





50000 





01142 


FC02 


CLA 


ORIGIN 




01062 





60100 





01401 




STO 


AD1 




01063 





53400 


1 


01427 




LXA 


LI0)»1 




01064 





53400 


2 


01431 




LXA 


L(2)*2 




01065 





50000 





01406 


FC04 


CLA 


ERDRM1 




01066 





76200 





00302 




RDS 


194 




01067 





46000 





01401 




LDA 


A01 




01070 





70000 





01407 


FC08 


CPY 


CPYWD1 


D 


01071 


3 


00000 


1 


01102 




TXH 


FC24+1»1 




01072 





70000 





01410 




CPY 


CPYWD2 




01073 





04000 





OHIO 




TLO 


FC30 




01074 





70000 





01405 




CPY 


ERDRM 




01075 





34000 





01410 




CAS 


CPYWD2 




01076 





07400 


4 


00004 




TSX 


DIAG>4 





01077 


-3 


00000 





01135 


FC18 


TXL 


FC60»0 




01100 





70000 





01405 


FC20 


CPY 


ERDRM 




01101 


1 


00002 


1 


01070 


FC24 


TXI 


FC08»1»2 




01102 


-2 


00001 


2 


01112 




TNX 


FC40»2tl 




01103 





50000 





01401 




CLA 


AD1 




01104 





40000 





01431 




ADD 


L(2) 




01105 





60100 





01401 




STO 


AD1 




01106 





53400 


1 


01430 


FC28 


LXA 


L<1>*1 





01107 


-3 


00000 





01065 


FC29 


TXL 


FC04»0 




OHIO 





70000 





01405 


FC30 


CPY 


ERDRM 





01111 


-3 


00000 





01100 


FC34 


TXL 


FC20*0 




01112 





60100 





01407 


FC<tO 


STO 


CPYWD1 




01H3 


-0 


53400 


1 


01071 




LXD 


FC08+1»1 




01114 


1 


00001 


1 


01115 




TXI 


FC42*1*1 




01115 


-0 


63400 


1 


01071 


FC42 


SXO 


FC08+1»1 




01116 


-0 


75400 


1 


00000 




PXO 


0*1 




01117 





77100 





00021 




ARS 


17 




01120 





40000 





01142 




ADD 


ORIGIN 




01121 





6O100 





01401 




STO 


AOl 




01122 





76600 





00302 




WRS 


194 




01123 





46000 





01401 




LDA 


AD1 




01124 





70000 





01407 




CPY 


CPYWD1 




01125 





70000 





01407 




CPY 


CPYWD1 




01126 


-0 


75400 


1 


00000 


FC50 


PXD 


0.1 




01127 





77100 





00022 




ARS 


18 




01130 


-0 


50100 





01416 




ORA 


BCD2 




01131 


-0 


53400 


1 


01107 




LXD 


FC29»1 




01132 


-0 


53400 


2 


01077 




LXD 


FC18»2 




01133 


-0 


53400 


4 


01111 




LXD 


FC34»4 



REL. ADDRESS AND TAG. 
IS IN ACC. WHEN THIS ROUTINE IS 

TABLE IS SEARCHED AND IF FIXCON IS 
:* IT IS ENTERED IN THE TABLE. 
IN TWO PASSES* ONE FOR EVEN ENTRIES* ONE 
[NG PURPOSES.) EX IT WITH NAME OF ENTRY IN 



SAVE FIXCON. 

INITIALIZE DRUM ERROR COUNTER. 

INITIALISE AD1 TO SELECT 1ST ENTRY 

AND ODD NUMBERED ENTRIES. 

INITIALISE COUNT THROUGH TABLE 

INITIALISES FOR TWO FIXCON PASSES 

REQD. FIXCON 

READ NEXT FIXCON ENTRY 



DECR IS WD.CT OF FIXCON TABLE tINITFX) 

READ CHECKSUM OF ENTRY 

TRA IF ENTRY DOES NOT MATCH FIXCON. 

FALSE COPY. 

COMPARE WITH CHECKSUM* 

OBVIATED BY TLQ. 

SAVED IRB IN DECR. MATCH FOUND. 

FALSE COPY. NO MATCH 

INCREASE COUNT OF WORDS TESTED. 

BOTH PASSES ARE COMPLETED. 

ADJUST DRUM ADDRESS 

TO TEST EVEN NUMBERED ENTRIES. 

INITIALISE COUNT THROUGH TABLE 

TRA TO MAKE 2ND PASS. SAVED IRA IN DEC. 

FALSE COPY. 

DECR* CONTAINS ROUTINE LINKAGE. 

SEARCH COMPLETED. NO MATCH. 

INCREASE FIXCON WD. COUNT AND 

STORE AS NEW TEST. 

FORM NEW ADDRESS 

FOR 

DRUM WRITING. 



WRITE NEW FIXCON AND 
ITS CHECKSUM ON DRUM. 

FORM NAME OF CONSTANT 

IN ACC. NAME CONSISTS OF 

2 IN DEC. =2) FOR FIXCON TABLE* 

AND ENTRY NO WITHIN TABLE* 

IN ADDRESS. 

RESTORE INDEX. 



F2402660 
F2402670 
F2402680 
F2402690 
F2402700 
ACC.F2402710 
F2402720 
F2402730 
F2402740 
F2402750 
F2402760 
F2402770 
F2402780 
F2402790 
F2402800 
F2402810 
F2402820 
F2402830 
F2402840 
F2402850 
F2402860 
F2402870 
F2402880 
F2402890 
F2402900 
F2402910 
F2402920 
F2402930 
F2402940 
F2402950 
F2402960 
F2402970 
F2402980 
F2402990 
F2403O00 
F2403010 
F2403020 
F2403030 
F2403040 
F2403050 
F2403060 
F2403070 
F2403O8O 
F2403090 
F2403100 
F2403110 
F2403120 
F2403130 
F2403140 
F2403150 
F2403160 
F2403170 
F2403180 
F2403190 



fd 



u 





















LG 


V 




















01134 


02000 


4 


00001 




TRA 


1*4 






01135 


50000 





01407 


FC60 


CLA 


CPYWD1 


,,. 




01136 


40200 





01410 




SUB 


CPYWD2 


-' 




01137 


10000 





01126 




TZE 


FC50 






01140 


2 00001 


4 


01061 




TIX 


FC02»4*1 






01141 


07400 


4 


00004 


STOPFC 


TSX 


DIAG»4 






01142 


00000 





00002 


ORIGIN 


HTR 


2 

THIS ROUTINE 
SUBSCR. COMB 
AND STORES I 






01143 


-0 63400 


4 


01224 


SUBCOM 


SXO 


SUB085»4 






01144 


53400 


1 


01434 




LXA 


L(5)»l 






01145 


60100 





01237 




STO 


SUBTAG 






01146 


76200 





00304 


SUB010 


RDS 


196 






01147 


-0 53400 


4 


01234 




LXD 


SUBORG+2.4 




T 


01150 


-0 75400 





00000 




PXD 









01151 


60100 


4 


00204 


SUB020 


STO 


WRKSC+8.4 






01152 


2 00001 


4 


01151 




TIX 


SUB020»4»1 






01153 


50000 





01237 




CLA 


SUBTAG 






01154 


76500 





00011 




LRS 


9 






01155 


73400 


6 


00000 




PAX 


0.6 




T 


01156 


-0 75400 





00000 




PXD 









01157 


76300 





00011 




LLS 


9 






01160 


60100 





01235 




STO 


SUBES1 






01161 


76700 





00001 




ALS 


1 






01162 


60100 





01236 




STO 


SUBES2 






01163 


50000 


4 


01235 




CLA 


SUB0RG+3f4 






01164 


40000 





01235 




ADO 


SUBES1 






01165 


40000 





01236 


SUB030 


ADD 


SUBES2 






01166 


2 00001 


4 


01165 




TIX 


SUB030»4»1 






01167 


62100 





01235 




ST A 


SUBES1 






01170 


46000 





01235 




LOA 


SUBES1 






01171 


70000 





00174 




CPY 


WRKSC 






01172 


-3 0O002 


2 


01174 




TXL 


SUB040«2»2 






01173 


70000 





00200 




CPY 


WRKSC+4 






01174 


70000 





00175 


SUB040 


CPY 


WRKSC+1 






01175 


-3 00001 


2 


01202 




TXL 


SUB060*2»1 






01176 


70000 





00177 




CPY 


WRXSC+3 






01177 


-3 00002 


2 


01201 




TXL 


SUB050*2»2 






01200 


70000 





00201 




CPY 


WRKSC+5 






01201 


70000 





00202 


SUB050 


CPY 


WRKSC+6 






01202 


70000 





01235 


SUB060 


CPY 


SUBES1 






01203 


-0 53400 


4 


01232 




LXD 


SUB0RG»4 






01204 


-0 50000 





00174 




CAL 


WRKSC 






01205 


36100 


4 


00203 


SUB070 


ACL 


WRKSC+7»4 






01206 


2 00001 


4 


01205 




TIX 


SUB070*4*1 






01207 


60200 





01236 




SLW 


SUBES2 






01210 


50000 





01236 




CLA 


SUBES2 






01211 


40200 





01235 




SUB 


SUBES1 






01212 


10000 





01214 




TZE 


SUB075 






01213 


2 00001 


1 


01146 




TIX 


SUB010»1»1 






01214 


-0 53400 


4 


01233 


SUB075 


LXD 


SUBORG+1.4 






01215 


50000 


4 


00203 


SUB080 


CLA 


WRKSC+7»4 






01216 


73400 


2 


00000 




PAX 


0*2 



r^ 



RETURN. 

MATCH FOUND. TEST DRUM READ. 

DRUM READ CORRECTLY. 

ERROR. TRY 3 TIMES. 

DRUM 2 READING ERROR FIVE TIMES. 

DRUM ORIGIN OF FIXCON TABLE. 
* GIVEN A TAU TAG* OBTAINS THE CORR. 
INATION FROM THE APPROPRIATE TAU TABLE 
N POSITION C1.S1»C2»S2*S3»S3»D1.D2. 

SAVE S.R. LINKAGE 

INITIALIZE DRUM ERROR COUNTER. 

STORE TAU TAG NAME. 

SELECT TAU DRUM 

INITIALIZE SUBSCRIPT COMBINATION 

WORKING SPACE 

TO ZERO. 

THESE INSTRUCTIONS PLACE 

TAU TABLE REQUIRED 

11*2 OR 3) IN IRB AND IRC. 

STORE ENTRY NUMBER 

WITHIN APPROPRIATE TAU TABLE. 

STORE TWICE TAU ENTRY NO. 
SELECT APPROPRIATE TAU ORIGIN. 
FORM DRUM ADDRESS* WHICH EQUALS 
TAU ORIGIN + ENTRY N/.* 
NUMBER OF WORDS PER ENTRY 
(3 FOR TAU1.5 FOR TAU2.7 F0RTAU3J 
SELECT TAU ENTRY. 
OECR. Cl» ADDR. C2 

FOR TAU 3 » ADDR. C3. 
SI 

FOR TAU2 AW3* S2* 

FOR TAU3* SO* ALSO 

ADDRESS D2»DECR.D1 
CHECKSUM. 

COMPUTE 
CHECKSUM. 



TEST FOR 

READING ERROR. 

TRA. IF CORRECT 

IF ERROR, TRY FOUR MORE TIMES. 

REARRANGE WORDS WRKSC 

AND WRKSC+6. IN TURN. WHICH 



F2403200 
F2403210 
F2403220 
F2403230 
F2403240 
F2403250 
F2403260 
F2403270 
F2403280 
F2403290 
F2403300 
F2403310 
F2403320 
F2403330 
F2403340 
F2403350 
F2403360 
F2403370 
F2403380 
F2403390 
F2403400 
F2403410 
F2403420 
F2403430 
F2403440 
F2403450 
F2403460 
F2403470 
F2403480 
F2403490 
F2403500 
F2403510 
F2403520 
F2403530 
F2403540 
F2403550 
F2403560 
F24O3S70 
F2403580 
F2403590 
F2403600 
F2403610 
F2403620 
F2403630 
F2403640 
F2403650 
F2403660 
F2403670 
F2403680 
F2403690 
F2403700 
F2403720 
F2403730 
F2403740 



A 
A 
A 



01217 -0 32000 01424 

01220 60100 4 00203 

01221 -0 75400 2 00000 

01222 -2 00006 4 01225 

01223 60100 00176 

01224 -3 00000 01215 

01225 60100 00203 

01226 -0 53400 4 01224 

01227 -3 00001 1 01231 

01230 02000 4 00001 

01231 07400 4 00004 

01232 +000006001356 

01233 +000007000454 

01234 +000010000000 

01235 00000 00000 

01236 00000 00000 

01237 00000 00000 



01240 
01241 
01242 
01243 
01244 
01245 
01246 
01247 
01250 
01251 
01252 
01253 
01254 
01255 
01256 



01257 
01260 
01261 
01262 
01263 
01264 
01265 
01266 
01267 
01270 
01271 
01272 
01273 
01274 
01275 
01276 
01277 
01300 



53400 
53400 
63400 
50000 
10000 
40200 
10000 
76000 
50000 
07400 
60100 
00002 
00001 
53400 
02000 



63400 
60100 
75400 
77100 
40000 
62100 
50000 
60100 
56000 
76300 
76300 
60000 
12000 
62100 
50000 
60100 
50000 
60100 



01435 
01432 
01411 
00202 
01253 
01421 
01253 
00144 
00202 
01054 
00450 
01254 
01243 
01411 
00001 



01313 
01412 
00000 
00022 
01412 
01267 
01427 
01050 
00000 
00000 
00022 
01051 
01314 
01275 
00000 
01052 
01427 
01053 



SUB085 
SUB090 



SUB 100 
SUBORG 



SUBES1 
SUBES2 
SUBTAG 



COSE 



C05E5 



COSE08 
COSE10 



LXC 



LXC08 
LXC10 



LXC15 



ANA 
STO 
PXD 

TNX 
STO 
TXL 
STO 
LXD 
TXL 
TRA 
TSX 
OCT 
OCT 
OCT 
HTR 
HTR 
HTR 



LXA 
LXA 
SXD 
CLA 
TZE 
SUB 
TZE 
PSE 
CLA 
TSX 
STO 
TIX 
TIX 
LXD 
TRA 



SXD 
STO 
PXD 
ARS 
ADD 
STA 
CLA 
STO 
LDQ 
LLS 
LGL 
STQ 
TMI 
STA 
CLA 
STO 
CLA 
STO 



DECMSK 

WRKSC+7.4 

Qt2 

SUB090»4»6 

WRKSC+2 

SUB080»0 

WRKSC+7 

SUB085*4 

SU8100+1.1.1 

1.4 

DIAG»4 

000006001356 

000007000454 

O000100O00O0 



CONTAIN CI AND C2.D1AND D2. 

NONBCD CHARACTERS 

ARE STORED IN DECREMENT 

AND ORDER OF ITEMS IS NOW 

Cl»Sl»C2»S2.C3»S3tDltD2. 



RESTORE LINKAGE INDEX 
TRA IF READING ERROR. 
RETURN 

DRUM 4 READING ERROR 5 TIMES. 
DECR. IS 6. ADDR. IS ORG TAU3 
DECR. IS 7. ADDR IS ORG TAU2 
DECR IS 8. ADDR IS ORG TAU1 
ERASABLE ST. FOR DRUM ADDR. 
ERASABLE ST. FO DRUM CHECK. 



COSE ROUTINE FORMS NAME OF EACH NONTRIVIAL COEFF. IN FIXCON 
TABLE. AND SETS SENSE LIGHTS ACCORDINGLY. 



INDEX TO SELECT SUBSCRIPTS IN TURN. 
INITIALISE SENSE LT. SELECTION. 

SELECT A S.C. COEFF. 

TRA IF NO SUBSC. IN THIS DIMENSION. 

TRA IF COEFF. IS ONE. 

SET CORRESPONDING SENSE LIGHT. 

ENTER COEFF IN FIXCON IF 

NOT ALREADY THERE. 

STORE NAME OF FIXCON ENTRY. 

REPEAT FOR ALL SUBSCRIPTS. 



L(61 tl 

L(3)»2 

LINKC.4 

WRKSC+6.1 

COSE08 

L1DEC 

COSE08 

100.2 

WRKSC+6.1 

FIXCON. 4 

QROOO+12.2 

COSE10.1.2 

COSE5.2.1 

LINKC.4 

1,4 RETURN 

ROUTINE COMPILES SETS OF INSTRUCTIONS* GIVEN STARTING LOCN. 

OF APPROPRIATE SKELETON IN ACC.» AND NO. OF INSTR. IN IRA 

LXC19.4 

SAVE LOCATION OF INSTR. SKELETON. 
NO. OF INST TO BE COMPILED. 



ERLXC 

0»1 

18 

ERLXC 

LXC10 

LfO) 

CI LOO 

0*1 



18 

CIL01 

LXC20 

LXC15 

CIL02 

LtO) 

CIL03 



FORM ADDRESS WHICH GIVES 
APPROPRIATE SKELETAL WORDS. 
SET CIT SYMBOLIC LOCN. TO ZERO 

SELECT NEXT SKELETAL WORD. 

FOR COMPILATION. SET SIGN IN AC. 

BCD. OPERATION IS IN DECREMENT. 

STORE OPERATION 

CIT IS SHIFT TYPE INSTRUCTION. 

CIT IS SYMBOLIC ADDRESS TYPE. 

ADDR. IS LOCATION OF SYMBOLIC ADDRESS 

OF CIT. 

SET CIT TAG TO ZERO. 



F2403750 

F2403760 

F2403770 

F2403780 

F2403790 

F2403800 

F2403810 

F2403820 

F2403830 

F2403840 

F2403850 

F2403860 

F2403870 

F2403880 

F24O3890 

F2403900 

F2403910 

F2403920 

F2403930 

F2403940 

F2403950 

F2403960 

F2403970 

F2403980 

F2403990 

F2404000 

F2404010 

F240A020 

F2404030 

F2404040 

F2404050 

F2404060 

F2404070 

F2404080 

F2404090 

F2404100 

F2404110 

F2404120 

F2404130 

F24Q4140 

F2404150 

F2404160 

F2404170 

F2404180 

F2404190 

F 2404 2 00 

F2404210 

F2404220 

F2404230 

F2404240 

F2404250 

F2404260 

F2404270 

F2404280 



?-? 



o 



n 



n 



LC »/ 



01301 
01302 
01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 
01364 
01365 
01366 



-0 50000 01052 CAL CIU02 

-0 32000 01422 ANA 60NES 
10000 01321 TZE LXC30 

-0 32000 01423 ANA B1T01 

-0 10000 O 01321 TNZ LXC30 

-0 50000 01052 CAL CIL02 
76700 00022 ALS 18 
62200 01053 STD CIL03 

-0 50000 01422 CAL 60NES 
32000 01052 ANS CIL02 

-3 OOOOO 01321 LXC19 TXL LXC30*0 

76700 00022 LXC20 ALS 18 

■0 32000 01424 ANA DECMSK 
60100 01053 STO CIL03 
50000 O 01427 CLA LCO) 
60100 01052 STO CIL02 

07400 4 01015 LXC30 TSX CIT.4 
2 00001 1 01265 TIX LXC08»1»1 

•0 53400 4 01313 LXD LXC19»4 
02000 4 00001 TRA 1»4 

00451 2 34321 LX100 HTR 14545»2»0R000+13 
00*66 6 26346 HTR 11494*6»OR0O0+26 

00435 2 34321 LX102 HTR 14545t2*0R000+l 
00451 6 26422 HTR 11538»6*OR0O0+13 
00466 2 12424 HTR 5396»2»0R000+26 
00466 6 26346 HTR 1 1494.6tOR000+26 

00435 4 32450 LX105 HTR 13608»4»OR00O+l 
00445 4 44770 HTR 18936»4*0R000+9 

-2 00021 2 14362 TNX 6386*2* 17 
00451 6 26422 HTR 11538«6»0ROO0+13 
00466 2 12424 HTR 5396»2»OROO0+26 
00466 6 26346 HTR 11494»6»0R000+26 

00440 4 32450 LX110 HTR 13608*4*OR0O0+4 
00443 4 44770 HTR 18936»4»OR00O+7 

-2 00021 2 14362 TNX 6386*2*17 
00443 6 26422 HTR 11538»6»OR000+7 
O0466 2 12424 HTR 5396»2»OR000+26 
00466 6 26346 HTR 11494.6.0R000+26 

00440 4 32450 LX116 HTR 13608»4*OR00O+4 
00446 4 44770 HTR 18936»4*0R000+10 

-2 00022 4 35162 TNX 14962.4*18 
00443 4 44770 HTR 18936»4»0R000+7 

-2 00021 2 14362 TNX 6386.2*17 
00443 6 26422 HTR 11538 »6»0R000+7 
00466 2 12424 HTR 5396»2»0R000+26 
00466 6 26346 HTR 11494*6»OR000+26 

00461 4 32450 LX124 HTR 13608»4*OROO0+21 
00464 4 44770 HTR 18936»4«OR000+24 

-2 00021 2 14362 TNX 6386*2*17 
00464 6 26422 HTR 11538»6»OR000+24 
00466 2 12424 HTR 5396»2»OR000+26 
00466 6 26346 HTR 11494. 6.ORO0O+26 

00461 4 32450 LX130 HTR 13608*4. 0R000+21 
00447 4 44770 HTR 18936»4*OR000+ll 



TEST FOR A COT 

SYMBOLIC ADDRESS OF THE TYPE 

l)+3 OR6)+2 ERASABLE 

STORAGE 

NO 

YES. SEPARATE ADDRESS LEAVING THE 

CLASS OF SYMBOLS IN SYMBOLIC 

ADDRESS POSN* ALONE* AND 

PLACING ADDEND IN REL. ADDRESS 

POSITION. 

UNCOND. TRANSFER LINKAGE INDECR. 

CIT IS SHIFT TYPE INSTRUCTION 

I.E. ABSOLUTE ADDRESS ONLY. 

STORE ADDRESS IN CIT REL. ADDRESS. 

STORE ZERO AS 

SYMBOLIC ADDRESS. 

MAKE CIT ENTRY. 

RETURN FOR NEXT SKELETON INST. 

SKELETON COMPLETED. 

RETURN. 



CLA 
STO 
CLA 
SUB 
ADD 
STO 
LDQ 
MPY 
ALS 
SUB 
ADD 
STO 
LDQ 
MPY 
ALS 
SUB 
ADD 
STO 
LDQ 
MPY 
LRS 
MPY 
ALS 
SUB 
ADD 
STO 
LDQ 
MPY 
ALS 
SUB 
ADD 
STO 
LDQ 
MPY 



THESE WORDS 
CONSTITUTE THE 
CODING 
SKELETONS* 
AND ARE 
CALLED UPON 
BY THE LXC 
ACCORDING 
TO THE 
DIFFERENT 
COMPUTATIONS 
REQUIRED. 

THE TAG AND 
ADDRESS ARE 
THE BCD 
EQUIVALENTS OF 
THE CIT 
INSTRUCTIONS. 
THE SYMBOLIC 
DECREMENTS ARE 
THE LOCATIONS 
OF THE 

ADDRESSES IN 
THE CIT 

THE NEGATIVE 
PREFIX INDICATES 
A PURELY 
ABSOLUTE ADDRESS 



F2404290 
F2404300 
F2404310 
F2404320 
F2404330 
F2404340 
F2404350 
F2404360 
F2404370 
F2404380 
F2404390 
F2404400 
F2404410 
F2404420 
F2404430 
F 24 04440 
F2404450 
F2404460 
F2404470 
F2404480 
F2404490 
F2404500 
F2404510 
F2404520 
F2404530 
F2404540 
F2404550 
F2404560 
F2404570 
F2404580 
F2404590 
F2404600 
F2404610 
F2404620 
F2404630 
F2404640 
F2404650 
F2404660 
F2404670 
F2404680 
F2404690 
F2404700 
F2404710 
F2404720 
F2404730 
F2404740 
F2404750 
F2404760 
F2404770 
F2404780 
F2404790 
F2404800 
F2404810 
F2404820 



?-> 





01367 


-2 


00022 


4 


35162 




TNX 


14962*4*18 


LRS. 




01370 





00464 


4 


44770 




HTR 


18936»4»OR0O0+24 


MPY* 




01371 


-2 


00021 


2 


14362 




TNX 


6386*2*17 


A.LSs 




01372 





00464 


6 


26422 




HTR 


11538»6»OR0O0+24 


SUB* 




01373 





00466 


2 


12424 




HTR 


5396*2 *OR00O+26 


ADD* 




01374 





00466 


6 


26346 




HTR 


11494»6»OR0O0+26 


STO. 


A 


01375 





00000 





00000 


NAME1 


HTR 






A 


01376 





00000 





00000 


TAG1 


HTR 






A 


01377 





00000 





00000 


TAG2 


HTR 






A 


01400 





00000 





00000 


RECCNT 


HTR 






A 


01401 





00000 





00000 


A01 


HTR 






A 


01402 





00000 





ooooo 


1XB0X 


HTR 






A 


01403 





00000 





00000 


2X80X 


HTR 






A 


01404 





00000 





ooooo 


LINK2 


HTR 






A 


01405 





00000 





ooooo 


ERDRM 


HTR 






A 


01406 





00000 





ooooo 


ERDRM1 


HTR 






A 


01407 





00000 





ooooo 


CPYWD1 


HTR 






A 


01410 





00000 





ooooo 


CPYWD2 


HTR 






A 


01411 





00000 





ooooo 


LINKC 


HTR 






A 


01412 





00000 





ooooo 


ERLXC 


HTR 






A 


01413 





00000 





ooooo 


AX 


HTR 






A 


01414 





00000 





ooooo 


BX 


HTR 






A 


01415 





00000 





ooooo 


SENSE1 


HTR 








01416 


+020000000000 


BCD2 


OCT 


020000000000 






01417 


+140000000000 


BCD14 


OCT 


140000000000 






01420 


+120000000000 


BCD1Q 


OCT 


120000000000 






01421 


+000001000000 


LI DEC 


OCT 


000001000000 






01422 


-370000000000 


60NES 


OCT 


770000000000 






01423 


-200000000000 


BIT01 


OCT 


600000000000 






01424 


+077777000000 


DECMSK 


OCT 


077777000000 






01425 


626346000000 


LISTO) 


BCD 


ISTOOOO 






01426 


234321000000 


UCLA) 


BCD 


1CLA0O0 






01427 





00000 





ooooo 


L(0) 


HTR 









01430 





00000 





00001 


L(D 


HTR 


1 






01431 





00000 





00002 


L(2) 


HTR 


2 






01432 





00000 





00003 


L(3) 


HTR 


3 






01433 


. 


00000 





00004 


L(4> 


HTR 


4 






01434 





00000 





00005 


L(5i 


HTR 


5 






01435 





00000 





00006 


L(6) 


HTR 


6 






01436 





00000 





01327 


KLX02 


HTR 


LX102 


SKELETON KEYS 




01437 





00000 





01333 


KLX021 


HTR 


LX105 


FOR LXC ROUTINE 




01440 





00000 





01347 


KLX03 


HTR 


LX116 






01441 





00000 





01341 


KLX031 


HTR 


LX110 






01442 





000 00 





01365 


KLX05 


HTR 


LX130 






01443 





00000 





01357 


KLX051 


HTR 


LX124 




M 










00450 


OR012 


SYN 


OR 000+12 




M 










00451 


0R013 


SYN 


OR0O0+13 




M 










00456 


OR018 


SYN 


OR0O0+18 




M 










00466 
00004 


OR026 
01A0 


SYN 
EQU 


OR000+26 
4 




A 










OOOOO 




END 






A 












OOR012 


00450.00450 




A 












0OR013 


00451 »00451 




A 












0OR018 


00456*00456 





F2404830 

F2404840 

F2404S50 

F2404860 

F2404870 

F2404880 

F2404890 

F2404900 

F2404910 

F2404920 

F2404930 

F2404940 

F2404950 

F2404960 

F2404970 

F2404980 

F2404990 

F2405000 

F2405010 

F 2405 020 

F2405030 

F2405040 

F2405050 

F2405060 

F2405070 

F2405080 

F2405090 

F2405100 

F2405110 

F2405120 

F2405130 

F2405140 

F2405150 

F2405160 

F2405170 

F2405180 

F2405190 

F2405195 

F2405200 

F2405210 

F2405220 

F2405230 

F24Q5240 

F2405250 

F2405260 

F2405270 

F2405280 

F2405290 

F2405300 

F2405305 

F2405310 



u 



O 



n n 



L6 V 

A 0OR026 00466*00466 



?/' 



REM BLOCK FIVE OF SECTION 



TWO* 

BLOCK FIVE OF SECTION TWO. 
FORTRAN 2*****BLOCK 5 OF SECTION 



2****************-»*********-»F25COGGG 



00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00050 
00051 
00©52 
00053 
00054 

00055 
00056 
00057 
00060 
00061 
00062 
00063 



53400 
76400 
76400 
76200 
70000 
70000 
76600 
76000 
02000 
53400 
00000 
00002 
76400 
00001 
77200 
77200 
76200 
70000 
O2O0O 
76200 
02000 









Q 
-0 

-0 
-3 
1 

2 



o 
o 



BLOCK 5 OF SECTION 2 USES INFORMATION GENERATED BY BLOCKS 
1*2* AND 3 TO COMPILE ALL DO LOOP INDEXING- INSTRUCTIONS. 
DECREMENTS ARE COMPUTED. AND WHEN NECESSARY OPEN SUBROUTINES 
ARE COMPILED TO COMPUTE THESE DECREMENTS AT OBJECT PROGRAM 
TIME* AT THE END OF BLOCK 5 THESE INSTRUCTIONS ARE ON TAPE 
3 IN SEMI-INVERTED ORDER. BLOCK 6 INVERTS THE DOFILE INTO 
PROPER ORDER ONTO TAPE 4 



MASTER RECORD CARD = FN047 
BE6IN INITIALIZATION 
THE INITIALIZATION RECORD IS THE 
IN BY MONITOR. IT POSITIONS THE 



F250OO30 
F250Q040 
F2500050 
F2500060 
F2500070 
ITF2500080 
F2500090 
F250C100 
F2500110 
F2500120 
F2500125 
F2500130 
RECORD OB BLOCK 5 READF2500140 
TAPES 2 AND 4 AND F2500150 
NEXT RECORD (THE ALPHAF2500160 



00030 

00131 AINIT 



00222 
00222 
00222 
00124 
00124 
00333 
00012 
00056 
00124 
00044 
00044 
00222 
00044 
00223 
00224 
00224 
00124 
O 00O50 
00221 
00004 



FIRST 
INPUT 
REWINDS THE OUTPUT TAPE 3. IT READS THE 
STATE) INTO CORES THEN WRITES IT ON DRUM 2. THEN IT READS F2500170 
IN THE NEXT RECORDt COMMON + THE BETA STATE)* AND WRITES THE BF2500180 
BETA STATE ON DRUM 1* IT READS THE ADTAG TABLE FROM DRUM 2 IF2500190 
FIXCON IS CHECKED8 AND INITIALIZED IF NECESSARY. IF THERE AREF25O0200 
ANY DOS CONTROL IS PASSED TO MAN. IF THERE ARE NO DOS THE NEF2500210 
NEXT RECORD* WHICH IS BLOCK 6* IS READ IN. F2500220 

F2500230 
F2500240 
F2500250 



02000 
00001 
76400 
02000 
07400 
53400 
07400 



Al 



A2 



A3 



00050 

00061 A3I 

00222 

00033 

00004 

00146 

00132 



A4 
C 



ORG 24 
LXA L5*l 
BST 146 
BST 146 
RDS 146 
CPY CPYWD3 
CPY CPYWD3 
WRS 219 
RTT 

TRA A3I 
LXD CPYWD3»1 
TXL A2*l»0 

A2»l*2 

146 

A2.1.1 

147 

146 

148 

CPYWD3 

A3 

145 

4 

THE ALPHA STATE 
TRA A3 
TNX A4»l»l 
BST 146 
TRA Al 

DIAG»4 

L0*2 

BINIT*4 



INITIALIZE ERROR COUNTER. 
POSITION TAPE 2 



TO READ DOTAG 



DO 
DO 



TAG REC 
TAG REC 



COUNT 
COUNT 



TXI 

BST 
TIX 
REW 
REW 
RDS 
CPY 
TRA 
RDS 
TRA 



TSX 
LXA 
TSX 



WRITE BLOCK A ON DRUM 



F2500260 
F2500270 
F2500280 
F25O0290 
F2500300 
F2500310 
F2500320 
F2500330 
F2500340 
F25O0350 
F25O0360 
F2500370 
F25QO3S0 
F2500390 
F2500400 
F2500410 
F2500420 
TAPE F2500430 
F2500440 
F2500450 
F2500460 
F2500470 
F2500480 
F2500490 
GOTTEN AN ERROR CHECK 5 TIMES. F2500500 

F250O510 
F2500520 



ERROR 



BACKSPACE TO BEGINNING 
OF DOTAG RECORDS 
REWIND OUTPUT TAPE 
REWIND TAGTAG TAPE 

TAGTAG RECORD COUNT 

SKIP OVER DIAGNOSTIC RECORD ON SYSTEM 
E.D.F. READ IN NEXT BLOCK OF INST. 
IS NOW IN CORES. CONTROL PASSES TO C« 
E.O.R. 
READING 
ERROR 
ROUTINE 
TAPE 2 HAS 



Si? 



u 



n 



n 



LCI/ 



A 
A 



00064 
0006& 



00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 



00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 



76200 
02000 



53400 
07400 
07400 
53400 
76200 
70000 
70000 
50000 
40200 
10000 
50000 
10000 
40200 
76700 
62200 
50000 
60100 
76000 
02000 
76000 
76200 
02000 
76600 
70000 
70000 
70000 
70000 
02000 
00001 
07400 
00000 
00000 
00000 
00000 
00000 
00000 



50000 
53400 
36100 
00001 
60200 
53400 
76600 
46000 
70000 
70000 
00001 



00221 
00004 



00126 
00132 
00150 
00131 
00302 
00124 
00125 
00124 
00125 
00122 
00124 
00114 
00127 
00021 
04616 
05126 
05205 
00143 
03654 
00143 
00221 
00004 
00302 
00146 
00146 
00146 
00146 
00104 
00072 
00004 
00000 
00000 
00001 
00002 
00003 
00005 



CI 



C2 



C4 



C6 

CPYW03 
CPYWD4 

LI 

L2 

1.3 

L5 



00146 
00147 
07226 
00134 
00124 
00147 
00302 
00147 
00124 
07226 
00143 



BINIT 
81 



B2 



RDS 
TRA 



LXA 
TSX 
TSX 
LXA 
RDS 
CPY 
CPY 
CLA 
SUB 
TNZ 
CLA 
TZE 
SUB 
ALS 
STD 
CLA 
STO 
MSE 
TRA 
PSE 
ROS 
TRA 
WRS 
CPY 
CPY 
CPY 
CPY 
TRA 
TIX 
TSX 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 



CLA 
LXA 
ACL 
TIX 
SLW 
LXA 
WRS 
LDA 
CPY 
CPY 
TIX 



145 SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2500530 

4 READ NEXT RECORD F2500540 

COMMON AND BETA STATE ARE NOW IN CORES. CONTROL IS PASSED TOF2500550 



THE FOLLOWING INSTRUCTION. 
Ll»2 



BINIT»4 

ADTGDM»4 

L5*l 

194 

CPYWD3 

CPYWD4 

CPYWD3 

CPYWD4 

C6 

CPYWD3 

C4 

L2 

17 

FC08+1 

L(l) 

SWICH2 

99 

MAN 

99 

145 

4 

194 

LO 

LO 

LO 

LO 

C2 

Cl»l»l 

DIAG.4 



PLACE BLOCK B ON DRUM 
READ ADTAG ENTRIES 
INITIALIZE ERROR COUNTER. 
SELECT FIXCON DRUM. 
WORD COUNT OF FIXCON 



ERROR IN DRUM READING 
NO ENTRIES IN FIXCON 



STORE WORD COUNT IN 
DECREMENT OF FC08-1 
SET SWITCH 2 TO 1 



IF NO DOTAGS* 
TRA MONITOR 



F 2 500 560 
F2500570 
F2500580 
F2500590 
F2500600 
F2500610 
F250062Q 
F2500630 
F2500640 
F2500650 
F2500660 
F2500670 
F2500680 
F2500690 
F2500700 
F2500710 
F2500720 
F2500730 
F2500740 
F2500750 
F2500760 



SKIP OVER DIAGNOSTIC RECORD ON SYSTEM TAPE F2500770 



OTHERWISE TRA MAN. 

NO ENTRIES. WRITE 
ZEROS IN FIRST FOUR 
LOCATIONS OF DRUM 3 



DRUM 2 READING ERROR ROUTINE. 
DRUM 2 READING ERROR 5 TIMES. 



•a********************************************************** 

BINIT WRITES A SELECTED STATE* ALPHA OR BETA. ON DRUM2 OR 1 

RESPECTIVELY. 

LO 

L1000.1 

RTXAC+1000.1 

Bl.1.1 

CPYWD3 

L1000.1 

194.2 

LI 000 

CPYWD3 

RTXAC+1000.1 

B2.1.1 



FORM CHECK SUM FOR 
PROGRAM ON DRUM. 



WRITE 1000 WORDS OF 
PROGRAM ONTO DRUM 



F2500780 
F2500790 
F2500800 
F2500810 
F2500820 
F2500830 
F2500840 
F2500850 
F2500860 
F2500870 
F2500880 
F250089O 
F2500900 
F2500910 
F2500920 
F2500930 
F2500940 
F2500950 
F2500960 
F2500970 
F2500980 
F2500990 
F2501000 
F2501010 
F2501020 
F2501030 
F2501040 
F2501050 
F2501060 



?/} 



0014-5 02000 4 00001 

00146 00000 00000 L0 

00147 00000 01750 L1000 



00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
00200 
00201 
00202 
00203 
00204 
O0205 
00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 



50000 

60100 

53400 

53400 

76200 

46000 

70000 

50000 

70000 

40200 

70000 

10000 

70000 

77774 

70000 

77777 

-0 63400 

-0 63400 

3 00617 

53400 

53400 

-0 50000 

36100 
36100 
36100 
60200 
50000 
40200 

-0 10000 

1 77774 
77777 
















1 


1 











05133 
05223 
05124 
05125 
00303 
00217 
03466 
05123 
03467 
03466 
03470 
00170 
03471 
00166 
01242 
00156 
00207 
04521 
00210 
05125 
05124 
03466 
03467 
03470 
03471 
00124 
00124 
01242 
00211 
00206 
00207 



ADTGOM 
ADTG05 

ADTG10 



00000 1 00175 
02000 4 00001 
05223 
05126 
05223 
00131 
00152 
4 00004 



50000 
40000 
60100 
40200 
-0 10000 
O74O0 



+000000002664 



ADTG20 
ADTG30 

ADT632 



ADTG34 
ADTG38 

EROR 



STOP 
DRADSI 



TRA 
HTR 
HTR 



CLA 
STO 
LXA 
LXA 
ROS 
LDA 
CPY 
CLA 
CPY 
SUB 
CPY 
T2E 
CPY 
TXI 
CPY 
TXI 
SXD 
SXO 
TXH 
LXA 
LXA 
CAL 
ACL 
ACL 
ACL 
SLW 
CLA 
SUB 
TNZ 
TXI 
TXI 
TXH 
TRA 
CLA 
ADO 
STO 
SUB 
TNZ 
TSX 
OCT 



1*4 

1000 
♦♦♦♦•■it-****************************************************** 

ADTGDM READS THE ADTAG TABLE FROM DRUM 3 INTO CORES. 



LCO) 

ERORBX 

LZEKMX.2 

LADMX.l 

195 

ORAOSI 

ADTGMX.l 

ALLONE 

ADTGMX+1.1 

ADTGMX»1 

ADTGMX+2.1 

ADTG30 

ADTGMX+3*! 

ADTG20»l»-4 

ZEKSUM.2 

ADTG10.2«-1 

ADTG38»1 

ADTGS1»1 

A0T638+1»1.399 

LAOMXtl 

LZEKMX»2 

ADTGMXtl 

ADTGMX+U1 

A0TGMX+2»1 

ADTGMX+3 .1 

CPYWD3 

CPYWD3 

ZEKSUM.2 

EROR 

ADTG34*l»-4 

ADTG38»2»-1 

ADTG32.1 

1»4 

ERORBX 

L(l) 

ERORBX 

L5 

AOTG05 

0IA6»4 

2664 



INITIALIZE ERROR INDICATOR 

CHECK SUM AREA 
ADTAG AREA 

READ ADTEG TABLE 

ADDRESS IS ORIGIN - MAX WORDS 

FENCE FOR TABLE END 



END OF TABLE. 



CHECK SUM FOR DRMTA6. 

MAX CURRENT TABLE SIZE. 

RETURN IF TABLE DEPLETED. 
START TO CHECK 
ALL CHECK SUMS. 



TEST FOR END OF TABLE. 
END OF TABLE* READ CORRECTLY. 
IF ERROR IN A CHECK THE 
ENTIRE TABLE IS RE-READ. 
THIS IS DONE FOUR TIMES AFTER 
THE FIRST READING OF THE TABLE. 



DRUM 3 READING ERROR 5 TIMES. 
ORMTG ORIGIN. 

a*********************************************************** 



MASTER RECORD CARD = FN051 
BEGIN COMMON AND BETA STATES 
a************************************************************ 



BEGIN BLOCK 5 COMMON 



00030 



ORG 24 



F2501070 

F2501080 

F2S01090 

F2506930 

F2506940 

F2506950 

F2506960 

F2506970 

F2501100 

F2501110 

F2501120 

F2501130 

F250H40 

F2501150 

F2501160 

F2501170 

F2501180 

F2501190 

F2501200 

F2501210 

F2501220 

F2501230 

F2501240 

F2501250 

F2501260 

F2501270 

F2501280 

F2501290 

F2501300 

F2501310 

F2501320 

F2501330 

F2501340 

F2501350 

F2501360 

F2501370 

F2501380 

F250139O 

F2501400 

F2501410 

F2501420 

F2501430 

F2501440 

F2501450 

F2501460 

F2501470 

F2501480 

F2501490 

F2501500 

F2501505 

F250151O 

F2501520 

F2501530 

F2501540 



rf 



u 



O 



n 



n 



C 1/ 











00030 


C1B 


BSS 


100 










00174 


DOTA6 


BSS 


450 










01076 


TGTG 


BSS 


672 










02336 


OMXTGA 


BSS 


200 










02646 


ADTG 


BSS 


404 










03472 


OADTGA 


BSS 


100 










03636 


WRKSC 


BSS 


8 




03646 





00000 


00000 


TAG1 








03647 





00000 


00000 


TAG2 






M 


03650 





00000 


00000 


TAG21 






M 


03651 





00000 


00000 


TAG22 














03652 


TAG3 


BSS 


1 










03653 


TAG* 


BSS 


1 



F25O1550 
F2501560 
F2501570 
F2501580 
F2501590 
F2501600 
F2501610 
F2501620 
F2501630 
F25O1640 
F2501650 
F2501660 
F2501670 
MAN CONSTITUTES THE MAIN LINEAR FLOW THROUGH BLOCK 5. A F2501680 
SUBROUTINE PICKS A DO BETA OR ALPHA* AND THEN CONTROL IS PASSF2501690 
ED TO THE PROPER STATE* (BETA OR ALPHA)* TO COMPILE ALL THE F2501700 
INDEXING INSTRUCTIONS FOR THAT PART OF THAT DO. CONTROL IS F2501710 
RETURNED TO MAN, THIS PROCESS IS REPEATED UNTIL ALL ALPHAS F2501720 
AND BETAS IN A NEST HAVE BEEN TREATED. THE WHOLE PROCEDURE IF2501730 
IS REPEATED FOR EACH NEST AND THEN CONTROL IS PASSED TO BLOCKF2501740 



03654 





07400 


4 


04012 


MAN 


TSX 


TD0T6.4 


03655 





02000 





03740 




TRA 


MAN70 


03656 


-0 


63400 


2 


04142 




SXD 


D0GS60.2 


03657 


-0 


63400 


2 


03664 




SXD 


MAN05.2 


03660 





53400 


2 


05057 




LXA 


LMXDTG»2 


03661 


-0 


50000 





05103 




CAL 


T1MSK 


03662 





32000 


2 


01104 


MAN03 


ANS 


D0TAGZ+6.2 


03663 


1 


77767 


2 


03664 




TXI 


MAN05»2f-9 


03664 


3 


00000 


2 


03662 


MAN05 


TXH 


MAN03.2 


03665 





07400 


4 


04027 




TSX 


TTG.4 


03666 


-0 


63400 


2 


04165 




SXD 


FIND10.2 


03667 





50000 





05133 




CLA 


L(0) 


03670 





53400 


2 


05122 




LXA 


LMXTGA.2 


03671 





60100 


2 


02646 


MAN06 


STO 


MXTGA.2 


03672 


2 


00001 


2 


03671 




TIX 


MAN06.2»1 


03673 





53400 


2 


05124 




LXA 


LZEKMX»2 


03674 





60100 


2 


03636 


STO 


STO 


ADTGA.2 


03675 


2 


00001 


2 


03674 




TIX 


STO*2»l 


03676 





50000 





05133 


MAN 10 


CLA 


L(0) 


03677 





60100 





05173 




STO 


BBOX 


03700 





60100 





05230 




STO 


DOIND 


03701 





60100 





05231 




STO 


DOIND1 


03702 





60100 





05233 




STO 


SW1CH1 


03703 





50000 





05123 




CLA 


ALLONE 


03704 





60100 





05244 




STO 


VCTR 


03705 





50000 





05126 


MAN20 


CLA 


LCI) 


03706 





60100 





05222 




STO 


LOCIND 


03707 





07400 


4 


04055 




TSX 


DOGS. 4 


03710 





02000 





03731 




TRA 


MAN50 


03711 





50000 





05233 




CLA 


SWICH1 


03712 





34000 





05205 




CAS 


SWKH2 


03713 





02000 





03715 




TRA 


MAN35 



SIX. 

•♦♦a******************************************************** 
READ ONE NEST OF DOTAG 
END OF PROBLEM 
INIT. DECREMENT OF TEST. 



MASK FOR Tl WORD OF DOTAG 

Tl WORD MUST HAVE 

SOME BITS REMOVED FOR 

SXD LOCATION 

READ NEST OF TAGTAGS 

SAVE COUNT OF TAGTAGS IN NEST 

ZERO. 

INITIALIZE APPENDED TGT6 

TO. 

ZERO. 

INITIALIZE APPENDED ADTAG 

TO 

ZERO 

INITIALIZE 

INDICATORS 



INITIALIZE 
INSTRUCTION COUNTER 



SELECT BOR A 
NEST COMPLETELY 
IS APPROPRIATE 
CODING IN CORES 
NO 



ANALYZED 



F25O1750 
F25O1760 
F25O1770 
F25O1780 
F 250 1790 
F2501800 
F2501810 
F2501820 
F2501830 
F2501840 
F2501850 
F2501860 
F2501870 
F2501880 
F2501890 
F2501900 
F2501910 
F2501920 
F2501930 
F2501940 
F2501950 
F2501960 
F2501970 
F2501980 
F2501990 
F2502000 
F2502010 
F2502020 
F2502030 
F2502040 
F2502050 
F2502060 
F2502070 
F25O2080 



/ 



i/' 



03714 
03715 


02000 
07400 




4 


03720 
03763 


MAN35 


TRA 
TSX 


MAN40 
ABORM, 4 


YES 

NO. READ STATE FROM DRUM 


F2502090 
F2502100 


03716 


50000 





05233 




CLA 


SW1CH1 




F2502110 


03717 


60100 





05205 




STO 


SWICH2 




F2502120 
F2502130 


03720 


-0 53400 


2 


05230 


MAN40 


LXD 


D01ND»2 




03721 


50000 


2 


01076 




CLA 


D0TAGZ»2 




F2502140 


03722 


62200 





05224 




STD 


A 


SAVE A 


F2502150 
F2502160 


03723 


73400 


1 


00000 




PAX 


0*1 




03724 


-0 63400 


1 


05225 




SXD 


8*1 


CURRENT DO 


F2502170 
F2502180 


03725 


-0 73400 


1 


00000 


MAN45 


PDX 


0*1 




03726 


-0 75400 


1 


ooooo 




PXD 


0*1 


ACCUMULATOR, LEAVING BETA 


F2502190 


03727 


07400 


4 


05256 




TSX 


RTXAC4 




F2502200 


03730 


02000 





03705 




TRA 


MAN20 


BACK TO DOGS 


F2502210 


03731 


07400 


4 


04352 


MAN 50 


TSX 


CITSP»4 


WRITE CIT BUFFER ON TAPE 


F2502220 
F2502230 


03732 


76600 





00223 




WRS 


147 




03733 


70000 





05133 




CPY 


L(0) 


END OF RECORD INDIC 


F2502240 
F2502250 


03734 


70000 





05133 




CPY 


L(0) 




03735 


70000 





05133 




CPY 


L(0) 




F2502260 
F2502270 
F2502280 


03736 


70000 





05133 




CPY 


LCO) 




03737 


02000 





03654 




TRA 


MAN 




03740 


77000 





00223 


MAN 70 


WEF 


147 


END OF FILE FOR DO FILE 


F2502290 
F2502300 
F2502310 
F2502320 
F2502330 
F2502340 


03741 


76600 





00301 




WRS 


193 




03742 


46000 





05065 




LDA 


AD202 




03743 


70000 





05063 




CPY 


0RADS2 




03744 


70000 





05063 




CPY 


0RADS2 




03745 


76600 





00301 




WRS 


193 




03746 


70000 





05064 




CPY 


DRADS3 




F2502350 


03747 


70000 





05064 




CPY 


DRADS3 




F2502360 
F2502370 

*? ^ C f\ *% 0* A t\ 


03750 


76600 





00302 




WRS 


194 




03751 


50000 





04616 




CLA 


FC08+1 




F2502380 

r* *n ^ rt ** *% *\ s\ 


03752 


-0 32000 





05142 




ANA 


DECMSK 




F2502390 
F2502400 
F2502410 
F2502420 
F2502430 


03T53 


40000 





05061 




ADO 


L1DEC 




03754 


77100 





00021 




ARS 


17 




03755 


60100 





05214 




STO 


AD1 




03756 


70000 





05214 




CPY 


AD1 




03757 


70000 





05214 




CPY 


AD1 




F2502440 

F2502450 

TAPE F2502460 


03760 
03761 


76000 
76200 






00140 
00221 




PSE 
RDS 


96 
145 


SKIP OVER DIAGNOSTIC RECORD ON SYSTEM 


03762 


02000 





00004 




TRA 


4 


EXIT BLOCK 5. 


F2502470 














*»**#********************«**************«***«*************** F250248G 














ABDRM IS CALLED 


BY MAN TO WRITE THE PROPEER DRUM STATE8 


ALPHAF2502490 














OR BETA* INTO CORES WHEN NECESSARY. 


F2502500 


03763 


-0 63400 


4 


05223 


ABORM 


SXD 


ER0RBX»4 


STORE LINKAGE 


F2502510 


03764 


53400 


4 


05233 




LXA 


SWICH1»4 




F2502520 


03765 


53400 


2 


05132 




LXA 


L(5),2 


INITIALIZE DRUM READING ERROR COUNTERi 


F2502530 


03766 


76200 


4 


00302 


PGPG4 


RDS 


194,4 




F2502540 


03767 


5 3400 


1 


05073 




LXA 


BLKSZE,1 


■ OF INST PLUS CHECK SUM 


F2502550 


03770 


46000 


4 


05073 




LDA 


ABDRMA+1*4 




F2502560 

e* *•* c ^ f\ ^ ^ s\ 


03771 


70000 





05203 




CPY 


CHEKSM 




F2502570 


03772 


70000 


1 


07226 


PGPG8 


CPY 


RTXAC+1000,1 




F2502580 


03773 
03774 


2 00001 
50000 


1 



03772 
05133 




TIX 
CLA 


PGPG8,1»1 
LIO) 




F2502590 
F2502600 


03775 


53400 


1 


05073 




LXA 


BLKSZE,1 




F2502610 


03776 


36100 


1 


07226 


PGPG10 


ACL 


RTXAC+1000*! 




F2502620 



¥■■ 



u 



n 



O 



L'tC V 



TD 



03777 


2 


00001 


1 03776 




TIX 


PGPG10»ltl 


04000 





60200 


05202 




SLW 


ERAS 


04001 





50000 


05203 




CLA 


CHEKSM 


04002 





40200 


05202 




SUB 


ERAB 


04003 





10000 


04010 




TZE 


PGPG14 


04004 


2 


00001 


2 03766 




TIX 


PGPG4»2»1 


04005 


-3 


00000 


4 04007 




TXL 


PGPG12»4»0 


04006 





07400 


4 00004 




TSX 


DIAG*4 


04007 





07400 


4 00004 


PGPG12 


TSX 


DIAG»4 


04010 


-0 


53400 


4 05223 


PGPG14 


LXD 


ER0RBX»4 


04011 





02000 


4 00001 




TRA 


1»4 

TDOTG IS CALLED B 


04012 





53400 


1 05132 


TDOTG 


LXA 


LC5W1 


04013 





53400 


2 05057 


TD0TG1 


LXA 


LMXDT6»2 


04014 





76200 


00222 




RDS 


146 


04015 





70000 


2 01076 


TD0TG4 


CPY 


D0TAGZ.2 


04016 


1 


77777 


2 04015 




TXI 


TD0TG4»2*-1 


04017 





02000 


4 00001 




TRA 


1»4 


04020 





76600 


00333 




WRS 


219 


04021 


-0 


76000 


00012 




RTT 




04022 


b 


02000 


04024 




TRA 


TD0TG5 


04023 





02000 


4 00002 




TRA 


2*4 


04024 





76400 


00222 


TDOTG5 


BST 


146 


04025 


2 


00001 


1 04013 




TIX 


TD0TG1»1.1 


04026 





07400 


4 00004 




TSX 


DIAG»4 
***************** 

TTG IS CALLED BY 


04027 





53400 


2 05121 


TTG 


LXA 


LMXT6»2 


04030 





53400 


1 05132 


TTG01 


LXA 


L(5).l 


04031 





76200 


00224 


TTG02 


RDS 


148 


04032 


-0 


63400 


2 04043 




SXD 


TTG10»2 


04033 





70000 


2 02336 


TTG05 


CPY 


MXTGTG.2 


04034 





02000 


04037 




TRA 


TTG06 


04035 





07400 


4 00004 




TSX 


DIA6.4 


04036 





02000 


04041 




TRA 


TTG07 


04037 


2 


00001 


2 04033 


TTG06 


TIX 


TTG05»2»1 







O740O 


/i r\ f\ f\ n /i 




TSX 


OIAS*4 


©4040 


*¥ vUvUH- 


04041 





76600 


00333 


TTG07 


WRS 


219 


04042 


-0 


76000 


00012 




RTT 




04043 


-3 


00000 


04051 


TTG10 


TXL 


TTG16 


04044 


1 


00004 


2 04O45 




TXI 


TTG11*2*4 


04045 





50000 


2 02336 


TTG11 


CLA 


MXTGTG,2 


04046 





40200 


05123 




SUB 


ALLONE 


04047 





10000 


4 00001 


TTG13 


tze 


1.4 


04050 


2 


00004 


2 04030 




TIX 


TTG0l»2*4 


04051 


-0 


53400 


2 04043 


TTG16 


LXO 


TTG10»2 


04052 





76400 


00224 




BST 


148 


04053 


2 


00001 


1 04031 




TIX 


TTG02*1»1 


04054 





07400 


4 00004 




TSX 


DIAG»4 



READING ERRORt TRY AGAIN 4 TIMES* 
WHICH DRUM. 

DRUM 1 READ INCORRECTLY 5 TIMES. 
DRUM 2 READ INCORRECTLY 5 TIMES* 



♦♦a*************************************************** 
IS CALLED BY MAN TO READ IN A NEST OF DOTAG ENTRIES* 



04055 50000 05133 DOGS CLA 



LOC. OF DOTAGZ 



EF END OF PROBLEM 



ERROR 

RECORD CORRECTLY READ 
BACKSPACE AND REPEAT 
IF NOT YET READ 3 TIMES 
TAPE 4 READ INCORRECTLY 5 TIMES* 
it***************************************** 

MAN TO READ IN A NEST OF TAGTAG ENTRIES 
LOCATION OF MAX TAP TABLE SIZE 
INITIALIZE TAPE ERROR COUNTER. 

FOR ERROR BACKUP IN READING 



FALXE END OF FILE ON TAPE 4. 
END OF RECORD* CORRECT EXIT. 

BUFFER EXCEEDED. 



ERROR IN READING 
FIRST WORD LAST ENTRY 
FOR NEST END TEST 
END OF NEST INDICATOR 
END OF NEST 

TAPE ERROR ROUTINE • LOAD 

TAG TABLE INDEX AND RETRY 

UP TO 5 TIMES. 

TAPE 4 READ INCORRECTLY 5 TIMES. 

DOGS IS CALLED BY MAN TO SELECT AN ALPHA OR BETA TO BE PRO 
CESSED BY THE APPROPRIATE STATE (ALPHA OR BETA). 
L{0) INITIALIZING TO ZERO 



F2502630 
F2502640 
F2502650 
F2502660 
F2502670 
F2502680 
F2502690 
F2502700 
F2502710 
F2502720 
F2502730 
F2502740 
F2502750 
F2502760 
F2502770 
F2502780 
F2502790 
F2502800 
F2502810 
F2502820 
F2502830 
F2502840 
F2502850 
F2502860 
F2502870 
F2502880 
F2502890 
F2502900 
F2502910 
F2502920 
F2502930 
F2502940 
F2502950 
F2502960 
F2502970 
F2502980 
F2502990 
F2503OOO 
F2503010 
F2503020 
F2503030 
F2503040 
F2503050 
F2503060 
F2503070 
F2503080 
F2503090 
F2503100 
F2503110 
F2503120 
F2503130 
F2503140 
F2503150 
F2503160 



vl 



04056 





60100 





05224 




STO 


A 


04057 





60100 





05225 




STO 


B 


04060 





60100 





05226 




STO 


SWICH 


04061 





60100 





05227 




STO 


TEBBOX 


04062 


-0 


53400 


1 


05231 




LXO 


DOIND1.1 


04063 


-3 


00000 


1 


04072 




TXL 


DOGS20*1 


04064 





50000 





05233 




CLA 


SWICH1 


04065 


-0 


10000 





04072 




TNZ 


DOGS 20 


04066 





50000 


1 


01103 




CLA 


D0TAGZ+5.1 


04067 


-0 


73400 


1 


00000 




PDX 


0*1 


04070 


3 


00001 


1 


04072 




TXH 


DOGS20.1.1 


04071 





02000 


4 


00001 




TRA 


1.4 


04072 





53400 


1 


05057 


DOGS20 


LXA 


LMXDTG.l 


04073 





50000 





05226 


D06S22 


CLA 


SWICH 


04074 


-0 


10000 





04104 




TNZ 


DOGS25 


04075 





50000 


1 


01076 




CLA 


DOTAGZ*! 


04076 


-0 


32000 





05136 




ANA 


B1T1 


O4077 


-0 


10000 





04134 




TNZ 


DOGS50 


04100 





50000 


1 


01076 




CLA 


DOTAGZ. 1 


04101 


-0 


73400 


2 


00000 




PDX 


0*2 


04102 


-0 


63400 


2 


05225 




SXD 


B.2 


04103 





02000 





04114 




TRA 


DOGS30 


04104 





50000 


1 


01076 


D0GS25 


CLA 


DOTAGZ »1 


04105 


-0 


32000 





05137 




ANA 


BIT2 


04106 


-0 


10000 





04134 




TNZ 


DOGS50 


04107 





50000 


1 


01076 




CLA 


DOTAGZ »1 


041)0 


-0 


73400 


2 


00000 




PDX 


0*2 


04111 


-0 


63400 


2 


05224 




SXD 


A. 2 


04112 





73400 


2 


00000 




PAX 


0*2 


04113 


-0 


63400 


2 


05225 




SXD 


B»2 


04114 





50000 





05225 


DOGS30 


CLA 


B 


04115 





34000 





0522? 




CAS 


TEBBOX 


04116 





02000 





0*125 




TRA 


00GS45 


04117 





02000 





04121 




TRA 


DOGS40 


04120 





02000 





04134 




TRA 


DOGS50 


04121 





50000 





05232 


DOGS40 


CLA 


TEABOX 


04122 





34000 





05224 




CAS 


A 


04123 





02000 





04134 




TRA 


D0GS50 


04124 





07400 


A 


00004 




TSX 


DIAG.4 


04125 





50000 





05224 


D0GS45 


CLA 


A 


04126 





60100 





05232 




STO 


TEABOX 


04127 





50000 





05225 




CLA 


B 


04130 





60100 





05227 




STO 


TEBBOX 


04131 


-0 


63400 


1 


05231 




SXD 


D0IND1*! 


04132 





50000 





05226 




CLA 


SWICH 


04133 





60100 





05233 




STO 


SWICH1 


04134 





50000 





05226 


D06S50 


CLA 


SWICH 


04135 





40200 





05126 




SUB 


L(l) 


04136 





76000 





00003 




SSP 




04137 





60100 





05226 




STO 


SWICH 


04140 


-0 


10000 





04142 




TNZ 


D0GS60 


04141 


1 


77767 


1 


04142 




TXI 


DOGS60»l»-9 


04142 


3 


00000 


1 


04073 


DOGS60 


TXH 


D0GS22»1 


04143 


-0 


53400 


1 


05231 




LXD 


D0IND1»1 



ALL CALLS REQUIRED FOR 
COMPARISON FOR EACH DO 



IF LEVEL OF LAST 



ANALYZED DOTAG ENTRY 

IS ONE THEN THE NEST 

HAS BEEN COMPLETELY 

ANALYZED. IF NOT 

START SCAN AT FIRST ENTRY 

B PORTION UNDER CONSIDERATION 
A PORTION UNDER CONSIDERATION 

CONTINUE* ALREADY ANALYZED 

SETS UP A PORTION OF 

DO FOR COMPARISON 

PUT A OF DO IN INDICATOR B 

PROCEED T/ COMPARISON 

B PORTION UNDER CONSIDERATION 

MASK TO INDICATE LOOKED AT 

ALREADY ANALYZED. CONTINUE 

SET UP A IN 

B WORD FOR COMPARISON 



T-Bl STORE B IN TEBBOX 
T=B1 COMPARE AS 
T-Bl CONTINUE 
CONPARE AS 

T-A CONTINUE 

T=A. ERROR. 

T-A STORE B IN TRBBOX 



RECORD THE DO POSITION 
RECORD SWITCH 

REVERSE SWITCH FOR 
EITHER B OF SAME DO OR 
A OF NEXT DO 

TESTS A.B STATUS IF A 
LOWERS INDEX FOR NEXT DO 

END OF SCAN 



F25O3170 

F2503180 

F2503190 

F2503200 

F2503210 

F2503220 

F2503230 

F2503240 

F2503250 

F2503260 

F2503270 

F2503280 

F25O3290 

F2503300 

F25O3310 

F2503320 

F2503330 

F2503340 

F2503350 

F2503360 

F2503370 

F2503380 

F2503390 

F2503400 

F2503410 

F2503420 

F25O3430 

F2503440 

F2503450 

F2503460 

F2503470 

F2503480 

F2503490 

F2503500 

F2503510 

F2503520 

F2503530 

F250354O 

F2503550 

F2503560 

F2503570 

F2503580 

F2503590 

F2503600 

F2503610 

F2503620 

F2503630 

F2503640 

F2503650 

F2503660 

F2503670 

F2503680 

F2503690 

F2503700 



'a'« 



o 



n 



O 



04144 


-0 


63400 


1 


05230 




04145 





53400 


2 


05233 




04146 





50000 





05136 




04147 


-3 


00000 


2 


04151 




0*150 





T7100 





00001 




04151 


-0 


60200 


1 


01076 


DOGS 70 


04152 





02000 


4 


00002 





04153 
04154 
04155 
04156 
04157 
04160 
04161 



53400 
50000 
34000 
00004 
07400 
77774 
02000 



05121 
05225 
02336 
04161 
00004 
04154 
00001 



04162 
04163 
04164 
04165 
04166 
04167 
04170 
04171 
04172 
04173 
04174 
04175 
04176 
04177 
04200 
04201 
04*^2 
04203 



-0 63400 



53400 

77774 

00000 

-0 53400 

02000 

50000 

34000 

02000 

76100 

07400 

07400 

-3 00000 

-0 75400 

77100 

60100 

-Q 5340D 

02000 



-0 
1 
3 












04176 
05237 
04165 
04170 
04176 
00001 
05224 
02336 
04166 
00000 
4 04213 
4 04204 
04164 
0000© 
00022 
05240 
04476 
00002 



5 CAN 
SCAN 05 



SCAN10 



FIND 

F1NDQ4 
FIND10 



SXD DOIND.l DO INDICATOR SET Kf2??iS 

LXA 5WICHlt2 F2503720 

CLA BIT1 ORDER TO PLACE BIT IN F2503730 

TXL DOGS70#2,0 A OR B USED "!°" 4 ? 

ARS 1 INDICATOR POSITION F25Q375G 

ORS DOTAGZ.l llllll%l 

TRA 2.4 EXIT AFTER FINDING DO F2503770 

«*****#*#**********»********»**************»***************** F 2503780 

SCAN SCANS TA6TAG FOR THE FIRST ENTRY THAT IS MODIFIED BY A DF2503790 

DO WHOSE ALLPHA IS LESS THAT THE CURRENT DOTAG BETA. F25O38O0 

THIS TAG IS CALLED RTXTGX. F2503810 

LXA LMXTG.l COMPARE B WITH OOFOR F2503820 

CLA B DOTAG A OF EACH TA6TAG F2503830 

CAS MXTGTG.l ENTRY IN NEST £ 2 !? 384 ? 

TXI SCAN10.1.4 SEARCH COMPLETED. F2503850 

TSX DIAG.4 EQUALITY IMPOSSIBLE. F2503860 

TXI SCAN05*l»-4 G LESS THAN A. F2503870 

TRA 1»4 F2503880 

***************** *#**#****i*********»***********»************P2503890 

FIND* BEGINNING WITH RTXTGX. SEARCHES FOR A TAGTAG ENTRY M0DIF2503900 



F1ED BY THE CURRENT DO. 
SXD FIND22.4 
LXD XTG.l 
TXI FIND10.1.-4 
TXH FIND20.1 



BUMP TO NEXT TGTG ENTRY. 
DECREMENT CONTAINS TGTG COUNT. 



LXD F1ND22.4 
TRA 1.4 

FIND20 CLA A 

CAS MXTGTG.l 

TRA FIND10+1 

NOP 

TSX T6FM.4 

TSX ISC.4 

FIND22 TXL FIND04.0 
PXD 0*2 
ARS 18 
STO POSIND 
LXD F1ND22.4 
TRA 2.4 



END OF TGTG TABLE AND DO. 
COMPARE D0TA6A WITH 
TGTG DOFOR DOTAG A. 
END OF DO. 



P0SIND=3 IF LEFTMOST SYMBOL. 

2 IF CENTER. 

1 IF RIGHTMOST. 



F2503910 
F250392O 
F2503930 
F2503940 
F2503950 
F2503960 
F2503970 
F2503980 
F2503990 
F2504000 
F2504010 
F2504020 
F2504030 
F2504040 
F2504050 
F2504060 
F2504070 
F25O40B0 
F2504090 



04204 
04205 
04206 
04207 
04210 

04211 -3 

04212 



53400 
50000 
40200 
10000 
00001 
00003 
02000 



05126 
05230 
03652 
00002 
04211 
04205 
00001 



ISC 



SUCCESSFUL SEARCH. 
***#«******************************************************** F 2504100 

ISC IS CALLED BY FIND TO TEST FOR MODIFICATION. F2504110 

LXA LU)»2 COMPARE SUBSCRIPT F2504120 

CLA DOIND WITH THE INDEX F2504130 

SUB TAG2+3.2 OF THE CURRENT DO. F2504140 

TZE 2.4 CURRENT DO MODIFIES THIS TAG. F2504150 

TXI ISC+5,2.1 TRY NEXT LEFT F2504160 



TXL ISC+1.2.3 



04213 50000 1 02336 

04214 62200 03646 

04215 73400 2 00000 



TGFM 



SUBSCRIPT. F2504170 

TRA 1,4 NO MODIFICATION. ERROR RETURN. F2504180 
***************************************************** ********F2504 190 

TGFM TAKES A TAG ENTRY AND STORES ITS INFORMATION INTO F2504200 

WORKING TGTG. F2504210 

CLA MXTGTG.l 111^11° 

STD TAG1 IN WORKING TGTG. F2504230 

PAX 0.2 A, XI, X2, X3, TG, TGI. F2504240 



>') 



04216 
04217 
04220 
04221 
04222 
04223 
04224 
04225 
04226 
04227 



04230 
04231 
04232 
04233 
04234 
04235 



04236 
04237 
04240 
04241 
04242 
04243 
04244 
04245 
04246 
04247 
04250 
04251 
04252 
04253 
04254 
04255 
04256 
04257 
04260 
04261 
04262 
04263 
04264 
04265 
04266 
04267 
04270 
04271 
04272 
04273 
04274 
04275 
04276 
04277 



63400 
50000 
62200 
73400 
63400 
50000 
60100 
50000 
60100 
02000 



53400 
50000 
60100 
50000 
60100 
02000 



63400 
53400 
60100 
76200 
53400 
75400 
60100 
00001 
50000 
76500 
73400 
75400 
7630O 
60100 
76700 
60100 
50000 
40000 
40000 
00001 
62100 
46000 
70000 
00002 
70000 
70000 
00001 
70000 
00002 
70000 
70000 
70000 
53400 
50000 



03647 
02337 
03650 
00000 
03651 
02340 
03652 
02341 
03653 
00001 



2 05230 
2 01077 
03637 
05061 
03636 
4 00O01 



ENTR 



04320 
05132 
04331 
00304 
04326 
00000 
03646 
04244 
04331 
00011 
00000 
00000 
00011 
04327 
00001 
04330 
04327 
04327 
04330 
04260 
04327 
04327 
03636 
04267 
03642 
03637 
04275 
03641 
04274 
03643 
03644 
04327 
04324 
03636 



SUBCOM 
SUB010 
SUB020 



SUB030 



SUB040 



SUB050 
SUB060 



sxd 

CLA 
STD 
PAX 
SXD 
CLA 
STO 
CLA 
STO 
TRA 



LXO 
CLA 
STO 
CLA 
STO 
TRA 



SXD 
LXA 
STO 
RDS 
LXO 
PXD 
STO 
TIX 
CLA 
LRS 
PAX 
PXD 
LLS 
STO 
ALS 
STO 
CLA 
ADD 
ADD 
TIX 
STA 
LDA 
CPY 
TXL 
CPY 
CPY 
TXL 
CPY 
TXL 
CPY 
CPY 
CPY 
LXD 
CAL 



TAG2»2 

MXTGTG+1.1 

TAG2+1 

0*2 

TAG2+2*2 

MXTGTG+2*! 

TAG3 

MXTGTG+3»1 

TAG4 

1»4 



F2504250 
F2504260 
F2504270 
F250428O 
F250429O 
F2504300 
F2504310 
F2504320 
F2504330 
F2504340 



************* **********************************#*************F 2504350 
ENTR SIMULATES A TAU ENTRY AND SPREADS IS INTO WORKING TAG — (F2504360 
D0IND»2 SYMBOL OF DO IS F2504370 

00TAGZ+1»2 PLACED IN WRKSC F25043S0 

WRKSC+1 AND COEF. IS SET F2504390 

L1DEC *1# THIS SIMULATES F250440G 

WRKSC A TAU TABLE ENTRY. F2504410 

X,4 F2504420 

*********#***»**************»*********»**********************F 2504430 



SUBCOM SPREADS A TAU ENTRY INTO WORKING TAG 



SUB085*4 

L<5)»1 

SUBTAG 

196 

SUB0RG+2»4 

0*0 

WRKSC+8*4 

SUB020»4»1 

SUBTAG 

9 

0*6 

0.0 

9 

SUBES1 

1 

SUBES2 

SUB0RG+3*4 

SUBES1 

SUBES2 

SUB03Q*4»1 

SUBES1 

SUBES1 

WRKSC 

SUB040*2*2 

WRKSC+4 

WRKSC+1 

SUB060*2*1 

WRKSC+3 

SUB050»2.2 

WRKSC+5 

WRKSC+6 

SUBES1 

SUB0RG»4 

WRKSC 



SAVE LINKAGE. 



SELECT TAU DRUM. 

INITIALIZE 

SUBSCRIPT COMBINATION. 

TO ZERO. 



TAU 1*2# OR 3. 

TAU 1 ADD. IS 0RG+3TAU. 

TAU2 ADD. IS 0RG+5TAU. 

TAU THREE ADD. IS 0RG+7TAU. 

STORE 

ADRRESS 

FOR LDA 
INSTRUCTION. 

ACTUAL DRUM ADDRESS. 

COPY SUB. COMBINATION 

WD1 IS CI AND C2. 

1 AND 2 DIM SKIP WD5. 

WD5 IS C3. 

WD2 IS SI. 

1 DIM.* SKIP WDS 4.6*7. 

WD4 IS S2. 

1 AND 2 DIM SKIP WD 6. 

WD6 IS S3. 

WD7 IS DIMENSION. 

CHECK SUM INTO SUBES1. 

COMPUTE CHECK SUM. 



F2504440 

F2504450 

F2504460 

F2504470 

F2504480 

F2504490 

F2504500 

F2504510 

F2504520 

F2504530 

F2504540 

F2504550 

F2504560 

F2504570 

F2504580 

F2504590 

F2504600 

F2504610 

F25O4620 

F2504630 

F 2504640 

F2504650 

F2504660 

F2504670 

F2504680 

F2504690 

F2504700 

F2504710 

F2504720 

F2504730 

F2504740 

F2504750 

F2504760 

F2504770 

F2504780 



W 



u 



o 



n 



o 



UC V 



A 
A 



04300 
04301 
04302 
04303 
04304 
04305 
04306 
04307 
04310 
04311 
04312 
04313 
0431* 
04315 
04316 
04317 
04320 
04321 
04322 
04323 
04324 
04325 
04326 
04327 
04330 
04331 




2 





2 




36100 4 03645 

00001 4 04300 

60200 04330 

50000 04330 

40200 C4327 

10000 04310 

00001 1 04241 

07400 4 00004 

-0 53400 4 04325 

50000 4 03645 

73400 2 00000 

-0 32000 05142 

60100 4 03645 

-0 75400 2 00000 

-2 00006 4 04321 

60100 03640 

-3 00000 04311 

60100 03645 

-0 53400 4 04320 

02000 4 00001 

+000006001356 

+000007000454 

+000010000000 

00000 00000 

00000 00000 

00000 00000 



SUB070 



04332 
04333 
04334 
04335 
04336 
04337 
04340 
04341 
©4342 
04343 
04344 




O 






50000 
10000 
50000 
60100 
50000 
-0 10OOO 
50000 
60100 
O 4000O 
60100 
02000 



05222 
00001 
05133 
05222 
05176 
00001 
05244 
05176 
O 05110 
05244 
2 00001 



04345 


-0 


63400 


1 


05174 


04346 


-0 


63400 


2 


05175 


04347 





07400 


2 


04332 


04350 


-0 


53400 


2 


05173 


04351 


3 


77634 


2 


04362 


04352 


-0 


53400 


2 


05173 


04353 


-3 


00000 


2 


04362 


04354 





76600 





00223 


04355 





53400 


1 


05133 


04356 





70000 


1 


00030 



SUB075 
SU8080 



SUB085 
SUBO90 

SUB 100 
SUBORG 



SUBES1 
SUBES2 
SUBTAG 



LOCO 



ACL 
TIX 
SLW 
CLA 
SUB 
TZE 
TIX 
TSX 
LXD 
CLA 
PAX 
ANA 
STO 
PXD 
TNX 
STO 
TXL 
STO 
LXD 
TRA 
OCT 
OCT 
OCT 
HTR 
HTR 



CLA 
TZE 
CLA 
STO 
CLA 
TNZ 
CLA 
STO 
ADO 
STO 
TRA 



F2504790 
F250480G 
F250481O 
F2504820 
F2504830 
F2504840 
F25Q4850 
F2504860 
F2504870 
F25048S0 
F2504890 
F2504900 
F2504910 
F2504920 
F25Q4930 
F2504940 
F2504950 
F2504960 
F2504970 
F2504980 
F2504990 
F2505OOO 
F2505010 
F2505020 
F2505030 
F2505040 
*#***«*»*************«************************* **************f 2505050 
LOCO ASSIGNS A RELATIVE LOCATION (INSTRUCTION NUMBER). AND UPF2505060 
DATES A COUNTER FOR THE NEXT ASSIGNMENT. F2505070 

LOCIND F2505080 

1,2 LOCATION ALREADY ASSIGNED. F2505090 

L(0) IF LOCIND GREATER F2505100 

LOCIND F2505U0 

CILOO TO ZERO. F2505120 

1,2 IF CILOO HAS NOT BEEN F2505130 

VCTR F2505140 

CILOO UPDATE VCTR. F2505150 

t{#) F 2 505 460 

VCTR F2505170 

1,2 START COMPARING BUFFER F2505180 

»******«**********************************************«******F25Q5190 
CIT ENTERS A COMPILED INSTRUCTION INTO THE COMPILED INSTRUCTIF2505200 
ION BUFFER. IF THE BUFFER IS FULL. CITSP (WHICH IS PART OF CF2505210 
CIT) WRITES IT ONTO TAPE 3. F2505220 



WRKSC+7.4 

SUB070.4.1 

SUBES2 

SUBES2 

SUBES1 

SUB075 

SUBG10»1.1 

DIAG.4 

SUBORG+1.4 

WRICSC+7.4 

0*2 

DECMSK 

WRKSC+7.4 

0.2 

SUB090»4»6 

WRKSC+2 

SUB080.0 

WRKSC+7 

SUB085.4 

1.4 

000006001356 

000007000454 

000010000000 



3 ATTEMPTS ARE MADE 
TO READ SC CORRECTLY. 
IF ERROR STILL PRESENT. 
COMPLETE ROUTINE. RETURN. 
CHECK, SUMS AGREE. TRA. 
ERROR. TRY VP TO 5 TIMES. 
DRUM 4 READING ERROR 5 TIMES. 
REARRANGE C1.C2.D1. AND D2. 

C2 INTO XB. 

WD1 DECREMENT IS CI) 
WD7 DECREMENT IS Dl. 



WD8 DECREMENT IS D2. 
RESTORE LINKAGE INDEX. 

DECREMENT IS 6. ADD. IS ORG. TAU3. 
DECREMENT IS 7. ADD. IS ORG. TAU2 
DECREMENT IS 8. ADD. IS ORG. TAU1 



CIT 



CUSP 



CIT01 



SXD 


E2C.1 


SXD 


E3C.2 


TSX 


LOCO. 2 


LXD 


BB0X.2 


TXH 


CIT04.2.-100 


LXD 


8B0X.2 


TXL 


CIT04.2.0 


WRS 


147 


LXA 


L(0).l 


CPY 


CIB.l 



SIZE TO CURRENT WORD COUNT. 



COMP OF CURRENT WORD COUNT. 
IF BUFFER INITIALLY 

WRITE 
BUFFER 
ON TAPE 3. 
COPY LOOP. 



F2505230 
F 2505 240 
F2505250 
F2505260 
F2505270 
F2505280 
F2505290 
F25053O0 
F2505310 
F2505320 



5* 



04357 
04360 
04361 
04362 
04363 
04364 
04365 
04366 
04367 
04370 
04371 
04372 



04373 
04374 
04375 
04376 
04377 
04400 
04401 
04402 
04403 
04404 
04405 



04406 
04407 
04410 
04411 
04412 
04413 
04414 
04415 
04416 
04417 
04420 
04421 
04422 



04423 
04424 
04425 
04426 
04427 
04430 
04431 
04432 
04433 



77777 

00001 
00001 
53400 
50000 
60100 
77777 
00001 
63400 
53400 
53400 
02000 









-0 



-0 

-3 







2 



56000 
76300 
00002 
20000 
40200 
02000 
00001 
20000 
40200 



53400 

53400 

63400 

00000 

53400 

53400 

63400 

00000 

53400 

75400 1 

02000 4 



53400 
50000 
60100 
63400 
50000 
73400 
00000 
07400 
40000 
60100 
00001 
-0 53400 
02000 



04360 
04361 
04356 
05130 
05202 
00030 
04366 
04363 
05173 
05174 
05175 
00001 



03647 
03650 
04376 
04400 
04376 
03651 
04402 
04404 
04402 
00000 
00001 



05131 
05133 
05245 
05236 
03652 
00000 
04416 
04423 
05245 
05245 
04412 
05236 
00001 



CIT02 
CIT03 
CIT04 
CIT05 



C1T07 



SCLMN1 

SCLMN2 
SCLMN3 
SCLMN4 
SCLMN5 



TELC 



TELC05 



TELC10 



01100 
00022 
04431 
03636 
05127 
04445 
04437 
03640 
05127 



CN1IJ 



CN1IJ2 



TXI 
TXI 
TXH 
LXA 
CLA 
STO 
TXI 
TIX 
SXD 
LXO 
LXD 
TRA 



LXD 
LXD 
SXD 
TXH 
LXD 
LXD 
SXD 
TXH 
LXD 
PXD 
TRA 



LXA 
CLA 
STO 
SXD 
CLA 
PDX 
TXL 
TSX 
ADD 
STO 
TIX 
LXD 
TRA 



LDQ 
LLS 
TXL 

MPy 

SUB 
TRA 
TXL 
MPY 
SUB 



F2505330 
F2505340 
F2505350 
F2505360 
F2505370 
F2505380 
F2505390 
F2505400 
F2505410 
F2505420 
F2505430 
F2505440 
********* *#************************************************»*F 2505450 
SCLMN1 ISOLATES THE INNERMOST DOTAG CONTROLLING A GIVEN TAG. F2505460 
TAG2»1 SI INDEX QUANTITY. F2505470 

TAG2+lf2 S2 INDEX QUANTITY. F2505480 



CIT02tl»-l 

CIT03.2.1 

CIT01»2»1 

L(4)*l 

CIL00+4*1 

CIB.2 

CIT07»2t-l 

CIT05»lil 

BB0X»2 

E2C»1 

E3C»2 

1»4 



DROP WORD COUNT. 
TEST FOR BUFFER ONE. 
PROCEED TO NEW 
INST INTO BUFFER. 

K.EEP WORD COUNT UPDATED. 

SAVE CURRENT WD CT. 



SCLMN2»2 

SCLMN3»1 

SCLMN2.1 

TAG2+2»2 

SCLMN4t2 

SCLMN5»1 

SCLMN4»1 

Osl 

lt4 



THIS ROUTINE 

COMPARES SIZES 

OF THE INDEX 

QUANTITIES OF 

EACH SUBSCRIPT IN A TAG. 

LARGEST 2.X. QUANTITY 

IS FOUND AND LEFT IN 

ACC FOR COMPARISON WITH DOIND. 



F2505490 
F2505500 
F2505510 
F2505520 
F2505530 
F2505540 
F2505550 
F2505560 
F2505570 



»***#*****#****************#*********************************F25Q5580 
TELC MONITORS THE COMPUTING OF THE LOAD PORTION OF THE TEST F2505590 



DECREMENT. 

L<3)*1 

L(0) 

ERTX01 

LINKC»4 

TAG2+3.1 

0*2 

TELC10-2»2.0 

CN1IJ?4 

ERTX01 

ERTX01 

TELC05.1.1 

LINK04 

1»4 



SEQUENCE. PUT S IN X8 TO PREPARE 
FOR CN1IJ ROUTINE. 
NO S. GO TO NEXT S« 
COMPUTE (CN1-DIJ ETC. 

{C1N1)+(C2N1-1JD1+IC3N1-1)D1D2. 
GO TO NEXT S FOR CN1IJ ROUTINE. 



F2505600 
F2505610 
F2505620 
F2505630 
F2505640 
F2505650 
F2505660 
F2505670 
F2505680 
F2505690 
F2505700 
F2505710 
F2505720 
F2505730 



»*#***JHt******-»»***************a**«'************»******«******F2505740 
CN1IJ COMPUTES THE LOAD VALUE FOR A GIVEN SUBSCRIPT IN A F2505750 
SUBSCRIPT COMBINATION. (ClNl-l)i OR (C2N1-1JD1 F2505760 



(C3N1-1JD1D2. 

DOTAGZ+2«2 

18 

CN1IJ2»1.2 

WRXSC 

L(2I 

CN1U8 

CN1IJ4»1»1 

WRKSC+2 

L(2) 



N2 INTO MQ. 



S2 OR S3» 
SI. 



DIVIDE BY 

S2 

COMPUTE 



TRANSFER. 



2 AND RETURN. 



F2505770 
F2505780 
F2505790 
F2505800 
F2505810 
F2505820 
F25Q5830 
F2505840 
F2505850 
F2505860 



r>^ 



o 



n 



r\ 



uc v 



04434 
04435 
04436 
04437 
04440 
04441 
04442 
04443 
04444 
04445 
04446 



04447 
04450 
04451 
04452 
04453 
04454 
04455 
04456 
04457 
04460 
04461 
04462 
04463 
04464 
04465 
04466 
04467 
04470 
04471 



76500 
20O00 
02000 
20000 
40200 
76500 
20000 
76500 
20O0O 
77100 
02000 



50000 
32000 
60100 
00001 
56000 
02000 
00002 
56000 
02000 
56000 
20000 
00002 
76500 
20000 
00001 
76500 
20000 
76300 
02000 



00022 
03644 
04445 
03642 
05127 
00022 
03644 
00022 
03645 
00001 
00001 



01103 
05141 
05247 
04455 
03642 
04461 
04460 
03636 
04461 
03640 
05247 
04470 
00022 
03644 
04470 
00022 
03645 
00021 
00001 



CN1IJ4 



CN1IJ8 



LRS 
MPY 
TRA 
MPY 
SUB 
LRS 
MPY 
LRS 
MPY 
ARS 
TRA 



18 

WRKSC+6 

CN1IJ8 

WRKSC+4 

L(2) 

18 

WRKSC+6 

18 

WRKSC+7 

1 

1»4 



C2C2N1~2)D1D2 THEN 

GO TO CN1IJ8 TO DIVIDE 

BY 2 AMD RETURN* 

S3* 

COMPUTE 

(2C3N1-2JD1D2 THEN 

60 TO CN1IJ8 TO DIVIDE 

DIVIDE BY 2 AND 

RETURN. 

DIVIDE BY 2« RESULT IS (CiNl-lJ 

OR (C2N1~1)D1 OR K3N1-1JD1D2. 



F2505870 
F2505880 
F2505890 
F25QS900 
F2505910 
F25C5920 
F2505930 
F2505940 
F25Q595G 
F2505960 
F2505970 



«#*##***#**#**«****************#*************4f***********###*F2505980 
CXIJ COMPUTES GN3X. WHEN THE ROUTINE CXIJ+2 IS CALLED* F250599O 
6Q IS COMPUTED. Q BEING WHATEVER PARAMETER IS LEFT IN THE ACCF2506000 



CXIJ 



CXIJ1 
CXIJ2 



CXIJ4 



CLA 
ANA 
STO 
TXH 
LDQ 
TRA 
TXL 
LDQ 
TRA 
LDQ 
MPY 
TXH 
LRS 
MPY 
TXH 
LRS 
MPY 
LLS 
TRA 



F2506010 
F2506020 
F250603O 
F2506040 
F250605O 
F2506060 
F2506070 
F2506O8O 
F25O609O 
F2506100 
F2506110 
F2506120 
F2506130 
F2506140 
F2506150 
F2506160 
F2506170 
F2506180 
F2506190 
IN ACC. AND RETURN. F2506200 

««***«****************«************************************<*F2506210 
CSXD COMPILES AN SXD INSTRUCTION WHERE THE ADDRESS IS NOT YETF2506220 
KNOWN. BUT IS KNOWN TO BE THE TEST FOR A 6IVEN DO. THE F2506230 
ADDRCS5 WORD IS FRLE& tN WITH THAT DOTAG ALPHA-BETA AND THE F25O5240 
LOCATION OF THE SXD IS STORED IN THAT DOTAG SO THAT A TABLE (F25O6250 
{SXDTXJ MAY BE MADE FOR REFERENCE BY SECTION 3 TO FILL IN THEF2506260 
PROPER ADDRESS DURING MERGE. F2506270 



BY THE CALLER. 

DOTAGZ+5»2 

ADMSK 

ERTX03 

CXIJ+6.1.1 

WRKSC+4 

CXIJ2 

CXIJ1.1.2 

WRKSC 

CXIJ2 

WRKSC+2 

ERTX03 

CXIJ4.1.2 

18 

WRKSC+6 

CXIJ4.1.1 

18 

WRKSC+7 

17 

1*4 



ISOLATE X QUANTITY. 

S2 OR SI* 
S3* LOAD C3. 

S2. 

SI* LOAD CI. 

S2» LOAD C2. 

IF SI* FINISHED. 

CX TIMES Dl. 

IF S2» FINISHED. 

CXD1 TIMES D2. 



04472 


-0 


63400 


4 


05245 CSXD 


SXD 


ERTX01»4 


04473 





07400 


4 


06224 


• TSX 


CILV.4 


04474 





50000 





05133 


CLA 


L(0) 


04475 





60100 





05201 


STO 


CIL03 


04476 





60100 





05200 


STO 


CIL02 


04477 


-0 


53400 


4 


05250 


LXD 


BLKNUM»4 


04500 


-3 


00002 


4 


04503 


TXL 


CSXD4»4»2 


04501 


-0 


53400 


4 


03650 


LXD 


TAG21.4 


04502 





02000 





04504 


TRA 


CSXD4+1 


04503 


-0 


53400 


4 


03647 CSXD4 


LXD 


TAG2*4 


04504 





50000 


4 


01076 


CLA 


D0TAG2*4 


04505 


-0 


32000 





05071 


ANA 


NOPRET 


04506 





60100 





05200 


STO 


CIL02 



ROUTINE FOR 
COMPILING AN 
SXD INSTRUCTION 
WHERE THE 



BLOCKS B»C. 

BLOCKS D»E» LOAD S2 INDEX. 

BLOCKS B»C* LOAD SI INDEX. 
FOR BLOCKS B*C* FILL IN 
SYMBOLIC ADDRESS OF SXD 
FROM WD1 OF SI DOTAG. 



F2506280 
F2506290 
F2506300 
F2506310 
F2506320 
F2506330 
F2506340 
F2506350 
F2506360 
F2506370 
F2506380 
F2506390 
F2506400 



04507 
04510 
04511 
04512 
04513 
04514 
04515 



04516 
04517 
04520 
04521 
04522 
04523 
04524 
04525 
04526 
04527 
04530 
04531 
04532 
04533 
04534 
04535 
04536 
04537 
04540 
04541 
04542 
04543 
04544 
04545 
04546 
04547 
04550 
04551 
04552 
04553 
04554 
04555 
04556 
0*557 



04560 
04561 
04562 
04563 
0456* 
04565 
04566 



50000 
62100 
50000 
60100 
07400 
53400 
02000 



53400 
77774 

63400 
00000 
02000 
50000 
32000 
34000 
02000 
02000 
02000 
34000 
02000 
07400 
50000 
73400 
63400 
73400 
63400 
50000 
73400 
63400 
73400 
63400 
50000 
60100 
50000 
60100 
53400 
50000 
40200 
10000 
00002 
00001 



50000 
77100 
32000 
76700 
60100 



53400 1 
50000 1 



03652 
05201 
05045 
05177 
04345 
05245 
00001 



05237 
04520 
05237 
04523 
00001 
03466 
05142 
05224 
04531 
04531 
04517 
05225 
04517 
00004 
03466 
00000 
03646 
00000 
03647 
03467 
00000 
03650 
00000 
03651 
03470 
03652 
03471 
03653 
05126 
03652 
05230 
00002 
04517 
04553 



03653 
00003 
05076 
00003 
05254 
05131 
03652 



ADTGSE 
ADTGS 

ADTGS1 

ADTGS5 



ADTGS4 



ADTGS8 



N1STET 



N1S02 



CLA 
STA 
CLA 
5T0 
TSX 
LXD 
TRA 



LXD 
TXI 
SXD 
TXH 
TRA 
CLA 
ANA 
CAS 
TRA 
TRA 
TRA 
CAS 
TRA 
TSX 
CLA 
PDX 
SXD 
PAX 
SXD 
CLA 
PDX 
SXD 
PAX 
SXD 
CLA 
STO 
CLA 
STO 
LXA 
CLA 
SOB 
TZE 
TXH 
TXI 



CLA 
ARS 
ANA 
ALS 
STO 
LXA 
CLA 



TAG3 

CIL03 

L{SXD> 

CIL01 

CIT»4 

ERTX01.4 

1»4 



NOT KNOWN. 



F2506410 
F2506420 
F2506430 
F2506440 
F2506450 
F2506460 
F2506470 



♦♦♦•a************************************************ »«*«****F2506480 
ADTGSE FINDS A VALID DRMTG IADTAG) ENTRY FOR CONSIDERATION F2506490 



AND SPREADS IT INTO WORKING TAG IWRKSC). 

XTG»1 

ADTGS+l»l»-4 

XTG*1 

ADTGS5tl 

1»4 

ADTGMXtl 

DECMSK 

A 

ADTGS4 

ADTGS4 

ADTGS 

B 

ADTGS 

DIAG.4 

ADTGMX»1 

0*2 

TAG1.2 

0*2 

TAG2.2 

ADTGMX+1*1 

0»2 

TAG2+1»2 

0*2 

TAG2+2»2 

ADTGMX+2»1 

TAG3 

ADTGMX+3.1 

TAG4 

L{1).2 

TAG2+3.2 

DOIND 

2.4 

ADTGS»2»2 

ADTGS8+1.2.1 



END OF TABLE. 
COMPARE ADTG DDA WITH 
DOTAG A AND B UNTIL 
WE FIND AN ADTAG 
MODIFIED BY A DO THAT 
IS WITHIN THE RANGE 
OF THE CURRENT DO 

NOT IN RANGE* SELECT NEXT. 

EQUALITY IMPOSSIBLE. 

IN RANGE* FILL 

OUT WORKING TAG. 

DDA IN TAG1 DECREMENT. 

SI INDEX IN TAG2. 



52 INDEX IN TAG2+1. 

53 INDEX IN TAG2+2. 

TAG NAME IN TAGS. 

ADTG WD4 IN TAG4. 
INIT FOR POSING. 



TEST FOR MODIFICATION. 

PROPER ENTRY FOUND. 

NOT MOD BY DO* TAKE NEXT SUBSCRIPT. 

ADTG NOT MOD BY DO. TAKE NEXT ADTG. 
***»*«*******************************************************F2506850 
N1STET ISOLATES VARIABLE Nl BITS FOR A TAG AND ORS THEM TO LF2506860 



F2506500 

F2506510 

F2506520 

F2506530 

F2506540 

F2506550 

F2506560 

F25O6570 

F2506580 

F25O6590 

F2506600 

F2506610 

F2506620 

F2506630 

F2506640 

F2506650 

F2506660 

F2506670 

F2506680 

F25O6690 

F2506700 

F2506710 

F2506720 

F2506730 

F 2506740 

F2506750 

F2506760 

F2506770 

F2506780 

F2506790 

F250680O 

F2506810 

F2506820 

F2506830 

F2506840 



LAST 3 BITS OF THE WORD N1SBX. 
TAG4 

3 ONE BIT 

L<7) IS STORED IN N1SBX* 

3 

N1SBX 

L<3).1 . 

TAG2+3.1 A CONATAINS P0SIND. 

I 



F2506870 
F2506880 
F2506890 
F25O6900 
F2506910 
F2506920 
F2506980 
F2506990 



>> >■ 



H 



O 



n 



r\ 



c v 



F2507000 
F2507010 
F2507020 
F2507030 
F2507040 
F2507050 
F2507060 
F2507070 
F2507080 
F2507090 
*************************************************************F2507100 
FIXCON SCANS THE FIXCON DRUM TABLE FOR A DESIRED SYMBOL FOR AF2507110 
FIXED POINT CONSTANT. IF THE DESIRED FIXCON IS NOT THERE A SF2507120 



04567 


-0 73400 2 00000 


PDX 0»2 




04570 


-3 00000 2 04576 


TXL N1S05*2 


NO TAG FOR THIS POS. 


04571 


50000 2 01076 


CLA D0TAGZ»2 


ISOLATE 


04572 


77100 00017 


ARS 15 


VARIABLE 


04573 


-0 32000 05130 


ANA L(4J 


Nl 


04574 


77100 1 00003 


ARS 3»1 


BIT. 


04575 


-0 60200 05254 


ORS N1SBX 


OR N1BIT TO N1SBX. 


04576 


2 00001 1 04566 N1S05 


TIX N1S02.1»1 


REPEAT FOR NEXT RIGHT S 


04577 


50000 05254 


CLA N1SBX 




04600 


02000 4 00001 


TRA 1*4 







04601 


-0 


63400 


1 


04634 


FIXCON 


SXD 


FC29.1 




04602 


-0 


63400 


2 


04624 




SXD 


FC18.2 




04603 


-0 


63400 


4 


04636 




SXD 


FC34.4 


M 


04604 





60100 





05243 




STO 


ERDRM1 




04605 





53400 


4 


05132 




LXA 


L(5)*4 




04606 





50000 





04667 


FC02 


CLA 


ORIGIN 




04607 





60100 





05214 




STO 


AD1 




04610 





53400 


1 


05133 




LXA 


L(01tl 




04611 





53400 


2 


05127 




LXA 


L(2)t2 


M 


04612 





50000 





05243 


FC04 


CLA 


ERDRM1 




04613 





76200 





00302 




RDS 


194 




04614 





46000 





05214 




LDA 


AD1 




04615 





70000 





05241 


FC08 


CPY 


CPYWD1 


D 


04616 


3 


00000 


1 


04627 




TXH 


FC24+1.1 




04617 





70000 





05242 




CPY 


CPYWD2 




04620 





04000 





04635 




TLQ 


FC30 




04621 


Q 


70000 





05246 




CPY 


ERDRM 




04622 





34000 





05242 




CAS 


CPYWD2 




04623 





07400 


4 


00004 




TSX 


DIAG.4 


D 


04624 


-3 


00000 





04662 


FC18 


TXL 


FC60»0 




04625 





70000 





05246 


FC20 


CPY 


ERDRM 




04626 


1 


00002 


1 


04615 


FC24 


TXI 


FC08«1»2 




04627 


-2 


00001 


2 


04637 




TNX 


FC40f2tl 




04630 





50000 





05214 




CtA 


AD1 




04631 





40000 





05127 




ADD 


L(2) 




04632 





60100 





05214 




STO 


AD1 




04633 





53400 


1 


05126 


FC28 


LXA 


L(l)»l 


D 


04634 


-3 


00000 





04612 


FC29 


TXL 


FC04.0 




04635 





70000 





05246 


FC30 


CPY 


ERDRM 


D 


04636 


-3 


00000 





04625 


FC34 


TXL 


FC20»0 




04637 





60100 





05241 


FC40 


STO 


CPYWD1 




04640 


-0 


53400 


1 


04616 




LXD 


FC08+1.1 




04641 


1 


00001 


1 


04642 




TXI 


FC42tl»l 




04642 


-0 


63400 


1 


04616 


FC42 


SXD 


FC08+1»1 




04643 


-0 


75400 


1 


00000 




PXD 


0*1 




04644 





77100 





00021 




ARS 


17 




04645 





40000 





04667 




ADD 


ORIGIN 




04646 





60100 





05214 




STO 


AD1 




04647 





76600 





00302 




WRS 


194 




04650 





46000 





05214 




LDA 


AD1 



SYMBOL IS CREATED FOR IT AND AN ENTRY IS MADE. 
SAVE 
INDEX 
REGISTERS. 



FIXCON TABLE ORIGIN. 

INITIALIZE WORD COUNT TEST INDICATOR. 

INITIALIZE INDICATOR FOR TWO PASSES. 

COMPARISON WORD IN ACCUMULATOR. 

FIXCON TABLE 

ON DRUM 3. 

ENTRY FROM TABLE. 

DECREMENT CONTAINS WORD COUNT. 

CHECK SUM. 

ENTRY LESS THAN COMPARISON WORD. 

SKIP EVEN ENTRIES FOR 2ND PASS. 

COMPARE ENTRY WITH COMPARISON WORD. 

TLOOBV1ATES THIS PATH. 

EQUALITY SEARCH ENDED. 

SKIP EVEN ENTRIES FOR 2ND PASS. 

BUMP WORD COUNT TEST INDICATOR 

TEST FOR PASS CONDITION. 

TimiALIZE ORIGTN DRUM 

ADDRESS FOR 2ND PASS 

(EVEN ENTRIES) 

SET ENTRY NUMBER FOR SECOND PASS. 

RETURN TO FC04 FOR SECOND PASS. 



SEARCH ENDED* ENTRY NOT FOUND. 

WORD COUNT. 

NEW TEST VALUE (WORD COUNT). 

WORD COUNT 

PLUS 

ORIGIN EQUALS 

NEW ADDRESS FOR DRUM WRITING. 

SELECT 

DRUM AND 



F2507130 
F2507140 
F2507150 
F2507160 
F2507170 
F2507180 
F2507190 
F2507200 
F2507210 
F2507220 
F2507230 
F2507240 
F2507250 
F2507260 
F2507270 
F2507280 
F2507290 
F2507300 
F2507310 
F2507320 
F2507330 
F2507340 
F2507350 
F2507360 
F 2507370 
F2507380 
F2507390 
F2507400 
F2507410 
F2507420 
F2507430 
F2507440 
F2507450 
F2507460 
F2507470 
F2507480 
F2507490 
F2507500 
F2507510 
F2507520 
F2507530 



P 



/ 



F2507540 
F250755O 
F2507560 
REGISTERS* F25G7570 
F2507580 
F2507590 
F2507600 
F2507610 
F2507620 
F2507630 
F2507640 
F2507650 
F2507660 
1ES. F2507670 

F2507680 
«*****#***«********* **»#***«-**************#******************F2507690 
0P2 IS CALLED BY THE ALPHA STATE TO TEST FOR OPTIMIZATION IN F2507700 
THE COMILATION OF LOAD VALUE COMPUTATION. IT OPTIMIZES WHEN F250771O 



04651 





70000 





05241 




CPY 


CPYWD1 


WRITE NEW CONSTANT 


04652 





70000 





05241 




CPY 


CPYWD1 


AND CHECK SUM ON DRUM. 


04653 


-0 


75400 


1 


00000 


FC50 


PXD 


0*1 


PLACE NAME OF CONSTANT 


04654 





77100 





00022 




ARS 


18 


IN ACCUMULATOR* RESTORE X 


04655 


-0 


50100 





05101 




ORA 


BCD2 


AND RETURN 


04656 


-0 


53400 


1 


04634 




LXD 


FC29»1 


TO 


04657 


-0 


53400 


2 


04624 




LXD 


FC18t2 


MAIN 


04660 


-0 


53400 


4 


04636 




LXD 


FC34*4 




04661 





02000 


4 


00001 




TRA 


1.4 


ROUTINE. 


04662 





50000 





05241 


FC60 


CLA 


CPYWD1 


TEST DRUM READING. 


04663 





40200 





05242 




SUB 


CPYWD2 




04664 





10000 





0*653 




TZE 


FC50 


DRUM READ CORRECTLY. 


04665 


2 


00001 


4 


04606 




TIX 


FC02»4*1 


RETURN FOR 1ST PASS. 


04666 





07400 


4 


00004 


STOPFC 


TSX 


DIAG.4 


DRUM 4 READING ERROR 5 TI 


04667 





00000 





00002 


ORIGIN 


HTR 


2 





04670 





50000 


4 


77776 OP2 


CLA 


32766*4 


04671 





62100 





04740 


STA 


RETURN 


04672 





50000 


1 


03652 


CLA 


TAG2+3*1 


04673 


-0 


73400 


2 


00000 


PDX 


0*2 


04674 


3 


00000 


2 


04676 


TXH 


OP2P»2»0 


04675 





02000 


4 


00001 


TRA 


1*4 


04676 





500OC 


? 


01100 OP2P 


CLA 


DOTAGZ+2»2 


04677 


-0 


320CC-' 


A 


05104 


ANA 


60NES 


04700 


-0 


100C0 


4 


00001 


TNZ 


1*4 


04701 





50000 


2 


01100 


CLA 


DOTAGZ+2»2 


04702 





07400 


4 


04423 


TSX 


CN1IJ*4 


04703 





10000 





04740 


TZE 


RETURN 


04704 





76700 


Q 


00022 


ALS 


18 


04705 


-3 


00002 


1 


04707 


TXL 


0P2P1.1»2 


04706 





40000 





05061 


ADD 


L1DEC 


04707 





07400 


4 


04601 OP2P1 


TSX 


FIXC0N»4 


04710 


-3 


00002 


1 


04713 


TXL 


0P2P2*1*2 


04711 





60100 





07567 


STO 


ORO00+1 


04712 


2 


00001 


1 


05517 


TIX 


AC050tl.l 


04713 





73400 


1 


00000 OP2P2 


PAX 


0*1 


04714 


-0 


32000 





05104 


ANA 


60NES 


04715 





60100 





05200 


STO 


C1L02 


04716 


-0 


75400 


1 


00000 


PXD 


0*1 


04717 





60100 





05201 


STO 


CIL03 


04720 





50000 





05054 


CLA 


LIADDJ 


04721 





60100 





05177 


STO 


CIL01 


04722 





50000 





05133 


CLA 


L(0) 


04723 





60100 





05176 


STO 


CILOO 


04724 


-0 


53400 


1 


05173 


LXD 


BBOXtl 


04725 


1 


00004 


1 


04726 


TXI 


0P24»1»4 


04726 


-0 


63400 


1 


05173 0P24 


SXD 


BB0X*1 


04727 





07400 


4 


04345 


TSX 


CIT*4 


04730 





50000 





05044 


CLA 


L(STO) 


04731 





60100 





05177 


STO 


CIL01 


04732 





5OO00 





05075 


CLA 


L3DEC 



(CN1-1)=0 OR IS COMPUTABLE AJT EXECUTIVE TIME. 

i 

LINKAGE. ' 
IF S IS NOT 
DEFINED BY A DO* 



IF NOT DEFINEO BY 

RETURN TO MAIN ROUTINE. 
IF CONSTANT* COMPUTE 

RETURN AND CONSIDER S2. 
OTHERWISE COMPUTE 



TO CCN1-1). 



ASSIGN FIXCON SYMBOL. 

CHECK SUBSCRIPT. IF 

Sl» TRA RETURN (3RD». OTHERWISE 

COMPILE ADD L( SYMBOL). 

STO l)+3. 



F2507720 

F2507730 

F2507740 

F2507750 

F2507760 

F2507770 

F2507780 

F2507790 

F2507800 

F2507810 

F2507820 

F2507830 

F2507S40 

F2507850 

F2507860 

F2507870 

F2507880 

F2507890 

F2507900 

F25O7910 

F2507920 

F25O7930 

F2507940 

F2507950 

F2507960 

F2507970 

F2507980 

F2507990 

F2508000 

F2508010 

F2508020 

F2508030 

F2508040 

F2508050 

F2508060 

F25O8070 



-<M 



o 



n 



r\ 



JO v 



04733 


60100 


05201 




STO 


CIL03 






0*734 


50000 


07620 




CLA 


ORO00+26 






04735 


-0 32000 


05104 




ANA 


60NES 






04736 


60100 


05200 




STO 


CIL02 






04737 


07400 4 


04345 




TSX 


CIT*4 






04740 


02000 


00000 


RETURN 


TRA 





ADDRESS MODIFIED. 


Ht 












0P3 TESTS FOR VARIABLE NS AND IF CONSTANT COMPILES 


A 












CLA L(N2-N1)» OR 


IF VARIABLE CLA LIN2) ••••SUBLJN1) • 




04741 


-0 63400 4 


05040 


OP 3 


SXD 


EROP3.4 






0*742 


50000 2 


01076 




CLA 


DOTAGZ»2 


ARE ALL 




04743 


77100 


00017 




ARS 


15 


N PARAMETERS 




04744 


-0 32000 


05076 




ANA 


LC7) 


CONSTANT. 




04745 


-0 10000 


04766 




TNZ 


0P31 


NO* 0P31« 




04746 


50000 2 


01101 




CLA 


D0TAGZ+3»2 


YES* 




04747 


40200 2 


01100 




SUB 


DOTAGZ+2«2 


FORM 




04750 


76700 


00022 




ALS 


18 


N2-N1* 




04751 


07400 4 


04601 




TSX 


FIXCON«4 


OBTAIN FIXCON SYMBOL 




04752 


73400 4 


00000 




PAX 


0.4 


COMPILE 




04753 


-0 32000 


05104 




ANA 


60NES 


CLA 




04754 


60100 


05200 




STO 


CIL02 


L(N2-N1) 




04755 


-0 75400 4 


00000 




PXD 


0*4 


AND 




04756 


60100 


05201 




STO 


CIL03 


RETURN 




04757 


50000 


05053 




CLA 


L(CLA» 


TO 




04760 


60100 


05177 




STO 


CIL01 


THE 




04761 


50000 


05133 




CLA 


L(0) 


CALLER. 




04762 


60100 


05176 




STO 


CILOO 


ZERO LOCATION* 




04763 


07400 4 


04345 




TSX 


CIT*4 






04764 


-0 53400 4 


05040 




LX£> 


EROP3*4 






04765 


020O0 4 


00001 




TRA 


1*4 






04766 


77100 


00001 


0P31 


ARS 


1 






04767 


76000 


00001 




LBT 








04770 


02000 


04776 




TRA 


OP32 






04771 


50000 2 


01101 




CLA 


DOTAGZ+3»2 


N2 VARIABLE* 




©4772 


6O1O0 


©52O0 




STO 


CILG2 


COMPILE 




04773 


50000 


05133 




CLA 


L<0) 


CLA L(N2). 




04774 


60100 


05201 




STO 


CIL03 






04775 


02000 O5Q06 




IRA OP33 






04776 


50000 2 


01101 


OP32 


CLA 


DOTAGZ+3»2 






04777 


76700 


00022 




ALS 


18 






05000 


07400 4 


04601 




TSX 


FIXC0N.4 






05001 


73400 4 


00000 




PAX 


0*4 






05002 


-0 32000 


05104 




ANA 


60NES 






05003 


60100 


05200 




STO 


CIL02 






05004 


-0 75400 4 


00000 




PXD 


0*4 






05005 


60100 


05201 




STO 


CIL03 






05006 


50000 


05133 


OP33 


CLA 


L(0) 






05007 


60100 


05176 




STO 


CILOO 






05010 


500O0 


05053 




CLA 


LKLA) 






05011 


60100 


05177 




STO 


CIL01 






05012 


07400 4 


04345 




TSX 


CIT*4 






05013 


50000 2 


01076 




CLA 


D0TAGZ.2 






05014 


77100 


00021 




ARS 


17 






05015 


76000 


00001 




L8T 









F2508080 
F2508090 
F2508100 
F250&110 
F2508120 
F2508130 
♦F2508140 
F2508150 
F2508160 
F2508170 
F2508180 
F2508190 
F2508200 
F2508210 
F2508220 
F2508230 
F2508240 
F250825O 
F2508260 
F2508270 
F2508280 
F2508290 
F2508300 
F2508310 
F2508320 
F2508330 
F2508340 
F2508350 
F2508360 
F2508370 
F2506380 
F2508390 
F2508400 
F2508410 
F2S08420 
F2508430 
F2508440 
~F250B^5O 
F2508460 
F2508470 
F2508480 
F2508490 
F25085O0 
F2508510 
F2508520 
F250853O 
F2508540 
F250855G 
F2508560 
F2508570 
F2508580 
F2508590 
F25086OO 
F2506610 



1>1 



05016 


02000 


05024 




TRA 


OP 34 




F2508620 


0501? 


50000 


2 01100 




CLA 


DOTAGi+2»2 


N1IS VARIABLE* 


F2508630 


05020 


60100 


05200 




STO 


CIL02 


PREPARE TO 


F2508640 


05021 


50000 


05133 




CLA 


L(0) 


COMPILE 


F2508650 


05022 


60100 


05201 




STO 


CIL03 


SUBLCN1U 


F2508660 


05023 


02000 


05033 




TRA 


OP 35 




F2508670 


05024 


50000 


2 01100 


OP 34 


CLA 


DOTAG2+2*2 


Nl CONSTANT. 


F2508680 


05025 


76700 


00022 




ALS 


18 


OBTAIN 


F2508690 


05026 


07400 


4 04601 




TSX 


FIXC0N*4 


FIXCON SYMBOL 


F2508700 


05027 


73400 


4 00000 




PAX 


0*4 


FOR Nl 


F2508710 


05030 


-0 32000 


05104 




ANA 


60NES 


AND PREPARE 


F2508720 


05031 


60100 


05200 




STO 


CIL02 


TO COMPILE 


F2508730 


05032 


-0 63400 


4 05201 




SXD 


CIL03»4 


SUB L(N1U 


F2508740 


05033 


50000 


05055 


0P35 


CLA 


L(SUB) 


COMPILE 


F2508750 


05034 


60100 


05177 




STO 


CIL01 


SUB 


F2508760 


05035 


07400 


4 04345 




TSX 


CIT»4 


L(N1) 


F2508770 


05036 


-0 53400 


4 05040 




LXD 


ER0P3»4 




F2508780 


05037 


02000 


4 00001 




TRA 


1*4 




F2508790 


05040 


00000 


00000 


ER0P3 








F2508800 


05041 


+000000000100 


EROP 


OCT 


100 




F2508810 












****#*#************* **********************«****»***»*********F2508820 


05042 


636731000000 


LtTXIl 


BCD 


1TXI000 




F2508830 


05043 


476724000000 


UPXD) 


BCD 


1PXD000 




F2508840 


05044 


626346000000 


LCSTO) 


BCD 


1STO000 




F2508850 


05045 


626724000000 


LfSXD) 


BCD 


1SXD000 




F2508860 


05046 


633167000000 


L(UX) 


BCD 


1TIX000 




F2508870 


05047 


636743000000 


LUXL) 


BCD 


1TXL000 




F2508880 


05050 


242524000000 


L(OEO) 


BCD 


1DED0O0 




F2508890 


05051 


436724000000 


L(LXD) 


BCD 


1LXD000 




F2508900 


05052 


626324000000 


L(STD) 


BCD 


ISTDOOO 




F2508910 


05053 


234321000000 


L(CLA) 


BCD 


1CLA000 




F2508920 


05054 


212424000000 


L(AOO) 


BCD 


1ADDO00 




F2508930 


05055 


626422000000 


L(SUB) 


BCD 


1SUB0O0 




F2508940 


05056 


226262000000 


L(BSS) 


BCD 


1BSS0O0 




F2508950 


05057 


00000 


00702 


LMXDTG 




450 




F2508960 


05060 


+000000000400 


MAXLOC 


OCT 


400 




F2508970 


05061 


+00000 1000000 


L1DEC 


OCT 


1000000 




F2508980 


05062 


+000000002664 


DRADS1 


OCT 


2664 




F2508990 


05063 


00000 


00314 


DRADS2 




204 




F2509000 


05064 


00000 


O0DO2 


DRADS3 




2 




F2509010 


05065 


00000 


00312 


AO202 




202 




F2509020 


05066 


00000 


00021 


L(17) 




17 




F2509030 


05067 


00000 


07566 


L ( ORO ) 




OROOO 




F2509040 


05070 


00000 


00000 


ESTORE 


HTR 







F25O9050 


05071 


+077777077777 


NOPRET 


OCT 


077777077777 




F2509050 


05072 


+000000001750 


ABDRMA 


DEC 


1000 




F2509070 


05073 


+000000001750 


BLKSZE 


DEC 


1000 




F2509080 


05074 


+000000077776 


MINUS1 


OCT 


77776 




F2509090 


05075 


+000003000000 


L3DEC 


OCT 


000003000000 




F2509100 


05076 


00000 


00007 


L(7) 




7 




F2509I10 


05077 


+170000000000 


BC015 


OCT 


170000000000 




F2509120 


05100 


+060000000002 


BCDO 


OCT 


060000000002 




F2509130 


05101 


+020000000000 


BCD2 


OCT 


020000000000 




F2509140 


05102 


-200000000000 


BIT01 


OCT 


600000000000 




F2509150 



%> 



f 



u 



o 



n 



r\ 



IV 



05103 
05104 
05105 
05106 
05107 
05110 
05111 
05112 
05113 
05114 
05115 
05116 
05117 
05120 
05121 
05122 
05123 
05124 
05125 
05126 
05127 
05130 
05131 
05132 
05133 
05134 
05135 
05136 
05137 
05140 
05141 
05142 
05143 
05144 
05145 
05146 
05147 
05150 
05151 
05152 
05153 
05154 
05155 
05156 
05157 
05160 
05161 
05162 
05163 
05164 
05165 
05166 
05167 
05170 



-300000077777 
-370000000000 
+007777000000 

00000 00006 

00000 00030 

00000 00010 
+000000000010 
+000004000000 

00000 03636 

00000 

00000 

00000 

00000 

00000 

00000 

00000 
+377777777777 

00000 00144 

00000 

00000 

00000 

ooooo 
ooooo 
ooooo 
ooooo 
ooooo 



02646 
05673 
05716 
06204 
06065 
01240 
00310 



o ooooo e 



00620 
00001 
00002 
00004 
00003 
00005 
OOOOO 
00012 
00020 
OOOOO 
OOOOO 



2 OOOOO 

1 OOOOO 
+002000000000 
+000000077777 
+077777000000 

OOOOO OOOOO 
+000000000760 
+000000000774 
+000000000763 
+000000000773 



+000000000010 
+000000074030 
+000000003777 
+000000100000 
-377777777777 
53400 1 05130 
53400 1 05127 
02000 06115 
02000 06116 
OOOOO 06250 
OOOOO 03636 
OOOOO 05315 
OOOOO 02646 
02000 05725 
07400 4 07131 
+000000000077 



T1MSK 

60NES 

TETMSK 

L(6) 

U24) 

L(6) 

LCK1) 

L40EC 

INST20 

INST22 

1NST24 

JNST26 

INST30 

1NST32 

LMXTG 

LMXTGA 

ALLONE 

LZEKMX 

LADMX 

L(l> 

1.(2) 

L(41 

L(3) 

L(5) 

L<0) 

L(10) 

U16» 

B1T1 

BIT2 

B1T8 

ADMSK 

DECMSK 

SMSK 

SMSK1 

SMSK2 

SMSK3 

SMSKL4 

BITMSK 



OCT 



OPMSK 

11BITS 

BIT20 

360NES OCT 

INST 2 LXA 

1NST3 

INST4 

INST5 

INST8 

INST10 

1NST11 

INST12 

INST13 

INST14 

60NESR 



OCT 700000077777 
OCT 770000000000 
OCT 007777000000 

6 

24 

8 
OCT 10 
OCT 000004000000 

ADT6A 

MXTGA 

RTX160 

RTX184 

RTX264 

RTX226 

672 

200 

377777777777 

100 

400 

1 

2 

4 

3 

5 



10 

16 
PTW 
PON 

OCT 002000000000 
OCT 77777 
OCT 077777000000 

OCT 760 
OCT 774 
OCT 763 
OCT 773 
OCT 20 
OCT 10 
OCT 74030 
OCT 3777 
OCT 100000 

777777777777 

LU)*1 
LXA L(2) »1 
TRA AC224 
TRA AC228 

AC244 

ADT6A 

AC010 

MXTGA 
TRA AC155 
TSX CIL03I»4 
OCT 77 



F2509160 
F2509170 
F2509180 
F2509190 
F25G9200 
F2509210 
F2509220 
F2509230 
F2509240 
F2509250 
F2509260 
F2509270 
F2509280 
F2509290 
F2509300 
F2509310 
F2509320 
F2509330 
F2509340 
F2509350 
F2509360 
F2509370 
F2509380 
F2509390 
F2509400 
F2509410 
F2509420 
F2509430 
F2509440 
F2509450 
F2509460 
F2509470 
F2509480 
F250949O 
F2509500 
F2509510 
F2509520 
F2509530 
F2509540 
F2509550 
F2509560 
F2509570 
F2509580 
F2509590 
F2509600 
F2509610 
F2509620 
F2509630 
F2509640 
F2509650 
F2509660 
F2509670 
F2509680 
F2509690 



4tf 





05171 


+007777000000 




05172 


+000000007777 


A 


05173 


00000 00000 


A 


05174 


00000 00000 


A 


05175 


00000 00000 
05176 
05177 
05200 
05201 
05202 
05203 
05204 
05205 
05206 
05207 
05210 
05211 
05212 
05213 
05214 
05215 
05216 
05217 
05220 
05221 
05222 
05223 
05224 
05225 
05226 
05227 
05230 
05231 
05232 
05233 
05234 
05235 
05236 
05237 
05240 
05241 
05242 
05243 
05244 
05245 
05246 
05247 
05250 
05251 
05252 
05253 
05254 
05255 



6T017 OCT 007777000000 

24T035 OCT 7777 

BBOX HTR 

E2C HTR 

E3C HTR 

CILOO 8SS 1 

CIL01 BSS 1 

CIL02 BSS 1 

CIL03 BSS 1 

ERTGA BSS 1 

CHEKSM BSS 1 

TETTG BSS 1 

SW1CH2 BSS 1 

ERLXC BSS 1 

AX BSS 1 

RELCO BSS 1 

WRKT6A BSS 1 

N3X BSS 1 

XX BSS 1 

AD1 BSS 1 

AD2 BSS 1 

ADTGX BSS 1 

WRKRXT BSS 1 

TETTGX BSS 1 

RTXTGX BSS 1 

LOCI NO BSS 1 

ERORBX BSS 1 

A BSS 1 

B BSS 1 

SWICH BSS 1 

TEBBOX BSS 1 

DOINO BSS 1 

001ND1 BSS 1 

TEABOX BSS 1 

SW1CH1 BSS 1 

N3IND BSS 1 

N1N2N3 BSS 1 

LINKC BSS 1 

XTG BSS 1 

POSINO BSS 1 

ER40 BSS 1 

ER41 BSS 1 

ARG BSS 1 

VCTR BSS 1 

ERTXOl BSS 1 

ERTX02 BSS 1 

ERTX03 BSS 1 

BUCNUM BSS 1 

SXDTX2 BSS 1 

OREDO BSS 1 

DEFDO BSS 1 

N1SBX BSS 1 

TETLOC BSS 1 

************************** 



F2509700 
F2509710 
F2509720 
F2509730 
F2509740 
F2509750 
F2509760 
F2509770 
F2509780 
F2509790 
F2509800 
F2509810 
F2509820 
F2509830 
F2509840 
F2509850 
F2509860 
F2509870 
F2509880 
F2509890 
F25O990O 
F2509910 
F2509920 
F2509930 
F2509940 
F2509950 
F2509960 
F2509970 
F2509980 
F2509990 
F25 10000 
F2510010 
F2510020 
F251003O 
F2510040 
F2510050 
F2510060 
F251Q070 
F2510080 
F2510090 
F2510100 
F2510110 
F2510120 
F2510130 
F2510140 
F2510150 
F2510160 
F2510170 
F2510160 
F2510190 
F2510200 
F2510210 
F2510220 
*»******#****»*****»******» ********F2 5 10230 



r ,o 



n 



r\ 



J L V 















BE6IN BETA STAGE 


F2510240 














THE BETA STATE IS CALLED BY MAN TO COMPUTE AND COMPILE 


F2510250 














INCREMENTING* 


TESTING. AND RESETTING INSTRUCTIONS FOR A 


GIVE F2510260 














00* 




F2510270 


05256 


-0 63400 


4 


05325 


RTX 


SXD 


RTX024»4 




F2510280 


05257 


-0 53400 


1 


05244 




LXO 


VCTR»1 


VARIABLE CTR. LAST BETA. 


F2510290 


05260 


-0 53400 


2 


05230 




LXD 


D0IND.2 


NEW DO 


F2510300 


05261 


50000 


2 


01076 




CLA 


D0TAGZ.2 


ALPHA BETA WORD OF DO. 


F2510310 


05262 


73400 


2 


00000 




PAX 


0*2 


PLACE B IN X. 


F2510320 


05263 


-0 63400 


2 


05264 




SXD 


RTX04.2 




F251033O 


05264 


-3 00000 


1 


05276 


RTX04 


TXL 


RTX05»1 


IS THIS THE FIRST BETA, 


F2510340 


05265 


-0 75400 


2 


00000 




PXD 


0*2 




F2510350 


05266 


40000 





05111 




ADD 


L(K1) 


FIRST B. SET 


F2510360 


05267 


60100 





05244 




STO 


VCTR 


VCTR AND 


F251037O 


05270 


50000 





05123 




CLA 


ALLONE 


INITIALIZE 


F2510380 


05271 


60100 





05176 




STO 


CILOO 


CIL BUFFER 


F251039O 


05272 


60100 





05177 




STO 


CIL01 


TO ALL ONES. 


F2510400 


05273 


60100 





05200 




STO 


CIL02 




F2510410 


05274 


60100 





05201 




STO 


CIL03 




F2510420 


05275 


07400 


4 


04352 




TSX 


CITSP»4 


USE SPECIAL CIT ENTRY. 


F2510430 


05276 


50000 





05133 


RTX05 


CLA 


L(0) 


INITIALIZE THE TEST TAG 


F2510440 


05277 


60100 





05220 




STO 


TETTGX 


INDEX FOR THIS DO TO ZERO. 


F2510450 


05300 


60100 





05237 




STO 


XTG 




F2510460 


05301 


60100 





05221 




STO 


RTXTGX 




F2510470 


05302 


60100 





05216 




STO 


ADTGX 




F2510480 


05303 


07400 


4 


06235 




TSX 


N3BIT.4 


ISOLATE N3 BIT OF DOTAG 


F2510490 


05304 


07400 


4 


04153 




TSX 


SCAN. 4 




F2510500 


05305 


-0 63400 


1 


05221 


RTXIN1 


SXO 


RTXTGX. 1 


STORE FIRST TTG FOR TX CYCLE. 


F2510510 


05306 


-0 63*00 


1 


05237 




SXO 


XTG.l 


ENTRY THAT LIES BETWEEN A AND B 


F251052O 


05307 


07400 


4 


04162 


RTX06 


TSX 


FIND.4 




F251053O 


05310 


02000 





05707 




TRA 


RTX180 


END OF DO, START DMTG CYCLE. 


F2510540 


05311 


-0 63400 


1 


05237 




SXD 


XTG.l 


SC MODIFIED BY DO, STORE. 


F2510550 


05312 


07400 


4 


06243 




TSX 


TETG.4 


PLACE TEST BITS IN TAG WORD. 


F2510560 


05313 


07400 


4 


06277 




TSX 


PRES.4 

AT THE END Of 


THIS ROUTINE THE BLOCK INDICATION IS IN XB 


F2510570 
. F2510580 


05314 


3 00004 


2 


05673 




TXH 


RTX160.2.4 


BLOCK Ft NO INSTRUCTIONS. GET NEW TAG. 


F251059O 


05315 


3 00000 


2 


05435 




TXH 


RTX70.2.0 


BLOCK DIFFERENT FROM A OR F. 


F2510600 


05316 


Q 50000 ^ 


05234 




C4.A N3IND 


BtOCK EQUAtSA. 


F2*1O6*0 


05317 


-0 10000 





05403 




TNZ 


RTX68 


DECREMENT OF RXA IS VARIA8LE 


F2510620 


05320 


-0 53400 


1 


03652 


RTX020 


LXO 


TAG3.1 


DECREMENT IS CONSTANT. 


F2510630 


05321 


3 00000 


1 


05334 




TXH 


RTX50.1.0 


TEST FOR INSERTED COUNTER. 


F2510640 


05322 


50000 





03652 




CLA 


TAG3 


OR RESET TAG. 


F2510650 


05323 


76500 





00013 




LRS 


11 




F2510660 


05324 


76000 





00001 




LBT 






F2510670 


05325 


-3 00000 





05327 


RTX024 


TXL 


RTX30.0 


RESET 


F2510680 


05326 


02000 





05332 




TRA 


RTX34 


COUNTER. 


F2510690 


05327 


50000 





03652 


RTX30 


CLA 


TAG3 


IF RESET TAG. PUT TAG 


F2510700 


05330 


-0 32000 





05153 




ANA 


11 BITS 


NAME IN ACCUMULATOR AND 


F2510710 


05331 


02000 





05336 




TRA 


RTX51 


GO TO SUBCOM. 


F2510720 


05332 


07400 


4 


04230 


RTX 34 


TSX 


ENTR.4 


IF COUNTER. MAKE 


F251073O 


05333 


02000 





05337 




TRA 


RTX52 


ARTIFICIAL ENTRY IN WRKSC. 


F2510740 


05334 


-0 75400 


1 


00000 


RTX50 


PXD 


0.1 


CURRENT TAG. 


F2510750 


05335 


77100 





00022 




ARS 


18 


GET TAG NAME 


F2510760 


05336 


07400 


4 


04236 


RTX51 


TSX 


SUBC0M*4 


LAY OUT TAU ENTRY. 


F2510770 



w 



0533? 





50000 





05042 RTX52 


CLA 


L(TXI) 


05340 





60100 





05177 


STO 


CIL01 


05341 





53400 


1 


05240 


LXA 


P0S1ND»1 


05342 


-0 


53400 


2 


05230 


LXO 


D0IND.2 


05343 





07400 


4 


06447 


TSX 


CN3IJ.4 


05344 





60100 





05245 


STO 


ERTX01 


05345 





53400 


1 


05240 


LXA 


P0SIND»1 


05346 





50000 





03653 


CLA 


TAG4 


05347 





76500 





00014 


LRS 


12 


05350 





76300 


1 


00004 


LLS 


4*1 


05351 





76000 





00001 


LBT 




05352 





02000 





05376 


TRA 


RTX66 


05353 





77100 





00001 


ARS 


1 


05354 





76000 





00001 


LBT 




05355 


1 


00002 


1 


05367 


TXI 


RTX62+3»1»2 


05356 


1 


00001 


1 


05357 


TXI 


RTX61,1»1 


©5357 





60100 





05246 RTX61 


STO 


ERTX02 


05360 





07400 


4 


06447 


TSX 


CN3IJ»4 


05361 





53400 


1 


05240 


LXA 


POSIN0»l 


05362 





40000 





05245 


ADD 


ERTX01 


05363 





60100 





05245 


STO 


ERTX01 


05364 


1 


00002 


1 


05365 RTX62 


TXI 


RTX62+1»1*2 


05365 


3 


00003 


1 


05376 


TXH 


RTX66.1.3 


05366 





50000 





05246 


CLA 


ERTX02 


0536? 





77100 





00001 


ARS 


1 


05370 





76000 





00001 


LBT 




05371 





02000 





05376 


TRA 


RTX66 


05372 


-0 


53400 


2 


05230 


LXO 


D0IND»2 


05373 





07400 


4 


06447 


TSX 


CN3IJ»4 


05374 





40000 





05245 


ADO 


ERTX01 


05375 





60100 





05245 


STO 


ERTX01 


05376 





50000 





05245 RTX66 


CLA 


ERTX01 


05377 





62100 





05177 


STA 


CIL01 


05400 





07400 


4 


06465 


TSX 


CIL023»4 


05401 





07400 


4 


04345 


TSX 


CIT»4 


05402 





02000 





05413 


TRA 


RTX69 


05403 





07400 


4 


06224 RTX68 


TSX 


CILV.4 


05404 





50000 





05176 


CLA 


CILOO 


©5405 


-0 


32O0O 





05141 


ANA 


ADMSK 


05406 





07400 


4 


06476 


TSX 


TGA«4 


05407 





07400 


4 


06625 


TSX 


CIL23»4 


05410 





50000 





05042 


CLA 


LtTXI) 


05411 





60100 





05177 


STO 


CIL01 


05412 





07400 


4 


04345 


TSX 


CIT»4 


05413 





50000 





03653 RTX69 


CLA 


TAG4 


05414 





120O0 





05673 


TPL 


RTX160 


05415 


-0 


53400 


2 


05230 


LXO 


D0IND*2 


05416 





50000 


2 


01103 


CLA 


D0TAGZ+5*2 


05417 


-0 


32000 





05136 


ANA 


BIT1 


05420 





10000 





05673 


TZE 


RTX160 


05421 





50000 





05133 


CLA 


LCO) 


05422 





60100 





05176 


STO 


CILOO 


05423 





50000 





03652 


CLA 


TAG3 


05424 


-0 


32000 





05141 


ANA 


ADMSK 



COMPILE 

TXI 

PREPARE FOR 

EXIT ROUTINE. 

ROUTINE COMPUTES DECREMENT N3G 

AND STORES IN ERTX01. 

TEST FOR DUPLICATE 

SUBSCRIPTS AND COMPUTE 

DECREMENT FOR THEM. 

TEST ON S1*S2» OR S3 FOR DUPES. 

NO DUPLICATES FOR THIS SUBSCRIPT. 

TEST FOR SI OR S2 DUPES. 
DUPES ARE 1»3 ON TRANSFER. 

STORE STATUS OF ACCUMULATOR. DUPES ARE 

1*2 OR 2*3 OR 1»2«3. 

COMPUTE DECREMENT ADJUSTMENT 

FOR NEXT LEFT SUBSCRIPT. 

REPLACE ADJUSTED DECREMENT IN ERTXOlt 

NOT 3RD SUBSCRIPT CASE. 

LOW ORDER BIT IS SUBSCRIPT LEFT OF DOSUB. 

TEST FOR SI DUPE. 



COMPUTE DECREMENT ADJUSTMENT FOR SI 
IN 1*2*3 AND 1*3 CASES. 
FINAL DECREMENT ADJUSTMENT. 

AFTER DECREMENT IS COMPUTED* FILL 

OUT 4 WORDS OF 

COMPILED INSTRUCTION. P 

AND CONTINUE. 

DECREMENT IS VARIABLE. ASSIGN LOCATION. 

PREPARE VCTR LOCATION 

FOR TGA ROUTINE. 

PLACE LOCATION IN APPENDED TAGTAG WORD 

AND THEN FILL OUT 

REMAINING WORDS OF 

COMPILED INSTRUCTION 

COMPILER ROUTINE. 

TEST FOR SYMBOL 

INDICATION 

FORVAR 

OCCURRANCE. 

NO FORVAR* CONTINUE. 
FORVAR EXISTS. 

COMPILE 
STORE 



F2510780 

F2510790 

F2510800 

F2510810 

F251O820 

F2510830 

F2510840 

F2510850 

F2510860 

F2510870 

F2510880 

F2510890 

F2510900 

F2510910 

F2510920 

F2510930 

F2510940 

F2510950 

F2510960 

F2510970 

F2510980 

F2510990 

F2511000 

F2511010 

F2511020 

F2511030 

F2511040 

F2511050 

F2511060 

F2511070 

F25U080 

F2511090 

F2511100 

F2511110 

F2511120 

F2511130 

F2511140 

F2511150 

F25U160 

F251H70 

F2511160 

F2511190 

F2511200 

F25U210 

F2511220 

F25U230 

F2511240 

F2511250 

F2511260 

F2511270 . 

F2511280 

F2511290 

F2511300 

F2511310 



1'iV 



u 



n 



O 



05425 





60100 





05201 


STO 


CIL03 


05426 





50000 





05045 


CLA 


L(SXD) 


05427 





60100 





05177 


STO 


CIL01 


05430 


-0 


53400 


2 


05230 


LXD 


D0IND»2 


05431 





soooo 


2 


01077 


CLA 


D0TA6Z+1»2 


05432 





60100 





05200 


STO 


CIL02 


05433 





07400 


4 


04345 


TSX 


CIT*4 


05434 





02000 





05673 


TRA 


RTX160 


05435 


3 


OOOOl 


2 


05466 RTX70 


TXH 


RTX90»2»1 


05436 


-0 


63400 


2 


05250 


SXD 


SLKNUM.2 


05437 


-0 


53400 


2 


03647 


LXD 


TAG2.2 


05440 





07400 


4 


06620 


TSX 


NB1TS.4 


05441 





40000 





05234 


ADO 


N3IND 


05442 


-0 


10000 





05464 


TNZ 


RTX60 


05443 





50000 





03652 


CLA 


TAG3 


05444 





77100 





00022 


ARS 


18 


05445 





07400 


4 


04236 


TSX 


SUBC0M»4 


05446 


-0 


53400 


2 


05230 


LXD 


DOIND»2 


05447 





53400 


1 


05240 


LXA 


PGSIND»1 


05450 





07400 


4 


06447 


TSX 


CN3IJ»4 


05451 





60100 





05245 


STO 


ERTX01 


05452 


-0 


53400 


2 


03647 


LXD 


TAG2»2 


05453 





53400 


1 


05240 


LXA 


POSIND.l 


05454 


1 


00001 


1 


05455 


TXI 


RTX72.1.1 


05455 





07400 


4 


04447 RTX72 


TSX 


CXIJ.4 


05456 





40200 





05126 


SUB 


lid 


05457 





60100 





05246 


STO 


ERTX02 


05460 





40000 





05245 


ADD 


ERTX01 


05461 





60100 





05245 


STO 


ERTX01 


05462 





07400 


4 


06513 


TSX 


EDCB*4 


05463 





02000 





05673 


TRA 


RTX160 


05464 





07400 


4 


06546 RTX80 


TSX 


BCDE»4 


05465 





02000 





05673 


TRA 


RTX160 


05466 


3 


O0002 


2 


05525 RTX90 


TXH 


RTX110.2»2 


05467 


-0 


63400 


2 


05250 


SXD 


BLKNUM*2 


05470 


-0 


53400 


2 


03647 


LXD 


TAG2»2 


05471 





07400 


4 


06620 


TSX 


NBITS.4 


05472 





40000 





05234 


ADD 


N3IND 


05473 


-0 


10000 





05523 


TNI 


RTX100 


05*74 





50000 





03652 


CLA 


TAG3 


05475 





77100 





00022 


ARS 


18 


05476 





07400 


4 


04236 


TSX 


SUBC0Mt4 


05477 


-0 


53400 


2 


03647 


LXD 


TAG2»2 


05500 





53400 


1 


05131 


LXA 


L<3).1 


05501 





07400 


4 


04447 RTX91 


TSX 


CXIJ.4 


05502 





40200 





05126 


SUB 


L(1J 


05503 





60100 





05246 


STO 


ERTX02 


05504 





53400 


1 


05240 


LXA 


POSIND.l 


05505 





07400 


4 


06447 


TSX 


CN3IJi4 


05506 





40000 





05246 


ADD 


ERTX02 


05507 





60100 





05245 


STO 


ERTX01 


05510 





50000 





03653 


CLA 


TAG4 


05511 





77100 





00011 


ARS 


9 


05512 





76000 





00001 


LBT 





INSTRUCTION 

FOR 

FORVAR OCCURRANCE. 

PUT FORVAR SUBSCRIPT 

IN RELATIVE ADDRESS 

WORD FOR SXD INSTRUCTION. 

BLOCK IS B»C»D OR E« 

BLOCK B FIRST DETERMINE 
IF DECREMENT IS VARIABLE 

DECREMENT IS VARIABLE. 
DECREMENT IS CONSTANT, 

LAY OUT TAU INTO WRKSC. 
PREPARE FOR 
EXIT ROUTINE. 
COMPUTE N3G AND 
STORE IN ERTX01. 

MOVE POSIND TO LEFT SUB 

AND COMPUTE XN3G 

FOR LEFT SUB WHICH IS TEST. 



ADDN3G FOR THIS SUBSCRIPT 
RESULT IS TXI DECREMENT. 
COMPILE TXI SXD TIX. 
CHECK BEST TEST* 
BLOCK B IS VARIABLE* 

BLOCK IS C»D. OR E. 

BLOCK IS C» PUT IN XB. 

ISOLATE 

NBITS INTO N1N2N3. 

DECREMENT IS VARIABLE* TSX BCDE. 

DECREMENT IS CONSTANT. 

LAY OUT TAU 

ENTRY INTO WRKSC. 

COMPUTE 

XN3G-1 

FOR 

LEFT 

SUBSCRIPT. 

THEN COMPUTE N3G 

FOR RIGHT 

SUBSCRIPT. 

RESULT IS ERTX01. 



TEST FOR DUPES. 



F2511320 

F2511330 

F2511340 

F2511350 

F2511360 

F2511370 

F2511380 

F2511390 

F2511400 

F2511410 

F2511420 

F2511430 

F2511440 

F2511450 

F2511460 

F25 11470 

F2511480 

F2511490 

F2511500 

F2511510 

F2511520 

F2511530 

F2511540 

F2511550 

F2511560 

F2511570 

F2511580 

F2511590 

F25 11600 

F2511610 

F2511620 

F2511630 

F2511640 

F2511650 

F2511660 

F2511670 

F2511680 

F254rt690 

F2511700 

F2511710 

F25 11720 

F2511730 

F2511740 

F2511750 

F2511760 

F2511770 

F2511780 

F2511790 

F2511800 

F2511810 

F2511820 

F2511830 

F2511840 

F2511850 






05513 





02000 





05521 




TRA 


RTX95 


05514 





53400 


1 


05240 




LXA 


P0SIND»1 


05515 


1 


00001 


1 


05516 




TXI 


RTX93»ltl 


05516 





07400 


4 


06447 


RTX93 


TSX 


CN3IJ»4 


05517 





40000 





05245 




ADO 


ERTX01 


05520 





60100 





05245 




STO 


ERTX01 


05521 





07400 


4 


06513 


RTX95 


TSX 


EDCB»4 


05522 





02000 





05673 




TRA 


RTX160 


05523 





07400 


4 


06546 


RTX100 


TSX 


BCDE»4 


05524 





02000 





05673 




TRA 


RTX160 


05525 


3 


00003 


2 


05601 


RTX110 


TXH 


RTX140»2»3 


05526 


-0 


63400 


2 


05250 




SXD 


BLKNUM»2 


05527 


-0 


53400 


2 


03650 




LXD 


TA62+1»2 


05530 





07400 


4 


06620 




TSX 


NBITS.4 


05531 





40000 





05234 




ADD 


N3IND 


05532 


-0 


10000 





05577 




TNZ 


RTX130 


05533 





50000 





03652 




CLA 


TAG3 


05534 





77100 





00022 




ARS 


18 


05535 


-0 


32000 





05153 




ANA 


11BITS 


05536 





07400 


4 


04236 




TSX 


SUBC0M»4 


05537 


-0 


53400 


2 


03650 




LXD 


TAG2+1»2 


05540 





53400 


1 


05127 




LXA 


L(2)»l 


05541 





07400 


4 


04447 




TSX 


CXUt4 


05542 





60100 





05246 




STO 


ERTX02 


05543 





53400 


1 


05240 




LXA 


P0SIND»1 


05544 


-0 


53400 


2 


05230 




LXD 


D0IND.2 


05545 





07400 


4 


06447 




TSX 


CN3IJ»4 


05546 





60100 





05245 




STO 


ERTX01 


05547 





50000 





03653 




CLA 


TA64 


05550 





77100 





00011 




ARS 


9 


05551 


-0 


32000 





05076 




ANA 


L(7) 


05552 





10000 





05570 




TZE 


RTX126 


05553 





76000 





00001 




LBT 




05554 





02000 





05563 




TRA 


RTX118 


05555 





53400 


1 


05240 




LXA 


POSINDtl 


05556 


1 


00002 


1 


05557 




TXI 


RTX114»1.2 


05557 





07400 


4 


06447 


RTX114 


TSX 


CN3IJ»4 


05560 





40000 





05245 




ADD 


ERTX01 


05561 





60100 





05245 




STO 


ERTX01 


05562 





02000 





05570 




TRA 


RTX126 


05563 


-0 


53400 


2 


03650 


RTX118 


LXD 


TAG2+1«2 


05564 





53400 


1 


05131 




LXA 


L(3).l 


05565 





07400 


4 


04447 


RTX122 


TSX 


CXIJ.4 


05566 





40000 





05246 




ADD 


ERTX02 


05567 





60100 





05246 




STO 


ERTX02 


05570 





50000 





05246 


RTX126 


CLA 


ERTX02 


05571 





40200 





05126 




SUB 


Ltl) 


05572 





60100 





05246 




STO 


ERTX02 


05573 





40000 





05245 




ADD 


ERTX01 


05574 





60100 





05245 




STO 


ERTX01 


05575 





07400 


4 


06513 




TSX 


EDCB»4 


05576 





02000 





05673 




TRA 


RTX160 


05577 





07400 


4 


06546 


RTX130 


TSX 


BCDE»4 


05600 





02000 





05673 




TRA 


RTX160 



NO DOSUB DUPE* 

DOSUB IS DUPE. 

COMPUTE ADJUSTMENT 

FOR DECREMENT AND 

STORE IN ERTX01. 

XN3GU) + N3G(R) + N3G(C) - 1) 

COMPILE TXI SXD TIX. 

BLOCK DECREMENT IS VARIABLE. 

D OR E. 

STORE BLOCK NUMBER D. 

BLOCK D CONSIDERED. 

ISOLATE NBITS 

CHECK FOR VARIABLE DECREMENT. 

DECREMENT IS VARIABLE. 

DECREMENT IS CONSTANT. 

SET UP TAG 

NAME AND 

LAY OUT TAU ENTRY. P 

CONSIDER CENTER SUBSCRIPT 

FOR EXIT ROUTINE. 

COMPUTE XN3G FOR 

CENTER SUBSCRIPT. 

PREPARE DOSUB SUBSCRIPT 

FOR CN3UR0UTINE. 

COMPUTE N3G FOR 

DOSUB SUBSCRIPT. 

TEST 

FOR 

DUPES. 

NORMAL BLOCK D» NO DUPES. 

XXO BLOCK D» OR OXX. 

XOX BLOCK D. 

SWITCH RIGHT OR LEFT POSIND. 

COMPUTE N3G 

DECREMENT ADJUSTMENT 

FOR XOX 

DUPES. 

COMPUTE XN3G 

DECREMENT 

ADJUSTMENT 

FOR CENTER 

SUBSCRIPT. 

SUB1 AND 

ADD ERTX01 

AND ERTX02 

YIELDING TXI 

DECREMENT. 

COMPILE TXI SXD TIX. 

END CHECK FOR TEST TAG. 

BLOCK D IS VARIABLE. 



F2511860 

F2511870 

F2511880 

F2511890 

F2511900 

F2511910 

F2511920 

F2511930 

F25H940 

F2511950 

F2511960 

F2511970 

F2511980 

F2511990 

F25 12000 

F2512010 

F2512020 

F251203O 

F2512040 

F2512050 

F2512060 

F2512070 

F251208O 

F2512090 

F2512100 

F2512110 

F2512120 

F2512130 

F2512140 

F2512150 

F2512160 

F2512170 

F2512180 

F2512190 

F2512200 

F2512210 

F2512220 

F2512230 

F2512240 

F2512250 

F2512260 

F2512270 

F2512280 

F2512290 

F2512300 

F2512310 

F2512320 

F2512330 

F2512340 

F2512350 

F2512360 

F2512370 

F2512380 

F2512390 



fH 



o 



n 



r\ 



05601 


-0 63400 


2 


05250 


RTX140 SXD 


BLKNUM»2 


BLOCK E 


F2512400 


05602 


-0 53400 


2 


03647 


LXD 


TAG2»2 


PUT N BITS FOR SI 


F2512410 


05603 


07400 


4 


06620 


TSX 


NBITS.4 


PLACE N BITS PLUS 


F2512420 


05604 


40000 





05234 


ADD 


N3IND 


N3IND FOR SI 


F2512430 


05605 


60100 





05245 


STO 


ERTX01 


AND S2 INTO ERTX01 


F2512440 


05606 


-0 53400 


2 


03650 


LXD 


TA62+1»2 


FOR VARIABLE DECREMENT 


F2512450 


05607 


07400 


4 


06620 


TSX 


NBITS*4 


TEST. IF SUM IS NOT ZERO» 


F2512460 


05610 


40000 





05245 


ADO 


ERTX01 


THEN THE DECREMENT IS VARIABLE. 


F2512470 


05611 


-0 10000 





05644 


TNZ 


RTX154 


DECREMENT IS VARIABLE. 


F2512480 


05612 


50000 





03652 


CLA 


TAG3 


CONSTANT CASE* LAY 


F2512490 


05613 


77100 





00022 


ARS 


18 


OUT TAU ENTRY INTO 


F2512500 


05614 


07400 


4 


04236 


TSX 


SUBC0M.4 


WRKSC. 


F2512510 


05615 


-0 53400 


2 


03650 


LXD 


TAG2+1.2 


SET UP CENTER SUBSCRIPT 


F2512520 


05616 


53400 


1 


05127 


LXA 


L(2)il 


FOR EXIT ROUTINE. 


F2512530 


Q5617 


07400 


4 


04447 


TSX 


CXIJ»4 


COMPUTE XN3G FOR CENTER. 


F2512540 


05620 


40200 





05126 


SUB 


L(l) 


STORE SN3G-1 


F25 12550 


05621 


60100 





05246 


STO 


ERTX02 


IN ERTX02. 


F2512560 


05622 


53400 


1 


05240 


LXA 


P0SIND»1 


COMPUTE N3G 


F2512570 


05623 


-0 53400 


2 


05230 


LXD 


D0IND»2 


FOR RIGHT 


F2512580 


05624 


07400 


4 


06447 


TSX 


CN3IJ»4 


SUBSCRIPT (DOSUB). 


F2512590 


05625 


40000 





05246 


ADD 


ERTX02 


PUT FIRST TXI DECREMENT 


F2512600 


05626 


60100 





05245 


STO 


ERTX01 


IN ERTX01. 


F2512610 


05627 


07400 


4 


06513 


TSX 


EDCB»4 


COMPILES FIRST 


F2512620 


05630 


-0 53400 


2 


03647 


LXD 


TAG2.2 


THREE OF BLOCK E. 


F2 5 12630 


05631 


53400 


1 


05240 


LXA 


POSIND.l 


COMPUTE XN3G FOR 


F2512640 


05632 


1 00002 


1 


05633 


TX1 


RTX150»1.2 


LEFT SUBSCRIPT. 


F2512650 


05633 


07400 


4 


04447 


RTX150 TSX 


CXIJ»4 


IN ORDER TO CMPILE 2ND 


F2512660 


05634 


40200 





05126 


SUB 


Ldl 


TXI SXD TIX IN 


F2512670 


05635 


60100 





05245 


STO 


ERTX01 


BLOCK Et THE BLOCK 


F2512680 


05636 


60100 





05246 


STO 


ERTX02 


NUMBER IS SET TO 


F2512690 


05637 


-0 53400 


4 


05250 


LXD 


BLKNUM»4 


APPEAR LIKE BLOCK C SO 


F2512700 


05640 


2 00002 


4 


05641 


TIX 


RTX152.4.2 


THATTHE SXD LOCATION IS STORED 


F2512710 


05641 


-0 63400 


4 


05250 


RTX152 SXD 


BLKNUM.4 


PROPERLY INTO DOTAG. 


F2512720 


05642 


07400 


4 


06513 


TSX 


EDCB.4 


COMPILE 2ND TXI SXD TIX. 


F2512730 


05643 


02000 





05673 


TRA 


RTXI60 




F2512740 


05644 


07400 


4 


06546 


RTX154 TSX 


BCDE»4 


E IS VARIABLE. THIS TAKES 


F2512750 


05645 


07400 


4 


06224 


TSX 


CILV.4 


CARE OF FIRST 3 INSTRUCTIONS.? 


F2512760 




f\ t*~t t, Tt n 


4 


06625 


TSX 


CfL23*4 


THE REMAINING THREE ARE 


F2512770 


05646 


© 0740O 




05647 


50000 





05042 


CLA 


HTXI) 




F2512780 


05650 


60100 





05177 


STO 


CIL01 


NOW COMPILED. 


F2512790 


05651 


07400 


4 


04345 


TSX 


CIT.4 




F251280Q 


05652 


-0 53400 


4 


05250 


LXD 


BLKNUM*4 


CHANGE BLKNUM 


F2512810 


05653 


2 00002 


4 


05653 


RTX157 TIX 


RTX157»4»2 


FROM E 


F2512820 


05654 


-0 63400 


4 


05250 


SXD 


BLKNUM*4 


TO C AND 


F2512830 


05655 


07400 


4 


04472 


TSX 


CSXD»4 


TSX CSXD. 


F2512840 


05656 


-0 53400 


4 


05250 


LXD 


BLKNUM*4 




F2512850 


05657 


1 00002 


4 


05660 


TXI 


RTX157+5»4»2 




F2512860 


05660 


-0 63400 


4 


05250 


SXD 


BLKNUM.4 




F2512870 


05661 


-0 53400 


2 


03647 


LXD 


TAG2.2 


PLACE LOCATION OF SXD 


F2512880 


05662 


50000 





05176 


CLA 


CILOO 


INSTRUCTION IN PROPER DOTAG ENTRY 


F2S12890 


05663 


-0 32000 





05141 


ANA 


ADMSK 


AND POSITION. (LEFT SUB DO). 


F2512900 


05664 


76700 





00014 


ALS 


12 




F2512910 


05665 


-0 60200 


2 


01104 


ORS 


D0TAGZ+6»2 




F2512920 


05666 


07400 


4 


06224 


TSX 


CILV»4 


GENERATE AND 


F2512930 



]3> 



/ 



05667 
05670 
05671 
05672 
05673 
05674 
05675 
05676 
05677 
05700 
05701 
05702 
05703 
05704 
05705 
05706 
05707 
05710 
05711 
05712 
05713 
05714 
05715 
05716 
05717 
05720 
05721 
05722 
05723 
05724 
05725 
05726 
05727 
05730 
05731 
05732 
05733 
05734 
05735 
05736 
05737 
05740 
05741 
05742 
05743 
05744 
05745 
05746 
05747 
05750 
05751 
05752 
05753 
05754 



07400 
50000 
60100 
07400 
53400 
50000 
32000 
60100 
50000 
76700 
32000 
40200 
10000 
50000 
60100 
02000 
50000 
62100 
53400 
00004 
63400 
50000 
62100 
07400 
02000 
75400 
77100 
60100 
50000 
77100 
00002 
00001 
77100 
32000 
10000 
50000 
10000 
07400 
50000 
32000 
07400 
07400 4 
50000 
60100 
07400 
02000 
50000 
62100 
50000 
62100 
53400 
00000 
53400 
50000 



06625 TSX CIL23t4 

05046 CLA L(TIX) 

05177 STO CIL01 

04345 TSX C1T»4 

05230 RTX160 LXO D0IND.2 

01106 CLA DOTAGZ+8*2 

05105 ANA TETMSK 

05245 STO ERTX01 

03652 CLA TAG3 
00022 ALS 18 
05142 ANA DECMSK 
05245 SUB ERTX01 
05706 TN2 RTX164 
05237 CLA XTG 
05220 STO TETTGX 
05307 RTX164 TRA RTX06 
05116 RTX180 CLA INST26 
05414 STA RTX69+1 
05125 LXA LADMX.4 
05713 TXI RTX180+4.4.4 
05237 SXD XTGt4 

05113 CLA INST20 
06507 STA TGA8 
04516 RTX184 TSX ADTGSE.4 
05745 TRA RTX192 
00000 PXD 0»2 
00022 ARS 18 
05240 STO POSIND 

03653 CLA TAG4 
00025 ARS 21 

05732 TXH RTX190#2»2 

05730 TXL RTX188»2»1 

00002 ARS 2 

05131 RTX188 ANA L(3) 

05716 TNZ RTX184 

05234 RTX190 CLA N3IND 

05320 TZE RTX020 

06224 TSX CILVi4 

05176 CLA CILOO 
05141 ANA ADMSK 
06476 TSX TGA»4 
06625 TSX CIL23»4 
05042 CLA LtTXI) 

05177 STO CIL01 
04345 TSX CIT»4 
05716 TRA RTX184 
05115 RTX192 CLA INST24 
05414 STA RTX69+1 

05114 CLA INST22 
06507 STA TGA8 
05220 RTX195 LXD TETTGX. 1 
05770 TXH RTX197*1»0 
05230 RTX196 LXD D0IND»2 
01076 CLA D0TAGZ.2 



COMPILE REMAINING INSTRC. 

PUT INTO BUFFER. 

FINDING S.C. WHICH 

HAS AN S THAT IS THE TEST. 

TEST NAME. 

COMPARE TAG NAME 

WITH BEST TEST 

OF CURRENT DO. 

IF THIS TAG IS 

BEST TEST. 

STORE ITS INDEX 

IN TETTGX. 

GO TO FIND FOR NEXT TAG. 

RTX184 LOCATION. 

RESET AT END OF ROUTINE. 

PREPARE FOR ADTAG TXI. 



ADTGA LOCATION. 

SEARCH FOR ADTAG. 
END OF TABLE. START TX PHASE. 
ENTRY FOUND. CONTINUE ADTG CYCLE. 
POSIND IN ADDRESS. 

LOOK AT 
CARRY BITS. 
Sl» BLOCK A. 
S3 
S2 

CARRY Tl OR T2 BLOCK F. 

DECREMENT IS CONSTANT. 
DECREMENT IS VARIABLE. 
INSTRUCTION IS COMPILED 
AND ENTRY IS MADE 
IN APPENDED DRM TG WORD. 

COMPILE 

TXI AND PUT 

IN CIB. 

GET NEW ADTAG. 

RESET MODIFIED 

ADDRESSES FOR 

TXI CYCLE. 

DETERMINE IF THIS DO HAS A TEST. 
THIS DO HAS A TEST. 

THIS DO HAS NO TEST. THIS INFORMATION 
IS ENTERED IN A DRUM TABLE. 



F2512940 

F2512950 

F2512960 

F2512970 

F2512980 

F2512990 

F2513000 

F2513010 

F2513020 

F2513030 

F2513040 

F2513050 

F2513060 

F2513070 

F2513080 

F2513090 

F2513100 

F2513110 

F2513120 

F2513130 

F2513140 

F2513150 

F2513160 

F2513170 

F2513180 

F2513190 

F2513200 

F2513210 

F2513220 

F2513230 

F2513240 

F2513250 

F2513260 

F2513270 

F2513280 

F2513290 

F2513300 

F2513310 

F2513320 

F2513330 

F2513340 

F2513350 

F2513360 

F2513370 

F25I3380 

F2513390 

F251340O 

F2513410 

F2513420 

F2513430 

F2513440 

F2513450 

F2513460 

F2513470 



W 



u 



o 



o 



05755 





76700 





00004 


ALS 


4 


05756 





77100 





00004 


ARS 


4 


05757 





60100 





05251 


STO 


SXDTX2 


05760 





76600 





00301 


WRS 


193 


05761 





46000 





05064 


LOA 


DRADS3 


05762 





70000 





05251 


CPY 


SXDTXZ 


05763 





70000 





05251 


CPY 


SXDTXZ 


05764 





50000 





05064 


CLA 


0RADS3 


05765 





40000 





05127 


ADD 


L(2) 


05766 





60100 





05064 


STO 


DRADS3 


05767 





02000 





06222 


TRA 


RTX280 


05770 





76000 





00140 RTX197 


PSE 


096 


05771 





07400 


4 


04213 


TSX 


TGFM.4 


05772 





07400 


4 


04204 


TSX 


ISC*4 


05773 





07400 


4 


00004 


TSX 


DIAG.4 


05774 


-0 


75400 


2 


00000 


PXD 


0.2 


05775 





77100 





00022 


ARS 


18 


05776 





60100 





05240 


STO 


POSIND 


05777 





07400 


4 


06224 


TSX 


CILV.4 


06000 


-0 


53400 


2 


05230 


LXD 


D0IND.2 


06001 





07400 


4 


06620 


TSX 


NBITS»4 


06002 





60100 





05235 


STO 


N1N2N3 


06003 





50000 


2 


01101 


CLA 


D0TAGZ+3»2 


06004 


-0 


32000 





05104 


ANA 


60NES 


06005 


-0 


10000 





06045 


TN2 


RTX210 


06006 





53400 


1 


05240 


LXA 


POSINDtl 


06007 


-2 


00001 


1 


06015 RTX198 


TNX 


RTX200»1»1 


06010 





50000 





03653 


CLA 


TAG4 


06011 


-0 


32Q00 


1 


05152 


ANA 


BITMSM-2»1 


06012 





60100 





05254 


STO 


N1SBX 


06013 





07400 


4 


04566 


TSX 


N1S02.4 


06014 


-0 


10000 





06045 


TN2 


RTX210 


06015 


-0 


534C0 


1 


03652 RTX200 


LXD 


TAG3»1 


06016 


3 


00000 


1 


06021 


TXH 


RTX201»1»0 


06017 





07400 


4 


04230 


TSX 


ENTR*4 


06020 





02000 





06024 


TRA 


RTX202 


06021 





50000 





03652 RTX201 


CLA 


TAG3 


06022 





77100 





00022 


ARS 


18 


06023 





07400 


4 


04236 


TSX 


SUBC0M»4 


06024 


-0 


53400 


2 


05230 RTX202 


LXD 


D0IND*2 


06025 





53400 


1 


05240 


LXA 


P0SIND*1 


06026 





50000 


2 


01101 


CLA 


DOTAGZ+3.2 


06027 





07400 


4 


04451 


TSX 


CXIJ+2.4 


06030 


-2 


00001 


1 


06033 


TNX 


RTX204tl.l 


06031 





07400 


4 


04410 


TSX 


TELC+2.4 


06032 





50000 





05245 


CLA 


ERTX01 


06033 





60100 





05177 RTX204 


STO 


CIL01 


06034 


-0 


50000 





05047 


CAL 


LfTXL) 


06035 


-0 


60200 





05177 


ORS 


CIL01 


06036 





07400 


4 


06634 


TSX 


CILNAM.4 


06037 





50000 





05224 


CLA 


A 


06040 





40000 





05061 


ADD 


L1DEC 


06041 





60100 





05200 


STO 


CIL02 


06042 





07400 


4 


04345 


TSX 


CIT.4 



ELIMINATE BITS 

INSERTED BY DOGS. 

ENTER 

DOTAG 

WORD 

ONE 

INTO 

DOCAR 

DRUM 

TABLE. 

CLEAR SENSE LIGHTS. 

FILL OUT TAG WORDS. 

FIND DOSUB. 

SC NOT MODIFIED BY CURRENT DO. 

FORM 

POSITION 

INDICATOR. 

OBTAIN LOCATION FOR TEST* 

ISOLATE 

NBITS. 



N2 IS VARIABLE 

IS POSITION S3. 
CHECK FOR DORC 

Nl BIT. 

TXL VARIABLE DECREMENT. 



NOT NORMAL TAG. LAY OUT SIMULATED 
TAU ENTRY INTO WRKSC. 
PREPARE FOR 
SUBCOM ROUTINE. 
LAY OUT TAU ENTRY. 
PREPARE FOR AND CALL CXIJ 
ROUTINE TO COMPUTE XGN3. 
PTCH06 CALLS TELC ROUTINE 



COMPUTES LOAD VALUE FOR 
DEC* STORES IN ERTXOl. 
FINAL TXL DECREMENT. 



ENTER TAG NAME IN CIL03. 

ALPHA PLUS ONE IS 

ENTERED AS THE SYMBOLIC 

ADDRESS. 

ENTER TXL IN BUFFER. 



F2513480 

F2513490 

F2513500 

F2513510 

F2513520 

F2513530 

F2513540 

F2513550 

F2513560 

F2513570 

F2513580 

F2513590 

F2513600 

F 251 36 10 

F2513620 

F2513630 

F2513640 

F2513650 

F2513660 

F2513670 

F2513680 

F2513690 

F2513700 

F2513710 

F2513720 

F2513730 

F2513740 

F2513750 

F2513760 

F2513770 

F2513780 

F2513790 

F2513800 

F2513810 

F2513820 

F2513830 

F2513840 

F2513850 

F2513860 

F2513870 

F2513880 

F2513890 

F 25 13 900 

F2513910 

F2513920 

F2513930 

F25 13940 

F2513950 

F2513960 

F2513970 

F2513980 

F2513990 

F 25 14000 

F2514010 



l ? 



; 



06043 





50000 





05133 




CLA 


L(0) 


ELIMINATE VARIABLE INDICATOR BIT. 


F2514020 


06044 





02000 





06055 




TRA 


RTX214 




F2514030 


06045 





50000 





05047 


RTX210 


CLA 


LCTXL) 


COMPILE INSTRUCTION FOR VARIABLE DECREMENT.F2514040 


06046 





60100 





05177 




STO 


CIL01 




F2514050 


06047 





07400 


4 


06634 




TSX 


CILNAM.4 


ENTER TAG NAME. 


F2514060 


06050 





50000 





05224 




CLA 


A 


ALPHA PLUS ONE IS 


F2514070 


06051 





40000 





05061 




ADD 


L1DEC 


ENTERED AS THE 


F2514080 


06052 





60100 





05200 




STO 


C1L02 


SYMBOLIC ADDRESS. 


F2514090 


06053 





07400 


4 


04345 




TSX 


C1T.4 


ENTER COMPILED TXL IN BUFFER. 


F25 14100 


06054 





50000 





05154 




CLA 


BIT20 


TEST VARIABLE INDICATOR. 


F2514110 


06055 


-0 


53400 


2 


05230 


RTX214 


LXD 


D0IND»2 


ENTERONE IN BIT 20 IF 


F2514120 


06056 


-0 


60200 


2 


01106 




ORS 


00TAGZ+8»2 


VARIABLE DECREMENT. 


F2514130 


06057 





50000 





05176 




CLA 


CILOO 


STORE LOCATION 


F2514140 


06060 





76700 





00030 




ALS 


24 


OF 


F2514150 


06061 


-0 


60200 


2 


01104 




ORS 


D0TAGZ+6.2 


TEST. 


F2514160 


06062 





76000 





00141 




PSE 


097 


SET SENSE INDICATOR SO 


F2514170 


06063 


-0 


53400 


1 


05221 


RTX222 


LXD 


RTXTGX.l 


START SCAN FOR TIXING. 


F2514180 


06064 


-0 


63400 


1 


05237 




SXD 


XTG.l 




F2514190 


06065 





07400 


4 


04162 


RTX226 


TSX 


FIND.4 


FIND VALID TAG. FILL TAG WORDS. 


F2514200 


06066 





02000 





06201 




TRA 


RTX260 


END OF DO. 


F2514210 


06067 


-0 


63400 


1 


05237 




SXD 


XTG.l 


PRESERVE X OF TAG UNDER CONDSIDERATION. 


F2514220 


06070 





07400 


4 


04373 


RTX228 


TSX 


SCLMN1»4 


COMPARE LARGEST S I NOES 


F2514230 


06071 





40200 





05230 




SUB 


DOIND 


WITH INDEX OF THE DO. 


F2514240 


06072 





10000 





06144 




TZE 


RTX234 


DO IS OUTER. OBTAIN TAG. 


F2514250 


06073 


-0 


53400 


2 


03652 




LXD 


TAG3.2 




F2514260 


06074 


3 


00000 


2 


06103 




TXH 


RTX229.2.0 


CURRENT TAG VALID. FILL OUT WRKSC. 


F2514270 


06075 





50000 





03652 




CLA 


TAG3 


NEW TAG. DETERMINE 


F2514280 


06076 





77100 





00013 




ARS 


11 


IF TAU ENTRY 


F2514290 


06077 





76000 





00001 




LBT 




EXISTS. 


F2514300 


06100 





02000 





06110 




TRA 


RTX229+5 


NO.TSX ENTR. 


F2514310 


06101 





50000 





03652 




CLA 


TAG3 


YES. TSX 


F2514320 


06102 





02000 





06105 




TRA 


RTX229+2 


SUBCOM. 


F2514330 


06103 





50000 





03652 


RTX229 


CLA 


TAG3 


CURRENT TAG 


F2514340 


06104 





77100 





00022 




ARS 


18 


VALID. 


F2514350 


06105 


-0 


32000 





05153 




ANA 


11BITS 


FILL OUT 


F2514360 


06106 





07400 


4 


04236 




TSX 


SUBC0M»4 


WRKSC AND 


F2514370 


06107 





02000 





06111 




TRA 


RTX230 


CONTINUE. 


F2514380 


06110 





07400 


4 


04230 




TSX 


ENTR.4 


ARTIFICIAL WRKSC ENTRY. 


F2514390 


06111 





53400 


4 


05240 


RTX230 


LXA 


P0SIND.4 




F2514400 


06112 


2 


00001 


4 


06114 




TIX 


CLA. 4.1 


MOVE RIGHT ONE POSITION. 


F2514410 


06113 





02000 





06130 




TRA 


RTX232 


POSITION IS RIGHT. IGNORE CARRY. 


F2514420 


06114 





50000 





03653 


CLA 


CLA 


TAG4 


POSITION IS LEFT OR CENTER. 


F25 14430 


06X15 


Q 


77100 





Q00Q1 




AKS 


1 


OR. TYPE 1 AND 2 


F2544440 


06116 


-0 


50100 





03653 




ORA 


TAG4 


CARRY BITS FOR LEFT 


F2514450 


06117 


-3 


00001 


4 


06122 




TXL 


ARS.4.1 


AND CENTER POSITIONS. 


F2514460 


06120 





77100 





00027 




ARS 


23 


S2 CARRY BIT IN- POSITION 35. 


F2514470 


06121 





02000 





06123 




TRA 


LBT 




F2514480 


06122 





77100 





00025 


ARS 


ARS 


21 


S3 CARRY BIT IN POSITION 35 


F2514490 


06123 





76000 





00001 


LBT 


LBT 




TEST FOR DOSUB CARRY BIT. 


F2514500 


06124 





02000 





06130 




TRA 


RTX232 


NO CARRY. CONTINUE. 


F2514510 


06125 





50000 





05220 




CLA 


TETTGX 


CARRY* SEE IF THIS 


F2514520 


06126 





40200 





05237 




SUB 


XTG 


TAG IS BEST TEST. 


F2514530 


06127 


-0 


10000 





06200 




TNZ 


RTX254 


NO. GET NEXT TAG. 


F2514540 


06130 





50000 





05046 


RTX232 


CLA 


L(TIX) 


COMPILE TIX INSTRUCTION. 


F2514550 



5> ? 



n 



O 



06131 





60100 





05177 




STO 


CIL01 


66132 





50000 





05235 




CLA 


N1N2N3 


06133 





10000 





06147 




TZE 


RTX238 


06134 


-0 


76000 





00141 




MSE 


097 


06135 





76100 





00000 




NOP 




06136 





07400 


4 


06224 




TSX 


CILV»4 


06137 





07400 


4 


06625 




TSX 


CIL23*4 


06140 





50000 





05176 




CLA 


CILOO 


06141 


-0 


32000 





05141 




ANA 


ADMSK 


06142 





07400 


4 


06477 




TSX 


T6AT»4 


06143 





02000 





06177 




TRA 


RTX250 


06144 





50000 





05050 


RTX234 


CLA 


L(DED) 


06145 





60100 





05177 




STO 


CIL01 


06146 





02000 





06171 




TRA 


RTX242 


06147 





53400 


1 


05240 


RTX238 


LXA 


P0SIND*1 


06150 


-0 


53400 


2 


05230 




LXD 


D0IND»2 


06151 





07400 


4 


04447 




TSX 


CXIJ»4 


06152 





60100 





05245 




STO 


ERTX01 


06153 





56000 





03653 




LDQ 


TAG4 


06154 





76300 


1 


00033 




LLS 


27*1 


06155 





76000 





00001 




LBT 




06156 





02000 





06167 




TRA 


RTX240 


06157 


1 


00001 


1 


06160 


RTX239 


TXI 


RTX239+1»1»1 


06160 





5600O 





03653 




LDQ 


TAG4 


06161 





76300 


1 


00033 




LLS 


27.1 


06162 





76000 





00001 




LBT 




06163 





02 000 





06157 




TRA 


RTX239 


06164 





07400 


4 


04447 




TSX 


CXIJ»4 


06165 





40000 





05245 




ADO 


ERTX01 


06166 





60100 





05245 




STO 


ERTX01 


06167 





50000 





05245 


RTX240 


CLA 


ERTX01 


06170 





62100 





05177 




STA 


CIL01 


06171 


-0 


76000 





00141 


RTX242 


MSE 


097 


06172 





02000 





06176 




TRA 


RTX246 


06173 





07400 


4 


06224 




TSX 


CILV»4 


06174 





07400 


4 


06625 




TSX 


C1L23*4 


06175 





02000 





06177 




TRA 


RTX250 


06176 





07400 


4 


06465 


RTX246 


TSX 


CIL023*4 


06177 





07400 


4 


04345 


RTX250 


TSX 


CIT.4 


06200 





02000 





06065 


RTX254 


TRA 


RTX226 


06201 





53400 


4 


05125 


RTX260 


LXA 


LADMX»4 


06202 


I 


00004 


4 


06203 




TXI 


RTX260+2»4*4 


06203 


-0 


63400 


4 


05237 




SXD 


XTG»4 


06204 





07400 


4 


04516 


RTX264 


TSX 


ADTGSE.4 


06205 





02000 





06216 




TRA 


RTX27Q 


06206 


-0 


75400 


2 


00000 




PXD 


0*2 


06207 





77100 





00022 




ARS 


18 


06210 





60100 





05240 




STO 


POSIND 


06211 





50O0O 





05117 




CLA 


INST30 


06212 





62100 





06200 




STA 


RTX254 


06213 





50000 





05113 




CLA 


INST20 


06214 





62100 





06507 




STA 


TGA8 


06215 





02000 





06070 




TRA 


RTX228 


06216 





50000 





05120 


RTX270 


CLA 


INST32 



TEST FOR VARIABLE DECREMENT* 

DECREMENT IS CONSTANT. 

DECREMENT IS VARIABLE8 TURN OFF 

LIGHT INDICATION FIRST 

TIX AFTER TXL AND ASSIGN 

LOCATION. 

WHEN DECREMENT IS VARIABLE* LOCATION 

MUST BE STORED IN TGA WORD 

FOR SXD ADDRESS IS OBJECT TIME. 

NOW PERFORM COMPILING. 

COMPILE OP WHICH INDICATES 

SC IS DEAD. 

ASSIGN LOCATION IF NECESSARY. 

DECREMENT IS CONSTANT. 

TEST FOR DUPLICATES 

AND COMPUTE ACCORDINGLY. 

XN3G IN ERTX01. 

TEST 

FOR 

DUPES. 

NO DUPES. 

DUPES EXIST 

TEST DUPE 

BITS OF POSITIONS 

TO THE LEFT OF DOSUB ' 

UNTIL THAT POSITION IS 

IN XA» THEN CALLCXIJ 

AND COMPUTE AND ADD 

DECREMENT ADJUSTMENT. 

PUT COMPUTED DE EREMTN 

IN CIL01 WORD. 

A L0C MUST BE ASSIGNED IF 

THIS IS FIRST TIX AFTER 
TEST. 



COMPILE INST. 
RETURN FOR NEXT TG. 
START DRMTG SEARCH AND 

COMPILING 

FIND VALID TAG* FILL OUT TAG WDS. 

END OF TABLE 

STORE POSITION 

OF DOSUB 

IN POSIND. 

MODIFY TGTG 

TIX COMPILING 

ROUTINE TO 

AND EXECUTE. 

ADTG PORTION FINISHED. 



F2514560 

F2514570 

F2514580 

F2514590 

F2514600 

F2514610 

F2514620 

F2514630 

F2514640 

F2514650 

F2514660 

F2514670 

F2514680 

F2514690 

F2514700 

F2514710 

F2514720 

F2514730 

F2514740 

F2514750 

F2514760 

F2514770 

F2S14780 

F 25 14790 

F2514800 

F2514810 

F2514820 

F2514830 

F2514840 

F2514850 

F2514860 

F2514870 

F2514880 

F2514890 

F2514900 

F2514910 

F2514920 

F2514930 

F2514940 

F2514950 

F2514960 

F2514970 

F2514980 

F2514990 

F2515000 

F2515010 

F2515020 

F2515030 

F25 15040 

F2515050 

F2515060 

F2515070 

F2515080 

F2515090 



VI 



06217 
06220 
06221 
06222 
06223 



06224 
06225 
06226 
06227 
06230 
06231 
06232 
06233 
06234 



06235 
06236 
06237 
06240 
06241 
06242 



06243 
06244 
06245 
06246 
06247 
06250 
06251 
06252 
06253 
06254 
06255 
06256 
06257 
06260 
06261 
06262 
06263 
06264 
06265 
06266 
06267 
06270 
06271 
06272 
06273 
06274 
06275 



62100 
50000 
62100 
-0 53400 4 
02000 4 



50000 
60100 
40000 
60100 
32000 
40200 
10000 
02000 
07400 



53400 
50000 
77100 
32000 
60100 
02000 



50000 
32000 
60100 
50000 
77100 
32000 
60100 
40200 
32000 
53400 
50000 
10000 
73400 
50000 
32000 
77100 
O 40200 O 
-0 10000 
56000 
76300 
76000 
02000 
02000 
50000 
77100 
60200 
00001 





-0 




-0 







-0 


-0 











-0 
2 



06200 
05114 
06507 
05325 
00001 



05244 
05176 
05110 
05244 
05141 
05060 
06234 
00001 
00004 



05230 
01076 
00017 
05126 
05234 
00001 



03652 
05141 
05241 
03653 
00011 
05076 
05242 
05126 
05242 
05131 
03652 
0oi75 
00000 
01106 
05103 
00022 
0524-1 
06275 
05242 
00044 
00001 
06272 
06275 
05136 
00012 
03653 
06255 



STA 

CLA 

STA 

RTX280 LXD 

TRA 



RTX254 

INST22 

TGA8 

RTX024»4 

1»4 



REMODIFY TIX COMPILING 

ROUTINE FOR TGTGS. 

END OF BETA CYCLE8 RETURN TO 1 PLUS 

LOCATION OF THE INSTRUCTION 

CALLING RTX. 



F2515100 
F2515110 
F2515120 
F2515130 
F2515140 



CILV 



CILV1 



N3BIT 



CLA 
STO 
ADD 
STO 
ANA 
SUB 
T2E 
TRA 
TSX 



LXD 
CLA 
ARS 
ANA 
STO 
TRA 



TETG CLA 
ANA 
STO 
CLA 
ARS 
ANA 
STO 
SUB 
ANS 
LXA 
CLA 
TZE 
POX 
CLA 
ANA 
ARS 
SUB 
TNZ 
LDQ 
LLS 
LBT 
TRA 
TRA 

TETG3 CLA 
ARS 
ORS 

TETG5 TIX 



♦♦*****»*****************************************************F251515Q 

CILV IS CALLED WHEN AN INSTRUCTION NUMBER IS NEEDED FOR A C0MF2515160 

PILED BETA STATE INSTRUCTION. F2515170 

VCTR THIS ROUTINE UPDATES F2515180 

CILOO VCTR AND F2515190 

U(8) STORE IT INTO CILOO F2515200 

VCTR IT IS CALLED WHEN F2515210 

ADMSK. WE NEED A LOCATION F2515220 

MAXLOC FOR A COMPILED F2515230 

CILV1 INSTRUCTION. F2515240 

1# 4 F2515250 

01AG.4 TOO MANY INSTRUCTION NUMBERS. F2515260 

****»*»******************************************************F25 15270 

N3BIT PLACES THE VARIABLE N3 BIT OF A DO IN THE WORK N3IND. F2515280 

D01ND.2 THIS ROUTIN E ISOLATES 

D0TAGZ.2 THE N3 BIT SO THAT 

15 IT CAN BE EASILY TESTED. 

Lfl) 

N3IND 

1,4 RETURN 

TETG DETERMINES FOR WHICH DOS A GIVEN TAG IS A TEST. THIS 

INFORMATION IS RECORDED IN TAG4. , 



TAG3 

ADMSK. 

ER40 

TAG4 

9 

L(7) 

ER41 

L(l) 

ER41 

L<3).1 

TAG2+3»1 

TETG5 

0*2 

DOTAGZ+8.2 

TETMSK 

18 

ER40 

TETG5 

ER41 

36»1 

TETG3 

TETG5 

BIT1 

10»1 

TAG4 

TETG+10»1»1 



ISOLATE 
TAG NAME. 

ISOLATE DUPES INDICATORS 

IF THERE ARE DUPES 
THIS INSURES THAT TEST BITS 
ARE ENTERED ONLY FOR 
RIGHTMOST DUPE. 

SELECT DOTAG WHICH 
CONTROLS THIS 
SUBSCRIPT. 

ISOLATE TEST NAME 

OF THIS 5UBSCRIPT. 

DOES TEST NAME EQUAL TAG NAME. 

N0» GO TO NEXT SUBSCRIPT. 

TEST NAME EQUALS TAG NAME* 

SEE IF THIS 5UBSCRIPT 

IS A LEFT DUPE. 

NOT A LEFT DUPE* ENTER TEST BIT. 

LEFT DUPEt IGNORE. 

ENTER TEST BIT 

FOR THIS 

SUBSCRIPT. 

DEAL WITH NEXT SUBSCRIPT. 



F2515290 

F2515300 

F2515310 

F2515320 

F2515330 

F2515340 

F2515350 

F2515360 

F2515370 

F2515380 

F2515390 

F2515400 

F2515410 

F2515420 

F2515430 

F2515440 

F2515450 

F2515460 

F2515470 

F2515480 

F25 15490 

F2515500 

F2515510 

F2515520 

F2515530 

F2515540 

F2515550 

F2515560 

F2515570 

F2515580 

F2515590 

F2515600 

F2515610 

F2515620 

F2515630 



o 



n 



n 



06276 O20O0 4 00001 



TRA 



1,4 F2515640 

#*#*******»**********»*****»*»*******************************F25 15650 
PRES DETERMINES THE TXI BLOCK. NJMBER FOR A GIVEN TAG AND PUTSF2515660 



IT IN INDEX REGISTER B. 



06277 





50000 





03653 


PRES 


CLA 


TAG4 


06300 





76500 





00032 




LRS 


26 


06301 





76700 





00041 




ALS 


33 


06302 





60100 





05241 




STO 


ER40 


06303 





76300 





00005 




LLS 


5 


06304 





76700 





00024 




ALS 


20 


06305 


-0 


50100 





03653 




ORA 


TAG4 


06306 





77100 





00025 




ARS 


21 


06307 


-0 


32000 





05132 




ANA 


L(5) 


06310 





60100 





05242 




STO 


ER41 


06311 





76300 





00005 




LLS 


5 


06312 


-0 


50100 





05240 




ORA 


POSIND 


06313 





56000 





05241 




LDQ 


ER40 


06314 





76300 





00001 




LLS 


1 


06315 





76700 





00001 




ALS 


1 


06316 





76300 





00002 




LLS 


2 


06317 


-0 


50100 





05242 




ORA 


ER41 


06320 





60100 





05243 




STO 


ARG 


06321 


-0 


63400 


4 


05241 




SXD 


ER40i4 


06322 





53400 


1 


05126 




LXA 


L(l).l 


06323 


1 


00042 


1 


06324 




TXI 


PRES10»1»34 


06324 


-0 


63400 


1 


06364 


PRES10 


SXD 


S3»l 


06325 


1 


00012 


1 


06326 




TXI 


PRES20*ltlO 


06326 





50000 





05144 


PRES20 


CLA 


5MSK1 


06327 





60100 





05143 




STO 


SMSK 


06330 





07400 


4 


06354 




TSX 


SEARCH »4 


06331 





50000 





05145 




CLA 


SMSK2 


06332 





60100 





05143 




STO 


SMSK 


06333 


2 


00014 


1 


06334 




TIX 


PRES30»1.12 


06334 


-0 


63400 


1 


06364 


PRES30 


SXD 


S3»l 


06335 


1 


00014 


1 


06336 




TXI 


PRES40»1.12 


06336 





07400 


4 


06354 


PRES40 


TSX 


SEARCH .4 


06337 





50000 





05147 




CLA 


SMSK4 


06340 





60100 





05143 




STO 


SMSK 


06341 


2 


00020 


1 


06342 




TIX 


PRES50*1.16 


06342 


-0 


63400 


1 


06364 


PRES50 


SXD 


S3.1 


06343 


1 


00020 


1 


06344 




TXI 


PRES60»1»16 


06344 





07400 


4 


06354 


PRES60 


TSX 


SEARCH »4 


06345 





50000 





05146 




CLA 


SMSK3 


06346 





60100 





05143 




STO 


SMSK 


06347 


2 


00006 


1 


06350 




TIX 


PRES70.1.6 


06350 


-0 


63400 


1 


06364 


PRES70 


SXD 


S3»l 


06351 


1 


00006 


1 


06352 




TXI 


PRES80*1»6 


06352 





07400 


4 


06354 


PRES80 


TSX 


SEARCH .4 


06353 





07400 


4 


00004 


ERROR 


TSX 


DIAG.4 



F2515670 
F2515680 
F2515690 
F2515700 
F2515710 
F2515720 
F2515730 
F2515740 
F2515750 
F2515760 
F2515770 
F25 15780 
F2515790 
F2515800 
F2515810 
F2515820 
F2515830 
F2515840 
F25 15850 
F2515860 
F2515870 
F2515880 
F2515890 
F2515900 
F2515910 
F2515920 
F2515930 
F2515940 
F2515950 
F2515960 
F2515970 
F2515980 
F2515990 
F2516Q00 
F2516010 
F2516020 
F251603O 
F2516040 
F2516050 
F2516060 
F2516070 
F2516080 
F2516090 
F2516100 
F2516110 
ALL SEARCHES FAILED. F2516120 

#*#**«****«***********************************************»**F2516130 
SEARCH IS CALLED BY PRES TO COMPARE CONSTANTS IN THE RX TABLEF2516140 
AGAINST VARIOUS PERMUTATIONS OF AN ARGUMENT WORD* A MATCHINGF2516150 
COMPARISON MEANS THE CONSTANT WILL YIELD THE CORRECT BLOCK NUF2516160 



FIRST THE TEST 

BITS ARE ISOLATED 

AND STORED. 

TEST BITS 1.2. 

THEN THE GROUP NO. 

IS LEFT 

IN THE MQ WHILE THE 

CARRY BITS ARE ORED 

AND STORED. 

CARRY BITS 101. 

THE GROUP NO. IS THEN 

SHIFTED TO BE COMBINED 

WITH THE POS. THE TEST 

BITS ARE SEPARATED SO THAT 

THEY CAN OR PROPERLY WITH 

CARRY BITS LT. LC» CT. CC. 

THIS RESULTS IN THE MASK 

USED FOR TABLE SEARCH. 

THIS BLOCK REPRESENTS 
SETS OF CALLING SEQUENCES TO 
SEARCH ROUTINE. MASK IS 
STORED AND BLOCK TEST 
INDEX DECREMENT IS STORED. 
FIRST 11 ENTRIES ARE 
SEARCHED. THEN 12.12.4, 
RETURN TO ROUTINE 
AFTER SEARCHING LAST 
BLOCK INDICATES AN ERROR. 



NUMBER* 



F2516170 



/y/ 



06354 


50000 1 06450 SEARCH 


CLA 


RXTA+45»1 


06355 


77100 00003 


ARS 


3 


06356 


60100 05217 


STO 


WRKRXT 


06357 


50000 05243 


CLA 


ARG 


06360 


-0 32000 05143 


ANA 


SMSK 


06361 


40200 05217 


SUB 


WRKRXT 


06362 


10000 06366 


TZE 


S8 


06363 


2 00001 1 06364 


TIX 


S3»ltl 


06364 


3 00000 1 06354 S3 


TXH 


SEARCH fl 


06365 


02000 4 00001 


TRA 


1*4 


06366 


50000 1 06450 S8 


CLA 


RXTA+45»1 


06367 


-0 32000 05076 


ANA 


L<7) 


06370 


73400 2 00000 


PAX 


0»2 


06371 


-0 53400 4 05241 


LXD 


ER40»4 


06372 


02000 4 00001 


TRA 


1»4 


06373 


+000000006600 RXTA 


OCT 


6600 


06374 


+000000006400 


OCT 


6400 


06375 


+000000006200 


OCT 


6200 


06376 


+000000005600 


OCT 


5600 


06377 


+000000004600 


OCT 


4600 


06400 


+000000004200 


OCT 


4200 


06401 


+000000003600 


OCT 


3600 


06402 


+000000003400 


OCT 


3400 


06403 


+000000002400 


OCT 


2400 


06404 


+000000001600 


OCT 


1600 


06405 


+000000005501 


OCT 


5501 


06406 


+000000005400 


OCT 


5400 


06407 


+000000005302 


OCT 


5302 


06410 


+000000005200 


OCT 


5200 


06411 


+000000004541 


OCT 


4541 


06412 


+000000004501 


OCT 


4501 


06413 


+000000004445 


OCT 


4445 


06414 


+000000004400 


OCT 


4400 


06415 


+000000001541 


OCT 


1541 


06416 


♦000000001501 


OCT 


1501 


06417 


+000000001445 


OCT 


1445 


06420 


+000000001400 


OCT 


1400 


06421 


+000000001215 


OCT 


1215 


06422 


+000000001200 


OCT 


1200 


06423 


+000000002723 


OCT 


2723 


06424 


+000000002733 


OCT 


2733 


06425 


+000000002623 


OCT 


2623 


06426 


♦000000002633 


OCT 


2633 


06427 


+000000003324 


OCT 


3324 


06430 


+000000003302 


OCT 


3302 


06431 


+000000003223 


OCT 


3223 


06432 


♦000000003200 


OCT 


3200 


06433 


+000000001334 


OCT 


1334 


06434 


+000000001324 


OCT 


1324 


06435 


+000000001315 


OCT 


1315 


06436 


+000000001302 


OCT 


1302 


06437 


+000000001233 


OCT 


1233 


06440 


+000000001223 


OCT 


1223 


06441 


+000000002600 


OCT 


2600 



THIS ROUTINE TAKES 
THE ARGUMENT MASK, EDITS 
IT AND THEN SEARCHES 
PRESCRIBED BLOCKS OF 
THE RX TABLE, 
SUCCESSFUL SEARCH. 
INDEX FOR NEXT ENTRY* 
TEST FOR END OF BLOCK. 

TABLE ENTRY CONTAINS 
BLOCK NOS. 0-5 WHICH 
CORRESPOND TO BLOCKS 
A-F. 

6L* 760 MASK 

6C 

6R 

5L 

4L 

4R 

3L 

3C 

2C 

1L 

5C* 774 MASK 

5C 

5R 

5R 

4C 

4C 

4C 

4C 

1C 

1C 

1C 

1C 

1R» 773 MASK 

1R 

2L 

2L 

2L 

2L 

3R 

3R 

3R 

3R 

1R 

1R 

1R 

1R 

1R 

1R 

2L» 763 MASK 



F2516180 

F2516190 

F2516200 

F2516210 

F2516220 

F2516230 

F25 16240 

F2516250 

F2516260 

F2516270 

F2516280 

F2516290 

F2516300 

F2516310 

F2516320 

F2516330 

F2516340 

F2516350 

F2516360 

F2516370 

F2516380 

F2516390 

F2516400 

F2516410 

F2516420 

F2516430 

F2516440 

F2516450 

F2516460 

F2516470 

F2516480 

F2516490 

F2516500 

F2516510 

F2516520 

F2516530 

F2516540 

F2516550 

F2516560 

F2516570 

F2516580 

F2516590 

F251660Q 

F2516610 

F2516620 

F2516630 

F2516640 

F2516650 

F2516660 

F25 16670 

F2516680 

F2516690 

F2516700 

F2516710 



}VZ 



n 



r\ 



06442 +000000002610 

06443 +000000002233 

06444 +000000002223 

06445 +000000002215 

06446 +000000002200 



OCT 
OCT 
OCT 
OCT 
OCT 



2610 
2233 
2223 
2215 
2200 



2L 
2R 
2R 
2R 
2R 



F2516720 
F2516730 
F2516740 
F2516750 
F2516760 



•*4HHHt****************#*****»«*****************#*************F2516770 
CN3IJ COMPUTES THE INDEX INCREMENTING VALUE FOR EACH PASS THRF2516780 
THROUGH A DO LOOP. THIS IS THE NORMAL TXI DECREMENT. F2516790 



06447 
06450 
06451 
06452 
06453 
06454 
06455 
06456 
06457 
06460 
06461 
06462 
06463 
06464 



56000 
76300 
00002 
20000 
76500 
00001 
20000 
76500 
75400 
76700 
73400 
20000 
77100 
02000 



01102 
00022 
06457 
03644 
00022 
06457 
03645 
00022 
00000 
00001 
00000 
03644 
00001 
00001 



CN3IJ LDQ 
LLS 
TXH 
MPY 
LRS 
TXH 
MPY 
LRS 

CN3IJ5 PXD 
ALS 
PDX 
MPY 
ARS 
TRA 



D0TAGZ+4»2 

18 

CN3IJ5»1»2 

WRKSC+6 

18 

CN3IJ5.1.1 

WRKSC+7 

18 

0*1 

1 

0*1 

WRKSC+6* 1 

1 

1*4 



COMPUTES DECREMENT AND 
LEAVES IT IN ACCUMULATOR. 
IF POSIND=3» SI POS. 
D1N3 FOR S2 OR S3. 

POSIND=2 S2 POS. 
02D1N3 FOR S3. 

PLACE TWICE 

POSIND IN 

INDEX REGISTER. 

CN3D1D2 OR CN3D1 OR CN3. 



06465 





50000 





05133 


CIL023 CLA 


06466 





60100 





05176 


STO 


06467 





50000 





05061 


CLA 


06470 





60100 





05201 


STO 


06471 





50000 





05077 


CLA 


06472 





60100 





05200 


STO 


06473 


e 


5O00O 





03652 


CLA 


06474 





62100 





05201 


STA 


06475 





02000 


4 


00001 


TRA 



F2516800 
F2516810 
F2516820 
F2516830 
F2516840 
F2516850 
F2516660 
F2516870 
F2516880 
F2516890 
F2516900 
F2516910 
F2516920 
RESULT IS N3G. F2516930 

»****#*******#«********************#************»********#«**F25 16940 
CIL023 FILLS OUT THE LOCATION* ADDRESS* AND TAG NAME WORDS FOF2516950 
FOR NON-LOCATION COMPILED INSTRUCTIONS ADDRESSING THE FOLLOWIF2516960 
ING INSTRUCTIONS F2516970 

L(0) ROUTINE PLACES SPECIAL F2516980 

CI LOO F2516990 

L1DEC SYMBOL FOR ADDRESS F2517000 

CIL03 F2517010 

BCD15 AND INITIALIZES LOC. WORD F2517020 

CIL02 AND PLACES TAG IN F2517030 

TAG3 TAG WD. THIS IS DOEN F2517040 

CIL03 FOR INST. OF K DECREMENT. F2517050 

1*4 F2517060 

******************»**«*************»***********#*****#»***»**F25 17070 
TGA MAKES AN ENTRY IN APPENDED TAGTAG SHOWING THE LOCATION 0FF2517080 
A GIVEN VARIABLE DECREMENT TXI OR T1X. FOR REFERENCE BY THE F2517090 



06476 





76700 





00022 


TGA 


ALS 


18 


06477 





77100 





00003 


TGAT 


ARS 


3 


06500 





60100 





05202 




STO 


ERTGA 


06501 





53400 


1 


05240 




LXA 


POSIND. 1 


06502 





50000 





05237 




CLA 


XTG 


06503 





77100 





00002 




ARS 


2 


06504 


-0 


73400 


2 


00000 




PDX 


0*2 


06505 





50000 





05202 




CLA 


ERTGA 


06506 


2 


00001 


1 


06511 


TGA5 


TIX 


TGAlO.lil 


06507 


-0 


60200 


2 


02646 


T6A8 


ORS 


MXT6A.2 


06510 





02000 


4 


00001 




TRA 


1*4 


06511 





76700 





00006 


TGA 10 


ALS 


6 


06512 





02000 





06506 




TRA 


TGA5 



ALPHA STATE WHEN COMPILING CECREMENT INITIALIZATION 
INSTRUCTIONS. 

FOR RX LOC. 

FOR TX LOC» DIV VCTOR BY 8. 



F2517100 
F2517110 
F2517120 
F2517130 
F2517140 
F2517150 
F2517160 
F2517170 
F2517180 
F2517190 
F2517200 
F2517210 
F2517220 
F2517230 
F2517240 
***»**#**»********»**********»*****# «****«************«*«*t**F25 17250 



CALCULATES X LOC OF TTGA. 
INDEX QUANTITY FOR TTGA IS 
ONE FOURTH THAT FOR TTG. 

SHIFT LEFT FOR SI OR S2 
ADDRESS IS ORIGIN PLUS MAX 
ADD TG WD. LINKAGE TRANSFER. 



?</3 



06513 
065 14 
06515 
06516 
06517 
06520 
06521 
06522 
06523 
06524 
06525 
06526 
06527 
06530 
06531 
06532 
06533 
06534 
06535 
06536 
06537 
06540 
06541 
06542 
06543 
06544 
06545 



06546 
06547 
06550 
06551 
06552 
06553 
06554 
06555 
06556 
"06557 
06 560 
06561 
06562 
06563 
06564 
06565 
06566 
06567 
06570 
06571 
06572 



63400 
50000 
60100 
50000 
62100 
07400 
07400 
074O0 
50000 
32000 
76700 
53400 
00002 
53400 
00001 
76700 
00000 
53400 
60200 
50000 
60100 
50000 
62100 
07400 
07400 
53400 
02000 



63400 4 
07400 4 
50000 
32000 
07400 
50000 
60100 
07400 
07400 
O ©7400 4 
-0 53400 2 
00002 
50000 
53400 
32000 
76700 
60200 
00000 
50000 
53400 
32000 



-0 



-0 








-3 



-0 

-0 



-0 

-3 



-0 

-0 



06533 EDCB 

05042 

05177 

05245 

05177 

06465 

04345 

04472 

05176 

05141 

00014 

05250 

06534 

03647 

06533 

00006 

06535 EDCB5 

03650 EDCB10 

01104 EDCB20 

05046 

05177 

05246 

05177 

06465 

04345 

06533 

00001 



06567 BCOE 

06224 

05176 

05141 

06476 

05042 

05177 

06625 

0*345 

04472 

05250 

06570 

05176 

03650 

05141 

00014 

01104 

06577 BC0E2 

05176 BCDE5 

03647 

05141 



SXD 
CLA 
STO 
CLA 
STA 
TSX 
TSX 
TSX 
CLA 
ANA 
ALS 
LXD 
TXH 
LXD 
TXH 
ALS 
TXL 
LXD 
ORS 
CLA 
STO 
CLA 
STA 
TSX 
TSX 
LXD 
TRA 



SXD 
TSX 
CLA 
ANA 
TSX 
CLA 
STO 
TSX 
TSX 
TSX 
LXD 
TXL 
CLA 
LXD 
ANA 
ALS 
ORS 
TXL 
CLA 
LXD 
ANA 



EDCB COMPILES TXi-SXD-TIX INSTRUCTIONS AND STORES THE SXD LOCF2517260 
ATION FOR BLOCKS B.C.Dt OR E WHEN THE DECREMENTS ARE CONSTANTF2517270 
AND KNOWN. 

COMPILES TXI SXD TIX 

INSTRUCTIONS WHEN 

DECREMENTS ARE KNOWN* 

ASSUMES DECREMENTS TO 

BE IN ERTX01 AND 

ERTX02. 

COMPILE TXI INSTRUCITON. 

COMPILE SXD SKELETON. 



EDCB5#4 

LtTXIJ 

CIL01 

ERTX01 

CIL01 

CIL023«4 

CIT.4 

CSXD.4 

CILOO 

ADMSK 

12 

BLKNUM»4 

EDCB10»4»2 

TAG2.2 

EDCB5»4»1 

6 

EDCB20»0 

TAG2+1.2 

D0TAGZ+6»2 

L(TIX) 

CIL01 

ERTX02 

CIL01 

CIL023»4 

CIT»4 

EDCB5»4 

1»4 



BELOW* PLACE SXD LOC. INTO 

DOTAG WORD 7. APPROPRIATE 

BITS DEPEND ON BLOCK NOS. 

BLOCKS D» E SHIFT LEFT 12. 

BLOCKS C» B USE SI DOTAG. 

BLOCK Ct SHIFT LEFT 12. 

BLOCK B* SHIGT LEFT 18. 

BLOCK D.E USE S2 DOTAG. 

PLACE LOC. INTO WD 7. 

COMPILE 

TIX. 

COMPILE 

TIX DECREMENT. 



F2517280 
F2517290 
F2517300 
F2517310 
F2517320 
F2517330 
F2517340 
F2517350 
F2517360 
F2517370 
F2517380 
F2517390 
F2517400 
F2517410 
F2517420 
F2517430 
F2517440 
F2517450 
F2517460 
F2517470 
F2517480 
F25 17490 
F2517500 
F2517510 
F2517520 
F2517530 
F2517540 
F2517550 



*»****»***********************************************»******F2517560 
BCOE COMPILES TXI-SXD-TIX INSTRUCTIONS AND MAKES PROPER TA8LEF2517570 
ENTRIES IN DOTAG AND TGA WHEN BLOCK B»C.D» OR E IS VARIABLE. F2517580 



BCDE2.4 

CILVf4 

CILOO 

ADMSK 

TGA*4 

L(TXI) 

CIL01 

CIL23»4 

CIT»4 

€5XB*4 

BLKNUM.2 

BCDE5»2.2 

CILOO 

TAG2+1»1 

ADMSK 

12 

D0TAGZ+6»1 

BCDE9»0 

CILOO 

TAG2.1 

ADMSK 



OBTAIN LOC. FOR FIRST INST. 
MAKE LOCATION ENTRY INTO 
APPENDED TAG WORD. 

PLACE OPERATION IN 
COMPILED INSTRUCTIN. 
FILL OUT REMAINING WORDS. 



TEST FOR BLOCKS B OR C. 
BLOCK D OR E. 
PLACE LOC. OF SXD INST, 
INTO DOTAG ENTRY FOR 
CENTER SUBSCRIPT. 

BLOCKS D.E CONTINUE. 
BLOCK B OR C . 
PLACE LOC. FOR SXD OF 
REMAINING TWO BLOCKS. 



F2517590 
F2517600 
F2517610 
F2517620 
F2517630 
F2517640 
F2517650 
F2517660 
F2517670 
F25176S0 
F25X7690 
F2517700 
F2517710 
F2517720 
F2517730 
F2517740 
F2517750 
F2517760 
F2517770 
F2517780 
F2517790 



vr-/ 



o 



r> 



06573 
06574 
06575 
06576 
06577 
06600 
06601 
06602 
06603 
06604 
06605 
06606 
06607 
06610 
06611 
06612 
06613 
06614 
06615 
06616 
06617 



06620 
06621 
06622 
06623 
06624 



76700 

00001 

76700 

60200 

75400 

76700 

53400 

00001 

00002 

50000 

02000 

77100 

53400 

60200 

07400 

50000 

60100 

07400 

07400 

53400 4 

02000 4 



50000 2 
77100 
-0 32000 
60100 
02000 4 



00014 
06576 
00006 
01104 
00000 
00016 
05240 
06606 
06607 
05140 
06607 
00003 
05237 
02341 
06224 
05046 
05177 
06625 
04345 
06567 
00001 



01076 
00017 
05076 
05235 
00001 



ALS 
TXH 
ALS 
BCDE8 ORS 
BCDE9 PXD 
ALS 
LXA 
TXL 
TXL 
CAL 
TRA 
ARS 
BCDE10 LXD 
ORS 
TSX 
CLA 
STO 
TSX 
TSX 
LXD 
TRA 



12 

BCDE8»2*1 

6 

D0TAGZ+6»1 

Ot2 

14 

P0SIND*1 

BCDE10-1»1»1 

BCDE10»1»2 

BIT8 

BCDE10 

3 

XTG»2 

MXTGTG+3»2 

CILV»4 

L(T1X) 

CIL01 

CIL23t4 

CIT»4 

BCDE2»4 

1*4 



DISTINGUISH BETWEEN BLOCK B, C. 



BLOCK NUMBER MUST BE 
STORED IN PROPER POS. 
OF TAG 4 WORD. 

IF POSITION IS LEFT* 

PLACE A ONE IN BIT 7 OF TAG4 

TO INDICATE BLOCK D SPECIAL. 



OBTAIN LOC. FOR THIRD 
INST. AND OPERATION PART 
FOR 2ND WORD. 
FILL OUT REMAINING WORDS. 



F2517800 
F2517810 
F2517820 
F2517830 
F2517840 
F2517850 
F2517860 
F2517870 
F2517880 
F2517890 
F2517900 
F2517910 
F2517920 
F2517930 
F25 17940 
F2517950 
F2517960 
F2517970 
F2517980 
F2517990 
F2518000 



NBITS CLA 
ARS 
ANA 
STO 
TRA 



06625 





50000 





05176 


CIL23 


CLA 


CILOO 


06626 





60100 





05200 




STO 


CIL02 


06627 





50000 





03652 




CLA 


TAG3 


06630 


-0 


32000 





05141 




ANA 


ADMSK 


06631 


-0 


50100 





05061 




ORA 


L1DEC 


06632 





60100 





05201 




STO 


CILG3 


06633 





02000 


4 


00001 




TRA 


1»4 
***** 


06634 





50000 





03652 


CILNAM 


CLA 


CI LNA 

TAG3 


06635 


-0 


32000 





05141 




ANA 


ADMSK 


06636 





60100 





05201 




STO 


CIL03 


06637 





02000 


4 


00001 




TRA 


1«4 



05256 



ORG 



***************** ******************************************** f 25 18 010 
NBITS ISOLATES THE VARIABLE PARAMETER BITS FOR A GIVEN DOTAG.F251802O 
D0TAGZ.2 ROUTINE FOR ISOLATING F251803O 

15 THE N BITS OF A DO. F2518040 

L(7) F2518050 

N1N2N3 F251806O 

1,4 F2518070 

*#*****************#*****e#********»**************»***»»*****F251808O 
CIL23 FILLS OUT THE ADDRESS AND TAG NAME WORDS FOR A COMPILEDF2518090 
INSTRUCTION WHEN THE ADDRESS IS TO BE THE NEXT SEQUENTIAL INSF2518100 
TRUCTION AND THE LOCATION WORD IS FILLED ELSEWHERE. F2518110 

THIS ROUTINE PLACES TAG IN F2518120 

TAG WD. OF CIL03 AND 1 F2518130 

IN DECREMENT FOR THE F2518140 

RELATIVE PARTt F2518150 

PLACES THE LOCATION IN F2518160 

THE ADDRESS WORD CIL02 . F2518170 

F2518180 

**##**********************k*#******«*#*******«***************F2518190 

CILNAM ENTERS ONLY THE TAG NAME. F2518200 

THIS ROUTINE F2518210 

ENTERS THE F2518220 

TAG NAME F2518230 

IN CIL. F2518240 

#»#*#***************************#**#******«******************F25 18250 

F2518260 
F2518270 
MASTER RECORD CARD = FN049 F2518275 

BEGIN ALPHA STATE F2518280 

THE ALPHA STATE* AC, IS CALLED BY MAN TO COMPILE ALL INI TIALIF2518290 
2ATION AND LOAD INSTRUCTIONS WHEN AN ALPH OF A DO IS UNDER CF2518300 
CONSIDERATION. F2518310 

RTX F2518320 



W 



/ 



05256 


-0 


63400 


4 


06252 


AC 


SXO 


AC248.4 


05257 





60100 





05244 




STO 


VCTR 


05260 





50000 


2 


01104 




CLA 


D0TAGZ+6»2 


05261 





77100 





00033 




ARS 


27 


05262 


-0 


32000 





05170 




ANA 


60NESR 


05263 





76700 





00003 




ALS 


3 


05264 





4000 





05225 




ADO 


B 


05265 





60100 





05176 




STO 


CILOO 


05266 





50000 


2 


01076 




CLA 


D0TAGZ»2 


05267 


-0 


32000 





05071 




ANA 


NOPRET 


05270 





60100 





05251 




STO 


SXDTXZ 


05271 





76600 





00301 




WRS 


193 


05272 


-0 


50000 





05251 




CAL 


SXDTXZ 


05273 





36100 





05176 




ACL 


CILOO 


05274 





60200 





05245 




SLW 


ERTX01 


05275 





46000 





05063 




LDA 


0RADS2 


05276 





70000 





05251 




CPY 


SXDTXZ 


05277 





70000 





05176 




CPY 


CILOO 


05300 





70000 





05245 




CPY 


ERTX01 


05301 





50000 





05063 




CLA 


DRA0S2 


05302 





400 00 





05131 




ADO 


L<3) 


05303 





60100 





05063 




STO 


DRADS2 


05304 





50000 





05123 


AC05 


CLA 


ALLONE 


05305 





60100 





05176 




STO 


CILOO 


05306 





60100 





05177 




STO 


C1L01 


05307 





60100 





05200 




STO 


CIL02 


05310 





60100 





05201 




STO 


CIL03 


05311 





07400 


4 


04352 




TSX 


CITSPf4 


05312 





07400 


4 


0*153 




TSX 


SCAN. 4 


05313 


-0 


63400 


1 


05221 




SXO 


RTXTGXel 


05314 


-0 


63400 


1 


05237 




SXD 


XTG.l 


05315 





07400 


4 


04162 


AC010 


TSX 


FIND. 4 


05316 





02000 





06240 




TRA 


AC240+1 


05317 


-0 


63400 


1 


05237 




SXD 


XTG.l 


05320 





07400 


4 


04373 


AC014 


TSX 


SCLMN1.4 


05321 


-0 


53400 


1 


05237 




LXD 


XTG.l 


05322 





40200 





05230 




SUB 


DOIND 


05323 


-0 


10000 





05315 


AC016 


TNZ 


AC010 


05324 


-0 


53400 


1 


03652 




LXD 


TAG3.1 


05325 


3 


00000 


1 


05340 




TXH 


AC018.1.0 


05326 





50000 





03652 




CLA 


TAG 3 


05327 





77100 





00013 




ARS 


11 


05330 





76000 





00001 




L8T 




05331 





02000 





05334 




TRA 


AC016I 


05332 





07400 


4 


04230 




TSX 


ENTR.4 


05333 





02000 





05343 




TRA 


AC020 


05334 





50000 





03652 


AC016I 


CLA 


TAG3 


05335 


-0 


32000 





05153 




ANA 


11BITS 


05336 





07400 


4 


04236 




TSX 


SUBC0M.4 


05337 





02000 





05355 




TRA 


AC021 


05340 





50000 





03652 


AC018 


CLA 


TAG3 


05341 





77100 





00022 




ARS 


18 


05342 





07400 


4 


04236 


AC019 


TSX 


SUBC0M.4 


05343 





07400 


4 


04560 


AC020 


TSX 


N1STET.4 



STORE LINKAGE 

DO TAG ALPHA IS LOCATION. 

PLACE 

SXO LOCATION 

IN 

CILOO AND 

TXL LOCATION 

IN 

ERTX01 FOR 



OF SXDTX TABLE. 

MAKE 

SXDTX 

TABLE 

ENTRY 

ON 

DRUM 1. 

RESET DRUM 

ADDRESS FOR 

NEXT ENTRY. 

INITIALIZE CIL WORDS 

TO ALL ONES AND 

PUT 

INTO CIT 

AS FIRST ALPHA STAGE 

ENTRY. 

SCAN AND FIND PICK 

BY A DO WITHIN ALPHA 

AND BETA. 

END OF DO FOR D0TA6. 

STORE TGTG INDEX IN XT6. 

OBTAIN X FOR MINLEV OF S.C. 

SET VP FOR FIND ROUTINE. 

TEST TO SEE IF THIS IS 

THE OUTERMOST DO. 

IF IT IS PROCEED TO 

COMPILE PROPER INST. 

NO CURRENT TG» USE NEW TG. 

CHECK RESET TAG BIT 

OR INSERTED COUNTER. 

RESET TYPE ENTRY. USE NEW TAG. 

CTR. TYPE ENTRY* SIMULATE 

WRKSC AND CONTINUE. 

RESET TYPE ENTRY 

LAY OUT TAU ENTRIES 

DECRENENT AND CONTINUE. 
CURRENT TAG VALID. LAY 
OUT TAU DNTRIES INTO 
WRKSC AND CONTINUE 



F2518330 

F2518340 

F2518350 

F2518360 

F2518370 

F2518380 

F2518390 

F2518400 

F2518410 

F2518420 

F2518430 

F2516440 

F2518450 

F2518460 

F2518470 

F2518480 

F2518490 

F2518500 

F2518510 

F2518520 

F2518530 

F2518540 

F2518550 

F2518560 

F2518570 

F2518580 

F2518590 

F2518600 

F2518610 

F2518620 

F2518630 

F2518640 

F2518650 

F2518660 

F2518670 

F2518680 

F2518690 

F2518700 

F2518710 

F2518720 

F2518730 

F2518740 

F2518750 

F2518760 

F2518770 

F2518780 

F2518790 

F2518800 

F2518810 

F2518820 

F2518830 

F2518840 

F2518850 

F2518860 



m 



u 



n 



n 



05344 





50000 





05254 


CLA 


N1S8X 


05345 


-0 


10000 





05400 


TNZ 


AC030 


05346 





07400 


4 


04406 


TSX 


TELC»4 


05347 





50000 





05245 


CLA 


ERTX01 


05350 





76700 





00022 


ALS 


18 


05351 





40000 





05061 


ADD 


L1DEC 


05352 





07400 


4 


04601 


TSX 


FIXC0N*4 


05353 





60100 





05200 


STO 


CIL02 


05354 





02000 





05357 


TRA 


AC022 


05355 





50000 





05100 AC021 


CLA 


BCDO 


05356 





60100 





05200 


STO 


CIL02 


05357 





50000 





05051 AC022 


CLA 


L(LXD) 


05360 





60100 





05177 


STO 


CILOl 


05361 





07400 


4 


07131 


TSX 


CIL03I»4 


05362 





50000 





05200 


CLA 


CIL02 


05363 





60100 





07621 


STO 


OROOO+27 


05364 





73400 


4 


00000 


PAX 


0*4 


05365 


-0 


32000 





05104 


ANA 


60NES 


05366 





60100 





05200 


STO 


CIL02 


05367 


-0 


63400 


4 


05201 


SXD 


CIL03»4 


05370 





50000 





05222 


CLA 


LOCIND 


05371 





10000 





05376 


TZE 


AC024 


05372 





40200 





05126 


SUB 


LU) 


05373 





60100 





05222 


STO 


LOCIND 


05374 





50000 





05224 


CLA 


A 


05375 





60100 





05176 


STO 


CI LOO 


05376 





07400 


4 


04345 AC024 


TSX 


CIT*4 


05377 





76100 





00000 


NOP 




05400 





50000 





03653 AC030 


CLA 


TAG4 


05401 





77100 





0000 3 


ARS 


3 


05402 


-0 


32000 





05076 


ANA 


L(7) 


05403 





60100 





05210 


STO 


RELCO 


05404 





50000 





03653 


CLA 


TAG4 


05405 


-0 


32000 





05076 


ANA 


L(7J 


05406 





60100 





05253 


STO 


DEFDO 


05407 


-0 


50100 





05210 


OR A 


RELCO 


05410 





60100 





05252 


STO 


OREDO 


05411 





50000 





05254 


CLA 


N1SBX 


05412 





10000 





05567 


TZE 


AC 100+2 


05413 





50000 





05127 


CLA 


L(2) 


05414 





07400 


4 


07137 


TSX 


8ITPt4 


05415 





02000 





05417 


TRA 


AC040 


05416 





60100 





07567 


STO 


ORO00+1 


05417 





50000 





05126 AC040 


CLA 


L(l) 


05420 





07400 


4 


07137 


TSX 


BITP.4 


05421 





02000 





05426 


TRA 


AC046 


05422 





60100 





07572 


STO 


ORO00+4 


05423 





50000 





03644 


CLA 


WRKSC+6 


05424 





07400 


4 


04601 


TSX 


FIXCON. 4 


05425 





60100 





07575 


STO 


ORO00+7 


05426 





50000 





05133 AC046 


CLA 


L(01 


05427 





07400 


4 


07137 


TSX 


BITP»4 


05430 





02000 





05443 


TRA 


AC048 


05431 





60100 





07613 


STO 


OROOO+21 



VALUE IS CONSTANT 

VARIABLE* TRA AC030. 

COMPUTE LOAD 

VALUE 

AND PLACE 

IN 

F1XCON. 

FIXCON LOCATION SYMBOL. 

CONTINUE* 

LXD ADDRESS TO BCD ZERO* 

LXD 

FILL OUT LOCATION AND TG WORDS* 

PLACE LXD ADDRESS 

IN ORO TABLE. 

RELATIVE PART OF FIXCON NAME 

ADDRESS* 

RELATIVE ADDRESS. 

TEST LOCATION INDICATOR. 



A LOCATION MUST BE 
ASSIGNED FOR 1ST LXD 
COMPILED FOR AN ALPHA. 
PUT IN DOFILE. 

VARIABLE CASE* THE BITS FOR 
DEFINING A SUB BY A DO OR 
A RELCON OR BOTH ARE 
ISOLATED IN 3 SEPARATE 
WORDS. DEFDO. RELCO* AND 
ORDEDO. 



IF CONSTANT LOAD* 

TRA AC100+2. 

IF VARIABLE LOAD» FILL 

ORO TABLE. 

SI NOT DEFINED. 

51 DEFINED. STO SYMBOL IN ORO+l. 
REPEAT FOR 

S2* 

52 NOT DEFINED. 

52 DEFINED. PUT SUBSCRIPT 
SYMBOL IN ORO+4 AND 

Dl SYMBOL 
IN ORO+7. 
REPEAT FOR 

53 NOT DEFINED. 

S3 DEFINED. PUT SUBSCRIPT 



F2518870 
F2518880 
F2518890 
F2518900 
F2518910 
F2518920 
F2518930 
F2518940 
F2518950 
F2518960 
F2518970 
F2518980 
F2518990 
F2519000 
F25I901O 
F2519020 
F2519030 
F2519040 
F2519050 
F2519060 
F2519070 
F2519080 
F2519090 
F2519100 
F2519110 
F2519120 
F2519130 
F2519140 
F2519150 
F2519160 
F2519170 
F2519180 
F2519190 
F2519200 
F2519210 
F2519220 
F2519230 
F2519240 
F2519250 
F2519260 
F2519270 
F2519280 
F2519290 
F2519300 
F2519310 
F2519320 
F2519330 
F2519340 
F2519350 
F2519360 
F2519370 
F2519380 
F2519390 
F2519400 



M 





05432 





56000 


03644 




LDQ 


WRKSC+6 


SYMBOL IN ORO+21 




05433 





20000 


03645 




MPY 


WRKSC+7 


AND 




05434 





76700 


00021 




ALS 


17 


PUT 




05435 





07400 


4 04601 




TSX 


FIXC0N»4 


01D2 IN 




05436 





60100 


07616 




STO 


ORO00+24 


ORO+24. 




05437 





50000 


03644 




CLA 


WRKSC+6 






05440 





07400 


4 04601 




TSX 


FIXC0N.4 


OBTAIN SYMBOL FOR Dl 




05441 





60100 


07575 




STO 


OROOO+7 


AND STORE IN ORO+7. 




05442 





76000 


00140 




PSE 


96 


TURN OFF SENSE LIGHTS. 




05443 





07400 


4 07172 


AC048 


TSX 


C0SE»4 


TEST COEFFS GREATER THAN 1* 




05444 





50000 


05152 




CLA 


OPMSK 






05445 


-0 


32000 


03653 




ANA 


TAG4 


COEFS* Oil RELCONS* 100 CUPE. 




05446 


-0 


10000 


05472 




TNZ 


AC049 


SOME OF ABOVE EXIST. 


M 


05447 


-0 


53400 


1 03650 




LXD 


TA621»1 


NONE OF ABOVE EXIST. 




05450 


-3 


00000 


1 05452 




TXL 


AC048+7»1»0 


IF S2 DEF BY D0» 




05451 


-0 


50000 


1 01100 




CAL 


00TAGZ+2*1 


ISOLATE Nl. 


M 


05452 


-0 


53400 


1 03651 




LXD 


TA622.1 


IF S3 DEF BY DO* 




05453 


-3 


00000 


1 05455 




TXL 


AC048+10*1»0 


OR N1S OF 52 AND S3. 




05454 


-0 


50100 


1 01100 




ORA 


DQTAGZ+2»1 


IF EITHER Nl IS GREATER 




05455 





40200 


05126 




SUB 


L(l) 


THAN 1» RETURN. 




05456 





10000 


05460 




TZE 


AC048I 


IS SI IS 




05457 





12000 


05472 




TPL 


AC049 


DEFINED BY A DOt 




05460 


-0 


53400 


1 03647 


AC0481 


LXD 


TAG2»1 


IS/LATE Nl. 




05461 


-3 


00000 


1 05464 




TXL 


AC048I+4»1»0 


IF NOT ISOLATE 




05462 





50000 


1 01100 




CLA 


D0TAGZ+2»1 


SI (BCD). 




05463 





02000 


05465 




TRA 


AC0481+5 






05464 





50000 


03637 




CLA 


WRKSC+1 






05465 





60100 


05200 




STO 


CIL02 


STO SI OR Nl SYMBOL* 




05466 





07400 


4 07131 




TSX 


CIL03I»4 


FILL OUT 




05467 





50000 


05051 




CLA 


L(LXD) 


COMPILED INSTRUCTION 




05470 





60100 


05177 




STO 


CIL01 


WORDS AND CONTINUE 




05471 





02000 


05564 




TRA 


AC100-1 


TO INIT PORTION. 




05472 





53400 


1 05127 


AC049 


LXA 


LC2>»1 






05473 





50000 


05252 




CLA 


OREDO 


IS LEFT SUB A RELCON* 




05474 


-0 


32000 


05130 




ANA 


L(4) 


DORC# OR DOSUB. 




05475 





100OO 05503 




TZE 


AC049A 


NO* COMPILE CLA* SUB. 




05476 


-0 


53400 


2 03647 




LXD 


TAG2.2- 


YES* IS IT A DOSUB. 




05477 


-3 


00000 


2 05505 




TXL 


AC049B»2*0 


NO. 




05 500 





50000 


2 01100 




CLA 


D0TAGZ+2.2 


YES* IS NltSl)=l. 




05501 





40200 


05126 




SUB 


LID 






05502 


-0 


10000 


05505 




TNZ 


AC049B 


NO. 




05503 





50000 


07350 


AC049A 


CLA 


KLX01 






05504 





07400 


4 07271 




TSX 


LXC»4 


COMPILE CLA* SUB. 




05505 





50000 


05252 


AC049B 


CLA 


OREDO 






05506 





7710O 


00002 




ARS 


2 


DEFINITION. 




05507 





76000 


00001 




LBT 




OF SI. 




05510 





02000 


05523 




TRA 


AC064 


SI IS NOT DEF.» TAKE S2« 




05511 





53400 


1 05131 




LXA 


L«3).l 


SI DEFINED* GO TO 




05512 





07400 


4 04670 




TSX 


0P2*4 


OPTIMIZING ROUTINE. 




05513 


Q 


53400 


1 05127 




LXA 


L(2).l 


AT LEAST 4 COMP INST. 




05514 


-o 


76000 


00141 




MSE 


97 


TEST ON COEF 




05515 





02000 


05517 




TRA 


AC050 


GREATER THAN 1. 




05516 


1 


00002 


1 05521 




TX1 


AC050I*1»2 






05517 





50000 


07353 


AC050 


CLA 


KLX02 


L(LX102) 



F2519410 
F2519420 
F2519430 
F2519440 
F2519450 
F2519460 
F2519470 
F2519480 
F25 19490 
F2519500 
F 25 195 10 
F2519520 
F2519530 
F2519540 
F2519550 
F2519560 
F2519570 
F2519580 
F2519590 
F2519600 
F2519610 
F2519620 
F2519630 
F2519640 
F2519650 
F2519660 
F2519670 
F2519680 
F2519690 
F2519700 
F2519710 
F2519720 
F2519730 
F2519740 
F2519750 
F2519760 
F2519770 
F2519780 
F2519790 
F2519800 
F2519810 
F2519820 
F2519830 
F25 19840 
F2519850 
F2519860 
F2519870 
F2519880 
F2519890 
F2519900 
F2519910 
F2519920 
F2519930 
F2519940 



Itf 



n 



O 



L 1/ 



05520 





02000 





05522 




TRA 


AC050I+1 




F2519950 


05521 





50000 





07352 


AC050I 


CLA 


KLX02I 


LCLXI05) 


F2519960 


05522 





07400 


4 


07271 




TSX 


LXCt4 


COMPILER. 


F2519970 


05523 





50000 





05252 


AC064 


CLA 


OREDO 




F2519980 


05524 





77100 





00001 




ARS 


1 


S2 


F2519990 


05525 





76000 





00001 




LBT 




DEFINED. 


F2520000 


05526 





02000 





05540 




TRA 


AC080 


S2 NOT DEFINED. S3. 


F2520O10 


05527 





53400 


1 


05127 




LXA 


L(2)»l 


CALL 0P2 ROUTINE 


F2520020 


05530 





07400 


4 


04670 




TSX 


0P2.4 


TO OPTIMIZE. 


F2520030 


05531 





53400 


1 


05106 




LXA 


LC6)»1 


COUNTER FOR COMPILING. 


F2520040 


05532 


-0 


76000 





00142 




MSE 


98 


IS COEF GREATER THAN 1. 


F2520050 


05533 





02000 





05536 




TRA 


AC068 


NO 


F2520060 


0553* 





50000 





07354 




CLA 


KLX03 


YES. 


F2520070 


05535 


1 


00002 


1 


05537 




TXI 


AC068+1.1»2 


INCREMENT COMPILING COUNTER. 


F2520080 


05536 





50000 





07356 


AC068 


CLA 


KLX03I 




F2520090 


05537 





07400 


4 


07271 




TSX 


LXC*4 


COMPILE S2 LOAD VALUE. 


F2520100 


05540 





50000 





05252 


AC080 


CLA 


OREDO 




F2520110 


05541 





76000 





00001 




LBT 






F2520120 


05542 





02000 





05554 




TRA 


AC096 


S3 NOT DEFINED* EXIT. 


F2520130 


05543 





53400 


1 


05126 




LXA 


L<1)»1 


CALL 0P2 ROUTINE 


F2520140 


05544 





07400 


4 


04670 




TSX 


0P2.4 


FOR OPTIMIZATION. 


F2520150 


05545 





53400 


1 


05106 




LXA 


L(6).l 


COMPILING COUNTER. 


F2520160 


05546 


-0 


76000 





00143 




MSE 


99 


TEST FOR COEF GREATER THAN 1. 


F2520170 


05547 





02000 





05552 




TRA 


AC084 


NONE. 


F2520180 


05550 





50000 





07355 




CLA 


KLX05 


C3 GREATER THAN 1, COMPILE 


F2520190 


05551 


1 


00002 


1 


05553 




TXI 


AC084+l.lt2 


KLX05 BLOCK. 


F2520200 


05552 





50000 





07357 


AC084 


CLA 


KLX05I 


C3=l« COMPILE KLX05I 


F2520210 


05553 





07400 


4 


07271 




TSX 


LXC.4 


BLOCK. 


F2520220 


05554 





07400 


4 


07131 


AC096 


TSX 


CIL03I*4 


COMPILE 


F2520230 


05555 





50000 





05051 




CLA 


L(LXD) 


LXD. 


F2520240 


05556 





60100 





05177 




STO 


CIL01 




F2520250 


05557 





50000 





07620 




CLA 


ORO00+26 


ERASABLE OBJECT TIME SYMBOL. 


F2520260 


05560 





73400 


1 


00000 




PAX 


0*1 




F2520270 


05561 


-0 


32000 





05104 




ANA 


&ONES 




F2520280 


05562 


-0 


63400 


1 


05201 




SXD 


CIL03»1 




F2520290 


05563 





60100 





05200 




STO 


CIL02 




F2520300 


05564 





07400 


4 


04345 




TSX 


CIT.4 


PUT IN BUFFER. 


F2520310 


05565 





50000 





07620 


AC 100 


CLA 


ORO00+26 




F2520320 


05566 





60100 





07621 




STO 


0RO00+27 




F2520330 


05567 





-53400 


1 


05131 




LXA 


L(3»*l 


PREPARE TO 


F2520340 


05570 


-0 


63400 


1 


05207 


AC109 


SXD 


AX»1 


CHECK FOR 


F2520350 


05571 





50000 


1 


03652 




CLA 


TAG2+3»1 


DUPES. 


F2520360 


05572 


-0 


73400 


2 


00000 




PDX 


0f2 


SAVE INDEX OF S* 


F2520370 


05573 


-3 


00000 


2 


05743 




TXL 


AC160*2»0 


POS. NOT MOD. BY DO. 


F2520380 


05574 


-2 


00001 


1 


05601 


AC110 


TNX 


AC116»1.1 


~ 


F2520390 


05575 





34000 


1 


03652 




CAS 


TAG2+3tl 


SKIP DUPES 


F2520400 


05576 





02000 





05574 




TRA 


AC110 


EXCEPT 


F2520410 


05577 





02000 





05743 




TRA 


AC160 


RIGHTMOST. 


F2520420 


05600 





02000 





05574 




TRA 


AC110 




F2520430 


05601 





50000 


2 


01106 


AC116 


CLA 


D0TAGZ+8*2 


ISOLATE 


F2520440 


05602 


-0 


32000 





05171 




ANA 


6T017 


NAME OF TEST 


F2520450 


05603 





60100 





05204 




STO 


TETTG 


FOR THIS DO 


F2520460 


05604 





50000 





03652 




CLA 


TAG3 


AND 


F2520470 


05605 


-0 


32000 





05172 




ANA 


24T035 


COMPARE 


F2520480 



•{>. 



05606 


76700 


00022 




ALS 


18 


WITH 


05607 


34000 


05204 




CAS 


TETTG 


CURRENT TAG. 


05610 


02000 


05743 




TRA 


AC160 


NOT A TEST TAG* 


05611 


02000 


05613 




TRA 


AC120 


THIS IS A TEST TA6« 


05612 


02000 


05743 




TRA 


AC160 


NOT A TEST TA6. 


05613 


50000 2 


01101 


AC120 


CLA 


D0TAGZ+3»2 


THIS IS TEST TAG* 


05614 


-0 32000 


05104 




ANA 


60NES 


18 N2 CONSTANT. 


05615 


-0 10000 


05622 




TNZ 


AC128 




05616 


50000 2 


01106 




CLA 


DOTAGZ+8.2 


IF RIGHT TEST HAS VARIAB 


05617 


-0 32000 


05154 




ANA 


BIT20 


GO TO AC138 +4 


05620 


10000 


05627 




TZE 


AC 138 


INSTEAD OF 


05621 


02000 


05633 




TRA 


AC 138+4 




05622 


50000 2 


01101 


AC128 


CLA 


DOTAGZ+3»2 




05623 


60100 


05200 




STO 


CIL02 


PUT N2 WORD AS 


05624 


50000 


05133 




CLA 


L(0) 


SYMBOLIC ADDRESS AND 


05625 


60100 


05201 




STO 


C1L03 


ZERO AS THE 


05626 


02000 


05660 




TRA 


AC140 


RELATIVE ADDRESS. 


05627 


56000 2 


01104 


AC138 


LDQ 


OOTAGZ+6«2 


CONSTANT N2 CASE. 


05630 


-0 77300 


00011 




RQL 


9 


IS TEST 


05631 


-0 76300 


00014 




LGL 


12 


MODIFIED* 


05632 


10000 


05743 




TZE 


AC160 


NO» TAKE NEXT SUB. 


05633 


50000 2 


01101 




CLA 


DOTAGZ+3t2 


YES» ISOLATE N2. 


05634 


-0 53400 1 


05207 




LXD 


AX.l 




05635 


07400 4 


04451 




TSX 


CXIJ+2.4 


IF POSITION IS 


05636 


-2 00001 1 


05647 




TNX 


AC139.1.1 




05637 


60100 


05070 




STO 


ESTORE 




05640 


50000 2 


01106 




CLA 


DOTAGZ+8*2 


DOES TEST 


05641 


-0 32000 


05154 




ANA 


BIT20 


HAVE VARIABLE DECREMENT. 


05642 


-0 10000 


05646 




TNZ 


AC139-1 




05643 


50000 


05070 




CLA 


ESTORE 




05644 


07400 4 


04410 




TSX 


TELC+2*4 




Q5645 


02000 


05647 




TRA 


AC139 




05646 


50000 


05070 




CLA 


ESTORE 




05647 


76700 


00022 


AC139 


ALS 


18 




05650 


07400 4 


04601 




TSX 


FIXC0N.4 


ASSIGN SYMBOL FOR 


05651 


73400 1 


00000 




PAX 


0*1 


LOAD PORTION 


05652 


-0 32000 


05104 




ANA 


60NES 


AND COMPILE 


05653 


60100 


05200 




STO 


CIL02 


CLALCGN2 + LOAD PORT.) 


05654 


50000 


05133 




CLA 


L(0) 




05655 


60100 


05201 




STO 


CIL03 




05656 


-0 63400 1 


05201 




SXD 


CIL03,1 




05657 


02000 


05665 




TRA 


AC 144 




05660 
05661 


50000 
-O 5340© 1 


05126 
05207 


AC140 


CLA 
LXO 


L(l) 
AXtl 


COMPUTE 6 ANO DETERMINE 


05662 


07400 4 


04451 




TSX 


CXIJ+2»4 


IF GREATER THAN ONE. 


05663 


40200 


05126 




SUB 


L«l) 




05664 


-0 10000 


05673 




TNZ 


AC 146 




05665 


50000 


05053 


AC144 


CLA 


L(CLA) 


G = 1. 


05666 


6010O 


05177 




STO 


CIL01 


COMPILE 


05667 


50000 


05133 




CLA 


L(0) 


CLA N2» FOLLOWED 


05670 


60100 


05176 




STO 


CI LOO 


LATER BY STD. 


05671 


07400 4 


04345 




TSX 


CIT»4 




05672 


02000 


05704 




TRA 


AC 150 




05673 


40000 


05126 


AC 146 


ADD 


L(l) 


G GREATER THAN 1* 



F2520490 

F2520500 

F2520510 

F2520520 

F2520530 

F2520540 

F2520550 

F252056Q 

F2520570 

F2520580 

F2520590 

F2520600 

F2520610 

F2520620 

F2520630 

F2520640 

F2520650 

F2520660 

F2520670 

F2520680 

F2520690 

F2520700 

F252G710 

F2520720 

F2520730 

F2520740 

F2520750 

F2520760 

F2520770 

F2520780 

F2520790 

F2520800 

F2520810 

F2520820 

F2520830 

F2520840 

F2520850 

F2520860 

F2520870 

F2520880 

F2520890 

F2520900 

F2520910 

F25209Z0 

F2520930 

F2520940 

F2520950 

F2520960 

F2520970 

F2520980 

F2520990 

F2521000 

F2521010 

F2521020 



3* 



U 



O 



o 



n 



L V 





05674 


76700 





00022 


ALS 


18 


COMPILE 




05675 


07400 


4 


04601 


TSX 


FIXC0N.4 


LDQ» MPY* ALS. 




05676 


60100 





07577 


STO 


OROOO+9 






05677 


50000 





05200 


CLA 


CIL02 






05700 


60100 





07567 


STO 


OROOO+l 






05701 


50000 





07352 


CLA 


KLX02I 






05702 


53400 


1 


05131 


LXA 


L(3)»l 






05703 


07400 


4 


07271 


TSX 


LXC»4 






05704 


-0 53400 


1 


05207 AC150 


LXD 


AX.l 






05705 


50000 


1 


03652 


CLA 


TAG3»1 






05706 


-0 73400 


2 


00000 


PDX 


0*2 






05707 


50000 


2 


01106 


CLA 


DOTAGZ+8.2 






05710 


-0 32000 





05154 


ANA 


BIT20 






05711 


-0 53400 


2 


05207 


LXD 


AX»2 






05712 


10000 





05733 


TZE 


AC157 






05713 


-2 00001 


2 


05733 


TNX 


AC157»2»1 






05714 


53400 


1 


05126 


LXA 


L(l)»l 






05715 


50000 





07351 


CLA 


KLX01I 






05716 


07400 


4 


07271 


TSX 


LXC.4 






05717 


50000 





05166 


CLA 


INST13 






05720 


60100 





05554 


STO 


AC096 






05721 


07400 


4 


07172 


TSX 


COSE .4 






05722 


-0 53400 


2 


05207 


LXD 


AX»2 






05723 


-3 00002 


2 


05540 


TXL 


AC080»2*2 






05724 


02000 





05523 


TRA 


AC064 






05725 


-50000 





05167 AC155 


CLA 


INST14 






05726 


60100 





05554 


STO 


AC096 






05727 


-0 5340O 


2 


05207 


LXD 


AX. 2 






05730 


-0 53400 


4 


05173 


LXD 


BB0X.4 






05731 


1 00004 


4 


05732 


TXI 


AC155+5»4»4 






05732 


-0 63400 


4 


05173 


SXD 


BBOX.4 






05733 


07400 


4 


07211 AC157 


TSX 


TESTL0.4 






05734 


50000 





05255 


CLA 


TETLOC 


IN TETLO. 




05735 


60100 





05200 


STO 


CIL02 


COMPILE 




05736 


50000 





05052 


CLA 


L(STD) 


STD TETLO 




05737 


60100 





05177 


STO 


CIL01 


AND RETURN TO 


T 


05740 


-0 63400 





05176 


SXD 


CILOO 


AC160 TO 


T 


05741 


-0 63400 





05201 


SXD 


CIi-03 


CONSIDER NEXT 




05742 


07400 


4 


04345 


TSX 


CIT.4 


SUB OF TAG. 




05743 


-0 53400 


1 


05207 AC160 


LXD 


ax. 1 






05744 


2 00001 


1 


05570 


TIX 


ACi09»l»l 


REDUCE POS. CTR. 




05745 


50000 





03653 


CLA 


TAG4 


CHECK SUSBIT 




05746 


12000 





05770 


TPL 


AC165 


FOR FORVAR. 




05747 


-0 53400 


2 


05230 


LXD 


D0IND.2 


FORVARt IS IT 




05750 


50000 


2 


01103 


CLA 


D0TAGZ+5.2 


WITHIN THE CURRENT DO. 




05751 


-0 32000 





05136 


ANA 


BIT1 






05752 


10000 





05770 


TZE 


AC165 


NO» AC165. 




05753 


50000 





05133 


CLA 


L(0) 


YES. 




05754 


60100 





05200 


STO 


CIL02 


COMPILE 




05755 


07400 


4 


07131 


TSX 


CIL03I»4 


INSTRUCTIONS 




05756 


50000 





05043 


CLA 


LJPXD) 


TO 




05757 


60100 





05177 


STO 


CIL01 


STORE 




05760 


07400 


4 


04345 


TSX 


CIT.4 


THE 




05761 


50000 


2 


01077 


CLA 


D0TAGZ+1.2 


VALUE 



F2521030 
F2521040 
F2521050 
F2521060 
F2521070 
F2521080 
F2521090 
F2521100 
F2521110 
F2521120 
F2521130 
F2521140 
F2521150 
F2521160 
F2521170 
F2521180 
F2521190 
F252120O 
F2521210 
F2521220 
F2521230 
F2521240 
F2521250 
F2521260 
F2521270 
F2521280 
F2521290 
F2521300 
F2521310 
F2521320 
F2521330 
F2521340 
F2521350 
F2521360 
F2521370 
F2521380 
F2521390 
F2521400 
F2521410 
F2521420 
F2521430 
F2521440 
F2521450 
F2521460 
F2521470 
F2521480 
F2521490 
F2521500 
F2521510 
F2521520 
F2521530 
F2521540 
F2521550 
F2521560 



ill 



05762 





60100 





05200 




STO 


CIL02 


OF 


03763 





50000 





05044 




CLA 


L(STOI 


THE 


05764 





60100 





05177 




STO 


CIL01 


SUBSCRIPT 


05765 


-0 


75400 





ooooo 




PXO 


0*0 


INTO 


05766 





60100 





05201 




STO 


CIL03 


ITS 


05767 





07400 


4 


04345 




TSX 


CIT*4 


SYMBOL* 


05770 





50000 





05237 


AC165 


CLA 


XTG 


START SCANNING 


05771 





77100 





00002 




ARS 


2 


TGA FOR LOCATIONS 


05772 


-0 


73400 


1 


00000 




PDX 


0*1 


INDICATING VARIABLE 


05773 


-0 


50000 


1 


02646 




CAL 


MXTGA»1 


DECREMENTS OF TXI 


05774 





60200 





05211 




SLW 


WRKTGA 


AND TIX INSTRUCTIONS- 


05775 





10000 





06237 




TZE 


AC240 


NONE* AC 240* 


05776 





53400 


1 


05131 




LXA 


L(3)»l 


YES» ISOLATE 


05777 


-0 


63400 


1 


05207 


AC166 


SXD 


AX.l 


APP. T6TG AND 


06000 


-0 


50000 





05211 




CAL 


WRKTGA 


CHECK FOR 


06001 





77100 





00022 




ARS 


18 


LOCATIONS 


06002 


-2 


00001 


1 


06005 


AC168 


TNX 


AC170.1»1 


OF TXI 


06003 





77100 





00006 




ARS 


6 


INSTRUCTIONS 


06004 





02000 





06002 




TRA 


AC 16 8 


WITH VARIABLE 


06005 


-0 


32000 





05170 


AC170 


ANA 


60NESR 


DECREMENTS* 


06006 





10000 





06060 




TZE 


AC190 


NONE* AC 190* 


06007 





76700 





00003 




ALS 


3 


STORE 


06010 





60100 





05255 




STO 


TETLOC 


LOC. OF TXI. 


06011 





53400 


4 


05133 




LXA 


L(0).4 




06012 


-0 


53400 


1 


05207 




LXD 


AX.l 


IS 


06013 





50000 





03653 




CLA 


TAG4 


POSITION 


06014 


-3 


00002 


1 


06035 




TXL 


AC173.1.2 




06015 


-0 


32000 





05140 




ANA 


BIT8 


POSITION IS Sl» IS 


06016 


-0 


10000 





06021 


AC171 


TNZ 


AC172 


THIS BLOCK D SPECIAL. 


06017 





50000 





03653 




CLA 


TAG4 


NO* BLOCK A. 


06020 





02000 





06042 




TRA 


AC176 


TSX AORO 


06021 





56000 





03640 


AC172 


LDO 


WRKSC+2 


TES* SET UP 


06022 





20000 





03644 




MPY 


WRKSC+6 


CID1 AS G 


06023 





76700 





00021 




ALS 


17 


FOR XX POSITION. 


06024 





60100 





07612 




STO 


OR000+20 


CI IS G FOR 


06025 





50000 





03636 




CLA 


WRKSC 


N3X POSITION. 


06026 





60100 





07611 




STO 


OROOO+19 


PREPARE TO 


06027 





53400 


1 


05131 




LXA 


L(3)»l 


CALL PC ROUTINE 


06030 


-0 


63400 


1 


05212 




SXO 


N3X.1 


TO COMPILE 


06031 





53400 


1 


05127 




LXA 


L<2>.1 


INITIALIZATION 


06032 


-0 


63400 


1 


05213 




SXD 


XX.l 


INSTRUCTIONS 


06033 





07400 


4 


06701 




TSX 


PC»4 


FOR BLOCK D SPECIAL. 


06034 





02000 





06060 




TRA 


AC190 




06035 


-3 


00001 


1 


06037 


AC173 


TXL 


AC174.1.1 


IS POSITION S3> 


06036 





77100 





00003 




ARS 


3 


ISOLATE BLKNUM 


06037 





77100 





00035 


AC 174 


ARS 


29 


FROM TAG4 AND 


06040 


-0 


32000 





05076 




ANA 


L17) 


CALLPROPER ROUTINE 


06041 





73400 


4 


00000 




PAX 


0»4 


TO COMPILE INITIALIZATION 


06042 


3 


00000 


4 


06045 


AC176 


TXH 


AC176+3.4.0 


INSTRUCTIONS FOR THAT BLOCK 


06043 





07400 


4 


06324 




TSX 


A0R0«4 


BLOCK A 


06044 





02000 





06060 




TRA 


AC190 


■" 


06045 


3 


00001 


4 


06050 




TXH 


AC178.4.1 




06046 





07400 


4 


06435 




TSX 


BOR0t4 


BLOCK B 


06047 





02000 





06060 




TRA 


AC190 





F2521570 
F2521580 
F2521590 
F2521600 
F2521610 
F2521620 
F2521630 
F2521640 
F2521650 
F2521660 
F2521670 
F2521680 
F2521690 
F252170O 
F2521710 
F2521720 
F2521730 
F2521740 
F2521750 
F2521760 
F2521770 
F2521780 
F2521790 
F2521800 
F2521810 
F2521820 
F2521830 
F2521840 
F2521850 
F2521860 
F2521870 
F2521880 
F2521890 
F2521900 
F2521910 
F2521920 
F2521930 
F2521940 
F2521950 
F2521960 
F2521970 
F2521980 
F2521990 
F2522000 
F2522010 
F2522020 
F2522030 
F2522040 
F2522050 
F2522060 
F2522070 
F2522080 
F2522090 
F2522100 



4~- 



n 



n 



IV 



06050 


3 00002 4 


06053 


AC178 


TXH 


AC182.4.2 




F2522110 




06051 


07400 4 


06453 




TSX 


C0R0»4 


BLOCK C 


F2522120 




06052 


02000 


06060 




TRA 


AC190 




F2S22130 




06053 


3 00003 4 


06056 


AC182 


TXH 


AC186.4.3 




F2522140 




06054 


07400 4 


06502 




TSX 


DORO»4 


BLOCK D« 


F2522150 




06055 


02000 


06060 




TRA 


AC190 




F2522160 




06056 


07400 4 


06541 


AC186 


TSX 


EOROt4 


BLOCK E. 


F2522170 




06057 


02000 


06060 




TRA 


AC190 




F2522180 




06060 


-0 53400 1 


05207 


AC190 


LXD 


AX.l 


IF ALL SUBS HAVE NOT BEEN 


F2522190 




06061 


2 00001 1 


05777 




TIX 


AC166»1»1 


CONSIDERED FOR TXIS» TAKE NEXT RT. 


F2522200 




06062 


53400 1 


05131 




LXA 


L(3).l 


THIS REPRESENTS END OF 


F2522210 




06063 


-0 63400 1 


05207 


AC200 


SXD 


AX.l 


TXI PHASE. START TIX. 


F2522220 




06064 


50000 


05211 




CLA 


WRKTGA 


ISOLATE APP. TGTG ENTRY. 


F2522230 




06065 


-2 00001 1 


0607O 


AC210 


TNX 


AC214+l»ltl 




F2522240 




06066 


77100 


00006 




ARS 


6 




F2522250 




06067 


02000 


06065 


AC214 


TRA 


AC210 




F2522260 




06070 


-0 32000 


05170 




ANA 


60NESR 




F2522270 




06071 


10000 


06235 




TZE 


AC 2 36 


IS THERE A TIX VAR. DEC. LOC. 


F2522280 




06072 


76700 


00003 




ALS 


3 


YES. STORE TIX REL. LOC. 


F2522290 




06073 


60100 


05255 




STO 


TETLOC 


IN TETLOC WORD. 


F2522300 




06074 


-0 53400 1 


05207 




LXD 


AX.l 




F2522310 




06075 


50000 1 


03652 




CLA 


TAG2+3»1 


ISOLATE 


F2522320 




06076 


-0 73400 2 


00000 




POX 


0*2 


N3 FOR 


F2522330 




06077 


50000 2 


01102 


ACI21 


CLA 


D0TAGZ+4.2 


THIS DO. 


F2522340 




06100 


40200 


05126 




SUB 


L(l) 


DOES N3 = 1. 


F2522350 




06101 


10000 


06107 




TZE 


AC220+2 




F2522360 




06102 


07400 4 


07237 




TSX 


X0R0»4 


NO. PLACE N SYMBOLS 


F2522370 




06103 


53400 1 


05106 




LXA 


L(6).l 


IN APPROP. ORO LOCS 


F2522380 




06104 


-0 53400 2 


05207 




LXD 


AX.2 


AND COMPUTE 


F2522390 




06105 


50000 2 


07367 


AC220 


CLA 


KTX00+3.2 


X QUANTITY 


F2522400 




06106 


07400 4 


07271 




TSX 


LXC»4 


ON O.C. LEVEL* 


F2522410 




06107 


-0 53*00 1 


05207 




LXD 


AX.l 




F2522420 




06110 


50000 


05160 




CLA 


INST4 


TRA AC224. MODIFY ADRO 


F2522430 




06111 


60100 


06424 




STO 


AORO30 


ROUTINE TO COMPUTE G. 


F2522440 




06112 


50000 


05161 




CLA 


INST5 


TRAAC228. 


F2522450 




06113 


60100 


06430 




STO 


AOR040 




F2522460 




06114 


07400 4 


06324 




TSX 


A0R0.4 


COMPUTE G. PUT IN ORO+19. 


F2522470 




06115 


02000 


06172 


AC224 


TRA 


AC230 


61 = 1* 


F2522480 




06116 


-0 53400 1 


05207 


AC228 


LXD 


AX.l 


Gl NOT = 1. 


F2522490 




06117 


50000 1 


03652 




CLA 


TAG2+3.1 


COMPILE INSTRUCTIONS 


F2522500 




06120 


-0 73400 2 


00000 




PDX 


0.2 


TO COMPUTE AND INITIALIZE 


F2522510 




06121 


50000 2 


01102 




CLA 


DOTAGZ+4.2 


TIX DECREMENT. 


F2522520 




06122 


40200 


05126 




SUB 


L(l) 




F2522530 




06123 


-0 10000 


06166 




TNZ 


AC228I 


N3 NOT =1. 


F2522540 




06124 


50000 2 


01100 




CLA 


D0TAGZ+2.2 


N3 = 1. DOES 


F2522550 




06125 


40200 


05126 




SUB 


L(l) 


Nl = 1« 


F2522560 




06126 


-0 10000 


06135 




TNZ 


ACI22 


Nl NOT =1. 


F2522570 




06127 


50000 2 


01101 




CLA 


DOTAGZ+3.2 


N3. Nl=l. 


F2522580 




06130 


60100 


07566 




STO 


ORO00 


G GREATER THAN 1. 


F2522590 




06131 


50000 


07360 




CLA 


KIAORO 




F2522600 




06132 


53400 1 


05130 




LXA 


L(4).l 




F2522610 




06133 


0. 07400 4 


07271 




TSX 


LXC.4 




F2522620 




06134 


02000 


06231 




TRA 


AC234 


EXIT TIX INITIALIZATION. 


F2522630 


?'3 


06135 


07400 4 


04741 


ACI22 


TSX 


0P3.4 


N3= 1. Nl NOT = 1. 


F2522640 


J— ' * 














- - -• 





-- — - 



06136 





50000 





05054 


CLA 


L(ADD) 


COMPILE 


06137 





60100 





05177 


STO 


CIL01 


TIX 


06140 





50000 





07603 


CLA 


OROOO+13 


INITIALIZATION 


06141 





73400 


1 


00000 


PAX 


0*1 


GROUP 


06142 


-0 


32000 





05104 


ANA 


60NES 


FOR 


06143 





60100 





05200 


STO 


CIL02 


THIS 


06144 


-0 


63400 


1 


05201 


SXO 


CIL03*1 


CASE* 


06145 





07400 


4 


04345 


TSX 


CIT.4 




06146 





50000 





05044 


CLA 


LCSTO) 




06147 





60100 





05177 


STO 


CIL01 




06150 





50000 





05133 


CLA 


LCO) 




06151 





60100 





05201 


STO 


C1L03 




06152 





50000 





07620 


CLA 


ORO00+26 


ERASEABLE STORAGE 


06153 





73400 


4 


00000 


PAX 


0*4 


SYMBOL FOR ADDRESS. 


06154 


-0 


32000 





05104 


ANA 


60NES 




06155 





60100 





05200 


STO 


CIL02 




06156 


-0 


63400 


4 


05201 


SXO 


CIL03»4 




06157 





07400 


4 


04345 


TSX 


CIT»4 




06160 





50000 





07620 


CLA 


OROOO+26 


PLACE ERASEABLE SYMBOL 


06161 





60100 





07566 


STO 


OROOO 


IN OROOO FOR LXC BLOCK.. 


06162 





53400 


1 


05130 


LXA 


L(4)»l 




06163 





50000 





07360 


CLA 


K1AORO 




06164 





07400 


4 


07271 


TSX 


LXC»4 




06165 





02000 





06231 


TRA 


AC234 


EXIT TIX INITIALIZATION. 


06166 





53400 


1 


05130 AC2281 


LXA 


L(4».l 




06167 





50000 





07371 


CLA 


LTX040 


COMPILE TIX INITIALIZATION 


06170 





07400 


4 


07271 


TSX 


LXC.4 


GROUP FOR THIS CASE. 


06171 





02000 





06231 


TRA 


AC234 


EXIT TIX INITIALIZATION. 


06172 


-0 


53400 


1 


05207 AC230 


LXD 


AX»1 


G=l* 


06173 





50000 


1 


03652 


CLA 


TAG2+3»1 


DOES 


06174 


-0 


73400 


2 


00000 


PDX 


0*2 


N3 = 1. 


06175 





50000 


2 


01102 


CLA 


D0TAGZ+4»2 




06176 





40200 





05126 


SUB 


L(l) 




06177 


-0 


10000 





06226 


TNZ 


AC2301 


NO. 


06200 





50000 


2 


01100 


CLA 


DOTAGZ+2.2 


YES. DOES Nl= 1. 


06201 





40200 





05126 


SUB 


L(l) 




06202 


-0 


10000 





06211 


TNZ 


AC 1 23 


NO. 


06203 





50000 


2 


01101 


CLA 


DOTAGZ+3»2 


G.N3.N1 = 1* 


06204 





60100 





07566 


STO 


OROOO 


COMPILE TIX 


06205 





50000 





07362 


CLA 


K2A0R0 


INITIALIZATION 


062Q6 





53400 


1 


05127 


LXA 


LI2)tl 


FOR THIS 


06207 





07400 


4 


07271 


TSX 


LXC.4 


CASE. 


06210 





02000 





06231 


TRA 


AC234 


EXIT TIX INITIALIZATION. 


06211 





07400 


4 


04741 ACI23 


TSX 


0P3»4 


N3=l» Nl NOT = 1. 


06212 





50000 





05054 


CLA 


L(ADO) 


COMPILE 


06213 





60100 





05177 


STO 


CIL01 


TIX 


06214 





50000 





07603 


CLA 


ORO00+13 


INITIALIZATION 


06215 





73400 


1 


00000 


PAX 


0*1 


FOR 


06216 


-0 


32000 





05104 


ANA 


60NES 


THIS 


06217 





60100 





05200 


STO 


CIL02 


CASE. 


06220 


-0 


63400 


1 


05201 


SXD 


CIL03»1 




06221 





07400 


4 


04345 


TSX 


CIT.4 




06222 





50000 





07363 


CLA 


K3A0R0 




06223 





53400 


1 


05126 


LXA 


L(l).l 





F2522650 

F2522660 

F2522670 

F2522680 

F2522690 

F2522700 

F2522710 

F2522720 

F2522730 

F2522740 

F2522750 

F2522760 

F2522770 

F2522780 

F2522790 

F2522800 

F2522810 

F2522820 

F2522830 

F2522840 

F2522850 

F2522860 

F2522870 

F2522880 

F2522890 

F2522900 

F2522910 

F2522920 

F2522930 

F2522940 

F2522950 

F2522960 

F2522970 

F2522980 

F2522990 

F2523000 

F2523010 

F2523020 

F2523030 

F25 23040 

F2523050 

F2523060 

F2523070 

F2523080 

F2523090 

F2523100 

F2523110 

F2523120 

F2523130 

F2523140 

F2523150 

F2523160 

F2523170 

F2523180 



r- 



u 



O 





o 
















n 




1 V 


06224 


07400 


4 


07271 




TSX 


LXC»4 




F2523190 






06225 


02000 





06231 




TRA 


AC234 


EXIT TIX INITIALIZATION. 


F2523200 






06226 


53400 


1 


05127 


AC230I 


LXA 


L(2)*l 


6 = 1. N3 NOT = 1. 


F2523210 






06227 


50000 





07372 




CLA 


LTXQ42 




F2523220 






06230 


07400 


4 


07271 




TSX 


LXC*4 


THIS CASE. 


F2523230 






06231 


50000 





05157 


AC234 


CLA 


INST3 


RESET MODIFIED AORO. 


F2523240 






06232 


60100 





06424 




STO 


AORO30 


LXC L(4)»l. 


F2523250 






06233 


50000 





05156 




CLA 


INST2 




F2523260 






06234 


60100 





06430 




STO 


AORO40 


LXD L(2)»l. 


F2523270 






06235 


-0 53400 


1 


05207 


AC236 


■ LXD 


AX.l 




F2523280 






06236 


2 00001 


1 


06063 




TIX 


AC200.1.1 




F2523290 






06237 


02000 





05315 


AC240 


TRA 


AC010 




F2523300 






06240 


53400 


2 


05125 




LXA 


LADMX.2 


START ADT6 COMPILING. 


F2523310 






06241 


1 00004 


2 


06242 




TXI 


AC240+3.2.4 




F2523320 






06242 


-0 63400 


2 


05237 




SXD 


XTG.2 




F2523330 






06243 


50000 





05162 




CLA 


INST8 


L»TRA AC244). 


F2523340 






06244 


62100 





06237 




STA 


AC240 


MODIFY RETURN FOR ADTG ENTRY. 


F2523350 






06245 


62100 





05323 




STA 


AC016 




F2523360 






06246 


50000 





05163 




CLA 


INST10 




F2523370 






06247 


62100 





05773 




STA 


AC165+3 




F2523380 






06250 


07400 


4 


04516 


AC244 


TSX 


ADTGSE.4 


FIND VALID ADTG ENTRY. 


F2523390 






06251 


02000 





06253 




TRA 


AC250 


END OF TABLE . GET NEXT DO. 


F2523400 






D 06252 


-3 00000 





05320 


AC248 


TXL 


AC014.0 


VALID ENTRY. CONTINUE AC CYCLE. 


F2523410 






06253 


50000 





05164 


AC250 


CLA 


INST11 


REINITIALIZE 


F2523420 






06254 


62100 





06237 




STA 


AC240 


INSTRUCTIONS 


F2523430 






06255 


62100 





05323 




STA 


AC016 


MODIFIED 


F2523440 






06256 


50000 





05165 




CLA 


INST12 


FOR DM TAG 


F2523450 






06257 


62100 





05773 




STA 


AC165+3 


CYCLE. 


F2523460 






06260 


50000 





05222 




CLA 


LOCIND 


COMPILE AT LEAST 


F2523470 






06261 


10000 





06272 




TZE 


AC260 


A BSS INST SO 


F2523480 






06262 


50000 





05224 




CLA 


A 


THAT TRA INST 


F2523490 






06263 


60100 





05176 




STO 


CI LOO 


WILL FUNCTION 


F2523500 






04244 


50000 





05133 




CLA 


LCO) 


PROPERLY. 


F2523510 






06265 


60100 





05200 




STO 


CIL02 




F2523520 






06266 


60100 





05201 




STO 


CIL03 




F2523530 






06267 


50000 





05056 




CLA 


L(BSS) 




F2523540 






06270 


60100 





05177 




STO 


CIL01 




F2523550 






06271 


07400 


4 


04345 




TSX 


CIT.4 




F2523560 






06272 


-0 53400 


4 


06252 


AC260 


LXD 


AC248t4 


END OF 


F2523570 






06273 


02000 


4 


00001 




TRA 


1.4 


ALPAHA CYCLE. 


F2523580 


















**************************************** *********************F 25 23 590 


















CDORO TAKES 


COEF. AND DIM. AND FILLS OUT ORO. 


F2523600 






06274 


-0 63400 


4 


06277 


CDORO 


SXD 


CD0R01.4 




F2523610 






06275 


-0 53400 


2 


05207 




LXD 


AX. 2 




F2523620 






06276 


-0 76000 





00144 




MSE 


100 




F2523630 






D 06277 


3 00000 





06300 


COOROl 


TXH 


CD0R01+1»0 


WHICH SUB IS IT. 


F2523640 






06300 


-3 00002 


2 


06307 




TXL 


CDOR03.2.2 


S2 OR S3. TRA. 


F2523650 






06301 


50000 





03636 




CLA 


WRKSC 


SI* 


F2523660 






06302 


40200 





05061 




SUB 


LI DEC 


IS CI GREATER THAN1. 


F2523670 






06303 


10000 


4 


00001 




TZE 


1»4 


Cl=l. RETURN. 


F2523680 






06304 


76000 





00144 




PSE 


100 


CI NOT = 1» TURN ON 


F2523690 






06305 


50000 





03636 




CLA 


WRKSC 


SENSE LIGHT . ISOLATE CI. 


F2523700 






06306 


02000 





06317 




TRA 


CDOR07+1 




F2523710 






06307 


56000 





03644 


CDOR03 


LDQ 


WRKSC+6 


ISOLATE Dl. 


F2523720 


r' 



06310 


-3 


00001 


2 


06313 




06311 





20000 





03640 




06312 





02000 





06316 




06313 





20000 





03642 


CDOR05 


06314 





76500 





00022 




06315 





20000 





03645 




06316 





76700 





00021 


CD0R07 


06317 





07400 


4 


04601 




06320 





60100 





07611 




06321 


-0 


53400 


4 


06277 




06322 


-0 


53400 


2 


05207 




06323 





02000 


4 


00001 





TXL C0ORO5»2.1 
MPY WRKSC+2 
TRA CDOR07 
MPY WRKSC+4 
LRS 18 
MPY WRKSC+7 
ALS 17 
TSX FIXC0N«4 
STO ORO0O+19 
LXD CD0R01»4 
LXD AX»2 
TRA 1»4 



WHICH SUB IS IT. 
S2» FORM C2D1. 

S3» FORM 
C3D1D2* 

ASSIGN SYMBOL 
FOR G AND PUT 
IN ORO + 19. 
RESTORE LINKAGE. 
PUT AX POSITION IN 
I.R. B AND RETURN. 



F2523730 
F2S23740 
F2523750 
F2523760 
F 252 3 770 
F2523780 
F2523790 
F252380O 
F2523810 
F2523820 
F2523830 
F2523840 



06324 


-0 


63400 


4 


06346 AORO 


SXD 


AOR05»4 


06325 





50000 


1 


03652 


CLA 


TAG2+3»1 


06326 


-0 


73400 


2 


00000 


PDX 


0*2 


06327 





50000 


2 


01076 


CLA 


DOTAGZ»2 


06330 


-0 


32000 





05141 


ANA 


ADMSK 


06331 





76700 





00022 


ALS 


18 


06332 




50100 





05255 


OR A 


TETLOC 


06333 





60100 





07604 


STO 


ORO00+14 


06334 





50000 


2 


01102 


CLA 


DOTAGZ+4* 


06335 





60100 





07566 


STO 


ORO00 


06336 


-0 


53400 


1 


05207 


LXD 


AX.l 


06337 


-3 


00002 


1 


06347 


TXL 


AOROlOtlt 


06340 





50000 





03636 


CLA 


WRKSC 


06341 





40200 





05061 


SUB 


LI DEC 


06342 





10000 





06424 


TZE 


AORO30 


06343 





40000 





05061 


ADD 


L1DEC 


06344 





07400 


4 


04601 


TSX 


FIXC0N.4 


06345 





60100 





07611 


STO 


ORO00+19 


06346 


-3 


00000 





06430 AOR05 


TXL 


AOR040*0 


06347 


-3 


00001 


1 


06367 AORO10 


TXL 


AOR020»l» 


06350 





56000 





03640 


LDQ 


WRKSC+2 


06351 





20000 





03644 


MPY 


WRKSC+6 


06352 





76700 





00021 


ALS 


17 


06353 





60100 





05245 


STO 


ERAORO 


06354 





56000 





03653 


LDQ 


TAG4 


063-55 





76300 





00031 


LLS 


25 


06356 





76000 





00001 


LBT 




06357 





02000 





06363 


TRA 


AORO 14 


06360 





50000 





03636 


CLA 


WRKSC 


06361 





40000 





05245 


ADD 


ERAORO 


06362 





60100 





05245 


STO 


ERAORO 


06363 





50000 





05245 AOR014 


CLA 


ERAORO 


06364 





07400 


4 


04601 


TSX 


FIXC0N.4 


06365 





60100 





07611 


STO 


ORO00+19 


06366 





02000 





06430 


TRA 


AORO40 


06367 





56000 





03642 AORO20 


LDQ 


WRKSC+4 


06370 





20000 





03644 


MPY 


WRKSC+6 



*#*#******************************************* **************F2523850 
AORO. BORO* CORO. DORO. AND EORO ARE CALLED TO MAKE APPROPRIAF2523860 
COMPILING TABLE (ORO) ENTRIES AND TO CALLL ROUTINES TO MAKE F2523870 
COMPUTATIONS AND COMPILE INSTRUCTIONS TO INTIALUE VARIABLE 
DECREMENTS FOR BLOCKS A. B» C. D* AND E RESPECTIVELY. 

LOCATION IS 
SPECIFIED IN ORO +14 
BY COMBINING TETLOC 
WITH PROPER BETA. 



S2 OR S3. 

SI » IS 

Cl=l. 

YES 

NO* ASSIGN 

SYMBOL FOR CI. 



IS SUB S2. 
YES* FOR C2D1. 
IF S2 IS A 
DUPE* ADD CI. 



NO DUPES. 



CONTAINS C2D1* ETC. 
ASSIGN SYMBOL FOR 
G AND PUT IN ORO+19 



S3. FORM 
C3D1D2. 



DF2523880 
F2523890 
F2523900 
F2523910 
F2523920 
F2523930 
F2523940 
F2523950 
F2523960 
F2523970 
F2523980 
F2523990 
F25240O0 
F2524010 
F2524020 
F2524030 
F2524040 
F2524050 
F2524060 
F2524070 
F2524080 
F2524090 
F2524100 
F2524110 
F2524120 
F2524130 
F2524140 
F2524150 
F2524160 
F2524170 
F2524180 
F2524190 
F2524200 
F2524210 
F2524220 
F2524230 
F2524240 
F2524250 
F2524260 



i> 



o 



o 



06371 





76500 





00022 


LRS 


18 


06372 





20000 





03645 


MPY 


WRKSC+7 


06373 





76700 





00021 


ALS 


17 


06374 





60100 





05245 


STO 


ERAORO 


06375 





56000 





03653 


LDQ 


TA64 


06376 





76300 





00032 


LLS 


26 


06377 





76000 





00001 


LBT 




06400 





02000 





06420 


TRA 


A0R024 


06401 





77100 





00001 


ARS 


1 


06402 





76000 





00001 


LBT 




06403 





02000 





06411 


TRA 


AOR022 


06404 





560SO 





03640 


LDQ 


WRKSC+2 


06405 





20000 





03644 


MPY 


WRKSC+6 


06406 





76700 





00021 


ALS 


17 


06407 





40000 





05245 


ADO 


ERAORO 


06410 





60100 





05245 


STO 


ERAORO 


06411 





50000 





03653 AOR022 


CLA 


TAG4 


06412 





77100 





00013 


ARS 


11 


06413 





76000 





00001 


LBT 




06414 





02000 





06420 


TRA 


AOR024 


06415 





50000 





03636 


CLA 


WRKSC 


06416 





40000 





05245 


ADD 


ERAORO 


06417 





60100 





05245 


STO 


ERAORO 


06420 





50000 





05245 A0R024 


CLA 


ERAORO 


06421 





07400 


4 


04601 


TSX 


FIXC0NU4 


06422 





60100 





07611 


STO 


ORO00+19 


06423 





02000 





06430 


TRA 


AORO40 


06424 





53400 


1 


05127 AORO30 


LXA 


L(2),l 


06425 





50000 





07362 


CLA 


K2AORO 


06426 





07400 


4 


07271 


TSX 


LXC»4 


06427 





02000 





06433 


TRA 


AOR050 


06430 





53400 


1 


05130 AOR040 


LXA 


L(4) tl 


06431 





50000 





07360 


CLA 


K1A0RO 


06432 





07400 


4 


07271 


TSX 


LXC»4 


06433 


-0 


53400 


4 


06346 AORO50 


LXD 


AOR05»4 


06434 





02000 


4 


00001 


TRA 


lt4 

*********** 


06435 


-o 


634QO 


4 


05236 BORO 


SXD 


L1NKC.4 


06436 





56000 





03640 


LDQ 


WRKSC+2 


06437 





20000 





03644 


MPY 


WRKSC+6 


06440 





76700 





00021 


ALS 


17 


06441 





60100 





07611 


STO 


ORO00+19 


06442 





50000 





03636 


CLA 


WRKSC 


06443 





60100 





07612 


STO 


ORO00+20 


06444 





53400 


1 


05127 


LXA 


L(2).l 


06445 


-0 


63400 


1 


05212 


SXD 


N3X»1 


06446 





53400 


1 


05131 


LXA 


L«3).l 


06447 


-0 


63400 


1 


05213 


SXD 


XX»1 


06450 





07400 


4 


06701 


TSX 


PC»4 


06451 


-0 


53400 


4 


05236 


LXD 


LINKC»4 


06452 





02000 


4 


00001 


TRA 


1*4 
*********** 


06453 


-0 


63400 


4 


06465 C0RO 


SXD 


CORO05»4 


06454 





56000 





03644 


LDQ 


WRKSC+6 



CHECK DUPES 
AND MAKE G 
ADJUSTMENTS 
ACCORDINGLY* 



ASSIGN SYMBOL FOR 
G FOR S3. 

SUB IS SI* Cl=l. 
COMPILE CLAt STO. 



COMPILE LDQtMPY* STD. 



RESTORE LINKAGE. 

************************** 
FOR B BLOCK 
COMPUTE G AS 
C2D1. PLACE 
THIS AND CI 
IN ORO. 



INITIALIZE N3X 
POS. TO S2. 
INITIALIZE XX 
POS. TO SI. 



************************** 
FORM C3D1D2 AND 



F2524270 
F2524280 
F2524290 
F2524300 
F2524310 
F2524320 
F2524330 
F2524340 
F2524350 
F2524360 
F2524370 
F2524380 
F2524390 
F2524400 
F2524410 
F2524420 
F2524430 
F2524440 
F2524450 
F2524460 
F2524470 
F2524480 
F2524490 
F2524500 
F2524510 
F2524520 
F2524530 
F2524540 
F2524550 
F2524560 
F2524570 
F2524580 
F2524590 
F2524600 
F2524610 
F2524620 

************************F 2524630 

F2524640 
F2524650 
F2524660 
F2524670 
F2524680 
F2524690 
F2524700 
F2524710 
F2524720 
F2524730 
F2524740 
F2524750 
F2524760 
F2524770 

************************F2524780 

F2524790 
F2524800 



?'? 



06455 





20000 


03645 




MPY 


WRKSC+7 


STORE IN 


F2524810 


06456 





76500 


00022 




LRS 


18 


ORO+19 


F2524820 


06457 





20000 


03642 




MPY 


WRKSC+4 


FOR USE BY 


F2524830 


06460 





76700 


00021 




ALS 


17 


PC IN COMPUTING 


F2524840 


06461 





60100 


07611 




STO 


0RO00+19 


BLOCK C DECREMENTS. 


F2524850 


06462 





50000 


03653 




CLA 


TAG4 


TEST 


F2524860 


06463 





77100 


00011 




ARS 


9 


FOR 


F2524870 


06464 





76000 


00001 




LBT 




DUPES. 


F2524880 


06465 


-3 


00000 


06473 


COR005 


TXL 


COROlOtO 


NO DUPES. 


F2524890 


06466 





56C0C C 


03644 




LDQ 


WRKSC+6 


IF DUPES* FORM 


F2524900 


06467 





20000 


03640 




MPY 


WRKSC+2 


C2D1* ADD TO 


F2524910 


06470 





76700 


00021 




ALS 


17 


ORO+19 * AND STORE 


F2524920 


06471 





40000 


07611 




ADD 


ORO00+19 


IN ORO+19 FOR 


F2524930 


06472 





60100 


07611 




STO 


ORO00+19 


USE BY PC 


F2524940 


06473 





53400 1 


05126 


COROIO 


LXA 


L(l) tl 


SET N3X POSITION 


F2524950 


06474 


-0 


63400 1 


05212 




SXD 


N3X»1 


TO S3* 


F2524960 


06475 





53400 1 


05131 




LXA 


L(3).l 


XX POSITION TO SI 


F2524970 


06476 


-0 


63400 1 


05213 




SXD 


XX»1 


AND CALL PC TO COMPUTE 


F2524980 


06477 





07400 4 


06701 




TSX 


PC»4 


AND COMPILE BLKC INIT. 


F2524990 


06500 


-0 


53400 4 


06465 




LXD 


COR005*4 


RESTORE LINKAGE AND 


F2525000 


06501 





02000 4 


00001 




TRA 


lt4 


RETURN TO MAIN ROUTINE. 


F2525010 














*********************#**********#****************************F2525020 


06502 


-0 


63400 4 


06522 


DORO 


SXD 


D0R05*4 


BLOCK D NORMAL. 


F2525030 


06503 





56000 


03642 




LDQ 


WRKSC+4 


COMPUTES C3D1D2* Gl 


F2525040 


06504 





20000 


03644 




MPY 


WRKSC+6 


AND C2D1* G2 IF DUP. 


F2525050 


06505 





76500 


00022 




LRS 


18 


EXIST IN THE CASE 


F2525060 


06506 





20000 


03645 




MPY 


WRKSC+7 


110 CI ADDED TO G2. 


F252507O 


06507 





76700 


00021 




ALS 


17 


IN THE CASE 101 


F2525080 


06510 





60100 


07611 




STO 


ORO00+19 


CI ADDED TO Gl. 


F2525090 


06511 





56000 


03640 




LDQ 


WRKSC+2 




F2525100 


06512 





20000 


03644 




MPY 


WRKSC+6 




F2525110 


06513 





76700 


00021 




ALS 


17 




F2525120 


06514 





60100 


07612 




STO 


OROOO+20 




F2525130 


06515 





50000 


03653 




CLA 


TAG4 




F2525140 


06516 





77100 


00011 




ARS 


9 




F2525150 


06517 


-0 


32000 


05076 




ANA 


L<7) 




F2525160 


06520 





10000 


06532 




TZE 


D0R020 




F2525170 


06521 





76000 


00001 




LBT 






F2525180 


D 06522 


-3 


00000 


06527 


D0R05 


TXL 


DOR010»0 




F2525190 


06523 





50000 


03636 




CLA 


WRKSC 




F2525200 


06524 





40000 


07611 




ADD 


ORO00+19 




F2525210 


06525 





60100 


07611 




STO 

Tn ft 
1 KM 


ORO00+19 




F2525220 


XJ6526 


^ QZUQO V U653Z 




UUKUcU 




^ *^ 


06527 





50000 


03636 


DORO 10 


CLA 


WRKSC 




F2525240 


06530 





40000 


07612 




ADD 


OROOO+20 




F2525250 


06531 





60100 


07612 




STO 


OROOO+20 




F2525260 


06532 





53400 1 


05126 


DORO 20 


LXA 


L(l).l 


SET N3X POS. TO S3* 


F2525270 


06533 


-0 


63400 1 


05212 




SXD 


N3X»1 




F2525280 


06534 





53400 1 


05127 




LXA 


L(2)*l 


XX POS. TO S2. 


F2525290 


06535 


-0 


63400 1 


05213 




SXD 


XX»1 




F2525300 


06536 





07400 4 


06701 




TSX 


PC»4 


MAKE COMPUTATIONS AND COMPILE 


F2525310 


06537 


-0 


53400 4 


06522 




LXD 


DOR05»4 


INSTRUCTIONS TO INIT. VAR. 


F2525320 


06540 





02000 4 


00001 




TRA 


1*4 


BLOCK D DECREMENTS. 


F2525330 














********* *#***#********************#*************************F2525 340 


o 
















c 



& 



n 



o 



L r/ 



06541 


-0 


63400 


4 


06645 EORO 


SXD 


EOR006»4 


06542 





07400 


4 


06502 


TSX 


D0ROt4 


06543 





50000 





07605 


CLA 


OROOO+15 


06544 





40000 





05110 


ADD 


LC8) 


06545 





60100 





07604 


STO 


ORO00+14 


06546 





40000 





05135 


ADD 


L<16) 


06547 





60100 





07605 


STO 


OROOO+15 


06550 





53400 


1 


05131 


LXA 


L(3)<1 


06551 





50000 


1 


03652 


CLA 


TAG2+3»1 


06552 


-0 


73400 


2 


00000 


PDX 


0*2 


06553 





50000 


2 


01103 


CLA 


D0TAGZ+5»2 


06554 


-0 


32000 





05137 


ANA 


BIT2 


06555 





10000 





06644 


TZE 


E0RO06-1 


06556 





50000 


2 


01102 


CLA 


DOTAGZ+4.2 


06557 





40200 





05126 


SUB 


L(l) 


06560 


-0 


10000 





06644 


TN2 


EORO06-1 


06561 





50000 


2 


01100 


CLA 


DOTAGZ+2»2 


06562 





40200 





05126 


SUB 


L(l) 


06563 


-0 


10000 





06610 


TNZ 


EOR02 


06564 





50000 





03636 


CLA 


WRK.SC 


06565 





40200 





05061 


SUB 


L1DEC 


06566 


-0 


10000 





06571 


TNZ 


EOROl 


06567 





50000 


2 


01101 


CLA 


DOTAGZ+3»2 


06570 





02000 





06674 


TRA 


EOR022 


06571 





50000 


2 


01101 EOROl 


CLA 


DOTAGZ+3.2 


06572 





60100 





07566 


STO 


OROOO 


06573 





50000 





03636 


CLA 


WRKSC 


06*74 





07400 


4 


04601 


TSX 


FIXCQN»4 


06575 





60100 





07611 


STO 


ORO00+19 


06576 





50000 





07360 


CLA 


K1AORO 


06577 





53400 


1 


05131 


LXA 


L(3)*l 


06600 





07400 


4 


07271 


TSX 


LXC»4 


06601 





53400 


1 


05126 EOR03 


LXA 


L(l)*l 


06602 





50000 





07376 


CLA 


LXCIE1 


06603 





07400 


4 


07271 


TSX 


LXC.4 


06604 


1 


00001 


1 


06605 


TXI 


EOR03+4»l.l 


06605 





50000 





07400 


CLA 


LXCEIP 


06606 





07400 


4 


07271 


TSX 


LXCt4 


06607 


6 


02000 





06664 


TRA 


E0RO18+3 


06610 





07400 


4 


04741 EOR02 


TSX 


0P3»4 


06611 





50000 





03636 


CLA 


WRK.SC 


06612 





40200 





05061 


SUB 


L1DEC 


06613 





10000 





06601 


TZE 


EORO 3 


06614 





50000 





05054 


CLA 


L(AOO) 


06615 





60100 





05177 


STO 


CIL01 


06616 





50000 





07603 


CLA 


ORO00+13 


06617 





73400 


4 


00000 


PAX 


0.4 


06620 


-0 


32000 





05104 


ANA 


60NES 


06621 





60100 





05200 


STO 


CIL02 


06622 


-0 


63400 


4 


05201 


SXD 


CIL03.4 


06623 





07400 


4 


04345 


TSX 


CIT»4 


06624 





50000 





05044 


CLA 


L(STO) 


06625 





60100 





05177 


STO 


CIL01 


06626 





50000 





07620 


CLA 


0R000+26 



COMP. INSTR. FOR 1ST TXI-SXD-TIX. 

UPOATE 

TXI RELATIVE 

INSTRUCTION NUMBER. 

UPDATE TIX RELATIVE 

INSTRUCTION NUMBER. 

SEE IF 

X FOR 

XX POSITION 

IS 

COMPUTABLE. 

X COMPUTABLE. 

X NOT COMPUTABLE » 

IS N3=l. 

N3 NOT =1. 

N3 = l» IS 

Nl = 1. 

Nl NOT = 1. 

N3»NU = 1# 

DOES Cl = l. 

NO* 

N3» Nl» CI = 1 • 

ISOLATE N2 SYMBOL. 

ISOLATE 

N2 SYMBOL. 

ASSIGN SYMBOL 

FOR Cl» AND 

COMPILE LDQ L(N2J» 

MPY L(C1)» ARS 17. 



COMPILE 
SUB L(l)» 

COMPILE 

STD L(TIXI » STD HTXI). 



COMPILE CLA (N2 - Nl) 

OR CLA N2» SUB Nl. 

DOES Cl=l. 

UES* EOR03. 

NO« COMPILE 

ADD L(l)> 

STO l>+3# 

MPY LIC1.. 
ALS 17» 
STO l)+3i 
AND GO TO 
EORO 3. 



F2525350 
F2525360 
F2525370 
F2525380 
F2525390 
F2525400 
F2525410 
F2525420 
F2525430 
F2525440 
F2525450 
F2525460 
F2525470 
F2525480 
F2525490 
F2525500 
F2525510 
F2525520 
F2525530 
F2525540 
F2525550 
F2525560 
F2525570 
F2525580 
F2525590 
F 252 5 600 
F2525610 
F2525620 
F2525630 
F2525640 
F2525650 
F2525660 
F2525670 
F2525680 
F2525690 
F2525700 
F2525710 
F-252&720 
F2525730 
F2525740 
F2525750 
F2525760 
F2525770 
F2525780 
F2525790 
F2525800 
F2525810 
F2525820 
F2525830 
F2525840 
F2525850 
F2525860 
F2525870 
F2525880 



in 



06627 





60100 





07567 




STO 


OROOO+1 


• - 




F2525890 


06630 





73400 


4 


00000 




PAX 


0»4 






F2525900 


06631 


-0 


32000 





05104 




ANA 


60NES 






F2525910 


06632 





60100 





05200 




STO 


CIL02 






F2525920 


06633 


-0 


63400 


4 


05201 




SXD 


CIL03»4 






F2525930 


06634 





07400 


4 


04345 




TSX 


CIT*4 


FIXCON SYMBOL 




F2525940 


06635 





50000 





03636 




CLA 


WRKSC 


FOR CI* 




F2525950 


06636 





07400 


4 


04601 




TSX 


F1XC0N»4 






F2525960 


06637 





60100 





07577 




STO 


OROOO+9 






F2525970 


06640 





50000 





07352 




CLA 


KLX02I 






F2525980 


06641 





53400 


1 


05130 




LXA 


L(4)»l 






F2525990 


06642 





07400 


4 


07271 




TSX 


LXC*4 






F2526000 


06643 





02000 





06601 




TRA 


EOR03 






F2526010 


06644 





07400 


4 


07226 




TSX 


PX0R0»4 


CI GREATER THAN 1. 




F2526020 


06645 


-3 


00000 





06647 


EORO06 


TXL 


EORO08*0 






F2526030 


06646 





02000 





06666 




TRA 


EORO20 


X CONSTANT* EOR020* 




F2526040 


06647 





53400 


1 


05106 


EORO08 


LXA 


L<6)»1 


X NOT CONST.* 




F2526050 


06650 





50000 





03636 




CLA 


WRKSC 


COMPILE 




F2526060 


06651 





40200 





05061 




SUB 


L1DEC 


INSTRUCTIONS 




F2526070 


06652 





10000 





06657 




TZE 


EOR015 


TO COMPUTE 




F2526080 


06653 


1 


00002 


1 


06654 




TXI 


EORO10.1.2 


XGN3. 




F2526090 


06654 





50000 





03636 


EORO10 


CLA 


WRKSC 






F2526100 


06655 





07400 


4 


04601 




TSX 


FIXC0N»4 






F2526110 


06656 





60100 





07577 




STO 


ORQ0O+9 






F2526120 


06657 





50000 





07373 


E0R015 


CLA 


LXCI 






F2526130 


06660 





07400 


4 


07271 




TSX 


LXC»4 






F2526140 


06661 





5340Q 


1 


05130 


E0R018 


LXA 


L»4>*1 


COMPILE LLS* SUB* 




F2526150 


06662 





50000 





07375 




CLA 


LXCIE 


STD.STD. 




F2526160 


06663 





07400 


4 


07271 




TSX 


LXC»4 






F2526170 


06664 


-0 


53400 


4 


06645 




LXD 


EORO06»4 






F2526180 


06665 





O2000 


4 


00001 




TRA 


lt4 






F2526190 


06666 





76500 





000*3 


EOR020 


LRS 


35 






F2526200 


06667 





76100 





00000 




NOP 








F2526210 


06670 





20000 





03636 




MPY 


WRKSC 






F2526220 


06671 





76700 





00021 




ALS 


17 






F2526230 


06672 





76100 





00000 




NOP 








F2526240 


06673 





07400 


4 


04601 




TSX 


FIXC0N.4 






F2526250 


06674 





60100 





07612 


EOR022 


STO 


OROOO+20 


PUT SYMBOL IN 




F2526260 


06675 





53400 


1 


05126 




LXA 


L(l)»l 


ORO+20 AND COMPILE 




F2526270 


06676 





50000 





07377 




CLA 


LXCIEP 


CLA (SYMBOL)* 




F2526280 


06677 





07400 


4 


07271 




TSX 


LXC*4 






F2526290 


06700 





02000 





06601 




TRA 


EOR03 






F2526300 


















k«*^HMHt»»«««»»»^'iHHHMHHMHMHHHMHHt»« »«««*****) 


















PC IS A SUBROUTINE CALLED BY AORO» BORO, ETC. 


TO MAKE 


COMPUTAF2526320 
















TIONS AND 


TO CALL COMPILING ROUTINES FOR TXI 


DECREMENT INTIAF2526330 
















LI2ATI0N. 






F2526340 


06701 


-0 


63400 


4 


06717 


PC 


SXD 


PC04»4 






F2526350 


06702 


-0 


53400 


1 


05212 




LXD 


N3X.1 






F2526360 


06703 





50000 


1 


03652 




CLA 


TA62+3»1 






F2526370 


06704 


-0 


73400 


2 


00000 




PDX 


0t2 






F2526380 


06705 





50000 


2 


01076 




CLA 


D0TAGZ»2 






F2526390 


06706 


-0 


32000 





05141 




ANA 


ADMSK 


FORM LOCATION 




F2526400 


06707 





76700 





00022 




ALS 


18 


WORDS AND PUT 




F2526410 


06710 


-0 


50100 





05255 




OR A 


TETLOC 


IN 0R0+14 




F2526420 



if- 



u 



f) 



o 





06711 





60100 





07604 




STO 


ORO00+14 


AND ORO+15. 




06712 





40000 





05135 




ADD 


L(16) 






06713 





60100 





07605 




STO 


ORO00+15 






06714 





50000 


2 


01076 




CLA 


DOTAGZ.2 


IS N3 FOR THIS DO 




06715 





77100 





00017 




ARS 


15 


VARIABLE. 




06716 





76000 





00001 




LBT 









06717 


-3 


00000 





06731 


PC04 


TXL 


PC10.0 


NO* PC10. 




06720 





50000 


2 


01102 




CLA 


DOTAGZ+4.2 


YES. 




06721 





60100 





07566 




STO 


OROOO 


COMPILE 




06722 





50000 





07611 




CLA 


OROOO+19 


LDQ L<G). (N3X POS.) » 




06723 





07400 


4 


04601 




TSX 


FIXC0N.4 


MPY N3» (N3X POS.). 




06724 





60100 





07611 




STO 


ORO00+19 


ALS 17. 




06725 





53400 


1 


05130 




LXA 


L(4>.1 


STO CCORO+12) 




06726 





50000 





07402 




CLA 


K1B0R0 






06727 





07400 


4 


07271 




TSX 


LXC»4 






06730 





02000 





06736 




TRA 


PC20 






06731 





56000 


2 


01102 


PC10 


LDQ 


DOTAGZ+4.2 


N3 CONSTANT. PUT 




06732 





20000 





07611 




MPY 


ORO00+19 


N3G SYMBOL IN 




06733 





76300 





00043 




LLS 


35 


ORO+19 




06734 





07400 


4 


04601 




TSX 


FIXC0N»4 






06735 





60100 





07611 




STO 


OROOO+19 






06736 


-0 


53400 


1 


05213 


PC20 


LXD 


XX. 1 


ISOLATE N3 FOR 




06737 





50000 


1 


03652 


PCI 


CLA 


TAG2+3»1 


XX POSITION 




06740 


-0 


73400 


2 


00000 




PDX 


Ot2 






06741 





50000 


2 


01102 




CLA 


DOTAGZ+4.2 


DOES N3 = 1. 




06742 





40200 





05126 




SUB 


LCD 






06743 


-0 


10000 





07050 




TNZ 


PC21 


NO. PC22. 




06744 





50000 


2 


01103 




CLA 


DOTAGZ+5»2 


YES. IS X CONST* 




06745 


-0 


32000 





05137 




ANA 


SIT2 






06746 





10000 





07050 




T2E 


PC21 


YES. PC21. 




067*7 


-3 


00002 


1 


07027 




TXL 


PCI31»1.2 


NO. IS POS. S2. 




06750 





50000 


2 


01100 




CLA 


DOTAGZ+2t2 


NO. IS Nl = 1. 




06751 





40200 





05126 




SUB 


L(l) 






06752 


-0 


10000 





06773 




TNZ 


PCI22 


NO. PCI22. 




06753 





50OG0 


2 


01101 




CLA 


DOTAGZ+3.2 


YES. DOES CI = 1. 




06754 





60100 





07567 




STO 


OROOO+1 






06755 





50000 





03636 




CLA 


WRKSC 






06756 


0^ 






^>5X>6i 




SUB LI DEC 






06757 


-0 


10000 





06764 




TNZ 


PCI21 


NO. PCI21. 




06760 





53400 


1 


05126 




LXA 


L(l)»l 


YES. COMPILE 




06761 





50000 





07353 




CLA 


KLX02 


CLA Nl. 




06762 





07400 


4 


07271 




TSX 


LXC.4 


SUBL(l)* AND 




06763 





02000 





07044 




TRA 


PCI33 






06764 





50000 





03636 


PCI21 


CLA 


WRKSC 






06765 





07400 


4 


04601 




TSX 


FIXC0N»4 


COMPILE 




06766 





60100 





07577 




STO 


ORO00+9 


LDO L(N2) 




06767 





50000 





07352 




CLA 


KLX021 


MPY LCI) 




06770 





53400 


1 


05130 




LXA 


L(4) tl 


ALS 17 




06771 





07400 


4 


07271 




TSX 


LXC.4 


STO 1) +3. 




06772 





02000 





07113 




TRA 


PC60 






06773 





07400 


4 


04741 


PCI22 


TSX 


0P3»4 


COMPILE CLA L(N2-N1) 




06774 





50000 





03636 




CLA 


WRKSC 






06775 





40200 





05061 




SUB 


L1DEC 


IS CI = 1. 


- 


06776 





10000 





07113 




TZE 


PC60 


YES. PC 60. 



F2526430 
F2526440 
F2526450 
F2526460 
F2526470 
F2526480 
F2526490 
F2526500 
F2526510 
F2526520 
F2526530 
F2526540 
F2526550 
F2526560 
F2526570 
F2526580 
F2526590 
F2526600 
F2526610 
F2526620 
F2526630 
F2526640 
F2526650 
F2526660 
F2526670 
F2526680 
F2526690 
F2526700 
F2526710 
F2526720 
F2526730 
F2526740 
F2526750 
F2526760 
F 2 526770 
F2526780 
F2526790 
F25268 00 
F2526810 
F2526820 
F2526830 
F2526840 
F2526850 
F2526860 
F2526870 
F2526880 
F2526890 
F2526900 
F2526910 
F2526920 
F2526930 
F2526940 
F2526950 
F2526960 



J4/ 



06777 


50000 





03636 




CLA 


WRKSC 


NO. OBTAIN 


07000 


07400 


4 


04601 




TSX 


FIXCON.4 


SYMBOL FOR 


07001 


60100 





07577 




STO 


ORO00+9 


CI AND 


07002 


50000 





05054 


PCI22R 


CLA 


L(ADD) 


COMPILE 


07003 


60100 





05177 




STO 


CIL01 


ADD LCI) 


07004 


50000 





07603 




CLA 


ORO00+13 


STO 1) +3 


07005 


73400 


1 


00000 




PAX 


0*1 


LDQ 1) +3 


07006 


-0 63400 


1 


05201 




SXD 


CIL03.1 


MPY L(G) 


07007 


-0 32000 





05104 




ANA 


60NES 


AL517 


07010 


60100 





05200 




STO 


CIL02 


STD 1) +3 


07011 


07400 


4 


04345 




TSX 


CIT.4 


SUB L(l)» 


07012 


50000 





05044 




CLA 


L(STO) 


THEN 60 


07013 


60100 





05177 




STO 


CILdl 


TO PC60. 


07014 


50000 





07620 




CLA 


OROOO+26 




07015 


60100 





07567 




STO 


OROOO+l 




07016 


73400 


4 


00000 




PAX 


0*4 




07017 


-0 32000 





05104 




ANA 


60NES 




07020 


60100 





05200 




STO 


CIL02 




07021 


-0 63400 


4 


05201 




SXD 


CIL03.4 




07022 


07400 


4 


04345 




TSX 


CIT.4 




07023 


53400 


1 


05130 




LXA 


L<4)»1 




07024 


50000 





07352 




CLA 


KLX02I 




07025 


07400 


4 


07271 




TSX 


LXC.4 




07026 


02000 





07044 




TRA 


PC133 




07027 


50000 





07612 


PCI 31 


CLA 


ORO00+20 


XX POS 2.X VAR.» N3 = 


07030 


07400 


4 


04601 




TSX 


FIXC0N.4 


ASSIGN SYMBOL FOR G 


07031 


60100 





07577 




STO 


ORO00+9 


AND PUT IN ORO+9 


07032 


50000 


2 


01100 




CLA 


DOTAGZ+2.2 


IS Nl = 1 


07033 


40200 





05126 




SUB 


L(l> 




07034 


10000 





07037 




TZE 


PCI32 


YES. PCI 32. 


07035 


07400 


4 


04741 




TSX 


0P3.4 


NO. COMPILE CLA (N2-N1) 


07036 


02000 





07002 




TRA 


PCI22R 


OR CLA N2. SUB Nl* 


07037 


50000 


2 


01101 


PCI32 


CLA 


DOTAGZ+3.2 


COMPILE 


07040 


60100 





07567 




STO 


OROOO+l 


LDQ N2. 


07041 


53400 


1 


05130 




LXA 


L<4)»1 


MPY G. 


07042 


50000 





07352 




CLA 


KLX02I 


ALS 17. 


07043 


07400 


4 


07271 




TSX 


LXC.4 


STOD+3. 


07044 


53400 


1 


05126 


PCI33 


LXA 


L(l)tl 




07045 


50000 





07404 




CLA 


LXCI61 




07046 


07400 


4 


07271 




TSX 


LXC.4 




07047 


02000 





07113 




TRA 


PC60 




07050 


07400 


4 


07226 


PC21 


TSX 


PX0R0.4 


IS X CONSTANT. 


07051 


^h 02000 & 07053 




TRA PC22 


J*0+£C22^ 


07052 


020O0 





07102 




TRA 


PC50 


YES. PC50. 


07053 


-0 53400 


1 


05213 


PC22 


LXD 


XX. 1 


X NOT CONSTANT. 


07054 


-3 00002 


1 


07073 




TXL 


PC40.1.2 


IS POSITION SI. 


07055 


53400 


1 


05106 




LXA 


L(6).l 


TES. COMPILE 


07056 


50000 





03636 




CLA 


WRKSC 


INSTRUCTIONS 


07057 


40200 





05061 




SUB 


L1DEC 


TO COMPUTE 


07060 


10000 





07065 




TZE 


PC30 


N3X-1. AND 


07061 


1 00002 


1 


07062 




TXI 


PC25.1.2 


TO TO PC60. 


07062 


400OO 





05061 


PC25 


ADD 


L1DEC 




07063 


07400 


4 


04601 




TSX 


F1XC0N.4 




07064 


60100 





07577 




STO 


ORO00+9 





F2526970 

F2526980 

F2526990 

F2527000 

F2527010 

F2527020 

F2527030 

F2527040 

F2527050 

F2527060 

F2527070 

F2527080 

F2527090 

F2527100 

F2527110 

F2527120 

F2527130 

F2527140 

F2527150 

F2527160 

F2527170 

F2527180 

F2527190 

F2527200 

F2527210 

F2527220 

F2527230 

F2527240 

F2527250 

F2527260 

F2527270 

F 2 52 7 280 

F2527290 

F2527300 

F2527310 

F2527320 

F2527330 

F2527340 

F2527350 

F2527360 

F2527370 

F2527380 



F2527400 
F 25274 10 
F2527420 
F2527430 
F2527440 
F2527450 
F2527460 
F2527470 
F2527480 
F2527490 
F2527500 



4 1 * 



i> 



u 



o 



n 



O 



L V 



07065 
07066 
07067 
07070 
07071 
07072 
07073 
07074 
07075 
07076 
07077 
07100 
07101 
07102 
07103 
07104 
07105 
07106 
07107 
07110 
07111 
07112 
07113 
07114 
07115 
07116 
07117 
07120 
07121 
07122 
07123 
07124 
07125 
07126 
07127 
07130 



07131 
07132 
07133 
07134 
07135 
07136 



50000 
07400 
53400 
50000 
07400 
02000 
50000 
07400 
60100 
53400 
50000 
07400 
02000 
76500 
20000 
76700 
40200 
07400 
60100 
53400 
50000 
07400 
53400 
50000 
73400 
53400 
50000 
77100 
76000 
02000 
50000 
07400 
53400 
02000 
50000 
02000 



07373 PC30 

07271 

05127 

07374 

07271 

07113 

07612 PC40 

04601 

07612 

05134 

07403 

07271 

07113 

00043 PC50 

07612 

00021 

05061 

04601 

07612 

05126 

07401 

07271 

05212 PC60 

03652 

00000 

05131 

01076 

00017 

00001 

07127 

07405 

07271 PC62 

06717 

00001 

07562 PC61 

07124 



50000 05133 CIL03I 
60100 05176 
50000 03652 
32000 05141 
60100 05201 
02000 4 0OO01 



CLA 
TSX 

LXA 
CLA 
TSX 
TRA 
CLA 
TSX 
STO 
LXA 
CLA 
TSX 
TRA 
LRS 
MPY 
ALS 
SUB 
TSX 
STO 
LXA 
CLA 
TSX 
LXD 
CLA 
PDX 
LXA 
CLA 
ARS 
LBT 
TRA 
CLA 
TSX 
LXD 
TRA 
CLA 
TRA 



CLA 
STO 
CLA 
ANA 
STO 
TRA 



LXCI 

LXC»4 

L(2>»1 

LXCI6 

LXC*4 

PC60 

OROOO+20 

FIXC0N.4 

ORO00+20 

LtlO)*l 

LX2CI 

LXC»4 

PC60 

35 

OROOO+20 

17 

L1DEC 

FIXC0N.4 

OROOO+20 

L(l).l 

XK 

LXC»4 

N3X*1 

TAG2+3»1 

0*2 

L(3!.l 

D0TAGZ»2 

15 

PC61 

LXCI 8 

LXC»4 

PC04.4 

1*4 

LXCI8P 

PC62 



POS. IS S2« 
COMPILE INSTRUCTIONS 
TO COMPUT N3X-1 AND 
GO TO PC6Q. 



X IS CONSTANT* 

FORM GN3X-1 FOR 

XX POS. AND COMPILE 



IS 

N3 

OF 

CURRENT 

DO 

VARIABLE. 

CONSTANT* PC61. 

VARIABLE* COMPILE 

STD. ADD N3G* STD. 



F2527510 
F2527520 
F2527530 
F2527540 
F2527550 
F2527560 
F2527570 
F2527580 
F2527590 
F25276O0 
F2527610 
F2527620 
F2527630 
F2527640 
F2527650 
F2527660 
F2527670 
F2527680 
F2527690 
F2527700 
F2527710 
F2527720 
F2527730 
F2527740 
F2527750 
F2527760 
F2527770 
F2527780 
F2527790 
F2527800 
F2527810 
F2527820 
F2527830 
F2527840 
F2527850 
F2527860 



07137 





62100 





07162 


BITP 


STA 


BITP14 


07140 





62100 





07147 




STA 


BITP02 


07141 





62100 





07153 




STA 


BITP04 


07142 





73400 


2 


00000 




PAX 


Qt2 


07143 





76700 





00001 




ALS 


1 



CONSTANT. COMPILE 

STD. ADD CI0R0+12I* STD. 
#*»*«*#»*****»*********#*#***>***#**»*************************F2527870 
CIL03I FILLS OUT LOCATION AND TAG NAME WORDS FOR COMPILED INSF2527880 
TRUCTIONS WITHOUT LOCATIONS. F2527890 

L(0) PLACE IN LOCATION F2527900 

CILOO WORD AND TAG IN F2527910 

TAG3 TAG WORD OF COMPILED F2527920 

ADMSK INSTRUCGIN. F2527930 

CIL03 F2527940 

1,4 F2527950 

##»***#*>**#*»*******>*********»*#********»********************F2527960 
BITP CHECKS SUBSCRIPTS FOR DEFINITION. IF DEFINED BY RELCON F2527970 
OR DOSUB IT OBTAINS OBJECT PROGRAM SYMBOLS FOR Nl OR 51 RESPEF2527980 

CTIVELY. Zl*l™£ 

F 2528 000 



INITIALIZE SHIFTS* 
STORE LINKAGE 
AND PLACE 0*1*2 IN 
XB FOR S3. S2. AND 



F2528010 
F2528020 
F2528030 
F2528040 



071*4 
071*5 
07146 
07147 
07150 
07151 
07152 
07153 
07154 
07155 
07156 
07157 
07160 
07161 
07162 
07163 
07164 
07165 
07166 
07167 
07170 
07171 



07172 
07173 
07174 
07175 
07176 
07177 
07200 
07201 
07202 
07203 
07204 
07205 
07206 
07207 
07210 



07211 
07212 
07213 
07214 
07215 
07216 
07217 
07220 
07221 
07222 
07223 



73400 
63400 
50000 
77100 
76000 
02000 
50000 
77100 
76000 
02000 
50000 
73400 
50000 
3 00007 
77100 
76000 
02000 
50000 
00000 
50000 
53400 
02000 



53400 
53400 
63400 
50000 
10000 
40200 
10000 
76000 
50000 
07400 
60100 
00002 
00001 
53400 
020O0 



50000 
73400 
50000 
56000 
77300 
76300 
76700 
60100 
50000 
32000 
76700 



00000 
07166 
05252 
00000 
00001 
00001 
05253 
00000 
00001 
07167 
03651 
00000 
05254 
00100 
00000 
00001 
07151 
01100 
07170 
03643 
07166 
00002 



05106 
05131 
05236 
03644 
07205 
05061 
07205 
00144 
03644 
04601 
07602 
07206 
07175 
05236 



BITP02 



BITP04 



B1TP10 



BITP14 



BITP20 
BITP25 
BITP30 
BITP40 



COSE 
COSE5 



4 00001 



03652 
00000 
05133 
01104 
00003 
0O006 
00003 
05255 
01076 
05141 
00022 



COSE08 
C0SE10 



TESTLO 



PAX 
SXO 
CLA 
ARS 
LBT 
TRA 
CLA 
ARS 
LBT 
TRA 
CLA 
PDX 
CLA 
TXH 
ARS 
LBT 
TRA 
CLA 
TXL 
CLA 
LXD 
TRA 



LXA 
LXA 
SXD 
CLA 
TZE 
SUB 
T2E 
PSE 
CLA 
TSX 
STO 
TIX 
TIX 
LXO 
TRA 



0*1 

BITP25#4 
OR EDO 



1*4 
DEFDO 



SI RESPECTIVELY* 

CHECK TO SEE IT 
DEFINED BY DO* RELCONt 
OR DORC. RETURN AS NOT 
DEFINED IF NOT DEFINED. 
DEFINED. CHECK TO SEE 
IF DEFTNED BY DO. 



DEFINED AS RELCON. 

DEFINED BY DO* CHECK 

TO SEE IF Nl IS 

VARIABLE. IF S0» RETURN 

AS UNDEFINED. 

IF NOT* 

CONTINUE. 

SYMBOL HAS VARIABLE Nl. 

DOSUB* N2. 

SUBMLEFT IN ACC. 

RELCON S SYMBOL FROM WRKSC. 

RESTORE LINKAGE 

SYMBOL IN ACC. 

#**«**#**#***********#******#*************************»«*>*«**F2528270 
COSE TESTS COEFFICIENTS AND OBTAINS OBJECT PROGRAM SYMBOLS FRF2528280 
THOSE GREATER THAN 1 F2528290 



BITP30 

TAG2+2*2 

0.2 

N1SBX 

64»0»7 



BITP02+2 

D0TA6Z+2»2 

BITP40.0 

WRKSC+5.1 

BITP25*4 

2t4 



F2528050 
F2528060 
F252807O 
F2528080 
F2528090 
F2528100 
F2528110 
F2528120 
F2528130 
F2528140 
F2528150 
F2528160 
F2528170 
F2528180 
F2528190 
F2528200 
F2528210 
F2528220 
F2528230 
F2528240 
F2528250 
F2528260 



L(6)tl 

L(3)»2 

LINKC»4 

WRKSC+6»1 

COSE08 

L1DEC 

C0SE08 

100*2 

WRKSC+6.1 

FIXC0N»4 

ORO00+12»2 

COSE10*1*2 

COSE5»2.1 

LINKC»4 

1.4 



COEFFICIENT INDEX. 
SENSE LIGHT INDEX. 
STORE LINKAGE. 
ISOLATE COEFFIEIENT. 
NO SUB FOR THIS DIM. 

C=l» CHECK NEXT C. 

C NOT =1* SENSE LIGHT. 

ASSIGN FIXCON SYMBOL 

FOR C NOT =1. STORE IN 

ORO+910* OR 11. 

BUMP COEF. INDEX. 

BUMP S.6. TEST AND LOOP. 

RESTORE LINKAGE 

AND RETURN. 



F2528300 
F2528310 
F2528320 
F2528330 
F2528340 
F2528350 
F2528360 
F2528370 
F2528380 
F2528390 
F2528400 
F2528410 
F2528420 
F2528430 
F2528440 



•***#»****»**#*****************************»*****************F 25 28450 
TESTLO OBTAINS THE TEST LOCATION TO BE THE SYMBOLIC ADDRESS OF 2528460 
^F TWtSTfr «W*At«4N& INSTRUCT KWt F2528470 



CLA 
PDX 
CLA 
LDQ 
RQL 
LGL 
ALS 
STO 
CLA 
ANA 
ALS 



TAG2+3»2 

0*2 

L(0) 

D0TAG2+6»2 

3 

6 

3 

TETLOC 

D0TAGZ.2 

ADMSK 

18 



INITIALIZE INDEX 

FOR TEST DQTAG. 

ISOLATE 

SXD 

LOCATION 

AND PUT 

IN TETLOC 

ADDRESS 

PUT TXL 

LOCATION 

IN TETLOC 



F2528480 
F2528490 
F2528500 
F2528510 
F2528520 
F2528530 
F2528540 
F2528550 
F2528560 
F2528570 
F2528580 



;-</ 



o 



n 



O 



07224 
07225 



07226 
07227 
07230 
07231 
07232 
07233 
07234 
07235 
07236 



07237 
07240 
07241 
07242 
07243 
07244 
07245 
07246 
07247 
07250 
07251 
07252 
07253 
07254 
07255 
07256 
07257 
07260 
07261 
07262 
07263 
07264 
^7265 
07266 
07267 
07270 



-0 60200 05255 
02O00 4 00001 



50000 
73400 
50000 
32000 
10000 
50000 
32000 
76700 
02000 



63*00 
50000 
77100 
32000 
60100 
50000 
40000 
00002 
40000 
00001 
40000 
62100 
53400 
56000 
77300 
50000 
16200 
00000 
76700 
07400 
60100 
00001 
2 ^©OOt 
60100 
53400 
02000 



03652 
00000 
01103 
05137 
07237 
01103 
05141 
00022 
00002 



07260 
01076 
00017 
05076 
05235 
05067 
05130 
07250 
05131 
07252 
05066 
07263 
05131 
05235 
00044 
01100 
07261 
07263 
00022 
04601 
00000 
07265 
t ^7254 
07566 
4 07260 
4 00001 



PX0R0 



XORO 



XORO10 
XORO 20 
XORO30 

XOR032 
X0R034 

X0R036 

X0RD40 



ORS 
TRA 



CLA 
PDX 
CLA 
ANA 
TNZ 
CLA 
ANA 
ALS 
TRA 



SXO 
CLA 
ARS 
ANA 
STO 
CLA 
ADD 
TXH 
ADD 
TXH 
ADD 
STA 
LXA 
LDQ 
RQL 
CLA 
TQP 
TXL 
ALS 
TSX 
STO 
TIX 
Tt* 
STO 
LXD 
TRA 



TETLOC DECREMENT. F2528590 

1,4 F2526600 
*******s***********«-*****************************************F2528610 

PREFACE TO ORO EXAMINES VARIABLIITY OF X QUANTITY. F2528620 

TAG2+3#1 IF X IS F2528630 

0»2 CONSTANT IT IS F2528640 

DOTAGZ+5»2 LEFT IN THE F2528650 

BIT2 DECREMENT OF F2528660 

XORO ACC. F2528670 

DOTAGZ+5.2 F2528680 

ADMSK F2528690 

18 F2528700 

2,4 F2528710 
♦♦ft********************************************************** F2528720 

XORO FILLS OUT ORO FOR Nl» N2 ♦ N3# GIVEN DO IN B AND POS IN AF2528730 



X0R032i4 

DOTAGZ.2 

15 

L{7> 

N1N2N3 

L(ORO) 

L(4) 

XORO10»l»2 

L<3) 

XORO20»l»l 

L<17> 

XOR036 

L13J.1 

N1N2N3 

36.1 

DOTAGZ+2.2 

XOR034 

XOR036*0 

18 

FIXC0N»4 

Otl 

X0R040»2>1 

XORO30r iTi 

OROOO 

XOR032»4 

1*4 



ORIGIN OF ORO TABLE. 
CALCULATES ADDRESS 
FOR STORING INTO 
ORO TABLE. 



STORE ADRS FOR NS. 



N IS CONSTANT. 
N IS VARIABLE 



F2528740 
F2528750 
F2528760 
F2528770 
F2528780 
F2528790 
F2528800 
F2528810 
F2528820 
F2528830 
F2528840 
F2528850 
F2528860 
F2528870 
F2528880 
F2528890 
F2528900 
F2528910 
F2528920 
F2528930 
F2528940 
F2528950 
F252B95D 
F2528970 
F2528980 
F2528990 



07271 


-0 63400 4 07336 LXC 


SXD LXC19»4 


07272 


60100 05206 


STO ERLXC 


07273 


-0 75400 1 00000 


PXD 0*1 


07274 


77100 00022 


ARS 18 


07275 


40000 05206 


ADD ERLXC 


07276 


62100 07312 


STA LXC10 


07277 


50000 05222 - 


CLA LOCIND 


07300 


10000 07310 


TZE LXC08 



♦************************************************************F2529000 
THIS ROUTINE EXAMINES A BLOCK OF CONSTANTS AND COMPILES ONE IF2529010 
INSTRUCTION FOR EACH. THE CALLER INDICATES THE FIRST CONSTANF2529020 
BY A REFERENCE IN THE ACCUMULATOR* AND INDICATES THE NUMBER OF2529030 
OF INSTRUCTIONS IN INDEX REGISTER A. F2529040 

F2529050 
F2529060 
F2529070 
F2529080 
F2529090 
F2529100 
TEST TO SEE IF F2529110 

THIS IS THE FIRST F2529120 



/ 



07301 
07302 
07303 
07304 
07305 
07306 
07307 
07310 
07311 
07312 
07313 
07314 
07315 
07316 
07317 
07320 
07321 
07322 
07323 
07324 
07325 
07326 
07327 
07330 
07331 
07332 
07333 
07334 
07335 
07336 
07337 
07340 
07341 
073*2 
07343 
07344 
07345 
07346 
07347 

07350 
07351 
07352 
07353 
07354 
07355 
07356 
07357 
07360 
07361 
07362 
07363 
07364 
07365 







-0 



-0 













-0 

-0 

-0 











-0 

-0 



-0 

-0 

-0 





-0 

o 

-3 


-0 




2 

-0 





o 







o 









40200 
60100 
53400 
50000 
32000 
60100 
02000 
50000 
60100 
56000 
76300 
76300 
60000 
12000 
62100 
50000 
60100 
50000 
60100 
50000 
32000 
10000 
32000 
10000 
50000 
76700 
62200 
50000 
32000 
00000 
76700 
32000 
60100 
50000 
60100 
07400 
00001 
53400 
02000 

00000 
00000 
00000 
00000 

ooooo 

00000 

ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 



05126 

05222 

05230 

01076 

05142 

05176 

07312 

05133 LXC08 

05176 

OOOOO LXC10 

OOOOO 

00022 

05177 

07337 

07320 

OOOOO LXC15 

05200 

05133 

05201 

05200 

05104 

07344 

05102 

07344 

05200 

00022 

05201 

05104 

05200 

07344 LXC19 

00022 LXC20 

05142 

05201 

05133 

05200 

04345 LXC30 

07310 

07336 

00001 



SUB 
5T0 
LXD 
CLA 
ANA 
STO 
TRA 
CLA 
STO 
LDQ 
LLS 
LGL 
STQ 
TMI 
STA 
CLA 
STO 
CLA 
STO 
CAL 
ANA 
TZE 
ANA 
TNZ 
CAL 
ALS 
STD 
CAL 
ANS 
TXL 
ALS 
ANA 
STO 
CLA 
STO 
TSX 
TIX 
LXD 
TRA 



07406 
07407 
741 2 
07410 
07424 
07442 
07416 
07434 
07473 
07474 
07477 
07500 
07501 
07507 



KLX01 

KLX01I 

KLX02 I 

KLX0 2 

KLX03 

KLX05 

KLX03I 

KLX05I 

K1AOR0 

KIAORO 

K2A0R0 

K3AOR0 

KTXOO 



L<1) 

L0C1ND 

DOIND»2 

D0TAGZ.2 

DECMSK 

CI LOO 

LXC10 

L(0) 

CILOO 

0*1 



18 

CIL01 

LXC20 

LXC15 

CIL02 

LtO) 

CIL03 

CIL02 

60NES 

LXC30 

BIT01 

LXC30 

CIL02 

18 

CIL03 

60NES 

CIL02 

LXC30»0 

18 

DECMSK 

CIL03 

L(0) 

C1L02 

CIT.4 

LXC08.1»1 

LXC19*4 

lt4 

LX100 

LXIOO+l 

LXI05 

LXI02 

LXI16 

LXI30 

LXI10 

LXI24 

A1C00 

A1C01 

A1000 

A1001 

TXCOO 

TXC08 



F2529130 
F2529140 
F2529150 
F2529160 
F2529170 
F2529180 
F2529190 
F2529200 
F2529210 
F2529220 
F2529230 
F2529240 
F2529250 
F2529260 
F2529270 
F2529280 
F2529290 
F2529300 
F2529310 
F2529320 
F2529330 
F2529340 
F2529350 
F2529360 
F2529370 
F2529380 
F2529390 
F2529400 
F2529410 
F2529420 
F2529430 
F2529440 
F2529450 
F2529460 
F2529470 
F2529480 
F2529490 
F2529500 
F2529510 

****#*#**#***#*«#******************#*******»*****F25 29520 

F2529530 
F2529540 
F2529550 
F2529560 
F2529570 
F2529580 
F2529590 
F2529600 
F2529610 
F2529620 
F2529630 
F2529640 
F2529650 
F2529660 



LXD COMPILED* IF SO* 

PLACE A IN 

DECREMENT 

OF LOCATION WORD 

FOR FIRST COMPILED 

INSTRUCTION. 



SKELETAL INSTRUCTION* 



COMPILE OP. WORD. 

SYMBOL*ADDR. TYPE INSTRUCTION. 

SYMBOLIC ADDRESS. 

RELATIVE 

ADDRESS. 

TEST CIL02 

WORD. 

FIRST CHARACTER IS ZERO. 

FIRST CHARACTER ALPHABETIC. 
FIRST CHARACTER NUMBERIC. 
PLACE REIGHT HALF OF CIL02 
IN CIL03* LEFT HALF 
IN CIL02. 

SHIF TYPE INSTRUCTIONt 



COUNT COMPILED INSTR. IN BLK. 



o 



V 


o 


















O 




07366 





00000 





07515 






TXC18 




F2529670 






07367 





00000 





07531 


KTX04 




TXC30 




F2529680 






07370 





00000 





07532 


KTX05 




TXC31 




F2529690 






07371 





00000 





07534 


LTX040 




TX040 




F2529700 






07372 





00000 





07536 


LTX042 




TX042 




F2529710 






07373 





00000 





07456 


LXCI 




XCI 




F2529720 






07374 





00000 





07466 


LXCI6 




XCI6 




F2529730 






07375 





00000 





07553 


LXCIE 




XCIE 




F2529740 






07376 





00000 





07554 


LXCIE1 




XCIE+1 




F2529750 






07377 





00000 





07563 


LXCIEP 




XC1EP 




F2529760 






07400 





00000 





07564 


LXCElP 




XCEIP 




F2529770 






07401 





00000 





07552 


XK 




XKI 




F2529780 






07402 





00000 





07452 


K1BORO 




L(BIC) 




F2529790 






07403 





00000 





07540 


LX2CI 




X2CI 




F2529800 






07404 





00000 





07467 


LXCI61 




XCI6+1 




F2529810 






07405 





00000 





07470 


LXCI8 




XCI8 




F2529820 






07406 





07603 


2 


34321 


LXIOO 




14545»2»ORO00+13 


CLA 


F2529830 






07407 





07620 


6 


26346 






11494»6»0RO00+26 


STO 


F2529840 






07410 





07567 


2 


34321 


LXI02 




14545.2.ORO00+1 


CLA 


F2529850 






07411 





07620 


6 


26346 






11494.6.ORO00+26 


STO 


F2529860 






07412 





07567 


4 


32450 


LXI05 




13608»4»ORO00+l 


LDQ 


F2529870 






07413 





07577 


4 


44770 






18936»4»ORO00+9 


MPY 


F2529880 






07414 


-2 


00021 


2 


14362 




TNX 


6386.2.17 


ALS 17 


F2529890 






07415 





07620 


6 


26346 






11494»6»ORO00+26 


STO 


F2529900 






07416 





07572 


4 


32450 


LXUO 




13608.4.ORO00+4 


LDQ 


F2529910 






07417 





07575 


4 


44770 






18936.4. ORO00+7 


MPY 


F2529920 






07420 


-2 


00021 


2 


14362 




TNX 


6386.2.17 


ALS 17 


F2529930 






07421 





07575 


6 


26422 






11538.6.ORO00+7 


SUB 


F2529940 






07422 





07620 


2 


12424 






5396»2»0R000+26 


ADD 


F2529950 






07423 





07620 


6 


26346 






11494. 6»ORO00+26 


STO 


F2529960 






07424 





07572 


4 


32450 


LXI16 




13608»4»OROO0+4 


LDQ 


F2529970 






07425 





07600 


4 


44770 






18936»4t0R000+10 


MPY 


F2529980 






07426 


-2 


00022 


4 


35162 




TNX 


14962*4.18 


LRS 


F2529990 






07427 





07575 


4 


44770 






18936. 4.OROO0+7 


MPY 


F2530000 






07430 


-2 


00621 


2 


14362 




TNX 


6386.2*17 


ALS 


F2530010 






07431 





07575 


6 


26422 






11538.6.OROO0+7 


SUB 


F2530020 






07432 





07620 


2 


12424 






5396.2.ORO0CH-26 


ADD 


F2530030 






OT433 


O 


0J6241 6 


2634& 






11494>6.0RO00-^c:6 


STO 


F2530040 






07434 





07613 


4 


32450 


LXI24 




13608.4. OR0O0+2X 


LDQ 


F 2530050 






07435 





07616 


4 


44770 






18936.4.0RO00+24 


MPY 


F2530060 






07436 


-2 


00021 


2 


14362 




TNX 


6386.2.17 


AlS 


F2530070 






07437 





07616 


6 


26422 






11538.6.ORO00+24 


SUB 


F2530080 






07440 





07620 


2 


12424 






5396.2.ORO0O+26 


ADD 


F2530090 






07441 





07620 


6 


26346 






11494.6.ORO00+26 


STO 


F2530100 






07442 





07613 


4 


32450 


LXI30 




13608.4.0ROOO+21 


LDQ 


F2530110 






07443 





07601 


4 


44770 






18936.4.0ROOO+11 


MPY 


F2530120 






07444 


-2 


00022 


4 


35162 




TNX 


14962.4.18 


LRS 


F2530130 






07445 





07616 


4 


44770 






1S936.4.ORO00+24 


MPY 


F2530140 






07446 


-2 


00021 


2 


14362 




TNX 


6386.2.17 


ALS 


F2530150 






07447 





07616 


6 


26422 






11538.6.OROO0+24 


SUB 


F2530160 






07450 





07620 


2 


12424 






5396.2.0R000+26 


ADD 


F2530170 






07451 





07620 


6 


26346 






11494.6.0R000+26 


STO 


F2530180 






07452 





07611 


4 


32450 


L(BIC) 




13608. 4.ORO00+19 


LDQ 


F2530190 


& 




07453 





07566 


4 


44770 


- 




18936.4.ORO00 


MPY 

X. 


F2530200 



07454 


-2 


00021 


2 


14362 




TNX 


6386*2*17 


ALS 


07455 





07602 


6 


26346 






11494»6»ORO00+12 


STO 


07456 





07570 


2 


34321 


XCI 




14545.2.0R00G+2 


CLA 


©7457 





07567 


6 


26422 






11538»6»ORO00+l 


SUB 


07460 





07571 


2 


12424 






5396»2»ORO00+3 


ADD 


07461 


-2 


00043 


4 


35162 




TNX 


14962*4*35 


LRS 


07462 





07571 


2 


46547 






19815»2»0R000+3 


DVP 


07463 





07571 


4 


44770 






18936»4»OROO0+3 


MPY 


07464 


-2 


00022 


4 


35162 




TNX 


14962*4* 18 


LRS 


07465 





07577 


4 


44770 






18936*4»ORO00+9 


MPY 


07466 


-2 


00043 


4 


34362 


XCI6 


TNX 


14578*4*35 


LLS 


07467 





07603 


6 


26422 






11538. 6»ORO00+13 


SUB 


07470 





07605 


6 


26324 


XCI8 




11476»6»ORO00+15 


STD 


07471 





©7602 


2 


12424 






5396*2 »ORO00+12 


ADD 


07472 





07604 


6 


26324 






11476»6»ORO00+14 


STD 


07473 





07566 


4 


32450 


A1C00 




13608*4»ORO00 


LOO 


©7474 





07611 


4 


44770 


A1C01 




18936 »4»ORO00+19 


MPY 


07475 


-2 


00021 


2 


14362 




TNX 


6386*2*17 


ALS 


07476 





07604 


6 


26324 






11476»6*0RO00+14 


STD 


07477 





07566 


2 


34321 


A1000 




14545»2»OR000 


CLA 


07500 





07604 


6 


26324 


A1001 




11476*6*ORO00+14 


STD 


07501 





07570 


2 


34321 


TXCOO 




14545»2*ORO00+2 


CLA 


©7502 





07567 


6 


26422 






11538»6»ORO00+l 


SUB 


07503 





07571 


2 


12424 






5396»2*ORO00+3 


ADD 


07504 


-2 


00043 


4 


35162 




TNX 


14962*4*35 


LRS 


07505 





07571 


2 


46547 






19815 »2*OROOO+3 


DVP 


07506 





07571 


4 


44770 






18936»4»ORO00+3 


MPY 


07507 





07573 


2 


34321 


TXC08 




14545»2*0R000+5 


CLA 


07510 





07572 


6 


26422 






11538»6»ORO00H-4 


SUB 


07511 





07574 


2 


12424 






5396*2*ORO00+6 


ADD 


07512 


-2 


00043 


4 


35162 




TNX 


14962*4*35 


LRS 


07513 





07574 


2 


46547 






19815»2»OR000+6 


DVP 


07514 





07574 


4 


44770 






18936»4*ORO00+6 


MPY 


07515 





07614 


2 


34321 


TXC18 




14545»2»ORO00+22 


CLA 


07516 





07613 


6 


26422 






11538»6*ORO0O+21 


SUB 


07517 





07615 


2 


12424 






5396»2«OR000+23 


ADD 


07520 


-2 


00043 


4 


35162 




TNX 


14962*4*35 


LRS 


07521 





07615 


2 


46547 






19815»2»0R000+23 


DVP 


07522 





07615 


4 


44770 






18936*4. ORO00+23 


MPY 


07523 


-2 


©0022 


4 


35162 




TNX 


14962.4.18 


LRS 


07524 





07575 


4 


44770 






18936»4»0R000+7 


MPY 


07525 


-2 


00022 


4 


35162 




TNX 


14962*4*18 


LRS 


07526 





07576 


4 


44770 






18936. 4.ORO00+8 


MPY 


07527 


-2 


00022 


4 


35162 




TNX 


T4962.4.TT 


LRS 


07530 





07601 


4 


44770 






18936»4»0R000+11 


MPY 


07531 


-2 


00043 


4 


34362 


TXC30 


TNX 


14578.4.35 


LLS 


07532 





07621 


2 


12424 


TXC31 




5396.2 .ORO00+27 


ADD 


©7533 





07603 


6 


26422 






11538.6. ORO0O+13 


SUB 


07534 


-2 


00022 


4 


35162 


TX040 


TNX 


14962*4*18 


LRS 


07535 





07611 


4 


44770 






18936»4»ORO00+19 


MPY 


07536 


-2 


00043 


4 


34362 


TX042 


TNX 


14578*4*35 


LLS 


07537 





07604 


6 


26324 






11476.6.ORO00+14 


STD 


07540 





07573 


2 


34321 


X2CI 




14545*2. ORO00+5 


CLA 


07541 





07572 


6 


26422 






11538.6.0R000+4 


SUB 



F2530210 

F2530220 

F2530230 

F2530240 

F2530250 

F2530260 

F2530270 

F2530280 

F2530290 

F2530300 

F2530310 

F2530320 

F2530330 

F2530340 

F2530350 

F2530360 

F2530370 

F2530380 

F2530390 

F25304O0 

F2530410 

F2530420 

F2530430 

F2530440 

F2530450 

F 25 30460 

F2530470 

F2530480 

F2530490 

F2530500 

F2530510 

F2530520 

F2530530 

F2530540 

F2530550 

F2530560 

F2530570 

F2530580 

F2530590 

F2530600 

F2530610 

F2530620 

F2530630 

F2530650 
F2530660 
F2530670 
F2530680 
F2530690 
F2530700 
F2530710 
F2530720 
F2530730 
F2530740 



u r t 






o 



o 



M 
M 
M 
M 



M 
M 



07542 
07543 
07544 
07545 
07546 
07547 
07550 
07551 
07552 
07553 
0755* 
07555 
07556 
07557 
07560 
07561 
07562 
07563 
07564 
07565 



07574 
000*3 
07574 
07574 
00022 
07612 
00043 
07603 
07612 
00043 
07603 
07605 
07604 
07605 
07611 
07604 
00000 
07612 
07605 
07604 



12424 
35162 
46547 
44770 
35162 
44770 
34362 
26422 
34321 
34362 
26422 
26324 
26324 
26324 
12424 
26324 
07557 
34321 
26324 
26324 



XKI 
XCIE 



XCI8P 



LXCI8P 

XCIEP 

XCEIP 



TNX 

TNX 
TNX 

TNX 



07566 

07602 +010000000001 

07603 +060000000003 

07604 
07620 +010000000003 



OROOO 
0R012 

0R014 
0R026 



BSS 
OCT 
OCT 
BSS 
OCT 



5396i2tORO00+6 ADD 

14962*4*35 LRS 

19815*2»ORO00+6 DVP / 

18936#4*OROO0+6 MPY _„.... 

14962 »4» 18 LRS ,...' 

18936»4»OROOO+20 MP:f 

14578*4*35 ?ttS 

11538*6»ORO00+13 SUB 

14545»2*0R000+2£> CLA 

14578*4*35 LLS 

11538»6»OROO0+13 SUB 

11476»6»ORO00+15 STD 

11476»6»ORO00+14 STD 

11476»6*OR00O+15 STD 

5396.2»0R000+19 ADD 

11476*6*OROO0+14 STD 

XCI8P 

14545*2»ORO00+20 CLA 

11476»6»ORO00+15 STD 

11476»6»ORO00+14 STD 

♦♦♦•♦•♦•♦it********************************************** 

12 

010000000001 

060000000003 

12 

010000000003 l)+3 SYMBOL. 

♦ft****************************************************** 



A 
A 



01242 
03650 
03651 
05256 
05256 
05245 
05241 
052 4 2 
05243 
05243 
05246 
05202 
03636 
03466 
01076 
07602 
07603 
07610 
07620 
02336 
02646 
00004 
00000 



ZEKSUM 
TAG21 
TAG22 
RTXAC 
RTXAC 
ERAORO 
CPYWD1 
XPYWD2 
ERDRM1 
ERDRM1 
ERDRM 
ERAB 
ADTGA 
ADTGMX 
DOTAGZ 
0R012 
0R013 
0R018 
0R026 
MXTGTG 
MXTGA 
D1AG 

0ORO12 



SYNONYMS 
SYN TGTG+100 
SYN TAG2+1 
SYN TAG2+2 
SYN RTX 
SYN AC 
SYN ERTX01 
SYN ER40 
SYN €R41 
SYN ARG 
SYN ARG 
SYN ERTX02 
SYN ERTGA 
SYN OADTGA+100 
SYN ADTG+400 
SYN DOTAG+450 
SYN OROOO+12 
SYN ORO00+13 
SYN ORO00+18 
SYN OROOO+26 
SYN TGTG+672 
SYN OMXTGA+200 
EQU 4 
END 
07602*07602 



F2530750 
F2530760 
F2530770 
F2530780 
F2530790 
F2530800 
F2530810 
F2530820 
F2530830 
F2530840 
F2530850 
F2530860 
F2530870 
F2530880 
F2530890 
F2530900 
F2530910 
F2530920 
F2530930 
F2530940 

***«*F2530950 
F2530960 
F2530970 
F2530980 
F2530990 
F2531000 

***#*F2531010 
F2531020 

#****F2531030 
F2531040 
F2531050 
F2531060 
F2531070 
F2531080 
F2531090 
F2531100 
F2531110 
# 2531120 
F2531130 
F2531140 
F2531150 
F2531160 
F2531170 
F2531180 
F2531190 
F2531200 
F2531210 
F2531220 
F2531230 
F2531240 
F2531250 
F2531260 
F2531270 



I 7 



A QOR026 07620*07620 

A ORTXAC 05256*05256 

A ©TAG21 03650*03650 

A 0TAG22 03651*03651 

A ER0RM1 05243*05243 



It 



U ^ (J 



o 



o 





REM BLOCK SIX OF 


SECTION TWO. 
















BLOCK SIX OF SECT 
















MASTER RECORD 
















OOFILE INVERSION 










00030 




ORG 


24 


00O30 





77200 





00224 


OFI01 


REW 


148 


00031 





77200 





00223 




REW 


147 


00032 





76200 





00224 


DFI02 


RDS 


148 


00033 





70000 





00163 




CPY 


ERAS 


00034 





02000 





00032 




TRA 


DF102 


00035 





02000 





00037 




TRA 


DFI03 


00036 





07400 


4 


00004 




TSX 


DIAG.4 


00037 


-0 


76000 





00143 


DFI03 


MSE 


99 


00040 





02000 





00044 




TRA 


DFI05 


00041 





76000 





00142 




PSE 


98 


00042 





77000 





00224 


DFI 04 


WEF 


148 


00O43 





02000 





00154 




TRA 


EXIT 


00044 





53400 


1 


00156 


DFI05 


LXA 


LIOl.l 


00045 


-0 


76000 





00143 




MSE 


99 


00046 





76100 





00000 




NOP 




00047 


-0 


76000 





00012 




RTT 




00050 





76100 





00000 




NOP 




00051 





53400 


2 


00157 


DFUO 


LXA 


L(5).2 


00052 


-0 


63400 


1 


00163 




SXD 


ERAS.l 


00053 





76200 





00223 


DFI11 


RDS 


147 


00054 





70000 


1 


00200 


DFI12 


CPY 


NOR.l 


00055 





02000 





00060 




TRA 


0FI13 


00056 





02000 





00042 




TRA 


DFI04 


00057 





02000 





00111 




TRA 


DFI20 


00060 





70000 


1 


00201 


DFI13 


CPY 


N0R+1»1 


00061 





02000 





00064 




TRA 


DFI14 


00062 





07400 


4 


00004 




TSX 


DIAG.4 


00063 





07400 


4 


00004 




TSX 


DIAG.4 


00O64 





700GO 


1 


00202 


DFI14 


CPY 


N0R+2»1 


00065 





02000 





00070 




TRA 


DFI15 


00066 





07400 


4 


00004 




TSX 


DIAG.4 


00067 





07400 


4 


00004 




TSX 


DIAG.4 


OOTJT0 





70000 I 


OOZ03 


UFT15 


CPY 


NOR+3.1 


00071 





02000 





00074 




TRA 


DFI16 


00072 





07400 


4 


00004 




TSX 


DIAG»4 


00073 





07400 


4 


00004 




TSX 


DIAG.4 


00074 





50000 


1 


00201 


DFI16 


CLA 


N0R+1»1 


00075 





10000 





00122 




TZE 


DFI30 


00076 





40200 





00160 




SUB 


ALLONE 


00077 





10000 





00107 




TZE 


DFI19 


00100 


-0 


76000 





00143 




MSE 


99 


00101 





02000 





00104 




TRA 


0FI17 


00102 


-0 


50000 





00161 




CAL 


L(MO) 


00103 


-0 


60200 


1 


00200 




ORS 


NOR.l 


00104 


1 


77774 


1 


00105 


DFI17 


TXI 


DFI18.1.-4 


00105 


3 


70300 


1 


00054 


DFI18 


TXH 


DFI12»l»-3904 


00106 





07400 


4 


00004 




TSX 


DIAG.4 


00107 





76000 





00143 


DFI19 


PSE 


99 


00110 





02000 





00054 




TRA 


DFI12 



ION TWO« 
CARD * FN053 
ROUTINE — BLOCK 6 

ORIGIN FOR DFI INSTRUCTIONS* 

REWIND OUTPUT TAPE 4 

AND INPUT TAPE 3 

SPACE 

OVER 

FIRST FILE 

OF OUTPUT TAPE 

FALSE END OF RECORD. 

TEST SENSE LIGHT 3 FOR EMPTY INPUT 

NOT EMPTY 

TURN ON SENSE LIGHT 2. EMPTY OUTPUT. 

WRITE END OF FILE ON OUTPUT TAPE. 

EXIT FROM DFI ROUTINE. 

INITIALIZE TO BEGIN READING INTO N 

TURN OFF 

SENSE LIGHT 3 

TURN OFF 

TAPE CHECK INDICATOR 

INITIALIZE TAPE ERROR COUNTER 

SAVE INDEX 1 IN CAS OF REREAD 

PREPARE TO READ INPUT TAPE 

COPY FIRST OF FOUR WORDS 

END OF FILE — GO TO EXIT 

END OF RECORD//G0 TO REDUND TEST 

COPY SECOND OF FOUR WORDS 

FLASE END OF FILE. 
FALSE END OF RECORD. 
COPY THIRD OF FOUR WORDS 

FLASE END OF FILE. 
FALSE END OF RECORD. 
COPY FOURTH OF FOUR WORDS 

FLASE END OF FILE. 
FALSE END OF RECORD. 

2ND WORD ZERO MEANS END OF NEST 

2ND WORD ALL ONES . 

MEANS BEGINNING OF BLOCK 

WAS PREVIOUS FOUR WORDS BEG OF BLOCK 

NO. LEAVE FIRST WORD PLUS 

MAKE SIGN OF 

FIRST WORD MINUS 

INDEX BY 4 FOR NEXT 4 WORDS 

TEST AND CONTINUE NEXT 4 WORDS 

NOR BUFFER SIZE EXCEEDED. 

TURN ON BEGIN OF BLOCK IND 

CONTINUE NEXT FOUR WORDS 



F2600010 

F2600020 

F2600030 

F2600040 

F2600050 

F2600060 

F2600070 

F2600080 

F2600090 

F2600100 

F2600110 

F 2600 120 

F2600130 

F2600140 

F2600150 

F2600160 

F26O0170 

F2600180 

F2600190 

F2600200 

F2600210 

F2600220 

F2600230 

F2600240 

F2600250 

F2600260 

F2600270 

F2600280 

F260O290 

F2600300 

F2600310 

F2600320 

F2600330 

F2600340 

F 2600 350 

F 2600 360 

F2600370 

F2600380 

F2600390 

F26C0400 

F2600410 

F2600420 

F2600430 

F2600440 

F2600450 

F2600460 

F2600470 

F2600480 

F2600490 

F2600500 

F2600510 

F2600520 



00111 





76600 





00333 


DFI20 


WRS 


219 


00112 


-0 


76000 





00012 




RTT 




00113 





02000 





00115 




TRA 


DFT21 


00114 





02000 





00051 




TRA 


DFI10 


00115 


2 


00001 


2 


00117 


DFI21 


TIX 


DFI22*2»1 


00116 





07400 


4 


00004 




TSX 


DIAG.4 


00117 





76400 





00223 


OF 1 22 


BST 


147 


00120 


-0 


53400 


1 


00163 




LXD 


ERAS»1 


00121 





02000 





00053 




TRA 


DFI11 


00122 





70000 





00163 


DFI30 


CPY 


ERAS 


00123 





07400 


4 


00004 




TSX 


D1AG*4 


00124 





07400 


4 


00004 




TSX 


DIAG.4 


00125 





76600 





00333 




WRS 


219 


00126 


-0 


76000 





00012 




RTT 




00127 





02000 





00131 




TRA 


DFI40 


00130 





02000 





00133 




TRA 


DFI50 


00131 


2 


00001 


2 


00117 


OF 1 40 


TIX 


DFI22»2.1 


00132 





07400 


4 


00004 




TSX 


DIAG.4 


00133 


-0 


63400 


1 


00146 


DF150 


SXD 


DFI55»1 


00134 


1 


00004 


1 


00135 


DFI51 


TXI 


DFI52»1*4 


00135 





50000 


1 


00200 


OF 1 52 


CLA 


N0R»1 


00136 





12000 





00134 




TPL 


DFI51 


00137 


-0 


63400 


1 


00163 




SXD 


ERAS.l 


00140 





50200 


1 


00200 




CLS 


N0R»1 


00141 





60100 


1 


00200 




STO 


NOR.l 


00142 





76600 





00224 


DFI53 


WRS 


148 


00143 





53400 


2 


00162 




LXA 


M100)»2 


00144 





70000 


1 


00200 


OF 1 54 


CPY 


N0R.1 


00145 


1 


77777 


1 


00146 




TXI 


DFI55»1.-1 


00146 


-3 


00000 


1 


00151 


OF 1 55 


TXL 


DFI60»1 


00147 


2 


00001 


2 


00144 




TIX 


DFI54.2»1 


00150 





02000 





00142 




TRA 


DFI53 


00151 


-0 


53400 


1 


00163 


DFI60 


LXD 


ERAS.l 


00152 


3 


00000 


1 


00133 




TXH 


DFI50»1»0 


00153 





02000 





00044 




TRA 


DFI05 


00154 





76200 





00221 


EXIT 


RDS 


145 


00155 





02000 





00004 




TRA 


4 

CONSTANTS AND 


00156 





00000 





00000 


L(0) 







00157 





0OOOO 





00005 


L(51 




5 


00160 


+377777777777 


ALLONE 


OCT 


377777777777 


00161 


-0 


00000 





00000 


UM0> 


MZE 





00162 





00000 





00144 


LI100) 




100 










00163 


fcKAS 


B5S 












00200 




ORG 


128 










00200 


NOR 


BSS 


3904 










00004 


DIAO 


EQU 


4 










00000 




END 





DELAY UNTIL TAPE DISCONNECTS 

TEST TAPE CHECK 

ERROR 

IF NO ERROR RETRN TO READ NEXT RECORD 

REDUCE ERROR COUNTER BY 1 

TAPE CHECK. TRIED 5 TIMES. 

RESTORE TAPE POSITION 

AND INDEX 1 

FOR ANOTHER TRY 

CHECK THAT END OF RECORD 

HAS BEEN REACHED END OF NEST. 

RECORD IS ONLY FOUR WORDS. 
DELAY UNTIL TAPE DISCONNECTSP 
TEST TAPE CHECK 
ERROR 

PROCEED TO PROCESS THIS NEST 
REDUCE ERROR COUNT BY 1 AND RETRY 
TAPE CHECK. TRIED 5 TIMES. 
STORE INDEX FOR END OF BLOCK TEST 

SCAN UP EVERY FOURTH WORD 

TO TEST FOR MINUS 

SAVE FOR NEXT END OF BLOCK TEST 

RESTORE PLUS SIGN TO 

FIRST WORD OF BLOCK 

SELECT OUTPUT TAPE 

PREPARE FOR NEXT 100 WORDS 

WRITE BLOCK IN 

FORWARD DIRECTION 

UNTIL END OF BLOCK 

IF WORDS IN RECORD 

START ANOTHER RECORD 

IF INDEX 1 HAS NOT REACHED 

PROCESS NEXT BLOCK 

RETURN TO PROCESS NEXT NEST 

SKIP OVER DIAGNOSTIC RECORD ON SYSTEM 

ERAS STORAGE FOR DFI 



ORIGIN FOR NOR 



F2600530 
F2600540 
F2600550 
F2600560 
F2600570 
F2600580 
F2600590 
F260060O 
F2600610 
F2600620 
F2600630 
F2600640 
F2600650 
F2600660 
F2600670 
F2600680 
F2600690 
F2600700 
F2600710 
F2600720 
F2600730 
F2600740 
F2600750 
F260O760 
F2600770 
F2600780 
F2600790 
F2600800 
F2600810 
F2600820 
F2600830 
F260O840 
F2600850 
F2600860 
F26O0870 
TAPE.F2600880 

F2600900 
F2600910 
F26OO920 
F2600930 
F2600940 
F26O0950 

F2600970 
F2600980 
F2600990 
F2601000 



MV 



u 



u 



o 



o 



I . 




ORG 3641 
















L 










07071 




ORG 


3641 






















MASTER RECORD CARD = FN055 




















ROUTINE TO HANDLE ADDITIONAL SUBROUTINES IF OESIRED 


F3B12180 




07071 


2 


00001 


4 


01306 




TIX 


M13505.4.1 


COMPARE MID FOR PRESENT SUBROUTINES 


F3B12190 




07072 


-0 


53400 


4 


02170 




LXD 


L(0)i4 


COMPARE ADD IT. OPEN SUBS. IN M1D2 


F3B12200 




07073 





34000 


4 


07122 


0P1 


CAS 


MlD2t4 


WITH CURRENT NAME. 


F3B12210 




07074 


1 


77777 


4 


07077 




TXI 


0P2»4.-1 


NOT FOUND. GET NEXT M1D2 ENTRY 


F3B12220 




07075 





02000 





07101 




TRA 


0P3 


FOUND 


F3B12230 




07076 


1 


77777 


4 


07077 




TXI 


0P2»4.-1 


NOT FOUND. GET NEXT M1D2 ENTRY. 


F3B12240 




07077 


3 


77776 


4 


07073 


OP 2 


TXH 


0P1.4*M102L 


TEST FOR END OF M1D2* 


F3B12250 




07100 





07400 


4 


00004 




TSX 


4»4 


CURRENT SUB NOT IN M1D2 


F3B12260 




07101 


-0 


63400 


4 


02312 


0P3 


SXD 


CCELL»4 


SAVE IRC FOR LATER BRANCH OF SAME INST. 


F3B12270 




07102 


1 


77776 


1 


07103 




TXI 


0P3+2»l.-2 


INDEX TO GET NEXT 4 WORD INSTR. 


F3B12280 




07103 





07400 


4 


07136 




TSX 


TEST. 4 


TEST FOR END OF CUR. COMPAIL REC. 


F3B12290 




07104 


-0 


53400 


4 


02312 




LXD 


CCELLt4 


GO TO THE COMPILER FOR PART. SUBROUTINE 


F3B12300 




07105 





02000 


4 


07106 


0P4 


TRA 


0P4+1.4 


COMPAIL INSTRUCTION 


F3B12310 




07106 





02000 





07170 




TRA 


XDIM 


OPEN SUB IS XDIM 


F3B12320 




07107 





02000 





07171 




TRA 


DIM 


OPEN SUB IS DIM 


F3B12330 


A 


07110 





00000 





OOOOO 




HTR 




SPACE FOR BRANCHING TO 10 ADDITIONAL 


F3B12340 


A 


07111 





00000 





OOOOO 




HTR 




OPEN SUBROUTINES THE LIST OF TRANSFERS 


F3B12350 


A 


07112 





00000 





OOOOO 




. HTR 




TO ADDITIONAL OPEN SUBS MUST BE ORDER- 


F3B12360 


A 


07113 





00000 





OOOOO 




HTR 




ED IN THE SAME WAY AS THE ADDITIONAL OPEN 


F3B12370 


A 


07114 





00000 





OOOOO 




HTR 




SUB NAMES ARE ORDERED IN THE DICTION- 


F3B12380 


A 


07115 





00000 





OOOOO 




HTR 




ARY M1D2. 


F3B12390 


A 


07116 





00000 





OOOOO 




HTR 






F3B12400 


A 


07117 





00000 





OOOOO 




HTR 






F3B12410 


A 


07120 





00000 





OOOOO 




HTR 






F3B12420 


A 


07121 





00000 





OOOOO 




HTR 


THE DICTIONARY 
CONSTANTS USED 


FOR ADDITIONAL OPEN SUBROUTINES. AND 
IN THE DISCRIMINATION PROCEDURE. 


F3B12430 
F3B12440 
F3B12450 




07122 


672431446060 


M102 


BCD 


1XDIM 


OPEN SUB XDIM 


F3B12460 




07123 


243144606060 




BCD 


1DIM 


OPEN SUB DIM 


F3B 12470 


A 


07124 





00000 





OOOOO 




HTR 




SPACE FOR ADDING 10 ADDITIONAL OPEN SUBS. 


F3B12480 


A 


07125 





00000 





OOOOO 




HTR 






F3B12490 


A 


07126 





00000 





OOOOO 




HTR 






F3B12500 


A 


07127 





00000 





OOOOO 




HTR 






F3B12510 


A 


07130 





ooooo 





OOOOO 




HTR 






F3BI2520 


A 


orrsi 


o^ ooooo tr tjoooo 




HTR 






F3B12530 


A 


07132 





ooooo 





OOOOO 




HTR 






F3B12S40 


A 


07133 





ooooo 





OOOOO 




HTR 






F3B12550 


A 


07134 





ooooo 





OOOOO 




HTR 






F3B12560 


A 


07135 





ooooo 





ooooo 




HTR 






F3B12570 


















FOUR SUBROUTINES USED IN COMPILING OPEN SUBROUTINES 


F3B12580 


















l.TEST 




F3B12590 




07136 


-0 


63400 


4 


07230 


TEST 


SXD 


C.4 


SAVE LINKAGE 


F3B12600 




07137 


-0 


75400 


1 


ooooo 




PXD 


0.1 


COMPARE CURRENT VALUE OF IR1 WITH 


F3B12610 




07140 





34000 





02305 




CAS 


M1ALWN 


2S COMPL. OF WORD COUNT. 


F3B12620 




07141 





02000 


4 


00001 




TRA 


1.4 




F3B12630 




07142 





07400 


4 


00341 




TSX 


M10210.4 


CURRENT RECORD EXHAUSTED 


F3B12640 




07143 





07400 


4 


00004 




TSX 


4.4 


STOP* NO OF WDS. IN CUR REC EXCEEDS WD. 
COUNT 


F3B12650 
F3B12660 




0714* 


-0 


53400 


4 


07230 




LXD 


C.4 


RESTORE LINKAGE 


F3B12670 




07145 





02000 


4 


00001 




TRA 


1.4 


RETURN 


F3B12680 



2i> 













2 TEARG1. ROUT I 


07146 





50000 


1 02327 


TEARG1 CLA 


AIL,1 


07147 





40200 


02211 


SUB 


ALLONE 


07150 





10000 


02155 


TZE 


ERROR 1 


07151 





02000 


4 00001 


TRA 


1*4 

3 TEAR62. ROUT I 


07152 





50000 


1 02327 


TEARG2 CLA 


AIL.l 


07153 





02000 


07235 


TRA 


SUBPAT 


07154 





50000 


1 02331 


ARGTAG CLA 


AIL+2»1 


07155 





60100 


02324 


STO 


M1CW+2 


07156 





50000 


1 02332 


CLA 


AIL+3.1 


07157 





60100 


02325 


STO 


M1CW+3 


07160 


-0 


32000 


02207 


ANA 


TGMSK 


07161 





10000 


4 00001 


TZE 


1.4 


07162 


-0 


63400 


4 07230 


SXD 


C*4 


07163 


-0 


76000 


00143 


mse 


99 


07164 





07400 


4 01016 


TSX 


M12500.4 


07165 





76000 


00143 


PSE 


99 


07166 


-Q 


53400 


4 07230 


LXD 


C.4 


07167 





02000 


4 00001 


TRA 


1*4 

THE ROUTINE FOR 


07170 





76000 


00144 


XDIM PSE 


100 


07171 





07400 


4 07146 


DIM TSX 


TEARG1,4 


07172 





07400 


4 07154 


TSX 


ARGTAG, 4 


07173 


1 


77774 


1 07174 


TXI 


01,1.-4 


07174 





07400 


4 07136 


01 TSX 


TEST.4 


07175 





07400 


4 07152 


TSX 


TEARG2.4 


07176 





07400 


4 00707 


TSX 


CI TOO, 4 


07177 





00000 


02322 


HTR 


M1CW 


07200 





00000 


02215 


HTR 


L(CLA) 


07201 





00000 


02324 


HTR 


MiCW+2 


07202 





00000 


02325 


HTR 


M1CW+3 


07203 





07400 


4 07154 


TSX 


ARGTAG ,4 


07204 


-0 


50000 


07231 


CAL 


L(SUB) 


07205 


-0 


76000 


00144 


MSE 


100 


07206 


-0 


50000 


07232 


CAL 


L(FSB) 


07207 





60200 


02323 


SLW 


M1CW+1 


07210 





07400 


4 00707 


TSX 


CIT00.4 


07211 





00000 


02170 


HTR 


L(0) 


07212 





00000 


02323 


HTR 


M1CW+1 


07213 





00000 


02324 


HTR 


MICW+2 


07214 





00000 


02325 


HTR 


M1CW+3 


07215 





07400 


4 00707 


TSX 


CIT00,4 


07216 




ooooo 


02170 


HTR 


L(0) 


07217 





00000 


07233 


HTR 


L(TPL) 


07220 





ooooo 


02245 


HTR 


L(017) 


07221 





ooooo 


02177 


HTR 


L(2D» 


07222 





07400 


4 00707 


TSX 


CIT00.4 


07223 





ooooo 


02170 


HTR 


L(0) 


07224 





ooooo 


07234 


HTR 


L(PXD) 


07225 





ooooo 


02170 


HTR 


L(0) 


07226 





ooooo 


02170 


HTR 


LtO) 


07227 


1 


77774 


1 00774 


TXI 


RESUME .1.-4 



NE TO DET« IF TOO FEW ARGS SPECIFIED 

TEST FOR ALL ONES IN 1ST WD OF CUR. INSTR 

ALL ONES. GO TO PROPER STOP 
NOT ALL ONES. RETURN 
NE TO DET. IF TOO MANY ARGS. SPECIFIED 
TEST FOR ALL ONES IN TST WORD OF 

PLACE SUMB ADDRESS OF CURRENT ARG 
IN MICW+2 

PLACE RELATIVE ADD* AND TAG OF CUR- 
RENT ARG. IN M1CW+3 
TEST FOR TAG 
NO TAG. RETURN 
ARG TAGGED. SAVE LINKAGE 
TEST FOR END OF CHTAG TABLE 
CHTAG TABLE NOT EXHAUSTED. 
END OF CHTAG TABLE. RESTORE IN- 
DICATOR AND LINKAGE 
RETURN 
COMPILING THE OPEN SUBROUTINES DIMAND XDIM 
TURN ON SENSE LIGHT 100 FOR XDIM 
TEST NO. OF ARGS SPECIFIED 
TEST WHETHER FIRST ARG. IS TAGGED 
INDEX COMPAIL RECORD TO BEG. OF NEXT REC. 
TEST FOR END OF CURRENT AIL RECORD 
TEST NO. OF ARGS. SPECIFIED 
COMPILE FIRST INST. FOR DIM AND XDIM 
LOCATION (1ST WD) , 
CLA (2ND WD.) 
FIRST ARG t3RD WD) 

REL. ADD END TAG OF 1ST ARG (4TH WD) 
TEST WHETHER 2ND. ARG TAGGED ETC. 
PREPARE OP. WD (2ND WD) OF 2ND AIL 
ENTRY. OP. IS SUB. FOR XDIM 
FSB FOR DIM 

COMPILE 2ND INST FOR DIM OR XDIM 

(1ST WD) 

SUBtXDIM), FSB(DIM) (2ND. WD) 

2ND. ARG (3RD WD) 

REL. ADD AND TAG OF 2ND ARG (4TH WDI 

COMPILE 3R D INST FOR DIM AND XDIM 

OUST WD) 

TPL(2ND WD) 

OCT. 17 IN BITS S-5 

REL» ADD 2» TAG (4TH WD) 

COMPILE LAST INST FOR DIM AND XDIM 

(1STWD) 

PXD (2ND WD) 

(3RD WD) 

(4TH WD) 

INDEX CUR AIL RECORD TO BEGINNING 

OF NEXT 4WD INST AND RETURN TO MAIN PROG 



F3812690 

F3B12700 

F3B12710 

F3B12720 

F3B12730 

F3812740 

F3B12750 

F3B12760 

F3B12770 

F3B12780 

F3B12790 

F3B12800 

F3B12810 

F3B12820 

F3B12830 

F3B12840 

F3B12850 

F3B12860 

F3B12870 

F3B12880 

F3B12890 

F3B12900 

F3B12910 

F3B12920 

F3B12930 

F3B12940 

F3B12950 

F3B12960 

F3B12970 

F3B12980 

F3B12990 

F3B13000 

F3B13010 

F3B13020 

F3B13030 

F3813040 

F3B13050 

F3B13060 

F3B13070 

F3B13080 

F3B13090 

F3B13100 

F3B13110 

F3B13120 

F3B13130 

F3B13140 

F3B13150 

F3B13160 

F3B13170 

F3B13180 

F3B13190 

F3B13200 

F3B13210 

F3B13220 



ni 



O 



o 



o 



o 



07230 00000 00000 C HTR 
77776 M1D2L EQU 



02170 HO) • SYN 

01306 M13505 SYN 

02312 CCELL SYN 

02305 M1ALWN SYN 

00341 M10210 SYN 

02327 AIL SYN 

02211 ALLONE SYN 

02155 ERROR1 SYN 

02163 ERR0R2 SYN 

02322 M1CW SYN 

02207 TGMSK SYN 

01016 M12500 SYN 

00707 CITOO SYN 
02215 UCLA) SYN 

07231 626422000000 L(SUB) BCD 

07232 266222000000 L(FSB) BCD 

07233 634743000000 L(TPL) BCD 

07234 476724000000 L(PXD) BCD 

02245 L(017) SYN 

02177 L(2D) SYN 

00774 RESUME SYN 

07235 40200 02211 SUBPAT SUB 

07236 10000 4 00001 TZE 

07237 02000 02163 TRA 
07240 00000 00000 ROOM HTR 

07071 END 



CONSTANTS AND ERAS1BLE STORAGE FOR FOUR 
SUBROUTINES USED IN COMPILING OPEN SUBROUTINES 

-2 THE 2S COMPL OF THE LENGTH OF 

M1D2» THIS CARD MUST BE CHANGED WHEN 
ADDITIONS TO M1D2 ARE MADE 

1144 

710 

1226 

1221 

225 

1239 

1161 

1133 

1139 

1234 

1159 

526 

CONSTANS USED IN COMPILING THE OPEN SUBRTNS* XDIM AND DIM 

455 

1165 

1SUB000 

1FSBOO0 

1TPL000 

1PXD000 

1189 

1151 

508 

ALLONE 

1»4 

ERR0R2 
SPACE FROM ROOM MAY BE USED FOR ADD. OPEN SUB* COMPILATION 

3641 



F3B13230 

F3B13240 

F3B13250 

F3B13260 

F3B13270 

F3B13280 

F3B13290 

F3B13291 

F3B13292 

F3B13293 

F3B13294 

F3B13295 

F3B13300 

F3B13301 

F3B13302 

F3B13303 

F3B13304 

F3B13305 

F3B13310 

F3B13320 

F3B13330 

F3B13340 

F3B13350 

F3B13360 

F3B13370 

F3B13380 

F3B13390 

F3B13400 

F3B13401 

F3B13402 

F3B13403 

F3B13414 



??> 



/ 



L V 



REM MASTER RECORD CARD = FN056 

MASTER RECORD CARD = FN056 
THE FOLLOWING PROGRAM CONSTITUTES THE FIRST SECTION OF THE 
MERGE. IT PERFORMS THE INITIAL MERGE OF THE AIL FILE AND THE 
DO FILE OF COMPILED INSTRUCTIONS. IN ADDITION TO MERGING 
THESE TWO FILES. IT INSERTS THE ARITHMETIC OPEN SUBROUTINES 
IN THEIR CORRECT POSITION IN THE FILE OF COMPILED INSTRUCT- 
IONS AND EFFECTS APPROPRIATE GENERALIZED TAG CHANGES IN AIL 
FILE INSTRUCTIONS 
00030 ORG 24 

TAPE POSITIONING TO READ FORT AG INTO CORE STORAGE 



00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 

00041 
000*2 
00043 
00044 
00045 
00046 
00047 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00060 
00061 
00062 
00063 
00064 
00065 
QW66 
00067 
00070 
00071 
00072 
00073 
00074 



00075 
00076 
00077 



53400 
76200 
70000 
07400 
76100 
53400. 
00007 
76400 
00O01 



-0 













1 






-0 



76000 
76100 
53400 
76200 
70000 
50000 
40200 
10000 
07400 
70000 
50O00 
10000 
53400 
70000 
77777 
07400 
07400 
76100 
02000 
76600 
76000 
IT 02000 
02000 
50000 
62100 
76400 
00001 
07400 






2 




02164 



LXA 



O0222 M1O00O RDS 



05737 
0006* 
00031 
05737 
00037 



CPY 
TSX 
NOP 
LXD 
TXI 



LOAD 5 INTO IRA TP RD ERROR CTR. 

READ BINARY TAPE 2 WITH FORTAG TBL 

THE 7TH RECORD OF 5TH FILE WHICH IS 

THE TAPE TABLES HAVING 11 RECORDS. 

TAPE 2 STANDS AT DOTAGB RECORD 

COUNT FILE. TAPE 2 BACKSPACED NO. 

RECORDS IN DOTAGB PLUS 7 TO START F0RTA6. 



00222 M10010 BST 



00037 

00012 
00000 
02164 
00222 
02326 
02326 
02174 
00052 
0000* 
02326 
02326 
00061 
02170 
02327 
00056 
00004 
00064 
000*4 
00075 
00333 
00012 
00070 
00002 
00001 
00073 
00222 
00000 
00004 



TIX 

RTT 
NOP 
LXA 

M10020 RDS 
CPY 
CLA 
SUB 
TZE 
TSX 

M1O03O CPY 
CLA 
TZE 
LXA 

M10035 CPY 
TXI 
TSX 

M10040 TSX 
NOP 
TRA 

M10043 WRS 
RTT 
TRA 
TRA 

MI0045 CLA 
STA 
BST 

M10048 TIX 
TSX 



77200 00223 M10050 REW 
77200 0022* REW 
76200 0022* RDS 



M1ECTR»1 

146 

ERAS 

M100*3»2 

M10000 

ERAS.l 

M10010»1.7 

146 

M10010»l»l 

READ FORTAG INTO CORE STORAGE 

TURN-OFF TAPE INDICATOR* 

IF ON. 

M1ECTR»1 LOAD 5 INTO IRA TP RD ERROR CTR. 

146 READ TAPE 2 POSITIONED AT FORTAG TBL 

FORTAG-1 AND TEST FIRST WORD TO GUARANTEE 

FORTAG-1 BEGINNING OF FORTAG TABLE. 

M1C0N+4 FORTAG IS TABLE NO. 4* 

M10030 TABLE NO. IS FIRST WORD OF TAPE TABLES. 

4,* WRONG TABLE. IS NOT FORTAG. 

FORTAG-1 READ 2ND FORTAG TABLE WORD AND TEST 

FORTAG-1 THERE ARE FORTAG ENTRIES. 

M100*0 FORTAG TABLE ENTRIES ARE 1 WORD. 

M1C0N.2 LOAD INTO INDEX REG. B« 

FORTAG, 2 READ 3RD AND SUCCEEDING WORDS 

M10035*2»-l OF FORTAG INTO CONSEC. LOCATIONS. 

4,4 EOF SKIP. FORTAG NOT LAST REC. OF FILE. 

M10043.2 TEST IF TAPE READ CORRECTLY. 

Ml 0020 RE-READ TAPE LOCATION. 

M1005O CONTINUE IN MAIN PROGRAM. 

219 DELAY 704 FOR RTT TEST. 

MT00*5 TO TAPE READ ERROR ROUTINE. 

2,2 TAPE 2 READ CORRECTLY. RETURN MAIN RTN. 

1,2 TAPE READ ERROR RTN. INITIALIZE 

M10048 TIX ADDRESS TO RETURN TO PROPER 

146 RE-READ TAPE LOCATION. 
Otl.l 

4,4 BINARY READ 5 TIMES UNSUCCESSFULLY 
POSITIONING OF TAPE 2* TAPE 3. TAPE 4. TO READ COMPAIL 
WRITE MERGE 1» AND READ DO FILE» RESP. 

147 ' REWIND TAPE 3 TO WRITE MERGE 1. 

148 REWIND TAPE 4 FOR COMPDO FILE. 
148 SPACE OVER TRALEV THE 1ST FILE ON 



F3B00010 
F3B0OO20 
F3B00030 
F3B00040 
F3B00050 
F3B00060 
F3B0007© 
F3B00080 
F3B00090 
F3B00100 
F3B00110 
F3B00120 
F3B00130 
F3B00140 
F3B00150 
F3B00160 
F3B00170 
F3B00180 
F3B00190 
F3B00200 
F3B00210 
F3BO022O 
F3B00230 
F3B00240 
F3B00250 
F3B00260 
F3B00270 
F3B00280 
F3B00290 
F3B00300 
F3B0031O 
F3B00320 
F3B00330 
F3B00340 
F3B00350 
F3B00360 
F3B00370 
F3B00380 
P3BG0390 
F3B0040q 
F3B00410 
F3B00420 
F3B00430 
F3B00440 
F3B00450 
F3B00460 
F3B00470 
F3B00480 
F3B00490 
F3B00500 
F3B00510 
F3B00520 



$?t 



o 



n 



00100 





70000 





05737 


M10055 


CPY 


ERAS 


00101 





02000 





00100 




TRA 


M10055 


00102 





02000 





00104 




TRA 


M10060 


00103 





02000 





00077 




TRA 


M10055-1 


00104 





53400 


2 


02170 


M10060 


LXA 


MlC0Nt2 


00105 


1 


00021 


2 


00106 




TXI 


M10060+2»2»17 


00106 





76400 





00222 




BST 


146 


00107 


2 


00001 


2 


00106 




TIX 


M10060+2»2»l 


00110 





53400 


1 


02164 




LXA 


M1ECTR»1 


00111 





76200 





00222 


M10063 


RDS 


146 


00112 





70000 





05737 




CPY 


ERAS 


00113 





07400 


2 


00064 




TSX 


M10043t2 


00114 





T6100 





00111 




NOP 


M10063 


00115 





53400 


2 


05737 




LXA 


ERAS*2 


00116 


1 


00002 


2 


00117 




TXI 


M10070*2*2 


00117 





76400 





00222 


M10070 


BST 


146 


00120 


2 


00001 


2 


00117 




TIX 


M10070»2»l 


00121 


-0 


76000 





00141 




MSE 


97 


00122 





76100 





00000 




NOP 




00123 


-0 


76000 





00143 




MSE 


99 


00124 





76100 





00000 




NOP 




00125 


-0 


76000 





00144 




MSE 


100 


00126 





76100 





00000 




NOP 


CHANGE TAG TA 


00127 





53400 


4 


02164 


PEC00 


LXA 


M1ECTR»4 


00130 





76200 





00303 


PEC01 


RDS 


195 


00131 





46000 





02170 




LDA 


Ml CON 


00132 





70000 





05737 




CPY 


ERAS 


00133 





70000 





05740 




CPY 


ERAS+1 


00134 


-0 


50000 





05737 




CAL 


ERAS 


00135 





40200 





05740 




SUB 


ERAS+1 


00136 





10000 





00141 




TZE 


PECO 2 


00137 


2 


00001 


4 


00130 




TIX 


PEC01»4»1 


00140 





07400 


4 


00004 




TSX 


4*4 


00141 





53400 


4 


02164 


PEC02 


LXA 


M1ECTR.4 


00142 





50000 





05737 


PECO 3 


CLA 


ERAS 


00143 





10000 





00235 




TZE 


PEC20 


Uv ***** 


* 




3 


©ooe© 




PAX 


o+* 


00145 





40200 





00154 




SUB 


PEC05 


00146 





62100 





00151 




STA 


PEC04 


00147 





76200 





00303 




RDS 


195 


00150 





46000 





02172 




LDA 


M1C0N+2 


00151 





70000 


1 


00000 


PEC04 


CPY 


0*1 


00152 


2 


00001 


1 


00151 




TIX 


PEC04.1.1 


00153 





53400 


1 


02170 




LXA 


MlCONtl 


00154 


-0 


50000 


1 


05263 


PEC05 


CAL 


UCHTG* 1 


00155 





36100 


1 


05264 




ACL 


UCHTG+1,1 


00156 





40200 


1 


05265 




SUB 


UCHTG+2tl 


00157 





10000 





00162 




TZE 


PEC06 


00160 


2 


00001 


4 


00142 




TIX 


PEC03*4,1 


00161 





07400 


4 


00004 




TSX 


4*4 


00162 


1 


77775 


1 


00163 


PEC06 


TXI 


PEC07.1»-3 


00163 


2 


00003 


2 


00154 


PEC07 


TIX 


PEC05.2.3 
BEGIN EDIT OF 



TAPE 4 TO GET TO FIRST RECORD 

OF COMPDO FILE. 

END OF TRALEV FILE* 

SPACE OVER NEXT TRALEV RECORD. 

LOAD INTO IRB. 

BACKSPACE BINARY TAPE 2 BY 

13 RECORDS TO POSITION TAPE 2 

TO READ COMPAIL RECORD COUNT FILE. 



BACKSPACE TAPE 2 OVER COMPAIL 

RECORD COUNT* A EOF MARK. AND 

OVER COMPAIL RECORDS 

TO POSITION TAPE 2 TO FIRST 

RECORD OF COMPAIL FILE. 

TURN-OFF SENSE LIGHTS 1*3* AND 4. 

SENSE LIGHT 2 USED BY SEC. 2 

TO INDICATE TO SEC. 3 THERE 

ARE NO COMPDO INSTR IF 

LIGHT 2 IS ON. 

TABLE EDIT 

LOAD 5 INTO IRC DR RD ERROR CTR. 

UNEDITED CHTG TABLE ON LOG DR 3. 

0=DR ORG UCHTG - 2 

TABLE LENGTH TO ERAS 

CHECK SUM INTO ERAS+1. 

CHECK DRUM READ 

TEST IF TABLE LENGTH READ 

CORRECTLY FROM DRUM 3. 

READ DRUM 5 TIMES IF LENGTH WRONG. 

DRUM READ 5 TIMES UNSUCCESSFULLY. 

LOAD 5 INTO IRC DR RD ERROR CTR. 

TEST IF THERE ARE ANY ENTRIES 

IN CHG TAG TABLE. 

UNEDITED TABLE L ENGTH TO I RA* Ififi 

COMPUTE CORE ADDRESS INTO WHICH 

CHG TAG TABLE ENTRIES TO BE 

READ PLUS TABLE LENGTH FOR TIX OPER. 

DRUM READ ADDRESS OF 2. 

READ CHG TAG TABLE INTO UCHTG BLOCK 

LOAD INTO IRA. 

UNEDITED CHG TAG TABLE ENTRIES CONSIST 
OF 3 WORDS. TEST LOG SUM OF 
2 WORDS EQUALS DRUM CHECK 
SUM FOR THE ENTRY. 
DRUM READ ERROR. TRY 5 TIMES. 
DRUM READ 5 TIMES UNSUCCESSFULLY. 
MODIFY TABLE ADDR FOR NEXT 3 WORDS. 
TEST FOR END CHG TAG BLOCK 
OF UCHTG \ 



F3B00530 
F3B00540 
F3B00550 
F3B00560 
F3B00570 
F3B00580 
F3B00590 
F3B00600 
F3BO0610 
F3B00620 
F3B00630 
F3B00640 
F3B00650 
F3B00660 
F3B00670 
F3B00680 
F3B00690 
F3B00700 
F3B00710 
F3B00720 
F3B00730 
F3B00740 
F3B00750 
F3B00760 
F3BO0770 
F3B00780 
F3B00790 
F3B00800 
F3BO0810 
F3B00820 
F3B00830 
F3B00840 
F3B00850 
F3B00860 
F3B00870 
F3B00880 
F3B00890 

F3B00910 
F3B00920 
F3B00930 
F3B00940 
F3B00950 
F3BO0960 
F3B00970 
F3B00980 
F3BO0990 
F3BO1O0O 
F3B01010 
F3B01020 
F3B01030 
F3B01040 
F3B01050 
F3B01060 



?? 





00164 


53400 


3 


02170 


PEC10 


LXA 


Ml CON .3 




00165 


50000 





05740 




CLA 


ERAS+1 




00166 


-0 50100 





02326 




ORA 


FORTAG-l 




00167 


76000 





00006 




COM 







00170 


40000 





02212 




ADD 


M1C0N+18 




00171 


62200 





00213 




STD 


PEC16 




00172 


76700 





00022 




ALS 


18 




00173 


62200 





00211 




STD 


PEC14 




0017* 


50000 


1 


02327 


PEC11 


CLA 


FOR TAG tl 




00175 


34000 


1 


02330 




CAS 


F0RTAG+1»X 




00176 


02000 





00200 




TRA 


PEC12 




00177 


1 77777 


1 


00174 




TXI 


PEC11»1»-1 




00200 


76700 





00022 


PEC12 


ALS 


18 




00201 


60100 





05737 




STO 


ERAS 




00202 


53400 


4 


02170 




LXA 


M1C0N»4 




00203 


50000 


4 


05264 


PEC13 


CLA 


UCHTG+1»4 




0020* 


-0 32000 





02205 




ANA 


M1C0N+13 




00205 


34000 





05737 




CAS 


ERAS 




00206 


1 77775 


4 


00211 




TXI 


PEC14»4.-3 




00207 


02000 





00243 




TRA 


PEC30 




00210 


1 77775 


4 


00211 




TXI 


PEC14.4.-3 


D 


00211 


3 00000 


4 


00203 


PEC14 


TXH 


PEC13*4 




00212 


1 77777 


1 


00213 


PEC15 


TXI 


PEC16.1»-1 


D 


00213 


3 00000 


1 


00174 


PEC16 


TXH 


PECllfl 
END OF EDIT 




00214 


-0 75400 


2 


ooooo 


PEC17 


PXD 


0»2 




00215 


60100 





02274 




STO 


CHTGL 




00216 


50000 





02170 




CLA 


M1C0N 




00217 


60100 





02275 




STO 


CHTGE1 




00220 


53400 


4 


02170 




LXA 


M1C0N.4 




00221 


50000 


4 


05741 




CLA 


CHTG.4 




00222 


60100 





02277 




STO 


CHT6FN 




00223 


1 77776 


4 


00224 


PEC18 


TXI 


PEC18+1»4»~ 




00224 


-0 75400 


4 


OOOOO 




PXD 


0»4 




00225 


40200 





02274 




SUB 


CHTGL 




00226 


10000 





00232 




TZE 


PEC19 




00227 


50000 


4 


05741 




CLA 


CHTG»4 




00230 


40200 





02277 




SUB 


CHTGFN 




00231 


10O00 





00223 




TZE 


PEC18 




00232 


-0 75400 


4 


00000 


PEC19 


PXD 


0»4 




00233 


60100 





02276 




STO 


CHTGE2 




00234 


02000 





00271 




TRA 


RSTOOO 
ROUTINE FOR 




00235 


50000 





02170 


PEC20 


CLA 


Ml CON 




00236 


60100 





02274 




STO 


CHTGL 




00237 


60100 


o 


02275 




STO 


CHTGE1 




00240 


60100 





02276 




STO 


CHTGE2 




00241 


.0 76000 





00143 




PSE 


99 




.00242 


02000 





00271 




TRA 


RSTOOO 
SEARCH FOR 




00243 


50000 


1 


02327 


PEC30 


CLA 


FORTAG »1 




00244 


-0 32000 





02205 




ANA 


M1C0N+13 




00245 


60100 





02273 




STO 


COMBOX 




00246 


50000 


4 


05263 




CLA 


UCHTGi4 



LOAD INTO IRAt IRB 

PUT UCHTG TABLE LENGTH IN ADDRESS AND 

F0RTA6 TA8LE LENGTH IN DECREMENT 

PORTIONS OF ACCUM. 

OBTAIN 25 COMP OF FORTAG 

LENGTH AND UCHTG LENGTH AND 

STORE IN DEC OF TEST INST* 

SUCCESSIVE DUPLICATES IN 
FORTAG TABLE NOT COMPARED TO 
UCHTG TABLE ENTRIES. 
IRA KEEPS TRACK OF FORTAG ENTRIES. 
IRC KEEPS TRACK OF UCHTG ENTRIES* 
MOVE TAG OF CURRENT FORTAG ENTRY 
INTO DECREMENT AND COMPARE WITH 
TAG1 IN DECREMENT OF UCHTG 
ENTRIES. IF TAGS ARE EQUAL* 
TEST FORTAG INTERNAL 
FORMULA LIES WITHIN RANGE 
GIVEN IN FIRST WORD 
OF UCHTG ENTRY. 

2S COMP OF UCHTG LENGTH IN DECREMENT. 
END OF UCHTG TABLE. 

2S COMP OF FORTAG LENGTH IN DECREMENT. 
COMPUTE CHTGE2 

END OF FORTAG TABLE. 
SAVE VALUE OF IRB FROM 
EDIT CHG TAG TABLE ROUTINE 
AS TABLE LENGTH CONTROL 
WORD FOR CHANGE TAG TABLE 
SEARCH ROUTINE AT M12500. 
CALCULATE NUMBER OF ENTRIES 
IN EDITED CHG TAG TABLE WITH 
SAME INTERNAL FORMULA 
NUMBER AND RECORD IN 
CONTROL WORDS CHTGE1 AND CHTGE2 
TO PREVENT SEARCHING ENTIRE 
EDITED CHG TAG TABLE IN 
SEARCH AT M12500. 



EMPTY UCHTG TABLE 

PLACE ZEROS INTO 3 CONTROL 
WORDS FOR CHANGE TAG TABLE SEARCH 
ROUTINE TO INDICATE NO ENTRIES 
IN EDITED CHG TAG TABLE. 
SENSE LIGHT 3 TURNED ON TO INDICATE 
NO ENTRIES IN EDITED CHG TAG TABLE 
INT FMLA NO OF CUR. FORTAG ENTRY IN UCHT6 
TAG OF FORTAG ENTRY EQUAL 
TO TAG1 OF UCHTG ENTRY. 
TEST FORTAG INTERNAL FORMULA 
NUMBER LIES WITHIN RANGE 



F3B01070 

F3B01080 

F3B01090 

F3B01100 

F3B0U10 

F3B01120 

F3B01130 

F3B01140 

F3B01150 

F3B01160 

F3B01170 

F3B01180 

F3B01190 

F3B01200 

F3B01210 

F3B01220 

F3B01230 

F3B01240 

F3B01250 

F3B01260 

F3B01270 

F3B01280 

F3B01290 

F3B01300 

F3B01310 

F3B01320 

F3B01330 

F3B01340 

F3B01350 

F3S01360 

F3B01370 

F3B01380 

F3B01390 

F3B01400 

F3B01410 

F3B01420 

F3B01430 

F3B01440 

F3B01450 

F3B01460 

F3B01470 

F3B01460 

F3B01490 

F3B01500 

F3B01510 

F3B01520 

F3B01530 

F3B01540 

F3B01550 

F3B01560 

F3B01570 

F3B01580 

F3B01590 

F3B01600 
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-0 


32000 





02205 




ANA 


M1C0N+13 


00250 





34000 





02273 




CAS 


COMBOX 


00251 


1 


77775 


4 


00211 




TXI 


PEC14»4«~3 


00252 


1 
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4 


00211 




TXI 


PEC14»4#-3 


00253 





50000 


4 


05263 




CLA 


UCHTG»4 
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76700 





00026 




ALS 
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00004 
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4 


00256 





34000 
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CAS 


COMBOX 


00257 





02000 
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PEC31 


00260 





02000 
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TRA 


PEC31 
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1 


77775 


4 


00211 




TXI 


PEC14.4.-3 
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50000 





02273 


PEC31 


CLA 


COMBOX 


00263 





60100 


2 


05741 




STO 


CHTG»2 


00264 





50000 


4 


05264 




CLA 


UCHT6+1»4 


00265 





60100 


2 


05742 




STO 


CHTG+1.2 


00266 


1 


77776 


2 


00267 




TXI 


PEC32t2t-2 


00267 


3 


76646 


2 


00212 


PEC32 


TXH 


PEC15»2»-602 


00270 





O740O 


4 


00004 




TSX 


4»4 

SXTX TABLE READ 


00271 


-0 


76000 





00142 


RST000 


MSE 


98 


00272 





02000 





00274 




TRA 


RST005-1 


00273 





02000 





00340 




TRA 


M10200 


00274 





53400 


4 


02164 




LXA 


M1ECTR.4 


00275 





76200 





00301 


RST005 


ROS 
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00276 





46000 





02213 




LDA 


M1C0N+19 


00277 





70000 





05737 




CPY 
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Q 
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05740 




CPY 
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50000 





05737 
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40200 





05740 




SUB 
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00303 





10000 
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TZE 
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00304 


2 


00001 
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00275 
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00004 
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4»4 


00306 





53400 


4 


02164 
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00307 
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05737 
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CLA 
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00310 





40200 





02214 




SUB 
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00311 


-0 


10000 





00314 




TNZ 


RST030 


00312 





60100 





02300 




STO 


SXTXL 


0O3i3 


O O2000 
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00340 




TRA 


M10200 


00314 





60100 





02300 


RST030 


STO 


SXTXL 


00 315 





73400 


3 


00000 




PAX 


0»3 


00316 





40200 





00327 




SUB 


RST040+3 


00317 





62100 





00324 




STA 


RST040 


00320 





62100 





00466 




STA 


M10305 


00321 





62100 





00474 




STA 


M10310+1 


00322 





76200 





00301 




RDS 


193 


00323 





46000 





02214 




LDA 


M1CON+20 


00324 





70000 


2 


00000 


RST040 


CPY 


0*2 


00325 


2 


00001 


2 


00324 




TIX 


RST040»2tl 


00326 





53400 


2 


02170 




LXA 


M1C0N,2 


00327 


-0 


50000 


2 


03003 




CAL 


SXTX » 2 


00330 





36100 


2 


03004 




ACL 


SXTX+1»2 


00331 





40200 


2 


03005 




SUB 


SXTX+2.2 


00332 





10000 





00335 




TZE 


RST060 


00333 
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00001 


4 


00307 




TIX 


RST021»4,1 



GIVEN IN FIRST WORD OF UCHTG 
ENTRY. IF RANGE CONDITION IS 
SATISFIEDt PRODUCE ENTRY 
FOR EDITED CHG TAG TABLE. 
EDITED CHG TAG ENTRY CONSISTS 
OF 2 WORDS. FIRST WORD HAS 
INTERNAL FORMULA NUMBER 
IN DECREMENT AND ZEROS IN 
ADDRESS. SECOND WORD HAS 
TAG1 IN DECREMENT AND TAG2 
IN ADDRESS TAKEN FROM 2ND 
WORD OF UCHTG ENTRY. CONTINUE 
WITH FORTAG AND UCHTG TAG 
COMPARISON LOOP UNTIL FORTAG 
TABLE EXHAUSTED. 

CHT6 BLOCK EXCEEDS ALLOCATED 600 WORDS 

CHTG BLOCK EXCEEDS ALLOCATED 600 WORDS* 

ROUTINE 

TEST IF DO FILE EMPTY. 

SENSE LIGHT 2 ON INDICATES 

NO SXTX ENTRIES. 

LOAD 5 INTO IRC DR RD ERROR CTR. 

SXDTX TABLE ON LOGICAL DRUM 1# 

STARTING AT LOCATION 202 

1ST WORD IS ORIGIN + 2+ TAB LENGTH. 

2ND DR WD IS CK SUM FOR 1ST WD. 

SXDTX TABLE ENTRY HAS 3 WORDS. 

THIRD WORD IS CHECK SUM. 

TEST THAT FIRST 2 WORDS OFF 

DRUM READ CORRECTLY. 

DRUM READ 5 TIMES UNSUCCESSFULLY. 

LOAD 5 INTO IRC DR RD ERROR CTR 

SUBTRACT ORIGIN+2 FROM FIRST 

WORD TO GET. SXDTX TABLE LENGTH. 

STORE AS SXDTX LENGTH IF NO 

€NTRt€S AND ©O TO ftEAD ATL ?tm. 

STORE SXDTX LENGTH AND LOAD 

SXDTX LENGTH INTO IRA» IRB. 

CALC. ADDRESS TO READ IN SXTX TABLE. 

INITIAL WORD OF TABLE IS 

FORTAG + 300. INITIALIZE 

ADDRESSES FOR SXTX TABLE SEARCH. 

READ SXTX ENTRIES FROM 

DRUM 1. LOC. 204. 

CPY LOOP 

SXTX TABLE LENGTH IN IRB. 

TEST LOGICAL SUM OF 1ST TWO 
WORDS EQUAL CHECK SUM IN 3RD 
WORD FOR EACH SXTX ENTRY* 
PROGRAM AUTOMATICALLY TRIES 
RE-READING DRUM 3 TIMES IF ERROR. 



F3B01610 
F3801620 
F3B01630 
F3B01640 
F3B01650 
F38O1660 
F3B01670 
F3B01680 
F3B01690 
F3B017O0 
F3B01710 
F3B0172O 
F3B01730 
F3B01740 
F3B01750 
F3B01760 
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F3B01780 
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02211 


PAT4 


SUB 


M1C0N+17 


00404 
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10000 





00410 




TNZ 


PAT5 


00405 
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SOOOO 
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02*2? 




CAL 


AlLrl 
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-0 


32000 
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ANA 
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TRA 


OUT 24 


00410 





53400 
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00411 
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00412 
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ANA 
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00413 
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00414 





76000 





00006 




COM 




00415 


-0 


32000 





02211 




ANA 
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00416 





10000 
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00000 
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DRUM READ 5 TIMES UNSUCCESSFULLY. 

SXTX TABLE LEN6TH IN IRA. 
SXTX TABLE IN CORES SUCCESSFULLY. 
DO ROUTINES 
IN IRC WHEN SKIPPING CLOSED SRTNS. 
STORE 1 IN M1TRC. TP 2. 
READ ERROR COUNTER. 
READ 1 RECORD OF AIL* THE 2ND 
FILE ON TP 2 ALREADY POSITIONED. 
AIL REC. READ OVER FORTAG FILE. 
IRA GIVES POSITION IN AIL RECORD. 
END OF AIL FILE. 
END OF AIL RECORD. 

REDUNDANCY WHEN READING TP 2. 

STORE 2S COMPL AIL WORD COUNT 

IN CURRENT AIL REC. USUALLY 100 

RD RTN ENTRY VIA TSX 

ROUTINE TO SKIP OVER FORTRAN FUNCTIONS 

IRC VALUE SET BY TSX RETURN F FCN TEST 

A FORTRAN FCN. A CLOSED SUBRTN. 

IS IDENTIFIED BY 4 WORDS 

FILLED WITH 1 BITS. 

TEST IF AIL ENTRY IS ALL 1 BITS. 

INDICATES SUCCEEDING ENTRIES 

BELONG TO A FORTRAN FCN AND 

ARE SKIPPED OVER HERE. 

AIL ENTRY NOT A FORTRAN FCN. 

AIL ENTRY IS A FORTRAN FCN. 

STORE 1 IN DECRE. F FCN EXISTS. 

TO TEST IF LAST AIL INSTR OF BUFFER. 

COMPARE NO. CURRENT WORD OF 

AIL REC WITH AIL REC COUNT 

TO TEST IF LAST INSTR IN REC. 

READ NEXT AIL RECORD. 

WD COUNT NOT EQUAL TO REC COUNT 

TEST IF OPEN SUBRTN END. 

BY IS IN FIRST WORD OF ENTRY. 

OS IN 1ST WORD INDICATES F FCN ENTRY 

-377777777777. 

1ST DESIRED AIL ENTRY FOUND 

T£5T if CURRE W £NTR¥ 

AN OPEN SUBRTN END OR 

ANOTHER FORTRAN FCN. 

UNCON. TR TO READ IN DO RECORD. 

CONTINUATION OF TEST IF 

CURRENT ENTRY F FCN OR 

OPEN SUBRTN ENTRY. 

-377777777777. 

ENTRY INDICATES F FCN. 

OPEN SUBRTN END. 

COMPARE NO. CURRENT WORD OF 
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00437 





02000 





00511 
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00441 
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02170 
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LXD 


CB0X»4 


00454 


-0 


75400 


4 


00000 


M10290 


PXO 


0*4 


00455 





10000 





00457 




TZE 


M10295 


00456 





02000 


4 


00002 




TRA 


2»4 


00*57 


-0 


76000 





00141 


M10295 


MSE 


97 


00460 





02000 





00626 




TRA 


M11010 


00461 





76000 





00141 




PSE 


97 


00462 





02000 





00636 




TRA 


M11030 


00463 





50000 


2 


02475 


M10300 


CLA 


DO+2,2 


00464 





60100 





02301 




STO 


SXLOC 


00465 





53400 


4 


02300 




LXA 


SXTXL. 4 


^0466^ 


o 


SOOOO^ 


0000O 


M103Q£ -C-tA— 0*4- - 


00467 





40200 





02301 




SUB 


SXLOC 


00470 





10000 





00473 




TZE 


M10310 


00471 


2 


00003 


4 


00466 




TIX 


M10305.4.3 


00472 





02000 





00452 




TRA 


M10285+3 


00473 


2 


00001 


4 


00474 


M10310 


TIX 


M10310+1.4.1 


00474 





50000 


4 


00000 




CLA 


0.4 


00475 





60100 


2 


02475 




STO 


DO+2.2 


00476 





50000 





02170 




CLA 


Ml CON 


00477 





60100 


2 


02473 




STO 


DO .2 


00500 





02000 





00452 




TRA 


M10285+3 

ERROR ROUTINES. 


00501 





50000 





02306 


M10700 


CLA 


M1TRC 


00502 





40200 





02164 




SUB 


M1ECTR 


00503 





10000 





00510 




TZE 


M1EATC 


00504 





40000 





02165 




ADO 


M1ECTR+1 


00505 





60100 





02306 




STO 


M1TRC 



AIL REC WITH AIL REC COUNT F3B02690 

TO TEST IF LAST INSTR IN RECORD. F3B0Z70O 

READ NEXT AIL RECORD. F3B02710 

WORD COUNT EXCEEDS TOTAL COUNT IN REC* F3B02720 

ADD 4 IRA, AT LEAST 1 INSTR IN ROUTINE F3B02730 

STORE 1 IN M1TRC. TP 2 F3B02740 

READ ERROR COUNTER* F3B02750 

READ 1 RECORD OF DO. THE 1ST F3B02760 

FILE ON TP 2 ALREADY POSITIONED. F3B0277O 

DO REC. READ 100 WDS BEYOND AIL. F3B02780 

IRB GIVES POSITION IN DO RECORD. F3B02790 

TO END OF DO FILE RTN. F3B02800 

TO END OF DO RECORD RTN. F3B0281O 

IF DO FILE EMPTY. NO SXTX TABLE MADE. F3B02820 

REDUNDANCY WHEN READING TP 2. F3B02830 

STORE 2S COMPL DO WORD COUNT. F3B02840 

TEST IF SXDTX TABLE EMPTY F3B02850 

FROM STORED TABLE LENGTH. F3B02860 

NO SXTX ENTRIES. GO TO AIL AND DO F3B02870 

COMPILATION ROUTINES. F3B02880 

SAVE IRC FOR TSX TEST F3B02890 

ADD 4 IRB GET 1ST WD LAST DO INSTR. F3B02900 

TEST CURRENT DO INST AN SXD F3B02910 

BY EXAMINING 2ND WORD OF INSTR. F3B02920 

CURRENT INSTR IS SXD. F3B0293O 

IRB ZERO MEANS ALL DO ENTRIES F3B02940 

IN BLOCK EXAMINED FOR SXD. F3B02950 

IRC NOT ZERO AFTER 1ST DO REC F3B02960 

IN CORES. IRC PERMITS RE-ENTRY F3B02970 

VIA TSX TO DO + AIL CMP RTN F3B02980 

TEST IF END AIL FILE. F3B02990 

TO COMPARE AIL + DO FMLA NOS» F3B03OO0 

SENSE LIGHT 1 ON IF AIL EOF. F3B03010 

TO COMPILE DO INSTR. F3B03020 

SEARCH SXTX TABLE FOR ENTRY F3803030 

EQUAL TO ADDR PORTION GIVEN IN F3B03040 

3RD WD CURRENT SXD DO INSTR. F3BO3050 

ADDR SXTX ^RGJ^^tUS^ -LENGTH F3B0306 fr 

F3B03070 

SXTX ENTRY CORR TO SXD FOUND. F3B03080 

F3B03090 

NO SXTX ENTRY CORR TO SXD FOUND. F3BO3100 

ROUTINE PUT 2ND WORD SXTX F3B03110 

TABLE ENTRY INTO ADDRESS WD F3B03120 

CURRENT SXD DO INSTR. F3BO3130 

CHANGE SXD FMLA NO. TO F3B03140 

ZEROS IN DO RECORD BUFFER. F3B03150 

TO CONTINUE SXD SEARCH OF DO REC. F3B03160 

END OF FILE ROUTINES F3B03170 

REDUNDANCY CHECK READING F3B03180 

AIL RECORD. TEST IF F3B03190 

TAPE 2 READ ALREADY 5 F3B03200 

TIMES. IF NOT. INCREASE F3B03210 

COUNT BY 1 IN TAPE READ F3B03220 



#' 



00506 





76400 





00222 


M10705 


BST 


146 


00507 





02000 





00343 




TRA 


M10220 


00510 





07400 


4 


00004 


M1EATC 


TSX 


4t4 


00511 





50000 





02306 


M10750 


CLA 


M1TRC 


00512 





40200 





02164 




SUB 


M1ECTR 


00513 





10000 





00520 




T2E 


M1EDTC 


00514 





40000 





02165 




ADD 


M1ECTR+1 


00515 





60100 





02306 




STO 


M1TRC 


00516 





76400 





00224 


M10755 


BST 


148 


00517 





02000 





00430 




TRA 


M10260 


00520 





07400 


4 


00004 


M1EDTC 


TSX 


4*4 


00521 





76000 





00141 


M10800 


PSE 


97 


00522 


-0 


76000 





00142 




MSE 


98 


00523 





02000 





00526 




TRA 


M10810 


00524 





76000 





00142 




PSE 


98 


00525 





02000 





00536 




TRA 


M10900 


00526 


-0 


75400 


4 


00000 


M10810 


PXD 


0»4 


00527 





10000 





00426 




TZE 


M10250 


00530 





02000 





00636 




TRA 


M11030 


00531 





76000 





00142 


M10850 


PSE 


98 


00532 


-0 


76000 





00141 




MSE 


97 


00533 





02000 





00751 




TRA 


M12000 


00534 





76000 





00141 




PSE 


97 


00535 





02000 





00536 




TRA 


M10900 

Ml TERMINAL 


00536 





76600 





00223 


M10900 


WRS 


147 


00537 


-0 


53400 


2 


02317 




LXD 


BB0X»2 


00540 





76000 





00140 




PSE 


96 


00541 





70000 


1 


02637 


M10910 


CPY 


CIB»1 


00542 


1 


77777 


1 


00543 




TXI 


M10920»l»-1 


00543 


1 


00001 


2 


00544 


M10920 


TXI 


M10920+l»2#l 


00544 


3 


00001 


2 


00541 




TXH 


M10910»2»l 


00545 





77000 





00223 


M10930 


WEF 


1*7 


00546 


-0 


53400 


2 


00411 


PATIO 


LXD 


PAT5+W2 


00547 


3 


00000 


2 


00553 




TXH 


PAT12*2»0 


00550 





77000 





00223 


PATH 


WEF 


147 


00551 





76200 





00221 




RTB 


1 


00552 





02000 





00004 




TRA 


4 


00553 


-0 


63400 


1 


02166 


PAT12 


SXD 


M1ECTR+2»1 


00554 


-0 


63400 


2 


02167 




sxe 


M1ECTR+3.2 


00555 





53400 


1 


02164 




LXA 


M1ECTR»1 


00556 





76200 





00222 




RDS 


146 


00557 





7Q00Q 





05737 




CPY 


ERAS 


00560 





07400 


2 


00064 




tsx 


M10043*2 


00561 





76100 





00556 




NOP 


PAT12+3 


wv-»Oc 


7 V 


co Ann 


i 


ri 2166 




LXD 


M1ECTR+2*! 


00563 


-0 


53400 


2 


02167 




LXD 


MiicTR+3»2 


00564 





53400 


2 


05737 




LXA 


ERAS»2 


00565 


1 


00002 


2 


00566 




TXI 


PAT13»2»2 


00566 





76400 





00222 


PAT13 


BST 


1*6 


00567 


2 


00001 


2 


00566 




TIX 


PAT13»2»1 


00570 





76000 





00142 




PSE 


98 


00571 





76000 





00143 




PSE 


99 


00572 





50000 





02170 




CLA 


M1C0N 



COUNTER AND READ AIL 

RECORD AGAIN* 

AIL REC. READ 5 TIMES UNSUCCESSFULLY* 

REDUNDANCY CHECK READING 

DO RECORD. TEST IF 

TAPE 2 READ ALREADY 5 

TIMES. IF NOT* INCREASE 

COUNT BY 1 IN TAPE READ 

COUNTER AND READ DO 

RECORD AGAIN 

DO REC. READ 5 TIMES UNSUCCESSFULLY. 

END OF FILE FOR AIL ROUTINE. 

TURN SENSE LIGHT 1 ON FOR AIL 

EOF AND TEST IF ENTRIES IN SXTX TBL 

BY LIGHT 2 ON. 

TO WR ON TP 3 INSTR IN BUFFER. 

IRC ZERO IF DO FILE NOT READ YET. 

TO READ DO FILE RECORD. 

TO COMPILE DO INSTRUCTIONS. 

END OF FILE FOR DO ROUTINE. 

TURN SENSE LIGHT 2 ON FOR DO 

EOF AND TEST IF AIL AT EOF. 



ROUTINE 

ROUTINE WR ON TP 3 INSTR REMAINING 
IN CIB BUFFER FROM CIT. 
TURN-OFF ALL SENSE LIGHTS. 



IRB 2S COMP NO WORDS CIB BUFFER. 

WR FORTRAN FCNS 2ND FILE TP 3. 

WRITE FORTRAN FCNS AS 2ND FILE ON TAPE 3. 

1 IN DECREMENT IF F FCNS IN AIL FILE. 

WR 2ND TAPE MARK ON TP 3 FOR MERGE 1 END. 

SPACE OVER DIAGNOSTIC RECORD. 

TO READ IN MERGE 2. 



LOAD 5 INTO IRC TP RD ERROR CTR. 

READ AIL RECORD COUNT* THE 

NEXT FILE AFTER AIL EOF 

TO BACKSPACE TP 2 TO 

START OF AIL FILE TO GET . 

F FCNS AT BEGINNING OF COMPAIL FILEs 



PUT LIGHT 2 ON FOR DO EOF. 

PUT LIGHT 3 ON FOR NO CHTG TBL. 

INITIALIZE BBOX WITH 0. BBOX 



F3B03230 

F3B03240 

F3B03250 

F3B03260 

F3B03270 

F3B03280 

F3B03290 

F3B03300 

F3B03310 

F3B03320 

F3B03330 

F3B03340 

F3B03350 

F3B03360 

F3B03370 

F3B03380 

F3B03390 

F3B03400 

F3B03410 

F3B03420 

F3B03430 

F3B03440 

F3B03450 

F3B03460 

F3B03470 

F3B03480 

F3B03490 

F3B035O0 

F3B03510 

F3B03520 

F3B03530 

F3B03540 

F3B03550 

F3B03560 

F3B03570 

F3B03580 

F3B03590 

F3B03600 

F3B03610 

F3BO3620 

F3B03630 

F3B03640 

F3B03650 

F3B03660 

F3B03670 

F3B0368 n 

F3B03690 

F3B03700 

F3B03710 

F3B03720 

F3B03730 

F3B03740 

F3B03750 

F3B03760 



u 



n 



n 



00573 





60100 





02317 




STO 


BBOX 


00574 





07400 


4 


00341 




TSX 


M10210.4 


00575 





76100 





OOOOO 




NOP 




00576 


-0 


50000 


1 


02327 


PAT14 


CAL 


AIL»1 


00577 


-0 


32000 


1 


02330 




ANA 


AIL+ltl 


00600 


-0 


32000 


1 


02331 




ANA 


AIL+2»1 


00601 


-0 


32000 


1 


02332 




ANA 


AIL+3.1 


00602 





60200 





05737 




SLW 


ERAS 


00603 





50000 





05737 




CLA 


ERAS 


00604 





40200 





02211 




SUB 


M1C0N+17 


00605 


-0 


10000 





00615 




TNZ 


OUT 


00606 


1 


77774 


1 


00607 


PAT15 


TXI 


PAT15+l»l»-4 


00607 


-0 


75400 


1 


OOOOO 




PXD 


0*1 


00610 





34000 





02305 




CAS 


M1ALWN 


00611 





02000 





00751 




TRA 


M12000 


00612 





07400 


4 


00341 


PAT16 


TSX 


M10210»4 


00613 





07400 


4 


00004 




TSX 


4»4 


00614 





02000 





00751 




TRA 


M12000 


00615 


1 


77777 


2 


00616 


OUT 


TXI 


0UT1»2»-1 


00616 


-0 


63400 


2 


00411 


0UT1 


SXD 


PAT5+li2 


00617 





76200 





00222 


0UT13 


RDS 


146 


00620 





70000 





05737 


0UT14 


CPY 


ERAS 


00621 





02000 





00620 




TRA 


OUT 14 


00622 





02000 





00624 




TRA 


OUT22 


00623 





02000 





00617 




TRA 


0UT13 


00624 





53400 


1 


02170 


0UT22 


LXA 


M1C0N»1 


00625 





02000 





00536 




TRA 


M10900 

COMPAIL INSTR 
HAVE SAME FMLA 
THE AIL FOR TI 
COMPARISON OF 
COMPILATION OF 


00626 





50000 


2 


02473 


M11010 


CLA 


D0»2 


00627 





62200 





02307 




STD 


M1D0FN 


00630 





07400 


4 


00744 


M11015 


TSX 


ERR2»4 


00631 


-0 


32000 





02205 




ANA 


M1C0N+13 


00632 





34000 





02307 




CAS 


M1D0FN 


00643 





02000 





00636 




TRA 


M11030 


00634 





02000 





00667 




TRA 


M11Q70 


00635 





02000 





00751 




TRA 


M12000 


00636 





53400 


4 


02174 


M11030 


LXA 


MlC0N+4*4 


00637 





50000 


2 


02473 


M11031 


CLA 


D0»2 


00640 





60100 


4 


02326 




STO 


MlCW+4*4 


00641 


1 


77777 


2 


00642 




TXI 


M11035*2»-l 


00642 


2 


00001 


4 


00637 


M11035 


TIX 


M11031»4il 


00643 





07400 


4 


00707 




TSX 


CIT00»4 


00644 





00000 





02322 




HTR 


M1CW 


00645 





00000 





02323 




HTR 


M1CW+1 


00646 





00000 





02324 




HTR 


M1CW+2 


00647 





ooooo 





02325 




HTR 


M1CW+3 


00650 


-0 


75400 


2 


OOOOO 




PXD 


0.2 


00651 





34000 





02304 




CAS 


Ml DOWN 


00652 





02000 





00655 




TRA 


M11055 


00653 





07400 


4 


00426 




TSX 


M10250»4 



KEEPS COUNT OF RECORDS IN CIB BUFFER. 
TO READ AIL FILE FOR FORTRAN FCNS. 
NOP NEEDED FOR ROUTINE AT RET1. 
TEST FOR FORTRAN FCN. AIL 
WORD ALL ONES IF A FORTRAN FCN. 



ENTRY IS NOT A FORTRAN FCN. 

TEST IF LAST WORD OF 

AIL BUFFER. 

TO AIL COMPILATION ROUTINE. 

TO READ NEXT AIL ENTRY. 

NO. OF WORDS OF AIL REC NOT A MULTIPLE OF 4 

TO AIL COMPILATION ROUTINE. 

MAKE IRB VALUE ZERO. 

DECREMENT ZERO MEANS NO FORTRAN FCNS. 

SPACE OVER REMAINING 

AIL ENTRIES WHICH ARE 

NOT FORTRAN FCNS TO POSITION 

TAPE 2 AT END OF AIL FILE. 



F3B03770 
F3B03780 
F3B03790 
F3B03800 
F3B03810 
F3B03820 
F3B03830 
F3B03840 
F3B03850 
F3B03860 
F3B03870 
F3B03880 
F3B03890 
F3B03900 
F3B03910 
F3B03920 
F3B03930 
F3B03940 
F3B03950 
F3B03960 
F3B03970 
F3B03980 
F3B03990 
F3B04000 
F3B04010 
F3B04020 
F3B04030 
F3B04040 



TO WR ANY F FCN ENTRIES IN CIB BUFFER. 
USUALLY MERGED AHEAD OF COMPDO INSTR IF BOTH 

NO* EXCEPT FOR READ AND WRITE.WHEN DO PRECEDESF3B04050 
MING REASONS. FMLA NO. DECREMENT PART HERE. F3B04060 



AIL AND DO FMLA NOS AND 
DO INSTRUCTIONS 
COMPARE AIL AND DO INTERNAL 
FORMULA NOS. 
TEST FOR FORTRAN FCNS. 
+077777000000. 

COMPARE AIL AND 
AIL FMLA NO GREATER DO NO. 
AIL FMLA NO. EQUALS DO NO. 
AIL FMLA NO. LESS DO NO. 
COMPILE DO INSTR BY 
GATHERING 4 WORDS FROM 
DO REC BUFFER AND PLACING 
THEM IN CALLING SEQ LOCATIONS. 

TO CIT COMPILING ROUTINE. 
CALLING SEQ FOR LOCATIONS 
OF 4 COMPILED WORDS. 



TEST IF END OF CUR DO REC 
BY COMPARING CURRENT DO WD 
POSITION WITH TOTAL DO 
REC WORD COUNT. 



F3B04070 
F3B04080 
F3B04090 
F3B04100 
F3B04110 
F3B04120 
F3B04130 
F3B0414 
F3B04150 
F3B04160 
F3B04170 
F3B04180 
F3B04190 
F3B04200 
F3B04210 
F3B04220 
F3B04230 
F3B04240 
F3B04250 
F3B04260 
F3B04270 
F3B04280 
F3B04290 
F3B04300 



& 



00654 





07400 


4 


00O04 




TSX 


4*4 


00655 


-0 


76000 





00141 


M11055 


MSE 


97 


00656 





02000 





00661 




TRA 


M11060 


00657 





76000 





00141 




PSE 


97 


00660 





02000 





00636 




TRA 


M11030 


00661 





50000 


2 


02473 


M11060 


CLA 


D0»2 


00662 


-0 


32000 





02205 




ANA 


M1C0N+13 


00663 





34000 





02307 




CAS 


M1D0FN 


00664 





02000 





00626 




TRA 


M11010 


00665 





76100 





00000 




NOP 




00666 





02000 





00636 




TRA 


M11030 


00667 


1 


77777 


1 


00670 


M11070 


TXI 


M11070+l»l 


00670 





50000 


1 


02327 




CLA 


AILtl 


00671 





40200 





02236 




SUB 


M1ABC+17 


00672 





10000 





00677 




TZE 


M11080 


00673 





50000 


1 


02327 




CLA 


AIL.l 


00674 





40200 





02247 




SUB 


M1ABC+26 


00675 





10000 





00677 




TZE 


M11080 


00676 


1 


00001 


1 


00751 




TXI 


M12000.1*l 


00677 


1 


00001 


1 


00700 


M11080 


TXI 


ERR3.1»1 


00700 





50000 


2 


02473 


ERR3 


CLA 


D0»2 


00701 


-0 


32000 





02206 




ANA 


M1C0N+14 


00702 





10000 





00704 




TZE 


RET2 


00703 





02000 





00751 




TRA 


M12000 


00704 





50000 





02210 


RET2 


CLA 


M1C0N+16 


00705 


-0 


60200 


1 


02327 




ORS 


AIL»1 


00706 





02000 





00636 




TRA 


M11030 
COMPILING 


00707 


-0 


60000 





02314 


CIT00 


STQ 


E1C 


00710 


-0 


63400 


1 


02315 




SXD 


E2C»1 


00711 


-0 


63400 


2 


02316 




SXO 


E3C»2 


00712 


-0 


53400 


2 


02317 




LXO 


BB0X»2 


00713 


3 


77634 


2 


00723 




TXH 


OT0<m2»-1 


00714 


-3 


00000 


2 


00723 




TXL 


CIT04»2»0 


00715 





76600 





00223 




WRS 


147 


00716 





53400 


1 


02170 




LXA 


M1C0N.1 


00717 





70000 


1 


02637 


CIT01 


CPY 


CIB»1 


00720 


1 


77777 


1 


00721 




TXI 


CIT02»1»-1 


00721 


1 


00001 


2 


00722 


CIT02 


TXI 


CIT03.2.1 


00722 


3 


00001 


2 


00717 


CIT03 


TXH 


CIT01»2»1 


00723 





53400 


1 


02174 


CIT04 


LXA 


M1C0N+4»1 


00724 





50000 





02171 




CLA 


M1C0N+1 




O 


62tO0 


O 






STA 


efTOS 


00725 


00726 


00726 





50000 


4 


00000 


CIT05 


CLA 


0*4 


00727 





62100 





00730 




STA 


CIT06 


00730 





50000 





00000 


CIT06 


CLA 




00731 





60100 


2 


02637 




STO 


CIB*2 


00732 





50000 





00726 




CLA 


CIT05 


00733 





40000 





02171 




ADO 


M1C0N+1 


00734 





62100 





00726 




STA 


CIT05 


00735 


1 


77777 


2 


00736 




TXI 


CIT07»2»-1 


00736 


2 


00001 


1 


00726 


C1T07 


TIX 


CIT05.1.1 


00737 


-0 


63400 


2 


02317 




SXO 


BB0Xt2 


00740 





56000 





02314 




LDQ 


E1C 



»-l 



NO OF WORDS NOT A MULTIPLE OF 4 
END OF AIL FILE IF LIGHT 1 ON. 

AIL AT EOF. CONTINUE 

COMPILING DO INSTR. 

GET NEXT DO INST SAME BLOCK 

AS PREVIOUS ONE. 

AIL AND DO FMLA NOS IN DECREMENTS. 

DO FMLA NO. GREATER AIL NO. 

DO FMLA NO.- EQUALS AIL NO. 

DO FMLA NO. LESS AIL NO. 

TEST IF CURRENT AIL OPER RDS 



TEST IF CURRENT AIL OPER WRS 



RESTORE IRA CURRENT AIL VALUE. 

TO TEST IF SPACING TAPE. 

TEST IF BOTH AIL AND DO HAVE SAME FORMULA NO 

DETERMINE IF DO OR AIL INSTR COMPILED FIRST. 

LXD BEFORE RDS HAS ZERO LOCATION. 

TO COMPILE AIL INSTRUCTION. 

INCREASE AIL 1ST WD ADDRESS 

FOR SEC. 4 PURPOSES. 

TO COMPILE DO INSTR. 
ROUTINE.CITOO 

E1C CELL FOR SAVING MQ« 

E2C CELL FOR SAVING IRA. 

E3C CELL FOR SAVING IRB. 

2S COMP NO. ALREADY IN BLOCK. 
00 TR NO. WDS IN BLOCK LESS 100. 

TR NO. WDS IN BLOCK EQUALS 0. 

WRITE-OUT BLOCK OF 100 

WORDS WHICH MAKE UP 

25 COMPILED INSTR. ON TP 3. 

WRITING OF CIB BUFFER 

FINISHED WHEN IRB IS 0. 

ROUTINE TO PLACE 4 WORDS 

OF COMPILED INSTR IN CIB 

BUFFER OF lOO WORDS . 

IRC CONTAINS 2S COMP LOC OF 

CALLING SEQ LESS 1. 

INSTR ADDRESS SEQUENTIALLY 

M1CW* M1CW+1* M1CW+2 

AND M1CW+3. 



IRA LOADED WITH *t. 

2S COMPL NO. WORDS ALREADY IN BLOCK. 

RESTORE MQ* IRA» IRB. 



F3B04310 
F3B04320 
F3B04330 
F3B04340 
F3B04350 
F3B04360 
F3B04370 
F3B04380 
F3B04390 
F3B04400 
F3B04410 
F3B04420 
F3B04430 
F3B04440 
F3B04450 
F3B04460 
F3B04470 
F3B04480 
F3B04490 
F3B04500 
•F3B04510 
F3B04520 
F3B04530 
F3B04540 
F3B04550 
F3B04560 
F3B04570 
F3B04580 
F3B04590 
F3B04600 
F3B04610 
F3B04620 
F3B04630 
F3B04640 
F3B04650 
F3B04660 
F3B04670 
F3B04680 
F3B04690 
F3B04700 
F3B04710 
F3B04720 
F3604730 
F3B04740 
F3B04750 
F3B04760 
F3B04770 
F3B04780 
F3B04790 
F3B04800 
F3B04810 
F3B04820 
F3B04830 
F3B04840 



V 



U 



O 



o 



o 



00741 


-0 


53400 


1 


02315 




LXD 


E2C.1 


00742 


-0 


53400 


2 


02316 




LXD 


E3Ct2 


00743 





02000 


4 


00005 




TRA 


5*4 


00744 





50000 


1 


02327 


ERR2 


CLA 


AI L 1 1 


00745 





34000 





02211 




CAS 


M1C0N+17 


00746 





02000 


4 


OOOOl 




TRA 


1*4 


00747 





07400 


4 


00004 




TSX 


4»4 


00750 





07400 


4 


00004 


ERROR 3 


TSX 


4*4 
COMPILATION 


00751 





07400 


4 


00744 


M12000 


TSX 


ERR2»4 


00752 





62200 





02310 




STD 


M1ALFN 


00753 


-0 


12000 





01070 


M12005 


TMI 


M13000 


00754 





53400 


4 


02174 




LXA 


MlC0N+4»4 


00755 





50000 


1 


02327 


M12010 


CLA 


AIL»1 


00756 





60100 


4 


02326 




STO 


MlCW+4»4 


00757 


1 


77777 


1 


00760 




TXI 


M12020»l»-1 


00760 


2 


OOOOl 


4 


00755 


M12020 


TIX 


M12010»4.1 


00761 





50000 





02325 


M12021 


CLA 


M1CW+3 


00762 


-0 


32000 





02207 


M12022 


ANA 


M1C0N+15 


00763 





10000 





00767 




TZE 


M12030 


00764 


-0 


76000 





00143 




MSE 


99 


00765 





07400 


4 


01016 




TSX 


M12500»4 


00766 





76000 





00143 




PSE 


99 


00767 





07400 


4 


00707 


M12030 


TSX 


CIT00.4 


00770 





00000 





02322 




HTR 


M1CW 


00771 





00000 





02323 




HTR 


M1CW+1 


00772 





00000 





02324 




HTR 


M1CW+2 


00773 





00000 





02325 




HTR 


M1CW+3 


00774 


-0 


75400 


1 


00000 


M12035 


PXD 


0*1 


00775 





34000 





02305 




CAS 


M1ALWN 


00776 





02000 





01001 




TRA 


M12040 


00777 





07400 


4 


00341 




TSX 


M10210*4 


01000 





07400 


4 


00004 




TSX 


4*4 


O1001 





50000 


1 


02327 


M12040 


CLA 


AIL.l 


01002 


-0 


32000 





02205 




ANA 


M1C0N+13 


01003 





34000 





02310 




CAS 


M1ALFN 


Q1QG4 





O20OQ 


a 


GIGIO 




TRA. M12050 


01005 





76100 





00000 




NOP 




01006 





50000 


i 


02327 




CLA 


AIL.l 


01007 





02000 





00753 




TRA 


M12005 


01010 


-0 


76000 





00142 


M12050 


MSE 


98 


01011 





02000 





00630 




TRA 


M11015 


01012 





76000 





00142 




PSE 


98 


01013 


3 


OOOOl 


2 


00751 




TXH 


M12000*2<1 


01014 


-3 


00000 


2 


00751 




TXL 


M120O0»2*0 


01015 





02000 





00576 




TRA 


PAT14 
CHANGE TAG 1 


01016 





50000 





02325 


M12500 


CLA 


M1CW+3 


01017 





62100 





02303 




STA 


TAGBOX 


01020 


-0 


63400 


4 


02302 




SXD 


CB0X»4 


01021 


-0 


53400 


4 


02275 


M12503 


LXD 


CHT6E1*4 


01022 





50000 


4 


05741 




CLA 


CHTG.4 


01023 





34000 





02310 




CAS 


M1ALFN 


01024 





02000 





01027 




TRA 


M12510 



IRA GIVES AIL REC POSITION. 
IRB GIVES DO REC POSITION. 
RETURN TO TSX ADDR PLUS 5. 
TEST IF FORTRAN FCN DEFINED IN MIDDLE OF 
PROGRAM. BY FIRST INSTR WORD ALL ONES. 
RETURN TO NEXT INSTR. OF MAIN PROGRAM. 
FORTRAN FUNCTION IN MIDDLE OF PROGRAM 
WORD ALL IS COMPARED HIGH TO AC WITH ALL IS 
OF AIL INSTRUCTIONS 

TEST 1ST AIL WORD ALL ONES. 

SAVE FMLA NO. 1ST INSTR ARITH BLOCK.. 

MINUS MEANS OPEN SUBROUTINE. 

COMPILE AIL INST BY 

MOVING 4 WORDS OF INSTR 

INTO COMPILED WORD BUFFER. 



TEST IF TAGGED INSTR* BITS 24-26. 

1*2 OR 3 GIVEN IN TAG. ONE 

DIM TAGS NOT CHANGED. 

SENSE LIGHT 3 ON IF NO 

ENTRIES IN EDITED CHANGE 

TAG TABLE. 

TO CIT COMPILING IF TAG UNCHANGED. 

CALLING SEQ FOR LOCATIONS 

OF 4 COMPILED WORDS. 



TEST IF END OF CUR AIL REC 

BY COMPARING CURRENT AIL WD 

POSITION WITH TOTAL AIL 

REC WORD COUNT. 

NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4 

NEXT AIL INST SAME BLOCK. AS 

PREVIOUS ONE. +077777000000. 

NEXT AXL FMLA NO* 6R THAN PREV* 

TEST IF OPEN SRTN. IF NOT* 
COMPILE AIL INSTR 
END OF DO FILE IF LIGHT 2 ON. 
TO CMP AIL AND DO FMLA NOS. 

IN THE MAIN MERGE IF IRB 
ANY VALUE EXCEPT It 
TO TEST FOR FORTRAN FCN. 
TABLE SEARCH 

SYMBOLIC TAG IN BINARY BITS 
24-35 4TH WD COMPILED INSTR. 
IRC HAS TSX RTN ADDR TO M12030. 

CMP INT FMLA NO CUR AIL INSTR 
WITH CUR CHTG TABLE BLOCK. 
CHTG FMLA NO GREATER AIL NO. 



F3B04850 

F3B04860 

F3B04870 

F3B04880 

F3B04890 

F3B04900 

F3B04910 

F3B04920 

F3B04930 

F3B04940 

F3B04950 

F3B04960 

F3B04970 

F3B04980 

F3B04990 

F3B05000 

F3B05010 

F3B05020 

F3B05030 

F3B05040 

F3B05050 

F3B05060 

F3B05070 

F3B05080 

F3B05090 

F3B05100 

F3B05110 

F3B05120 

F3B05130 

F3B05140 

F3605150 

F3B05160 

F3B0517O 

F3B05180 

F3B05190 

F3B05200 

F 3B05210 

F3B05220 

F3B05230 

F3B05240 

F3B05250 

F3B0526O 

F3B05270 

F3B05280 

F3B05290 

F3B05300 

F3B05310 

F3B05320 

F3B05330 

F3805340 

F3B05350 

F3B05360 

F3B05370 

F3B05380 



/ 



P-" 



01025 


02000 





01031 




TRA 


M12515 


CHTG FMLA NO EQUALS AIL NO. 


F3B05390 




01026 


02000 





01046 




TRA 


M12540 


CHT6 FMLA NO LESS AIL NO. 


F3B054O0 




01027 


-0 53400 


4 


02302 


M12510 


LXD 


CB0X.4 


IRC HAS TSX RTN AODR TO 


F3B05410 




01030 


02000 


4 


00002 




TRA 


2*4 


AIL COMP AT M12030. 


F3B05420 




01031 


50000 





02276 


M12515 


CLA 


CHTGE2 


SEARCH CUR CHTG BLOCK FOR 


F3B05430 




01032 


62200 





01044 




STD 


M12530+1 


CUR AIL INST TAG 


F3B05440 




01033 


1 77777 


4 


01034 


M12520 


TXI 


M125Z0+1.4.-1 




F3B05450 




01034 


50000 


4 


05741 




CLA 


CHTG. 4 


GET TAG1 FROM 2ND WORD OF 


F3B05460 




01035 


76500 





00022 




LRS 


18 


CHTG TABLE* 


F3B05470 




01036 


40200 





02303 




SUB 


TAGBOX 


TAG BOX HAS AIL TAG IN ADDR. 


F3B05480 




01037 


-0 10000 





01043 




TNZ 


M12530 


CHTG TAG AND AIL TAG DIFFERENT. 


F3B05490 




01040 


76300 





00022 




LLS 


18 


CHTG AND AIL TAGS SAME* SO 


F3B05500 




01041 


62100 





02325 




STA 


M1CW+3 


REPLACE CUR AIL TAG WITH CHTG T2. 


F3B05510 




01042 


02000 





01027 




TRA 


M12510 


RTN VIA TSX TO AIL COMP AT M12030. 


F3B05520 




01043 


1 77777 


4 


01044 


M12530 


TXI 


M12530+1.4.-1 


IRC ENDS CHTG BLOCK SAME FMLA NO. 


F3B05530 




01044 


3 00000 


4 


01033 




TXH 


M12520.4 


DECREMENT IS CHTGE2 VALUE. 


F3B05540 




01045 


02000 





01027 




TRA 


M12510 




F3B05550 




01046 


50000 





02276 


M12540 


CLA 


CHTGE2 


UPDATE CHTGE1. CHTGE1 HAS IRC 


F3B05560 




01047 


60100 





02275 




STO 


CHTGE1 


VALUE TO GET 1ST ENTRY OF 


F3BO5570 




01050 


40200 





02274 




SUB 


CHTGL 


CHTG BLOCK ALL SAME FMLA NO. 


F3B05580 




01051 


-0 10000 





01054 




TNZ 


M12550 


CHTGL HAS 2S COMP NO WDS CHTG TABLE. 


F3B05590 




01052 


76000 





00143 




PSE 


99 


SENSE LIGHT 3 ON MEANS CHTG 


F3B05600 




01053 


0200Q 





01027 




TRA 


M12510 


EMPTY OR EXHAUSTED. 


F3B05610 




01054 


-0 53400 


4 


02275 


M12550 


LXD 


CHTGE1»4 


COMPUTE NEW CHTGE2. CHTGE2 IS 


F3B05620 




01055 


50000 


4 


05741 




CLA 


CHTG»4 


DECREMENT VALUE IN M12530 TO 


F3B05630 




01056 


60100 





02277 




STO 


CHTGFN 


INDICATE LAST ENTRY IN CHTG 


F3B05640 




01057 


1 77776 


4 


01060 


M12555 


TXI 


M12555+l»4t-2 


BLOCK ALL WITH SAME FMLA NO. 


F3B05650 




01060 


-0 75400 


4 


00000 




PXD 


0»4 


THIS OBVIATES SEARCHING ENTIRE 


F3B05660 




01061 


40200 





02274 




SUB 


CHTGL 


CHTG TABLE WHEN TESTING AIL 


F3B05670 




01062 


10000 





01066 




TZE 


M12570 


INSTR FOR CHANGING ITS TAG. 


F3805680 




01063 


50000 


4 


05741 




CLA 


CHTG.4 


ROUTINE ENTERED WHEN AIL 


F3B05690 




01064 


40200 





02277 




SUB 


CHTGFN 


FMLA NO. GREATER THAN CHTG 


F3B05700 




01065 


10000 





01057 




TZE 


M12555 


FMLA» SO MUST UPDATE CHTGEl 


F3B05710 




01066 


-0 63400 


4 


02276 


M12570 


SXD 


CHTGE2»4 


AND CHTGE2 TO GET NEXT ENTRY. 


F3B05720 




01067 


02000 





01021 




TRA 


M12503 


TO CMP AIL AND CHTG FMLA NOS. 


F3B05730 
















EXPONENTIAL OPEN SUBROUTINES 


F3B05740 




01070 


76000 





00002 


M13000 


CHS 




CHANGE MINUS SIGN OF 


F3B05750 




01071 


60100 





02322 




STO 


M1CW 


INT FMLA NO. IF ANY. TO M1CW 


F3B05760 




01072 


1 77777 


1 


01073 




TXI 


M13005.1.-1 


DECREASE COUNT IN IR1 


F3B05770 




01073 


50000 


1 


02327 


M13005 


CLA 


AILtl 


SECOND WORD 


F3B05780 




01074 


40200 





02237 




SUB 


M1ABC+18 


FIXED EXP. FLOATING EXP OR SPECIAL OP 


F3B05790 




01075 


10000 





01101 




TZE 


M13020 


FIXED EXPONENT 


F3B05800 




OiOT6 


O 40000 





02240 




ADD M4A8C+19 


T£ST TOR FLOATING P0W*T 


F3B0581:O 




01077 


10000 





01102 




TZE 


M13020+1 


IF NEITHER. THEN NOT EXPONENTIAL 


F3B05820 




01100 


1 77777 


1 


01304 




TXI 


M13500.1.-1 


DETERMINATION OF SPECIAL OP. 


F3B05830 




01101 


76000 





00144 


M13020 


PSt 


100 


FIXED EXP. LITE 100 ON 


F3B05840 




01102 


1 77777 


1 


01103 




TXI 


M13020+2.1.-1 


3RD WORD 


F3B05850 




01103 


50000 


1 


02327 




CLA 


AILtl 


INFO ON LOC OF ARG 


F3B05860 




01104 


60100 





02324 




STO 


M1CW+2 


TO M1CW+2 


F3B05870 




01105 


1 77777 


1 


01106 


M13025 


TXI 


M13025+1.1.-1 




F3B05880 




01106 


50000 


1 


02327 




CLA 


AIL.l 


REL ADD AND TAG. IF ANY. 


F3B05890 




01107 


60100 





02325 




STO 


M1CW+3 


TO M1CW+3 


F3B059OO 




OHIO 


1 77777 


1 


01111 


M13030 


TXI 


M13030+1.1.-1 


DECREASE BY 1 


F3B05910 


%te 


01111 


-0 75400 


1 


00000 




PXD 


0»1 


TEST FOR END OF CUR AIL REC 


F3B0592O 


o 
















o 





o 



o 



01112 





34000 C 


02305 




CAS 


M1ALWN 


0111? 





02000 


01116 




TRA 


M13040 


01114 





07400 4 


00341 




TSX 


M10210«4 


01115 





07400 4 


00904 




TSX 


4*4 


01116 


1 


77776 1 


01117 


M13040 


TXI 


M13040+l»l»-2 


01117 





50000 


02324 




CLA 


M1CW+2 


01120 





40200 


02241 




SUB 


M1ABC+20 


01121 





10000 


01212 




TZE 


M13200 


01122 





50000 


0232* 




CLA 


M1CW+2 


01123 





40200 


02237 




sue 


M1ABC+18 


01124 





10000 


01230 




TZE 


M13250 
ARGUMENT STORED 


01125 





50000 1 


02327 




CLA 


AIL»1 


01126 





40200 


02176 




SUB 


M1CON+6 


01127 


-0 


10000 


01135 




TNZ 


M13060 


01130 





50000 


02215 




CLA 


Ml ABC 


01131 





60100 


02323 




STO 


M1CW+1 


01132 


-0 


76000 


00144 




MSE 


100 


01133 





76100 


00000 




NOP 




01134 


1 


77776 1 


00761 




TXl 


M12021»l»-2 


01135 





50000 


02325 


M13060 


CLA 


M1CW+3 


01136 


-0 


32000 


02207 




ANA 


M1C0N+15 


01137 





10000 


011*3 




TZE 


M13070 


01140 


-0 


76000 


00143 




MSE 


99 


01141 





07400 4 


01016 




TSX 


M12500.4 


01142 





76000 


00143 




PSE 


99 


01143 





07400 4 


00707 


M13070 


TSX 


CIT00»4 


01144 





00000 


02322 




HTR 


M1CW 


01145 





00000 


02216 




HTR 


M1ABC+1 


01146 





00000 


02324 




HTR 


M1CW+2 


01147 





00000 


02325 




HTR 


M1CW+3 


01150 





50000 1 


02327 


M13080 


CLA 


AIL»1 


01151 





40200 


02177 




SUB 


M1C0N+7 


01152 





10000 


01175 




TZE 


M13115 


01153 





62200 


02311 




STD 


CCOUNT 


01154 


-0 


76000 


001*4 




MSE 


100 


01155 





02000 


01260 




TRA 


M13300 


01156 





76000 


00144 




PSE 


100 

FIXED ARGUMENT* 


01157 





07400 4 


00707 


M13090 


TSX 


CIT00.4 


01160 





00000 


02170 




HTR 


M1C0N 


01161 





00000 


02217 




HTR 


M1ABC+2 


01162 





00000 


02324 




HTR 


M1CW+2 


01163 





00000 


02325 




HTR 


M1CW+3 


01164 





07400 4 


00707 




TSX 


CIT00»4 


01165 





00000 


02170 




HTR 


M1CON 


01166 





00000 


02220 




HTR 


M1ABC+3 


01167 





00000 


02170 




HTR 


M1CON 


01170 





00000 


02203 




HTR 


M1C0N+11 


01171 


-0 


53400 4 


02311 




LXD 


CCOUNT *4 


01172 


1 


77777 4 


01173 


M13110 


TXI 


M13110+l»4»-l 


01173 


-0 


63*00 4 


02311 




SXD 


CCOUNT »4 


01174 


3 


00000 4 


01157 




TXH 


M13090»4 


01175 


-0 


76000 


00144 


M13115 


MSE 


100 



2S COMPLIMENT OF NUMBER OF WORDS 
OF CURRENT AIL RECORD 
BACK TO READ NEXT AIL RECORD 
NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4 
DECREASE BY 2 
LOCATION OF ARGUMENT 
SUBTRACT A PLUS SIGN 
ARG IN AC 
LOCATION AGAIN 
SUBTRACT ASTERISK 
ARG IN MQ 

* FIXED OR FLOATING 
VALUE OF EXPONENT* 3RD WORD 
OF SECOND AIL ENTRY 
EXP GREATER THAN 1 

EXP EQUALS 1* COMPILE A CLA INSTR 
AND PLACE IT IN OP CODE 
TURN OFF SENSE LIGHT* ADJUST 
COUNT FOR NEXT AIL ENTRY* AND 
TRANSFER BACK FOR CHTG SEARCH 
EXPONENT GREATER THAN 1 
TEST IF TAG NEEDS CHANGING 
ARG TAGGED 
END OF CHTG TABLE 
TRANSFER BACK TO CHTG TABLE 
SEARCH 

COMPILE FIRST INST 
LOCATION OF INTERNAL FORMULA NO 
LOCATION OF LDQ INSTRUCTION 
LOCATION OF ARGUMENT 
TAG 

VALUE OF EXPONENT 
SUBTRACT 2 
EXPONENT EQUAL TO 2 
EXP-2 TO COUNT 
ARG FIXED OR FLOATING 
FLOATING ARGUMENT 

STORED* IN AC* INMQ* EXP GREATER THAN 2 

COMPILE INSTRUCTIONS FOR FIXED ARG. 

FOR THE EXPON. 

ENTIAL ROUTINE. THE LOCATION 

OF THE ARGUMENT HAS ALREADY 

BEEN CONSIDERED* AND TH LOOP 

WILL COMPILE N-2 PAIRS OF 

MPY AND LRS INSTRUCTIONS 



LOAD EXPONENT -2 IN IR 4 AND 
COMPILE N-2 PAIRS OF INSTRUCTIONS 
RESTORE CCOUNT DURING LOOP 



ARG FIXED OR FLOATING 



F3B05930 
F3B05940 
F3B05950 
F3B05960 
F3B05970 
F3B05980 
F3B05990 
F3BO6OO0 
F3B06010 
F3B06020 
F3B06030 
F3B06040 
F3B06050 
F3B06060 
F3B06070 
F3806080 
F3B06090 
F3B06100 
F3B06110 
F3B06120 
F3B06130 
F3B06140 
F3B06150 
F3B06160 
F3B06170 
F3B06180 
F3B06190 
F3B06200 
F3BO6210 
F3B06220 
F3B06230 
F3B06240 
F3B06250 
F3B06260 
F3B06270 
F3B06280 
F3B06290 
F3B06300 
F3B06310 
F3B06320 
F3B06330 
F3B06340 
F3B06350 
F3B06360 
F3B06370 
F3B06380 
F3B06390 
F3B06400 
F3B06410 
F3B06420 
F3B06430 
F3B06440 
F3B06450 
F3B06460 



W 



01176 
01177 
01200 
01201 
01202 
01203 
01204 
01205 
01206 
01207 
01210 
01211 

01212 
01213 
01214 
01215 
01216 
01217 
01220 
01221 
01222 
01223 
01224 
01225 
01226 
01227 

01230 
01231 
01232 
01233 
01234 
01235 
01236 
01237 
01240 
01241 
01242 
01243 
01244 
01245 
XJT246 
01247 
01250 
01251 
01252 
01253 
01254 
01255 
01256 
01257 



02000 
07400 
00000 
00000 
00000 
00000 
07400 
00000 
00000 
00000 
00000 
77776 

50000 
40200 
10000 
76000 
76100 
77776 
50000 
60100 
07400 
00000 
00000 
00000 
00000 
02000 



50000 
40200 
10000 
07400 
00000 
00000 
00000 
00000 
07400 
00000 
00000 
00000 
00000 
76000 

75100 

1 77776 
50000 
60100 
07400 
00000 
00000 
00000 
00000 
02000 






-0 











-0 














01276 
00707 
02170 
02217 
02324 
02325 
00707 
02170 
02221 
02170 
02202 
00774 

02327 
02176 
01220 
00144 
00000 
00774 
02242 
02324 
00707 
02322 
02222 
02324 
02325 
01143 

02327 
02176 
01250 
00707 
02322 
02232 
02170 
02170 
00707 
02170 
02223 
02170 
02204 
00144 
OOOOO 
00774 
02242 
02324 
00707 
02322 
02224 
02324 
02325 
01150 



TRA 
TSX 
HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
TXI 

M13200 CLA 
SUB 
TNZ 
MSE 
NOP 
TXI 

M13210 CLA 
STO 
TSX 
HTR 
HTR 
HTR 
HTR 
TRA 

M13250 CLA 
SUB 
TNZ 
TSX 
HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
MSE 
NOP 
TXI 

M13265 CLA 
STO 
TSX 
HTR 
HTR 
HTR 
HTR 
TRA 



-2 



01260 07400 4 00707 M13300 TSX 



M13330 

CIT00»4 

M1C0N 

M1ABC+2 

M1CW+2 

M1CW+3 

CIT00»4 

M1C0N 

M1ABC+4 

Ml CON 

M1CON+10 

M12035»l» 

ARG IN AC 

AIL»1 

M1C0N+6 

M13210 

100 

M12035*l» 

M1ABC+21 

M1CW+2 

CIT00*4 

M1CW 

M1ABC+5 

M1CW+2 

M1CW+3 

M13070 

AR6 IN MQ 

AIL.l 

M1C0N+6 

M13265 

CIT00»4 

M1CW 

M1ABC+13 

M1C0N 

M1C0N 

CIT00»4 

M1C0N 

M1ABC+6 

M1C0N 

M1C0N+12 

100 



M12035*l*-2 

M1ABC+21 

M1CW+2 

CIT00»4 

M1CW 

M1ABC+7 

M1CW+2 

M1CW+3 

M13080 

FLOATING ARG. 

CIT00»4 



FLOATING ARGUMENT 

COMPILE LAST 2 INST FOR 

EXP GREATER OR EQUAL 2» IN WHICH 

CASE WE MUST COMPILE ONLY ONE 

PAIR OF INSTRUCTIONS 



-2 BACK TO CONTINUE AIL ROUTINES 

• FIXED OR FLOATING 

TEST TO SEE IF EXPONENT 
EQUALS 1* IF YES* TRANSFER 
BACK TO PICK UP NEXT RECORD 
IF N0» CONTINUE TO 
COMPILE PROPER INSTRUCTIONS 



EXP GREATER THAN 1»0 
STORE VALUE OF EXPONENT IN INSTR. AREA 
COMPILE FIRST INST 
CALLING SEQUENCE FOR ARG- 
UMENT IN ACC. COMPILE 
A STO INSTRUCTION* AND CONTINUE 
AS IF IT WERE STORED INITIALLY 

FIXED OR FLOATING 

VALUE OF EXPONENT AND TEST TO 

SEE IF EXPONENT = 1» IF IT IS 

EQUAL TO ONE* WE KNOW THAT 

THE VALUE OF THE 

ARGUMENT IS RETAINED AS THE 

ANSWER. 



TURN OF SENSE LIGHT 

BACK TO AIL ROUTINE 
EXP GREATER 1* 

PLACE 010000000000 IN LOCATION POS. 
COMPILE FIRST INST 
ZERO 

COMPILE A STQ INSTRUCTION 
AND THEN TRANSFER TO DETER- 
MINE THE VALUE OF THE 
EXPONENT. 
STORED* IN AC. IN MQ. EXP GREATER 2 



F3B06470 

F3B06480 

F3B06490 

F3B06500 

F3B06510 

F3B06520 

F3B06530 

F3B06540 

F3B06550 

F3S06560 

F3B06570 

F3B06580 

F3B06590 

F3B06600 

F3B06610 

F3B06620 

F3B06630 

F3B06640 

F3B06650 

F3B06660 

F3B06670 

F3B06680 

F3806690 

F3B06700 

F3B06710 

F3B06720 

F3B06730 

F3B06740 

F3B06750 

F3B06760 

F3B06770 

F3B06780 

F3B06790 

F3B06800 

F3B06810 

F3B06820 

F3B06830 

F3B06840 

F 3006650 

F3B06860 

F3B06870 

F 3B06 880 

F3B06890 

F3B06900 

F3B06910 

F3B06920 

F3B06930 

F3B06940 

F3B06950 

F3B06960 

F3B06970 

F3B06980 

F3B06990 

F3B07000 



W4 



u 



o 





o 

01261 


00000 





02170 






01262 


00000 





02225 






01263 


00000 





02324 






01264 


00000 





02325 






01265 


07400 


4 


00707 






01266 


00000 





02170 






01267 


00000 





02220 






01270 


00000 





02170 






01271 


00000 





02204 






01272 


-0 53400 


4 


02311 






01273 


1 77777 


4 


01274 


M13320 




01274 


-0 63400 


4 


02311 




D 


01275 


3 00000 


4 


01260 






01276 


0740O 


4 


00707 


M13330 




01277 


00000 





02170 






01300 


00000 





02225 






01301 


00000 





02324 






01302 


00000 





02325 






01303 


1 77776 


1 


00774 






01304 


-0 53400 


4 


02203 


M13500 




01305 


50000 


1 


02327 






01306 


34000 


4 


02273 


M13505 




01307 


02000 





07071 






01310 


02000 





01312 






01311 


02000 





07071 






01312 


-0 63400 


4 


02312 


M13510 




01313 


1 77776 


1 


01314 






01314 


-0 75400 


1 


00000 






01315 


34000 





02305 






01316 


02000 





01321 






01317 


07400 


4 


00341 






01320 


07400 


4 


00004 






01321 


-0 53400 


4 


02312 


M13520 




01322 


02000 


4 


01345 


M13525 




01323 


1 77776 


1 


01345 






01324 


1 77776 


1 


01345 






01325 


1 77776 


1 


01412 






©132* 


1 T^mtr 1 


01411 






01327 


1 77776 


1 


01412 






01330 


1 77776 


1 


02063 






01331 


1 77776 


1 


01513 






01332 


1 77776 


1 


01514 






01333 


1 77776 


1 


01514 






01334 


1 77776 


1 


01514 






01335 


1 77776 


1 


01514 






01336 


1 77776 


1 


01514 






01337 


1 77776 


1 


01513 






01340 


1 77776 


1 


01513 






01341 


1 77776 


1 


01514 






01342 


1 77776 


1 


01514 






01343 


1 77776 


1 


01513 






01344 


1 77776 


1 


01513 






01345 


07400 


4 


02156 


M13550 



o 



HTR M1C0N 

HTR M1ABC+8 

HTR M1CW+2 

HTR M1CW+3 

TSX CIT00.4 

HTR M1C0N 

HTR M1ABC+3 

HTR M1C0N 

HTR M1C0N+12 

LXO CC0UNT.4 

TXI M13320+l»4»-l 

SXO CC0UNT»4 

TXH M13300.4 

TSX CIT00»4 

HTR M1C0N 

HTR M1ABC+8 

HTR M1CW+2 

HTR M1CW+3 

TXI M12035»lt-2 

LXD M1CON+11.4 

CLA AIL#1 

CAS M1D+18»4 

TRA 0P1-2 

TRA M13510 

TRA OP 1-2 

SXD CCELL.4 

TXI M13510+2»lt-2 

PXD 0»1 

CAS M1ALWN 

TRA M13520 

TSX M10210*4 

TSX 4»4 

LXD CCELL»4 

TRA M13525+19f4 

TXI M13550»l»-2 

TXI M13550*l»-2 

TXI M13600.1.-2 

TXI M 135 9 5 rlrr-2 

TXI M13600»l»-2 

TXI M13900»l»-2 

TXI M13680»l»-2 

TXI M13681»l»-2 

TXI M13681»l»-2 

TXI M13681*l»-2 

TXI M13681»l.-2 

TXI M13681»l»-2 

TXI M13680»l»-2 

TXI M13680»l»-2 

TXI M13681»l»-2 

TXI M13681*l»-2 

TXI M13680»l»-2 

TXI M13680.1.-2 

XABS» ABS BRANCH 
TSX ERROR 1+1 t4 



INST COMPILING LOOP FOR FLOATING 
ARGUMENT* COMPILE A FMP 
INSTRUCTION. AND A LRS INSTR- 
UCTION. 

2ER0» FOR INTERNAL FMLA. NO. 

PLACE 43 INDECREMENT OF 

RELATIVE ADDRESS. 

LOAD N-2 IN IR 4 

DECREASE COUNT BY 1 

REPLACE CCOUNT 

BACK TO COMILE N-2 PRS. OF INST. 

COMPILE LAST INST FOR 

EXP GREATER OR EQUAL 2 



BACK TO STANDARD AIL ROUTINE 
SPECIAL OPS. LOAD COUNT OF 22 IN IR 4 
COMPARE SPECIAL OP. FUNCTION NAME 
IS THIRD WORD OF 1ST AIL ENTRY 
NEW ROUTINE HANDLING ADD. SUBROUTINES 
INCONSTANT AREA 

NEW ROUTINE HANDLING ADD. SUBROUTINES 
IRC TO CCELL 

DECREASE CONTENTS OF IR 1 BY 2 
END OF AIL REC 

2 IS COMP. OF NO. OF WORDS OF CUR- 
RENT AIL RECORD 
TO GET NEXT AIL RECORD 
NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4 

CHOOSE APPROPRIATE SPECIAL OP BRANCH 

tXABSr 

CABS) 

(XINT) 

fWF + 

(XFIX) 

(FLOAT) 

(XMOD) 

(MODI 

(XSIGN) 

(SIGN) 

(XMAXO ) 

(MAX1 

(XMAX1B) 

(MAXOB) 

(XMINOB) 

(MINIBO) 

(XMINIB) 

(MINOBO) 

INFO ON LOC OF ARG» CHECK FOR ALL IS 



F3B07010 
F3B07020 
F3B07030 
F3B07040 
F3B07O50 
F3B07060 
F3B07070 
F3B07080 
F3B07090 
F3B07100 
F3B07110 
F3B07120 
F3B07130 
F3B07140 
F3B07150 
F3B07160 
F3B07170 
F3B07180 
F3B07190 
F3B07200 
F3B07210 
F3B07220 
F3B07230 
F3B07240 
F3B07250 
F3B07260 
F3B07270 
F3B07280 
F3B07290 
F3B07300 
F3B07310 
F3807320 
F3B07330 
F3B07340 
F3BO7350 
F3B07360 
F3BG7370 

F3B07390 
F3B07400 
F3B07410 
F3B07420 
F3B07430 
F3B07440 
F3B07450 
F3B07460 
F3B07470 
F3B07480 
F3B07490 
F3B07500 
F3B07510 
F3B07520 
F3B07530 
F3B07540 



yi 



01346 





60100 





02324 




STO 


M1CW+2 


TO M1CW+2 


01347 


1 


77777 


1 


01350 




TXI 


M13555.1.-1 


INCREMENT IR 1. 


01350 





50000 


1 


02327 


M13555 


CLA 


AIL.l 


REL ADD AND TAG. IF ANY. 


01351 





60100 





02325 




STO 


M1CW+3 


TO M1CW+3 


01352 





50000 





02324 




CLA 


M1CW+2 


LOCATION OF ARGUMENT 


01353 





40200 





02241 




SUB 


M1ABC+20 


SUBTRACT PLUS SIGN 


01354 





10000 





01373 




TZE 


M13575 


ARG IN AC 


01355 





50000 





02324 




CLA 


M1CW+2 


LOCATION OF ARGUMENT 


01356 





40200 





02237 




SUB 


M1ABC+18 


ONE ASTERISK 


01357 





10000 





01401 




TZE 


M13580 
ARG STORED 


ARG IN MQ 


01360 





50000 





02325 




CLA 


M1CW+3 


RELATIVE ADDRESS AND TAG (IF ANY 


01361 


-0 


32000 





02207 




ANA 


M1CON+15 


ARG TAGGED. 


01362 





10000 





01366 




TZE 


M13570 


ARG NOT TAGGED 


01363 


-0 


76000 





00143 




MSE 


99 


END OF CHTG TABLE 


01364 





07400 


4 


01016 




TSX 


M12500»4 


CHANGE TAG TABLE SEARCH 


01365 





76000 





00143 




PSE 


99 




01366 





07400 


4 


00707 


M13570 


TSX 


CI TOO. 4 


COMPILE FIRST INST 


01367 





00000 





02322 




HTR 


M1CW 


INTERNAL FMLA NO. 


01370 





00000 





02215 




HTR 


M1ABC 


COMPILE ACLA INSTRUCTION 


01371 





00000 





02324 




HTR 


M1CW+2 




01372 





00000 





02325 




HTR 


M1CW+3 


















ARG IN AC*ISTORED) 


01373 





07400 


4 


00707 


M13575 


TSX 


CIT00»4 


COMPILE FIRST (SECOND) INST 


01374 





00000 





02170 




HTR 


M1CON 


ZERO 


01375 





00000 





02226 




HTR 


M1ABC+9 


SSP 


01376 





00000 





02170 




HTR 


M1CON 


ZERO 


01377 





00000 





02170 




HTR 


Ml CON 


ZERO 


01400 


1 


77777 


1 


00774 




TXI 


M12035.1.-1 
ARG IN MQ 


AIL ROUTINE 


01401 





50000 





02242 


M13580 


CLA 


M1ABC+21 


010000000000 


01402 





60100 





02324 




STO 


M1CW+2 


LOCATION OF ARG 


01403 





07400 


4 


00707 




TSX 


CIT00»4 


COMPILE FIRST INST 


01404 





00000 





02322 




HTR 


M1CW 


INT. FMLA NO. 


01405 





00000 





02224 




HTR 


M1ABC+7 


STQ 


01406 





00000 





02324 




HTR 


M1CW+2 




01407 





00000 





02325 




HTR 


M1CW+3 




01410 





02000 





01366 




TRA 


M13570 
XFIX. XINT» 


COMPILE INSTRUCTION AS IF STORED 
INT BRANCH 


01411 





76000 





00144 


M13595 


PSE 


100 


FLOATING PT 


01412 





07400 


4 


02156 


M13600 


TSX 


ERR0R1+1.4 


INFO ON LOC OF ARG 


01413 





60100 





02324 




STO 


M1CW+2 


TO M1CW+2 


«4414 


1 


77777 


1 


01415 




TXI 


M13605.1.-1 




01415 





50000 


1 


02327 


M13605 


CLA 


AIL.l 


REL ADD AND TAG. IF ANY. 


01416 





60100 





02325 




STO 


M1CW+3 


TO M1CW+3 














ft A 


U1 /-l.J-i-0 


i/trjiT?nM rip Aor,. 


01417 





50000 





V^S^H 




VLM 


riAv-ftTfc 


h.w^r"t 1 A wn wi rMww 


01420 





40200 





02241 




SUB 


M1ABC+20 


PLUS SIGN 


01421 





10000 





01440 




TZE 


M13630 


ARG IN AC 


01422 





50000 





02324 




CLA 


M1CW+2 


LOCATION OF ARG. 


01423 





40200 





02237 




SUB 


M1ABC+18 


ASTERISK 


01424 





10000 





01503 




TZE 


M13670 
ARG STORED 


ARG IN MQ 


01425 





50000 





02325 




CLA 


M1CW+3 


4TH WORD 


01426 


-0 


32000 





02207 




ANA 


M1C0N+15 


ARG TAGGED 



F3B07550 

F3B07560 

F3B07570 

F3B0758O 

F3B07590 

F3B07600 

F3B07610 

F3B07620 

F3B07630 

F3B07640 

F3B07650 

F3B07660 

F3B07670 

F3B07680 

F3B07690 

F3B07700 

F3B07710 

F3B07720 

F3B07730 

F3B07740 

F3B07750 

F3B07760 

F3B07770 

F3B07780 

F3B07790 

F3B07800 

F3B07810 

F3B07820 

F3B07830 

F3B07840 

F3B07850 

F3B07860 

F3B07870 

F3B07880 

F3B0789O 

F3B07900 

F3B07910 

F3B07920 

F3B07930 

F3B07940 

F3B07950 

F3B07960 

F3B0797Q 

F3B07980 

F3B07990 

F3808000 

F3B08010 

F3B08020 

F3B08030 

F3B08040 

F3B08050 

F3B08060 

F3B08070 

F3B08080 



u 



O 



o 



o 



01427 





10000 





01433 


TZE 


M13620 


NOT TAGGED 


01430 


-0 


76000 





00143 


MSE 


99 


END OF CHTG TABLE 


01431 





07*00 


4 


01016 


TSX 


M12500»4 


CHTG TABLE SEARCH 


01432 





76000 





00143 


PSE 


99 




01433 





07400 


4 


00707 


M13620 TSX 


CIT00»4 


COMPILE FIRST INST 


01434 





00000 





02322 


HTR 


M1CW 


INT. FMLA NO. IF ANY. 


01435 





00000 





02215 


HTR 


M1ABC 


CLA INSTRUCTION 


01436 





00000 





02324 


HTR 


M1CW+2 




01437 





00000 





02325 


HTR 


M1CW+3 
















ARG IN AC (STORED J 


01440 





07400 


4 


00707 


M13630 TSX 


CIT00»4 


COMPILE FIRST (SECOND) 


01441 





00000 





02170 


HTR 


Ml CON 


ZERO 


01442 





00000 





02227 


HTR 


M1ABC+10 


UFA OP CODE 


01443 





00000 





02243 


HTR 


M1ABC+22 


060000000000 


01444 





00000 





02170 


HTR 


Ml CON 


ZERO 


01445 


-0 


76000 





00144 


MSE 


100 


TEST FOR FLOATING PT. 


01446 





02000 





01450 


TRA 


M13640 


XINT 


01447 





02000 





01475 


TRA 


M13660 
XFIX* XINT» 


INT 
ARG STORED. IN AC* IN MQ 


01450 





07400 


4 


00707 


M13640 TSX 


CIT00.4 


COMPILE 4 INST 


01451 





00000 





02170 


HTR 


Ml CON 


ZERO 


01452 





00000 





02220 


HTR 


M1ABC+3 


LRS INSTRUCTION 


01453 





00000 





02170 


HTR 


Ml CON 


ZERO 


01454 





00000 





02170 


HTR 


M1C0N 


ZERO 


01455 





07400 


4 


00707 


TSX 


CIT00»4 




01456 





00000 





02170 


HTR 


Ml CON 




01457 





00000 





02230 


HTR 


M1ABC+11 


ANA 


01460 





00000 





02243 


HTR 


M1ABC+22 


060000000000 


01461 





00000 





02176 


HTR 


M1C0N+6 




01462 





07400 


4 


00707 


TSX 


CIT00»4 


+00000 1000000 


01463 





00000 





02170 


HTR 


M1C0N 




01464 





00000 





02223 


HTR 


M1ABC+6 


LLS 


01465 





00000 





02170 


HTR 


Ml CON 




01466 





00000 





02170 


HTR 


M1CQN 




01467 





07400 


4 


00707 


TSX 


CIT00t4 




01470 





00000 





02170 


HTR 


M1C0N 




01471 





00000 





02221 


HTR 


M1ABC+4 


ALS 


1T14TZ 


* troootr tr ozrro 


ttTR^lCON 




01473 





ooooo 





02203 


HTR 


M1C0N+11 


+000022000000 


01474 


l 


77777 


1 


00774 


TXI 


M12035tl»-1 


CONTINUE WITH ROUTINE 














INT* ARG STORED* IN AC* IN MQ 


01475 





07400 


4 


00707 


M13660 TSX 


CIT0Of4 


COMPILE 1 INST 


01476 





OOOOO 





02170 


HTR 


Ml CON 




01477 





OOOOO 





02231 


HTR 


M1ABC+12 


FAD 


01500 





OOOOO 





02243 


HTR 


M1ABC+22 


060000000000 


01501 





OOOOO 





02170 


HTR 


Ml CON 


ZERO 


01502 


1 


77777 


1 


00774 


TXI 


M12035»l»-1 
XFIX* XINT* 


CONTINUE WITH AIL ROUT 
INT* ARG IN MQ 


01503 





50000 





02242 


M13670 CLA 


M1ABC+21 


COMPILE FIRST INST 


01504 





60100 





02324 


STO 


M1CW+2 


010000000000 


01505 





07400 


4 


00707 


TSX 


CI TOO* 4 




01506 





OOOOO 





02322 


HTR 


M1CW 


INT. FMLA NO. 


01507 





OOOOO 





02224 


HTR 


M1ABC+7 


STQ 


01510 





OOOOO 





02324 


HTR 


M1CW+2 





INST 



F3B08090 
F3B08100 
F3B08110 
F3B08120 
F3B08130 
F3B08140 
F3B08150 
F3B08160 
F3B08170 
F3B08180 
F3B08190 
F3B08200 
F3B08210 
F3B08220 
F3B08230 
F3B06240 
F3B08250 
F3B08260 
F3B08270 
F3B08280 
F3B08290 
F3B08300 
F3B08310 
F3B08320 
F3B08330 
F3B08340 
F3B08350 
F3B08360 
F3B08370 
F3B08380 
F3B08390 
F3B08400 
F3B08410 
F3B08420 
F3B08430 
F3B08440 
F3B08450 

ri nflflf { f\ 

r JBW840U 
F3B08470 
F3B08480 
F3B08490 
F3B08500 
F3BO8510 
F3B08520 
F3B08530 
F3B08540 
F3B08550 
F3B08560 
F3B08570 
F3B08580 
F3B08590 
F3B08600 
F3B08610 
F3B08620 






01511 
01512 

01513 
01514 
01515 
01516 
01517 
01520 
01521 
01522 
01523 
01524 
01525 
01526 
01527 
01530 
01531 
01532 
01533 
01534 
01535 
01536 
01537 
01540 
01541 
01542 
01543 
01544 
01545 
01546 
01547 
01550 
01551 

01552 
01553 
01554 
01555 
01556 
01557 
01560 
01561 
01562 
01563 
01564 
01565 
01566 
01567 
01570 
01571 
01572 
01573 
01574 



00000 02325 
02000 01433 



76000 
50000 
40200 
10000 
50000 
60100 
77777 
50000 
60100 
77777 
75400 
34000 
02000 
07400 
07400 
50000 
0. 32000 
10000 
76000 
07400 
76000 
50000 
34000 
76100 
02000 
50000 
34000 
76100 
02000 
76000 
02000 




O 








07400 
00000 
O00O0 
00000 

ooooo 

07400 

ooooo 

Of «OOO0^ 
OOOOO 

ooooo 

07400 

ooooo 
ooooo 
ooooo 
ooooo 

50000 
60100 
50000 
60100 



00144 
02325 
02211 
02155 
02327 
02324 
01522 
02327 
02325 
01525 
OOOOO 
02305 
01532 
00341 
00004 
02325 
02207 
01540 
00143 
01016 
00143 
02201 
02312 
OOOOO 
01706 
02175 
02312 
OOOOO 
02122 
00144 
01604 

00707 
02322 
02232 
02170 
02170 
00707 
02170 
«22i* 
02324 
02325 
00707 
02170 
02223 
02170 
02170 
02170 
02322 
02233 
02323 



HTR M1CW+3 

TRA M13620 

ALL MUTIVARIATE 
M13680 PSE 100 
M13681 CLA A1L-2»1 

SUB M1C0N+17 

T2E ERR0R1 

CLA AlLtl 
RET3 STO M1CW+2 

TXI M13685»l»-1 
M13685 CLA AIL.l 

STO M1CW+3 

TXI M13690tl»-1 
M13690 PXO 0*1 

CAS M1ALWN 

TRA M13700 

TSX M10210.4 

TSX 4.4 
M13700 CLA M1CW+3 

ANA M1C0N+15 

TZE M13710 

MSE 99 

TSX M12500»4 

PSE 99 
M13710 CLA M1C0N+9 

CAS CCELL 
. NOP 

TRA M13770 

CLA M1C0N+5 

CAS CCELL 

NOP 

TRA M13950 

MSE 100 

TRA M13735 

XMOO BRANCH 

TSX CIT00»4 

HTR M1CW 

HTR M1ABC+13 

HTR M1C0N 

HTR M1CON 

TSX CIT0O»4 

HTR M1CON 

HTR MlAee+i 

HTR M1CW+2 

HTR M1CW+3 

TSX CIT00»4 

HTR Ml CON 

HTR M1ABC+6 

HTR M1C0N 

HTR M1C0N 

CLA M1C0N 

STO M1CW 

CLA M1ABC+14 

STO M1CW+1 



TRANSFER TO CONTINUE AS STORED 

FUNCTIONS 

PLACE SENSE SW. ON FOR FIXPT. 

TEST INTERNAL FORMULA NO. 

-377777777777. SHOULD BE AT 

LEAST TWO ARGUMENTS FOR MULTIVARIATE FCNS. 

LOCATION OF ARGUMENT 

LOCATION OF ARGUMENT 

ADJUST COUNT IN IR 1. 

REL ADD + TAG OF 

FIRST ARG TO M1CW+3 

END OF AIL REC 

2S COMPLIMENT OF NO. OF WORDS 

IN AIL RECORD 

BRING IN NEXT AIL REC. 

NO OF WORDS OF AIL REC NOT A MULTIPLE OF 4 

REL. ADDRESS + TAG. IF ANY 

4-000000002000 

FIRST ARG TAGGED 

END OF CHTG TABLE 

CHTG TABLE SEARCH 

SIGNt MODULO OR MAX. MIN 
COMPARE TO 10 

MAX OR MIN BRANCH 

SIGN OR MODULO* +000012000000 



SIGN BRANCH 
XMOD OR MOD 
FLOATING PT.» 



MOD BRANCH 



COMPILE 

XMOD. 

CLM 



LD© 
A 



3 INST. FOR MULTIVARIATE 



LLS 



ZERO. TO REPLACE l.S. 
INTERNAL FMLA NO. 
DVP OP CODE 



F3B08630 

F3B08640 

F3B08650 

F3B08660 

F3B08670 

F3B08680 

F3B08690 

F3B08700 

F3B08710 

F3B08720 

F3B08730 

F3B08740 

F3B08750 

F3B08760 

F3B08770 

F3B08780 

F3B08790 

F3BO8800 

F3B08810 

F3B08820 

F3BO8830 

F3B08840 

F3B08850 

F3B08860 

F3B08870 

F3B08880 

F3808890 

F3B08900 

F3B08910 

F3B08920 

F3BO8930 

F3B08940 

F3B08950 

F3B08960 

F3B08970 

F3B08980 

F3B08990 

F3B09000 

F3B09O10 

F3B09020 

F3B09O30 

F 3B090 40 

F3B09050 

F3B09060 

F3B09070 

F3B09080 

F3B09090 

F3B09100 

F3B09110 

F3B09120 

F3B09130 

F3B09140 

F3B09150 

F3B09160 



frl/ 



u 



o 



o 



o 



01575 
01576 
01577 
01600 
01601 
01602 
01603 

01604 
01605 
01606 
01607 
01610 
01611 
01612 
01613 
01614 
01615 
01616 
01617 
01620 
01621 
01622 
01623 
01624 
01625 
01626 
01627 
01630 
01631 
01632 
01633 
01634 
01635 
01636 
01637 
01640 
«t64t 
01642 
01643 
01644 
01645 
01646 
01647 
01650 
01651 
01652 
01653 
01654 
01655 
01656 
01657 
01660 
01661 



77776 
07400 
60100 
77777 
50000 
60100 
77777 



01576 
02156 
02324 
01601 
02327 
02325 
00762 



07400 
00000 
00000 
00000 
00000 
50000 
60100 
50000 
60100 
77776 
07400 
60100 
77777 
50000 
60100 
32000 
10000 
76000 
07400 
76000 
07400 
00000 
00000 
00000 
00000 
07400 
OOOOO 
00000 
00000 
00000 
07400 
00000 
00000 
OOOOO 
OOOOO 
07400 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
07400 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
07400 













1 




1 




-0 


-0 


























00707 
02322 
02250 
02324 
02325 
02324 
02320 
02325 
02321 
01616 
02156 
02324 
01621 
02327 
02325 
02207 
01630 
00143 
01016 
00143 
00707 
02170 
02234 
02324 
02325 
00707 
02170 
02224 
02242 
^ 021^0 
4 00707 
02170 
02215 
02242 
02170 
00707 
02170 
02227 
02243 
02170 
00707 
02170 
02231 
02243 
02170 
00707 



TXI 
M13725 TSX 
STO 
TXI 
M13730 CLA 
STO 
TXI 

M13735 TSX 
HTR 
HTR 
HTR 
HTR 
CLA 
STO 
CLA 
STO 
TXI 

M13741 TSX 
STO 
TXI 

M13745 CLA 
STO 
ANA 
TZE 
MSE 
TSX 
PSE 

M13755 TSX 
HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
n I K 
TSX 
HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
TSX 



M13725»lt-2 

ERR0R1+1»4 

M1CW+2 

M13730»l»-1 

AIL»i 

M1CW+3 

M12022»l»-1 

MOO BRANCH 

CIT00t4 

M1CW 

M1ABC+27 

M1CW+2 

M1CW+3 

M1CW+2 

3WD 

M1CW+3 

4W0 

M13741»l.-2 

ERR0R1+1.4 

M1CW+2 

M13745»l»-1 

AIL.l 

M1CW+3 

M1C0N+15 

M13755 

99 

M12500»4 

99 

CIT00»4 

M1C0N 

M1ABC+15 

M1CW+2 

M1CW+3 

CIT00»4 

M1C0N 

M1ABC+7 

M1ABC+21 

"Mi V.V/W 

CIT00*4 

M1C0N 

M1ABC 

M1ABC+21 

M1C0N 

CIT00»4 

Ml CON 

M1A8C+10 

M1ABC+22 

M1C0N 

CIT00»4 

M1CON 

M1ABC+12 

M1ABC+22 

M1C0N 

CIT00»4 



DECREASE IR 1 BY 2 

CHECK FOR END OF CALLING SEQUENCE 

SYMBOLIC ADDRESS OF 2ND ARGUM. 

REL ADD AND TAG Or 

SECOND ARG TO MXCW+3 

BACK TO END OF AIL ROUTINE 

COMPILE FIRST INST 

CLS A 

SAVE FIRST ARG IN 3RD WORD 
SAVE REL ADD AND TAG IN 4WD 

CHECK THAT NEXT WORD IS LAST ARG* 
SYMBOLIC AD OF 2ND ARG. 

REL ADD AND TAG OF 
SECOND ARG TO M1CW+3 
TEST IF TAGGED 
SECOND ARG TAGGED 
END OF CHTG TABLE 
BACK TO AIL ROUTINE 

COMPILE LAST 9 INSTS 

FDP B 



STQ 
010000000000 



CLA 
010000000000 



UFA 
060000000000 



FAD 
060000000000 



F3B09170 

F3B09180 

F3B09190 

F3B09200 

F3B09210 

F3B09220 

F3B09230 

F3B09240 

F3B09250 

F3B09260 

F3B09270 

F3B09280 

F3B09290 

F3B09300 

F3B09310 

F3B09320 

F3B09330 

F3B09340 

F3B09350 

F3B09360 

F3B09370 

F3B09380 

F3B09390 

F3B09400 

F3B09410 

F3B09420 

F3B09430 

F3B09440 

F3B09450 

F3B09460 

F3B09470 

F3B09480 

F3B09490 

F3B09500 

F3B09510 

F3B09520 

F3809530 

f^6«9540 

F3B09550 

F3809560 

F3B09570 

F3B09580 

F3B09590 

F3B09600 

F3B09610 

F3B09620 

F3B09630 

F3B09640 

F3B09650 

F3B09660 

F3B09670 

F3B09680 

F3B09690 

F3B09700 



.m 



01662 
01663 
01664 
01665 
01666 
01667 
01670 
01671 
01672 
01673 
01674 
01675 
01676 
01677 
01700 
01701 
01702 
01703 
01704 
01705 

01706 
01707 
01710 
01711 

01712 
01713 
01714 
01715 
01716 
01717 
01720 
01721 
01722 
01723 
01724 
01725 
01726 
01727 
01730 
01731 
01732 
01733 
01734 
01735 
01736 
01737 
01740 
01741 
01742 
01743 
01744 
01745 























1 



00000 
00000 
00000 
00000 
07400 
00000 

ooooo 

00000 

ooooo 

07400 

ooooo 
ooooo 
ooooo 
ooooo 

07400 

ooooo 
ooooo 
ooooo 
ooooo 

77777 



50000 
34000 
76100 
02000 










1 


1 



-0 


-0 
















07400 

ooooo 
ooooo 
ooooo 
ooooo 

50000 
60100 
77776 
50000 
60100 
77777 
50000 
60100 
32000 
10000 
76000 
07400 
76000 
50000 
34000 
76100 
02000 
07400 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
07400 



02170 
02222 
02242 
02170 
00707 
02170 
02216 
02242 
02170 
00707 
02170 
02225 
02324 
02325 
00707 
02170 
02231 
02320 
02321 
00774 



02200 
02312 
OOOOO 
02017 



00707 
02322 
02215 
02324 
02325 
1 02327 
02313 
01722 
02327 
02324 
01725 
02327 
02325 
O2207 
01734 
00143 
01016 
00143 
02200 
Q2312 
OOOOO 
02025 
00707 
02170 
02216 
02324 
02325 
00707 



HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
TXI 

M13770 CLA 
CAS 
NOP 
TRA 

TSX 
HTR 
HTR 
HTR 
HTR 

M13780 CLA 
STO 
TXI 

M13785 CLA 
STO 
TXI 

M13790 CLA 
STO 
ANA 
TZE 
MSE 
TSX 
PSE 

M13800 CLA 
CAS 
NOP 
TRA 
TSX 
HTR 
HTR 
HTR 
HTR 
TSX 



Ml CON 

M1ABC+5 

M1ABC+21 

M1C0N 

CIT00*4 

Ml CON 

M1ABC+1 

M1ABC+21 

M1C0N 

CIT0Q.4 

M1C0N 

M1ABC+8 

M1CW+2 

M1CW+3 

CIT00i4 

Ml CON 

M1ABC+12 

3WD 

4WD 

M12035»l»-1 

MAX. MIN BRANCH 

M1C0N+8 

CCELL 

M13855 

ALL MAX ROUTINES 

CIT00»4 

M1CW 

M1ABC 

M1CW+2 

M1CW+3 

AIL.l 

ENDT 

M13785.1.-2 

AIL»1 

M1CW+2 

M1379Q.1.-1 

AIL.l 

M1CW+3 

M1C0N+15 

M13800 

99 

M12500.4 

99 

M1C0N+8 

CCELL 



STO 
060000000000 



LDQ 
060000000000 



FMP 

B 



FAD 
A 



AIL ROUTINE 

+ 000004000000 
FOR MIN BRANCH 

MIN BRANCH 

COMPILE FIRST INST 

CLA Al 

SYMBOLIC ADDRESS OF FIRST ARGUMENT 

RELATIVE ADDRESS + TAG. IF ANY 

END MARK. IF ANY. TO ENDT. THIS WILL 

BE ALL IS IF END. 

SYMBOLIC ADDRESS OF ITH ARG. I EQUAL 2... 
TO M1CW+2 

REL ADD AND TAG OF 

ITH ARG TO M1CW+3 

TEST IF ITHARGUMENT TAGGED 

ITH ARG NOT TAGGED 

END OF CHTG TABLE 

CHTG TABLE SEARCH 

000004000000 

COMPARE FOR MINIMUM BR» 



M13860 

CIT00.4 

Ml CON 

M1ABC+1 

M1CW+2 

M1CW+3 

CI TOO .4 



MIN BRANCH 

COMPILE 3 INSTRUCTIONS FOR 

ITH ARG 

LDQ 

ITH ARGUMENT I=2»«...N 



F3B09710 
F3B09720 
F3B09730 
F3B09740 
F3B09750 
F3B09760 
F3B09770 
F3B09780 
F3B09790 
F3B09800 
F3B09810 
F3B09820 
F3B09830 
F3B09840 
F3B09850 
F3B09860 
F3B09870 
F3B09880 
F3B09890 
F3B09900 
F3B09910 
F3B09920 
F3B09930 
F3B09940 
F3B09950 
F3B09960 
F3B09970 
F3B09980 
F3B09990 
F3B10000 
F3B10010 
F3B10020 
F3B10O30 
F3B10040 
>*N F3B10050 
F3B10060 
F3B10070 
F3B10080 
F3B10090 
F3B10100 
F3B10110 
F3B10120 
F3BlOi30 
F3B10140 
F3B10150 
F3B10160 
F3B10170 
F3B10180 
F3B10190 
F3B10200 
F3B10210 
F3B10220 
F3B10230 
F3B10240 



u 



O 



r\ 



o 



01746 
01747 
01750 
01751 
01752 
01753 
01754 
01755 
01756 
01757 
01760 
01761 
01762 
01763 
01764 
01765 
01766 
01767 
01770 
01771 
01772 
01773 
01774 
01775 
01776 
01777 
02000 
02001 
02002 
02O03 
02004 
02005 
02006 
G2O07 
02010 
02011 
0201 2 
02013 
02014 
02015 
02016 

02017 
02020 
02021 
02022 
02023 
02024 
02025 
02026 
02027 
02030 
02031 
02032 





O 










1 

-0 






-0 

1 





















1 
















00000 
00000 

ooooo 

00000 
07400 

ooooo 
ooooo 
ooooo 
ooooo 

50000 
40200 
10000 
77777 
75400 
34000 
02000 
07400 
07400 
02000 
76000 
77777 
50000 
77100 
76000 
02000 
07400 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
07400 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
07400 

ooooo 
ooooo 
ooooo 
ooooo 

77777 

07400 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
02000 
07400 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
07400 



02170 
02235 
02245 
02177 
00707 
02170 
02215 
02324 
02325 
02313 
02211 
01771 
01763 
OOOOO 
02305 
01717 
00341 
00004 
01717 
00144 
00774 
02312 
00022 
00001 
01440 
00707 
02170 
02220 
02170 
02203 
00707 
02170 
02244 
02243 
02170 
00707 
02170 
02231 
02243 
02170 
00774 

00707 
02322 
02216 
02324 
02325 
01717 
00707 
02170 
02215 
02324 
02325 
00707 



HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
CLA 
SUB 
TZE 
TXI 

M13820 PXD 
CAS 
TRA 
TSX 
TSX 
TRA 

M13830 MSE 
TXI 
CLA 
ARS 
LBT 
TRA 
TSX 
HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
TXI 

M13855 TSX 
HTR 
HTR 
HTR 
HTR 
TRA 

M13860 TSX 
HTR 
HTR 
HTR 
HTR 
TSX 



M1C0N 

M1ABC+16 

M1ABC+24 

M1C0N+7 

CIT00»4 

Ml CON 

M1ABC 

M1CW+2 

M1CW+3 

ENDT 

M1C0N+17 

M13830 

M13820»l*-1 

0*1 

M1ALWN 

M13780 

M10210*4 

4»4 

M13780 

100 

M12035»l»-1 

CCELL 

18 

M13630 

CIT00»4 

M1C0N 

M1ABC+3 

Ml CON 

M1C0N+11 

CIT00.4 

Ml CON 

M1ABC+23 

M1A0C+22 

Ml CON 

CIT00»4 

M1C0N 

M1ABC+12 

M1ABC+22 

Ml CON 

M12035*l«-1 

ALL MIN ROUTINE 

CIT00»4 

M1CW 

M1ABC+1 

M1CW+2 

M1CW+3 

M13780 

CIT00»4 

M1C0N 

M1ABC 

M1CW+2 

M1CW+3 

CIT0O*4 



TLQ 

+170000000000 

+000002000000 



CLA AI 



I=N 
-377777777777 

LAST ARGUMENT 

END OF AIL REC 

2S COMPL. OF NO. OF WORS OF AIL REC 

TO COMPILE INSTR. FOR ALL ARGUMENTS 

PACK. TO READ NEXT AIL RECORD 

NO OF WORDS OF AIL REC NOT A MULTIPLE OF 

TEST FOR FIXED PT AND TURN OFF SW. 
OUT FOR XMAXO* MAX1. XMINOt MINI 
NO. OF FUNCTION FIXED MAX. 

TEST FOR FLOATING MAX OR MIN 
XMAX1* XMIN1» FIXED MAX OR MIN 
COMPILE LAST 3 INSTRUCTIONS 
FOR MAXO» MI NO 
LRS 



18 



ORA 
066000000000 



FAD 
060000000000 

BACK TO END OF AIL ROUTINE 
COMPILE FIRST INST 

COMPILE FIRST INST 

LDQ Al 



TO STORE NEEDED INFORMATION 
COMPILE 3 INST FOR 
ITH ARG 
CLA A2....N 



F3B10250 

F3B10260 

F3B10270 

F3B10280 

F3B10290 

F3B10300 

F3B10310 

F3B10320 

F3B10330 

F3B10340 

F3B10350 

F3B10360 

F3B10370 

F3B10380 

F3B10390 

F3B10400 

F3B10410 

F3B10420 

F3B10430 

F3B10440 

F3B10450 

F3B10460 

F3B10470 

F3B10480 

F3B10490 

F3B10500 

F3B10510 

F3B10520 

F3B10530 

F3B10540 

F3B10550 

F3B10560 

F3B10570 

F3B10580 

F3B10590 

F3B10600 

F 3B10610 

F3B10620 

F3B10630 

F3B10640 

F3B10650 

F3B10660 

F3B10670 

F3B10680 

F3B10690 

F3B10700 

F3B10710 

F3B10720 

F3B10730 

F3B10740 

F3B10750 

F3610760 

F3B10770 

F3B10780 



& 



02033 





00000 





02170 




HTR 


M1C0N 




02034 





00000 





02235 




HTR 


M1ABC+16 


TLQ 


02035 





00000 





02245 




HTR 


M1ABC+24 


+000002000000 


02036 





00000 





02177 




HTR 


M1C0N+7 


+170000000000 


02037 





07400 


4 


00707 




TSX 


CIT00»4 




02040 





00000 





02170 




HTR 


Ml CON 




02041 





00000 





02216 




HTR 


M1ABC+1 


LDQ A2».».N 


02042 





00000 





02324 




HTR 


M1CW+2 




02043 





00000 





02325 




HTR 


M1CW+3 




02044 


Q 


50000 





02313 




CLA 


ENDT 


I=N 


02045 





40200 





02211 




SUB 


M1C0N+17 


-377777777777 


02046 





100O0 





02050 




TZE 


M13880 


LAST ARGUMENT 


02047 


1 


77777 


1 


01763 




TXI 


M13820,lt~l 


TO TEST IF END OF AIL RECORD. 


02050 





07400 


4 


00707 


M13880 


TSX 


CIT00.4 


COMPILE TWO INST 


02051 





00000 





02170 




HTR 


Ml CON 




02052 





00000 





02224 




HTR 


M1ABC+7 


STQ 


02053 





00000 





02242 




HTR 


M1ABC+21 


010000000000 


02054 





00000 





02170 




HTR 


Ml CON 




02055 





07400 


4 


00707 




TSX 


CIT0O»4 




02056 





00000 





02170 




HTR 


Ml CON 




02057 





00000 





02215 




HTR 


M1ABC 


CLA 


02060 





00000 





02242 




HTR 


M1ABC+21 


010000000000 


02061 





00000 





02170 




HTR 


M1C0N 




02062 





02000 





01771 




TRA 


M13830 
FLOAT BRANCH 


TEST SW» 4 AND GO TO VARIOUS 


02063 





07400 


4 


02156 


M13900 


TSX 


ERR0R1+1»4 


TO TEST IF ONLY ONE ARGUMENT 


02064 





60100 





02324 




STO 


M1CW+2 


SYMBOLIC LOCATION OF ARGUMENT 


02065 


1 


77777 


1 


02066 




TXI 


M13905#l»-1 




02066 





50000 


1 


02327 


M13905 


CLA 


AIL»1 


REL ADD AND TAGf IF ANY. 


02067 





60100 





02325 




STO 


M1CW+3 


TO M1CW+3 


02070 





50000 





02324 




CLA 


M1CW+2 




02071 





40200 





02241 




SUB 


M1ABC+20 


PLUS SIGN 


02072 





10000 





02111 




TZE 


M13915 


ARG IN AC 


02073 





50000 





02324 




CLA 


M1CW+2 




02074 





40200 





02237 




SUB 


M1ABC+18 


ASTERISK 


02075 





10000 





02112 




TZE 


M13920 
ARG STORED 


ARG IN MQ 


02076 





50000 





02325 




CLA 


M1CW+3 


RELATIVE ADDRESS AND TAG, IF i 


02077 


-0 


32000 





02207 




ANA 


M1C0N+15 


ARG TAGGED 


02100 





10000 





02104 




TZE 


M13910 


ARG NOT TAGGED 


02101 


-0 


76000 





00143 




MSE 


99 




02102 





07400 


4 


01016 




TSX 


M12500.4 


CHT6 TABLE SEARCH 


©510* 


G 


7600O O 00143 




PS£ 


99 




02104 





07400 


4 


00707 


M13910 


TSX 


CIT00.4 




02105 





00000 





02322 




HTR 


M1CW 




02106 





00000 





02215 




HTR 


M1ABC 


CLA A 


02107 





00000 





02324 




HTR 


M1CW+2 




02110 





00000 





02325 




HTR 


M1CW+3 


















ARG IN AC (STORED} 


02111 





02000 





01777 


M13915 


TRA 


M13830+6 
ARG IN MQ 


TO COMILE 3 INSTR* AS MAX OR 1 


02112 





50000 





02242 


M13920 


CLA 


M1ABC+21 


010000000000 


02113 





60100 





02324 




STO 


M1CW+2 


SYMBOLIC LOCATION 


02114 





07400 


4 


00707 




TSX 


CIT00»4 





F3B10790 

F3B10800 

F3B10810 

F3B10820 

F3B10830 

F3B10840 

F3B10850 

F3B10860 

F3B10870 

F3B10880 

F3B10890 

F3B10900 

F3610910 

F3B10920 

F3B10930 

F3B10940 

F3B10950 

F3B10960 

F3B10970 

F3B10980 

F3B10990 

F3B11000 

F3B11010 

F3B11020 

F38H030 

F3B11040 

F3BH050 

F3B 11060 

F3B11070 

F3B11080 

F3BU090 

F3BU100 

F3B11110 

F3B11120 

F3B11130 

F3BU140 

F3B11150 

F3B11160 

F3B11I70 

F3B11180 

F3B11190 

F3BU20Q 

F3B11210 

F3B11220 

F3B11230 

F3B11240 

F3B11250 

F3B11260 

F3BH270 

F3B11280 

F3BH290 

F3B11300 

F3B11310 

F3B11320 



u 



u 



o 



o 



02115 
02116 
0211? 
02120 
02121 

02122 
02123 
02124 
02125 
02126 
02127 
02130 
02131 
02132 
02133 
02134 
02135 
02136 
02137 
02140 
02141 
02142 
02143 
02144 
02145 
02146 
02147 
02150 
02151 
02152 
02153 
02154 
Ji2X&5 
02156 
02157 
02160 
02161 
02162 
02163 
02164 
02165 
02166 
02167 
02170 
02171 
02172 
02173 
02174 
02175 
02176 
02177 
02200 
02201 



00000 02322 

00000 02224 

00000 02324 

00000 02325 

02000 02104 



07400 
00000 
00000 
00000 
00000 
77776 
07400 
60100 
77777 
50000 
60100 
-0 32000 
10000 
76000 
07400 
76000 
07400 
00000 
00000 
00000 
00000 









1 




1 






00707 
02322 
02215 
02324 
02325 
02130 
02156 
02324 
02133 
02327 
02325 
02207 
02142 
00143 
01016 
00143 
00707 
02170 
02216 
02324 
02325 



M13950 

M13955 
M13960 



M13965 



07400 4 00707 
00000 02170 
00000 02223 
00000 02170 
00000 02170 
77777 1 00774 



Q a74Q0 4 0OQ04 



02325 

02211 

02163 

1 02327 

4 00001 

4 00004 



1 





50000 

40200 
-0 10000 

500O0 

02000 

07400 
+000000000005 
+000000000006 
+000000000000 
+000000000000 
+000000000000 
+000000000001 
+000000000002 
+000000000003 
+000000000004 
+000012000000 
+000001000000 
+000002000000 
+000004000000 
+000010000000 



ERROR 1 
ERR1 



ERROR 2 
M1ECTR 



HTR 
HTR 
HTR 
HTR 
TRA 

TSX 
HTR 
HTR 
HTR 
HTR 
TXI 
TSX 
STO 
TXI 
CLA 
STO 
ANA 
TZE 
MSE 
TSX 
PSE 
TSX 
HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
TXI 
TSX 
CLA 
SUB 
TNZ 
CLA 
TRA 
TSX 
DEC 



M1CW 

M1ABC+7 

M1CW+2 

M1CW+3 

M13910 

XSIGN* SIGN 

CIT00.4 

M1CW 

Ml ABC 

M1CW+2 

M1CW+3 

M13955»l»-2 

ERR0R1+1»4 

M1CW+2 

M13960»l*-1 

AIL.l 

M1CW+3 

M1C0N+15 

M13965 

99 

M12500»4 

99 

CIT00»4 

M1C0N 

M1ABC+1 

M1CW+2 

M1CW+3 

CIT00»4 

Ml CON 

M1ABC+6 

Ml CON 

Ml CON 

M12035»l»-1 

4*4 

AIL-2.1 

M1C0N+17 

ERR0R2 

AIL.l 

1»4 

4»4 

5*6*0*0 



STQ 

TO COMPILE A CLA INSTRUCTION 
BRANCH 

CLA Al 



DECREASE IR 1 BY -2 
TEST IF ONLY 2 ARGUMENTS 
SYMBOLIC ADDRESS. 

REL ADD AND TAG* IF ANY. TO 
M1CW+3 

ARG TAGGED 
ARG NOT TAGGED 

BACK TO CHTG TABLE SEARCH 



LDQ A2 



LLS 



AIL ROUTINE 

A MULT I VARIATE FN* HAS ONL Y 1 VARIABLE 

INT. FORMULA NO. OF ARGURMENT 

-377777777777 

SHOULD BE ALL IS* FOR PARTICULAR ROUTINE 

LOCATION OF ARGUMENT 

BACK TO CONTINUE 

A UNIVARIATE OR 2VAR. ROUTINE NOT CORRECT 



M1C0N DEC 0.1*2. 3. 4,10617, 1817. 2B17,4B17,8B17*17B17*18B17.35B17 



F3B11330 
F3B11340 
F3B11350 
F3B11360 
F3B11370 
F3B11380 
F3B11390 
F3B11400 
F3B11410 
F3B11420 
F3B11430 
F3811440 
F3B11450 
F3B11460 
F3B11470 
F3B11480 
F3B11490 
F3B11500 
F3B11510 
F3B11520 
F3B11530 
F3B11540 
F3B1I550 
F3B11560 
F3B11570 
F3B11580 
F3B11590 
F3B11600 
F3B11610 
F3B11620 
F3B11630 
F3B11640 
F3B11650 
F3BU660 
F3B11670 
F3B11680 
F3B11690 
F3B11700 
F3B11710 
F3B11720 
F3B11730 



F3B11740 



?; 



02202 +000021000000 

02203 +0OO0220O0OOO 

02204 +000043000000 

02205 +077777000000 

02206 +000000077777 

02207 +000000002000 

02210 +000000000370 

02211 -377777777777 

02212 +000001000001 

02213 +000000000312 

02214 +000000000314 

02215 234321000000 

02216 432450000000 

02217 444770000000 

02220 435162000000 

02221 214362000000 

02222 624346000000 

02223 434342 000000 

02224 626350000000 

02225 264447000000 

02226 626247000000 

02227 642621000000 

02230 214521000000 

02231 262124000000 

02232 234344000000 

02233 246547000000 

02234 262447000000 

02235 634350000000 

02236 516322000000 

02237 540000000000 

02240 005400000000 

02241 200000000000 

02242 OlOOOQva-juaO 

02243 .060000600000 

02244 465121000000 

02245 +170000000000 

02246 626724000000 

02247 666322 000000 

02250 234362000000 

02251 672122626060 

02252 212 2626O6O60 

02253 673145636060 

02254 314563606060 
^2255 672631676060 

02256 264346216360 

02257 674446246060 

02260 444624606060 

02261 676231274560 

02262 623127456060 

02263 674421670060 

02264 442167016060 

02265 674421670160 

02266 442167006060 

02267 674431450060 



OCT 77777000000* 77777. 2000»370»777777777777»1000001*312. 314 



F3BU750 



M1ABC BCD 7CLAO00LDQO0OMPY00OLRS0Q0ALS000STO00OLLSO00 



F3B11760 



BCD 7STQOOOFMP0OOSSPO0OUFA0O0ANA0OOFAD000CLMO00 



F3B11770 



BCD 7DVPOO0FDPO0OTLQOO0RTB0O0*OO00OO*O000+00O00 



F3B11780 



BCD 31000006000000RAOOO 



OCT 170000000000 

BCD 3SXD0OOWTB000CLSO00 



MID BCD 7XABS ABS XINT INT XF1X FLOAT XMOD 



F3B11790 



F3BUSO0 
F3BliStO 



F3B11420 



BCD 4M0D XSIGN SIGN XMAXO 



BCD 7MAX1 XMAX1 MAXO XMINO MINI XMIN1 MINO 



F3B11830 



F3B11840 



tf< 



u 



n 



n 



02270 
02271 
02272 
02273 
02274 
02275 
02276 
02277 
02300 
02301 
02302 
02303 
02304 
02305 
02306 
02307 
02310 
02311 
02312 
02313 
02314 
02315 
02316 
02317 
02320 
02321 



443145016060 
674431450160 
443145006060 
00000 00000 



00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 



02326 00000 



00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
02322 
00000 
02327 
05263 
05737 
05741 
02327 
XT24T3 
02637 
03003 
07073 
00030 



COMBOX TAG OR INT FMLA NO OF FORTAG ENTRY DURING CHTG EDIT 

CHTGL 2S COMP OF NO OF WORDS IN CHTG TABLE 

CHTGE1 2S COMP OF CUR. ENTRY POINT IN CHTG TABLE 

CHTGE2 2S COMP OF NEXT ENTRY POINT IN CHTG TABLE 

CHTGFN INT FMLA NO APPEARING IN CURRENT CHTG TABLE BLOCK 

SXTXL LENGTH OF SXTX TABLE 

SXLOC LOCATION WORD OF CURRENT DO INST 

CBOX IRC DURING CHTG TABLE SEARCH* SXTX TABLE SEARCH 

TAGBOX TAG OF CUR AIL INST DURING CHTG TABLE SEARCH 

M1DOWN 2S COMP OF NO OF WORDS IN CUR DO REC 

M1ALWN 2S COMP OF NO OF WORDS IN CUR AIL REC 

M1TRC NO OF REC READS 

M1D0FN INT FMLA NO OF CUR BLOCK OF DO INST 

M1ALFN INT FMLA NO OF CUR BLOCK OF AIL INST 

CCOUNT COUNT NO OF PAIRS OF MPY.LRS INST FOR EXP ROUTINE 

CCELL IND SPECIAL OP ROUTINE 

ENDT IND APPEARANCE OF END MARK IN MAX»MIN ROUTINES 

E1C CELL FOR SAVING MQ 

E2C CELL FOR SAVING IRA 

E3C CELL FOR SAVING IRB 

BBOX 2S COMP OF NO OF WORDS ALREADY ENTERED IN BLOCK 

3WD TEMP STORAGE FOR THID WD OF COMPILED INST 

^WD TEMP STORAGE FORFOURTH WD OF COMPILED INST 

M1CW BSS 4 FOUR WORD INST SPACE FOR COMPILING 

PZE LENGTH OF FORTAG TABLE 

FORTAG BSS 1500 AIL»DO»CIB LATER SHARE THIS BLOCK 

UCHT6 BSS 300 

ERAS BSS 2 ORIGEN + SXTX LENGTH* SXTX* CHTG LENGTH 

CHTG BSS 600 

AIL SYN FORTAG 

15a SYN FORTAG+100 

CIB SYN FORTAG+200 

SXTX SYN FORTAG+300 

OP1 SYN 3643 
END 24 



F3B11850 
F3B11860 
F3BU870 
F3B11880 
F3B11890 
F3B11900 
F3B11910 
F3B11920 
F3B11930 
F3B11940 
F3B11950 
F3B11960 
F3B11970 
F3B11980 
F3B11990 
F3B12000 
F3B12010 
F3B12020 
F3B12030 
F3B12040 
F3B12050 
F3B12060 
F3B12070 
F3B12080 
F3B12090 
F3B12100 
F3B12110 
F3B12120 
F3B12130 
F3B12140 
F3B121S ^ 
F3B12160 
F3B12170 

F3B13420 



I'rl 



1 V 


1 


FIN 




















1 


REM MASTER RECORD CARD = 


FN058 










1 














MASTER RECORD CARD = FN058 
THE FOLLOWING PROGRAM CONSTITUTES THE SECOND SECTION OF THE 
MERGE. IT PREPARES THE TIFGO FILE OF COMPILED INSTRUCTIONS 
- I.E.* THE INSTRUCTIONS WHICH ARE NEEDED TO COMPLETE THE 


F3B00010 
F3B00020 
F3B00030 




















TRANSLATION OF 


CONTROL FORMULAS AS WELL AS THOSE WHICH BECOMEF3B00040 




















NECESSARY AS A 


RESULT OF THE INTERRELATION BETWEEN CONTROL 


F3B00050 




















FORMULAS AND DO FORMULAS - POR LATER MERGING WITH THE FILE 


DFF3B00060 




















INSTRUCTIONS CREATED IN THE FIRST SECTION OF THE MERGE 


F3B00070 














00030 




ORG 


24 
POSITIONING OF 


TAPE 2* TAPE 3* TAPE 4 


F3B00080 
F3B00090 






00030 





53400 


4 


02274 


M20000 


LXA 


M2CON»4 


PLACE A ZERO IN IR 4 


F3B00100 






00031 


1 


00013 


4 


00032 


COR1 


TXI 


M200O0+2.4tll 


ADD 13 FOR SPACING TAPE TO TIFGO TABLE 


F3B00110 






00032 





76200 





00222 




RDS 


146 


POSITION TAPE 2 TO TIFGO TABLE* BY SPACING 


F3B00120 






00033 


2 


00001 


4 


00032 




TIX 


M20000+2»4*l 


OVER 7 RECORDS 


F3B00130 






00034 





77200 





00223 




REW 


147 


REWIND TAPE 3 


F3B00140 






00035 





77200 





00224 




REW 


146 

PROGRAM TO REAC 


REWIND TAPE 4 
> TRASTO FROM DRUM 


F3B00150 
F3B00160 






00036 





53400 


4 


02330 




LXA 


M2ECTR»4 


LOAD COUNT OF 5 FOR ERROR ROUTINE 


F3B00170 






00037 





76200 





00303 


RDRA2 


RDR 


3 


SELECT DRUM 3 


F3B00180 






00040 





46000 





02332 




LDA 


0456 


LOCATE DRUM ADDRESS OF TRASTO 


F3B00190 






00041 





70000 





02345 




CPY 


TRSWC 


WORD COUNT 


F3B00200 






00042 





70000 





02346 




CPY 


WCCHS 


CHECK SUM 


F3B00210 






00043 





50000 





02345 




CLA 


TRSWC 


DOES WORD COUNT AGREE 


F3B00220 






00044 





40200 





02346 




SUB 


WCCHS 


WITH ITS CHECK SUM 


F3B00230 






00045 





10000 





00050 




TZE 


RDRA1 


YES 


F3B00240 






00046 


2 


00001 


4 


00037 




TIX 


RDRA2»4*1 


NO* TRY 4 MORE TIMES 


F3B00250 






00047 





07400 


4 


00004 




TSX 


4*4 


WORD COUNT MOT EQUAL TO CHECK SUM 


F3B00260 






00050 





50000 





02345 


RDRA1 


CLA 


TRSWC 


ARE THERE ENTRIES IN TRASTO 


F3B00270 






00051 





10000 





00321 




TZE 


RTTOO 


NO 


F3B00280 






00052 





40000 





02333 




ADD 


ORTRST 


INITIAL LOCATION OF TRASTO WORK AREA 


F3B00290 






00053 





62100 





00062 




STA 


RDRB1 


INITIALIZE ADDRESSES OF CPY INSTR. 


F3B00300 






00054 





62100 





00070 




STA 


RDRB2 




F3B00310 






00055 





62100 





00100 




STA 


RDRB5 




F3B00320 






00056 





53400 


4 


02330 




LXA 


M2ECTR.4 


LOAD COUNT OF 5 FOR ERROR ROUTINE 


F3B00330 






00057 





76200 





00303 


RDRA3 


RDR 


3 


SELECT DRUM 3 


F3B00340 






00060 





53400 


1 


02345 




LXA 


TRSWC .1 


PLACE WORD COUNT IN IR 1 


F3B00350 






00061 





46000 





02336 




LDA 


0460 


INITIAL DRUM ADDRESS 


F3B00360 






00062 


o 


70000 


1 


OOOOO 


RORBl 


CPY 


e»i 


ANO COPY ALL. OF THE TRASTO 


F36OO370 






00063 


2 


00001 


1 


00062 




TIX 


RDRB1»1»1 


ENTRIES. 


F3BO0380 






00064 





76000 




1 


00000 

/\ i -a /. c: 




CLM 

1 VA 


TP<iWr a 1 


CLEAR ACC. 

NEW WORD COUNT IN IR 1 


F3B00390 
F3B00400 






00065 
00066 


0- 
-3 


53400 
00000 


1 

1 


00074 


RDRB3 


LAM 

TXL 


RDRB4»1*0 


■ 9 ^ ft trVfrV ^* v w* • i • * * * ** * 

CHECK COUNT DURING LOOP 


F3B00410 






00067 





53400 


2 


02331 




LXA 


L<3)»2 


PLACE COUNT OF 3 IN IR 2 IN ORDER TO 


F3B00420 






00070 





36100 


1 


00000 


RDRB2 


ACL 


0*1 


ADD LOGICALLY EVERYTHREE TRASTO 


F3BO0430 






00071 


-2 


00001 


1 


00074 




TNX 


RDRB4»ltl 


WORDS* COUNT ALL ENTRIES 


F3B00440 






00072 


2 


00001 


2 


00070 




TIX 


RDRB2»2.1 


IR 2 USED TO COUNT EVERY THREE 


F3B00450 






00073 


1 


77777 


1 


00066 




TXI 


RDRB3*1.-1 


WORDS* SKIP OVER 4TH WORD. 


F3B00460 






00074 





60200 





02347 


RDRB4 


SLW 


CHS1 


AFTER ALL WORDS ARE COUNTED 


F3B00470 






00075 





76000 





00000 




CLM 




CLEAR ACC 


F3B00480 






00076 





53400 


1 


02345 




LXA 


TRSWC »1 


WORD COUNT OF TRASTO ENTRIES 


F3B00490 






00077 


1 


77775 


1 


00100 




TXI 


RDRB5.1»-3 


ADD OLD CHECKS SUMS* AND 


F3B00500 






00100 





36100 


1 


00000 


RDRB5 


ACL 


0*1 


ACCUMULATE SUM LOGICALLY 


F3B00510 


t/ ;<■• 




o 


















o 





n 



O 



00101 


2 


00004 


1 


00100 




TIX 


RDRB5»1»4 


00102 





60200 





02350 




SLW 


CHS 2 


00103 





50000 





02347 




CLA 


CHS1 


00104 





40200 





02350 




SUB 


CHS2 


00105 





10000 





00110 




TZE 


STRS 


00106 


2 


00001 


4 


00057 




TIX 


RDRA3.4»1 


00107 





07400 


4 


00004 


C0R3 


TSX 


4t4 
PROGRAM T 


00110 





50000 





02345 


STRS 


CLA 


TRSWC 


00111 





40000 





02333 




ADD 


TRSORG 


00112 





62100 





00135 




STA 


A4 


00113 





62100 





00140 




STA 


Al 


00114 





62100 





00144 




STA 


A3 


00115 





62100 





00154 




STA 


Bl 


00116 





62100 





00162 




STA 


B5 


00117 





62100 





00174 




STA 


C3 


001 20 





62100 





00204 




STA 


D2 


00121 





62100 





00210 




STA 


03 


00122 





62100 





00220 




STA 


E2 


00123 





62100 





00226 




STA 


E4 


00124 





62100 





00240 




STA 


F3 


00125 


-0 


63400 





02337 




SXD 


1BOX*0 


00126 


-0 


63400 





02340 




SXD 


2BOX*0 


00127 


-0 


63400 





02341 




SXD 


3BOX»0 


00130 


-0 


63400 





02342 




SXD 


4B0X*0 


00131 


-0 


63400 





02343 




SXD 


5BOX.0 


00132 


-0 


63400 





02344 




SXD 


6BOX*0 


00133 





53400 


1 


02345 




LXA 


TRSWC. 1 


00134 


1 


77776 


1 


00135 




TXl 


A4»l*-2 


00135 





50000 


1 


00000 


A4 


CLA 


Otl 


00136 


-0 


12000 





00203 




TMI 


Dl 
ENTRY IS 


00137 


1 


00002 


1 


00140 




TXl 


Al»l»2 


00140 





50000 


1 


00000 


Al 


CLA 


0*1 


«©*41 


* 


«©0O O 


00*5* 




m 


6* 
















ENTRY IS 


00142 





53400 


4 


02277 




LXA 


LJ41.4 


00143 


-0 


53400 


2 


02341 




LXD 


3 BOX* 2 


00144 


-0 


50000 


1 


00000 


A3 


CAL 


0*1 


00145 





60200 


2 


04030 




SLW 


TYPE3»2 


00146 


1 


77777 


2 


00147 




TXl 


A2*2»-l 


00147 


-0 


63400 


2 


02341 


A2 


SXD 


3BOX»2 


00150 


-2 


00001 


1 


00247 




TNX 


PACK»1»1 


00151 


2 


00001 


4 


00144 




TIX 


A3»4.1 


00152 


1 


77776 


1 


00135 




TXl 


A4»l*-2 
ENTRY IS 


00153 


1 


7777? 


1 


00154 


B2 


TXl 


Bl»l»-1 


00154 


-0 


50000 


1 


OOOOC 


Bl 


CAL 


0*1 


00155 


-0 


32000 





02335 




ANA 


MASK 


00156 





10000 





00171 




TZE 


CI 
ENTRY IS 


00157 


1 


00O01 


1 


00160 




TXl 


B3»l»l 


00160 





53400 


4 


02277 


83 


LXA 


L(4).4 


00161 


-0 


53400 


2 


02340 




LXD 


2B0X.2 



COMPUTED CHECK SUM. 
DO CHECK SUMS MATCH 
YES 

IF THE SUMS DONT AGREE* TRY 4 MORE TIMES 
CHECK SUMS INCORRECT AFTER 5 TRIES 
SORT TRASTO ENTRIES BY TYPE 

INITIALIZATION OF ALL MODIFIED ADDRESSES 



CLEAR DECREMENT OF WORK AREA 



WORD COUNT IN IR 1 

OBTAIN WORD 3* AND SEPARATE TYPES 

ENTRY IS TYPE 4*5 OR 6* 3RD WD. MINUS 
TYPE 1* 2* OR 3 

RESTORE LOOP COUNT 

OBTAIN WORD 1 

€NWY ** TW£ 1 «R 2 
TYPE 3 

MINUS IN FIRST AND THIRD WDS. 

PLACE A COUNT OF 4 IN IR 4* 

CLEAR IR 2» AND GET 1ST WD. IN ACC 

PLACE IN PROPER MEMORY LOC. 

SUB* 1 FROM IR 2* LOOP BACK 

TO GET 4 WORDS IN PROPER LOC. 

EXIT FOR END OF TRASTO 

PICK UP NEXT TRASTO ENTRY 
TYPE 1 OR 2 

OBTAIN WORD 2 

EXAMINE PREFIX* IF TYPE 2 HAS MINUS SIGN 

ENTRY IS TYPE 1 



TYPE 2 



RESTORE COUNT TO GET WORD 1 
COUNT 4 IN IR 4 
CLEAR IR 2 



F3B0052O 

F3B00530 

F3B00540 

F3B00550 

F3B00560 

F3B00570 

F3B00580 

F3B00590 

F3B0O6O0 

F3B00610 

F3B00620 

F3B00630 

F3B00640 

F3B00650 

F3B00660 

F3B00670 

F3B00680 

F3B00690 

F3B0O70O 

F3B00710 

F3BO0720 

F3B00730 

F3BO0740 

F3800750 

F3B00760 

F3B00770 

F3BO0780 

F3B00790 

F3B00800 

F3B00810 

F3B00820 

F3B00830 

F3B00840 

F3B00850 

F3BQ0B6O 

F3BO0870 

F3B00880 

F3B00890 

F3B00900 

F3B00910 

F3B00920 

F3B00930 

F3B0Q940 

F3B00950 

F3B00960 

F3B00970 

F3B00980 

F3B00990 

F3B01000 

F3B01010 

F3B01020 

F3B0103O 

F3B01040 

F3B01050 



00162 
00163 
00164 
00165 
00166 
00167 
00170 

00171 
00172 
00173 
00174 
00175 
00176 
00177 
00200 
00201 
00202 

0O203 
00204 
00205 

00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 

00217 
00220 
00221 
00222 

00223 
00224 
00225 
00226 
00227 
00230 



50000 
60200 
77777 
63400 
00001 
00001 
77776 

00001 
53400 
53400 
50000 
60200 
77777 
63400 
00001 
00001 
77776 



00231 
00232 
00233 
00234 

00235 
00236 
00237 
00240 
00241 



53400 
53400 
50000 
60200 
77777 
63400 
00001 
00001 
77776 



00001 
53400 
53400 
50000 
60200 
77777 



1 00002 1 
50000 1 
12000 



1 77777 1 
•0 50000 1 
-0 32000 

10000 



00220 
00000 
02335 
00235 

00224 
02277 
02344 
00000 
06310 
0023 1 



B5 



B4 



CI 
C2 

C3 



C4 



00000 
03210 
00165 
02340 
00247 
00162 
00135 

00172 
02277 
02337 
00000 
02370 
00177 
02337 
00247 
00174 
00135 



00204 Dl 
00000 D2 
00217 



02277 
02343 
00000 
05470 
00213 
02343 
00247 
00210 
00135 



D3 



D4 



El 
E2 



E3 



E4 



-0 63400 2 

-2 00001 1 

2 00001 4 

1 77776 1 

i ooooi l 

53400 4 
-0 53400 2 
-0 50000 1 

60200 2 



02344 
00247 
00226 
00135 

00236 
02277 
02342 
00000 
04650 



E5 



Fl 
F2 

F3 



CAL 
SLW 
TXI 
SXD 
TNX 
TIX 
TXI 

TXI 
LXA 
LXD 
CAL 
SLW 
TXI 
SXD 
TNX 
TIX 
TXI 

TXI 

CLA 
TPL 

LXA 
LXD 
CAL 
SLW 
TXI 
SXD 
TNX 
TIX 
TXI 

TXI 

CAL 
ANA 
TZE 

TXI 
LXA 
LXD 
CAL 
SLW 
TXI 



0*1 

TYPE2»2 

B4»2»~l 

2BOX»2 

PACK. 1*1 

B5.4»l 

A4.1.-2 

ENTRY IS 

C2.1.1 

L(4)»4 

1B0X*2 

0*1 

TYPE1»2 

C4.2.-1 

1B0X»2 

PACK. 1.1 

C3»4»l 

A4.1.-2 

ENTRY IS 

D2»l»2 

0*1 

El 

ENTRY IS 

L(41 »4 

5 BOX* 2 

0*1 

TYPE5.2 

D4»2.-l 

5BOX»2 

PACK»1*1 

D3*4*l 

A4»l.-2 

ENTRY IS 

E2»l.-1 

0*1 

MASK 

Fl 

ENTRY IS 

E3.1.1 

LI41.4 

6B0X*2 

0*1 

TYPE6.2 

E5»2*-l 



SXD 
TNX 
TIX 
TXI 

TXI 
LXA 
LXD 
CAL 
SLW 



6B0X.2 

PACK»1*1 

E4»4.1 

A4»l»-2 

ENTRY IS 

F2.1.1 

L(4)*4 

4B0X»2 

0.1 

TYPE4»2 



TYPE 1 



1ST WORD 

PROPER OUTPUT AREA 

DECREASE COUNT IN IR 2 BY -1 

PLACE COUNT IN PROPER PLACE 

EXIT 

TRANSFER BACK TO SORT NEXT ENTRY 

RESTORE COUNT TO GET WD 1. 



STORE IN PROPER MEMORY POSITION 

SAVE COUNT OF TYPE 1 ENTRY 
EXIT 

BACK FOR NEXT ENTRY 
TYPE 4. 5 OR 6 

OBTAIN WORD 1 
ENTRY IS TYPE 4 OR 6 
TYPE 5 

COUNT OF ENTRIES FOR TYPE 5 

STORE IN PROPER MEMORY POS. 

SAVE COUNT FOR TYPE 1 ENTRY 
EXIT 

OBTAIN NEXT TRASTO ENTRY 
TYPE 4 OR 6 

OBTAIN WORD 2 
TEST IF MINUS 
ENTRY IS TYPE 4 
TYPE 6 

RESTORE COUNT TO GET WORD 1 



STORE IN PROPER MEMORY POS 

~SAVE~~ COUNT FOR TYPE 6 ENTRY 
EXIT 



OBTAIN NEXT TRASTO ENTRY 



TYPE 4 



F3B01060 

F3B01070 

F3B01080 

F3801090 

F38O1100 

F3B0H10 

F3B01120 

F3B01130 

F3B01140 

F3B01150 

F3B01160 

F3801170 

F3B01180 

F3B01190 

F3B012O0 

F3B01210 

F3B01220 

F3B01230 

F3B01240 

F3B01250 

F3B01260 

F3B01270 

F3B01280 

F3B01290 

F3B01300 

F3B01310 

F3B01320 

F3B01330 

F3B01340 

F3BO1350 

F3B01360 

F3B01370 

F3B01380 

F3B01390 

F3B01400 

F3B01410 

F3B01420 

F3B01430 

F3B01440 

F3B01450 

F3SO1460 

F3B01470 

F3B01480 

F3B014 9 



STORE IN PROPER MEMORY POS 



F3B01500 
F3B01510 
F3B01520 
F3B01530 
F3B01540 
F3B01550 
F3B01560 
F3B01570 
F3B01580 
F3B01590 



4* 






o 



o 



o 



00242 1 77T77 2 002*3 

00243 -0 63400 2 02342 

00244 -2 00001 1 00247 

00245 2 00001 4 00240 

00246 1 77776 1 00135 



00247 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 

00261 
00262 
00263 
00264 
00265 
00266 
00267 
00270 

00271 
00272 
00273 
00274 
00275 
00276 
00277 
00300 



OO30* -© 

00302 -3 

00303 -0 
00304 
003 05 
00306 
00307 
00310 



53400 
53400 
00000 
53400 
50000 
60200 
77777 
77777 
00001 
00000 

53400 
00000 
50000 
60200 
77777 
77777 
00001 
00000 

53400 
00000 
50000 
60200 
77777 
77777 
00001 
00000 

53400 
00000 
50000 
60200 
77777 
77777 
00001 
00000 



00311 -0 

00312 -3 

00313 -0 

00314 
00315 
00316 
00317 
00320 



53400 
00000 
50000 
60200 
77777 1 
77777 2 
00001 4 
00000 4 



02337 
02340 
00261 
02274 
03210 
02370 
00256 
00257 
00260 
00253 

02341 
00271 
04030 
02370 
00266 
00267 
O0270 
00263 



4 02342 
4 00301 
2 04650 
1 02370 

1 00276 

2 00277 
4 00300 
4 00273 

2 ©234 3 
2 00311 
4 05470 
1 02370 

1 00306 
4 00307 

2 00310 
2 00303 



02344 
00321 
06310 
02370 
00316 
00317 
00320 
00313 



F4 



PACK 



64 



Gl 
62 
63 

H5 

H4 



HI 
H2 
H3 

15 

14 



II 
12 
13 

J4 



Jl 
J2 
J3 

K5 

K4 



Kl 
K2 
K3 



TXI 
SXD 
TNX 
TIX 
TXI 

LXD 
LXD 
TXL 
LXD 
CAL 
SLW 
TXI 
TXI 
TXI 
TXH 

LXD 
TXL 
CAL 
SLW 
TXI 
TXI 
TXI 
TXH 

LXD 
TXL 
CAL 
SLW 
TXI 
TXI 
TXI 
TXH 

LXD 
TXL 
CAL 
SLW 
TXI 
TXI 
TXI 
TXH 

LXD 
TXL 
CAL 
SLW 
TXI 
TXI 
TXI 
TXH 



00321 -0 76000 00012 RTTOO RTT 



F4.2.-1 

4B0X*2 

PACK»1.1 

F3»4*l 

A4»l»-2 

TYPE 2 TO TRASTO 

1B0X.1 

2 BOX. 4 

H5*4.0 

LC0J*2 

TYPE2»2 

TYPE1»1 

Gl»l»-1 

G2»2»-l 

G3»4»l 

64*4*0 

TYPE 3 TO TRASTO 

3BOX»2 

15*2*0 

TYPE3.4 

TYPE1»1 

Hl»l«-1 

H2.4.-1 

H3.2.1 

H4*2»0 

TYPE 4 TO TRASTO 

4B0X»4 

J5*4»0 

TYPE4»2 

TYPE1»1 

Il»l»-1 

I2»2»-l 

I3.4»l 

14*4*0 

TYPE 5 TO TRASTO 

58©*T2 

£5*2*0 

TYPE 5. 4 

TYPE1»1 

Jl»l.-1 

J2»4*-l 

J3»2.1 

J4*2*0 

TYPE 6 TO TRASTO 

6B0X»4 

CALL*4«0 

TYPE6.2 

TYPE1»1 

Kl»l*-1 

K2»2»-l 

K3»4,l 

K4»4»0 

PROGRAM TO READ 



SAVE 
EXIT 



COUNT FOR TYPE 4 ENTRY 



OBTAIN NEXT TRASTO ENTRIES 

PACK TRASTO ENTRIES TO GETHER 

IN MEMORY IN ORDER OF TYPES 1 THRU 

6« 



INDEX C REDUCES TO 2ER0 



TIFGO TABLE 
TURN OFF TAPE 



CHECK INDICATOR AND LITES 



F3B01600 
F3B01610 
F3B01620 
F3B01630 
F3B01640 
F3B01650 
F3B01660 
F3B01670 
F3B01680 
F3B01690 
F3B01700 
F3B01710 
F3B01720 
F3B01730 
F3B01740 
F3B01750 
F3B01760 
F3B01770 
F3B01780 
F3B01790 
F3B01800 
F3B01810 
F3B01820 
F3B01830 
F3B01840 
F3B01850 
F3B01860 
F3B01870 
F3B01880 
F3B01890 
F3B019O0 
F3B01910 
F3B01920 
F3B01930 
F3B01940 
FSWITSO 
F3B01960 
F3B01970 
F3B01980 
F3B01990 
F3602000 
F3B02010 
F3B02020 
F3B02030 
F3B02040 
F3B02050 
F3B02060 
F3B02070 
F3B02080 
F3B02O90 
F3B02100 
F3B02110 
F3B02120 
F3B02130 



00322 
00323 
00324 
00325 
00326 
00327 
00330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 
00340 
00341 
00342 
00343 
00344 
00345 
00346 
00347 
00350 

00351 
00352 
00353 
0035* 
00355 
00356 
00357 
00360 
00361 
00362 
00363 
00364 
00365 
00366 
00367 
00370 
00371 
00372 
00373 



003 74 
00375 

00376 
00377 
00400 
00401 
00402 
00403 
00404 







00321 


CALL 


SYN 


RTTOO 




F3B02140 


76100 





00000 




NOP 






F3B02150 


53400 


2 


02330 




LXA 


M2ECTR»2 


LOAD COUNT OF 5 FOR ERROR ROUTINE 


F3B02160 


76200 





00222 


RTTD3 


RTB 


2 


SELECT TAPE 2 TO READ TIFGO 


F3B0217O 


70000 





05471 




CPY 


TIFGO-1 




F3B02180 


50000 





05471 




CLA 


TIFGO-1 


IDENTIFICATION FOR TIFGO TABLE 


F3B02190 


40200 





02276 




SUB 


LC2) 


IS TABLE CALLED FOR 


F3BO2200 


10000 





00332 




TZE 


RTTD1 


YES 


F3B02210 


07400 


4 


00004 




TSX 


4»4 


NOT TIFGO FILE 


F3B02220 


70000 





05471 


RTTD1 


CPY 


TIFGO-1 


GET WORD COUNT 


F3B02230 


53400 


1 


02274 




LXA 


L10J.1 




F3B02240 


50000 





05471 




CLA 


TIF60-1 


TEST WD. COUNT 


F3B02250 


10000 





00342 




TZE 


RTTD5 


NO TIFGO ENTRIES 


F3B02260 


70000 


1 


05472 


RTTD2 


CPY 


TIFGO.l 


COPY 


F3B02270 


77777 


1 


00336 




TXI 


RTTD2»1»-1 


LOOP 


F3B02280 


07400 


4 


00004 




TSX 


4»4 


EOF INCORRECT 


F3B02290 


76600 





00333 




IOD 




EOR 


F3B02300 


76000 





00012 


RTTD5 


RTT 




IS TAPE CHECK ON 


F3802310 


02000 





00346 




TRA 


RTTD4 


YES 


F3B02320 


63400 


1 


05471 




SXD 


TIFGO-1.1 


NO 


F3B02330 


02000 





00351 




TRA 


RTTE1 


TO READ TRAD TABLE 


F3B02340 


76400 





00202 


RTTD4 


BST 


2 




F3B02350 


00001 


2 


00324 




TIX 


RTTD3»2»1 




F3B02360 


07400 


4 


00004 


C0R4 


TSX 


4»4 
PROGRAM TO 


ERROR REAOING TIFGO TABLE AFTER 5 TRIES 
READ TRAD TABLE 


F3B02370 
F3B02380 


53400 


2 


02330 


RTTE1 


LXA 


M2ECTR»2 


LOAD COUNT OF 5 FOR ERROR ROUTINE 


F3B02390 


76200 





00222 


RTTE5 


RTB 


2 


READ TRAD TABLE FROM TAPE 2 


F3B02400 


70000 





06766 




CPY 


TRAD-1 


IDENTIFICATION NUMBER 


F3B02410 


50OO0 





06766 




CLA 


TRAD-1 




F3B02420 


40200 





02331 




SUB 


L(3) 


IS TABLE CALLED FOR 


F3B02430 


10000 





00360 




TZE 


RTTE2 


YES 


F3B02440 


07400 


4 


00004 




TSX 


4»4 


TRAD TABLE NOT CALLED FOR 


F3B02450 


70000 





06766 


RTTE2 


CPY 


TRAD-1 


GET WORD COUNT 


F3B02460 


50000 





06766 




CLA 


TRAD-1 


TEST WORD COUNT FOR NUMBER OF ENTRIES 


F3B02470 


10000 





00370 




TZE 


RTTE6 




F3BO2480 


53400 


1 


02274 




LXA 


L(0)«1 




F3B0249O 


70000 


1 


06767 


RTTE3 


CPY 


TRAD»1 


COPY TRAD ENTRIES AND GET 2S COMP. 


F3B02500 


77777 


1 


00364 




TXI 


RTTE3fli-l 


OF NUMBER OF ENTRIES. 


F3B02510 


07400 


4 


00004 




TSX 


4»4 


EOF INCORRECT 


F3B02520 


76600 





00333 




IOD 




EOR 


F3B02530 


76000 





00012 


RTTE6 


RTT 




IS TAPE CHECK ON 


F3BO2540 


02000 





00373 




TRA 


RTTE4 


YES 


F3B02550 


02000 





00376 




TRA 


RTTCO 


NO 


F3B02560 


76400 





00202 


RTTE4 


BST 


2 


ERROR ROUTINE FOR READING TRAD 


F3B02570 


00001 


2 


00352 




TIX 


RTTE5.2*1 


ENTRIES 


F3B02580 


07400 


4 


00004 


COR 5 


TSX 


4»4 
PROGRAM TO 


AFTER 5 TRIES 
READ TRALEV 


F3B02590 
F3B02600 


76000 





00000 


RTTCO 


CLM 




CLEAR ACCUMULATOR 


F3B02610 


6020O 





03210 




SLW 


TRALEV-1 


SET WORD PRECEDING ENTRIES TO ZERO 


F3B02620 


53400 


2 


02330 


RTTC4 


LXA 


M2ECTR.2 


LOAD COUNT OF 5 FOR ERROR ROUTINE 


F3B02630 


76200 





00224 


RTTC2 


RTB 


4 


READ TRALEV ENTRIES FROM TP. 4 


F3B02640 


70000 





03211 




CPY 


TRALEV 


IDENTIFICATION 


F3B02650 


76000 





00012 




RTT 




IS TAPE CHECK ON 


F3B02660 


02000 





00406 




TRA 


RTTC1 


YES 


F3B02670 



'/•/ 



u 



O 



n 



O 



00405 





02000 





00411 




TRA 


RTTC3 


NO 


F3B02680 


00406 





76400 





00204 


RTTCi 


BST 


4 


ERROR ROUTINE FOR READING TRALEV 


F3B02690 


00407 


2 


00001 


2 


00401 




TIX 


RTTC2»2*1 




F3B02700 


00410 





07400 


4 


00004 


COR 6 


TSX 


4»4 


AFTER 5 TRIES 


F3B02710 


00411 





50000 





03211 


RTTC3 


CLA 


TRALEV 


IS TRALEV EMPTY 


F3B02720 


00412 





10000 





00450 




TZE 


OUT 


YES 


F3B02730 


00413 





53400 


2 


02330 




LXA 


M2ECTR»2 


LOAD COUNT OF 5 FOR ERROR ROUTINE 


F3B02740 


00414 


-0 


53400 


1 


02305 


RTTA3 


LXD 


M2CON+9«l 


RESET IR 1 TO ALL ONES 


F3B02750 


00415 





70000 


1 


03211 


RTTA1 


CPY 


TRALEV.l 


COPY LOOP. ADD COUNT TO READ ADDRESS 


F3B02760 


00416 


1 


77777 


1 


00415 




TXI 


RTTA1»1»-1 




F3B02770 


00417 





07400 


4 


00004 




TSX 


4*4 


EOF INCORRECT 


F3B02780 


00420 





76600 





00333 




1 00 




EOR 


F3B02790 


00421 


-0 


76000 





00012 




RTT 




IS TAPE CHECK ON 


F3B02800 


00422 





02000 





00424 




TRA 


RTTA2 


YES 


F3B02810 


00423 





02000 





00431 




TRA 


RTTB1 


NO 


F3B02820 


00424 





76400 





00204 


RTTA2 


BST 


4 


BACKSPACE TAPE 4 


F3B02830 


00425 





76200 





00224 




RTB 


4 


READ AGAIN 


F3B02840 


00426 





70000 





03211 




CPY 


TRALEV 


GET WORD COUNT 


F3B02850 


00427 


2 


00001 


2 


00414 




TIX 


RTTA3»2»1 


TRY AGAIN TO READ IN ENTRIES 


F3B02860 


00430 





07400 


4 


00004 


C0R7 


TSX 


4»4 


ERROR READING TAPE 4 


F3B02870 


00431 


-0 


63400 


1 


00442 


RTTB1 


SXD 


RTTB4.1 


SAVE WORD COUNT OF FIRST RECORD* 2S COMP. 


F3B02880 


00432 





53400 


2 


02330 




LXA 


M2ECTR*2 


LOAD COUNT OF 5 FOR ERROR ROUTINE 


F3B02890 


00433 





76200 





00224 


RTTB5 


RTB 


4 




F3B02900 


00434 


-0 


53400 


1 


00442 




LXD 


RTTB4*1 


REPLACE COUNT IN IR 1 OF FIRST RECORD 


F3B02910 


00435 





70000 


1 


03211 


RTTB2 


CPY 


TRALEV* 1 


COPY SECOND RECORD ETC* IN PROPER PLACE 


F3B02920 


00436 


1 


77777 


1 


00435 




TXI 


RTTB2.1*-1 


SUBTRACT 1 FROM COUNT 


F3B02930 


00437 





02000 





00447 




TRA 


RTTB6 


EOF 


F3B02940 


00440 





76600 





00333 




IOD 




EOR 


F3B02950 


00441 


-0 


76000 





00012 




RTT 




IS TAPE CHECK ON 


F3B02960 


00442 


-3 


00000 


1 


00444 


RTTB4 


TXL 


RTTB3»1 


YES* COMPARE TO WORD COUNT OF FIRST 


F3B02970 


00443 





02000 





00447 




TRA 


RTTB6 


RECORD* NO* 


F3B02980 


00444 





76400 





00204 


RTTB3 


BST 


4 




F3B02990 


00445 


2 


00001 


2 


00433 




TIX 


RTTB5»2»1 




F3B03000 


00446 





07400 


4 


00004 


C0R8 


TSX 


4*4 


ERROR TRYING TO READ TRALEV FROM TAPE 4 


F3B03O10 


00447 


-0 


63400 


1 


03210 


RTTB6 


SXD 


TRALEV-1.1 


SAVE TRALEV WORD COUNT 


F3B03020 


#©4*© 


& 50000 iX 02345 


QUI 


CIA 


TRSWC 


TIFGO WORD COUNT* 


F3BQ303Q 


00451 





76000 





00006 




COM 






F3B03040 


00452 





40000 





02275 




ADD 


M2C0N+1 


2S COMPLIMENT OF WORD COUNT 


F3B03050 


00453 





73400 


1 


00000 




PAX 


0*1 


IN IR 1 


F3B03060 


00454 


-0 


63400 


1 


02367 




SXD 


CTRSWC.l 


SAVE WORD COUNT 


F3B03070 


00455 


-0 


53400 


1 


02314 




LXD 


M2C0N+16*1 


PLACE 5 IN IR 1 


F3B03080 


00456 





76200 





00222 


RDS 


RDS 


146 


MOVE UP TAPE 2* 3 FILES TO TIFGO 


F3B03090 


00457 





70000 





02366 


CPY 


CPY 


M2CW+4 


FILE 


F3B03100 


00460 





02000 





00457 




TRA 


CPY 




F3B03110 


00461 





02000 





00463 




TRA 


TIX 


END OF RECORD 


F3B03120 


00462 





02000 





00456 




TRA 


RDS 




F3B03130 


00463 


2 


00001 


1 


00456 


TIX 


TIX 


RDS»1»1 




F3B03140 


00464 





77200 





00224 


REW 


REW 


148 


TAPE 4 REWOUND 


F3B03150 


00465 





76000 





00000 




CLM 




SET ACC. TO ZERO 


F3B03160 


00466 





60200 





02345 




SLW 


TIFFN 


REPLACE INDEX COUNTERS 


F3B03170 


00467 





60200 





02346 




SLW 


CTRAST 


CELLS TO ZEROS 


F3B03180 


00470 





60200 





02347 




SLW 


ETRAL 




F3B03190 


00471 





60200 





02350 




SLW 


LEVNO 




F3B03200 


00472 





60200 





02331 




SLW 


CBOX 




F3B03210 



/ 



'/> 





00473 





60200 





02355 




SLW 


BBOX 








00474 





60200 





02332 




SLW 


LOX 








00475 





60200 





07324 




SLW 


ASNO 








00476 





60200 





07323 




SLW 


EASCO 








00477 





60200 





02356 




SLW 


ETRAST 








00500 





60200 





02357 




SLW 


NETRAL 








00501 





60200 





07322 




SLW 


TFRCO 








00502 





53400 


1 


02274 




LXA 


M2CON • 1 




INITIALIZE IR 1 TO ZERO 


















M2 MAIN PROGRAM- TIFGO FMLA NO NOT IN 


















TRALEV 








00503 


-0 


75400 


1 


00000 


M21000 


PXO 


0*1 




TEST TO SEE IF AT END OF TIFGO 




00504 





40200 





05471 




SUB 


TIFGO-1 




NO. OF TIFGO ENTRIES 




00505 





10000 





00751 




TZE 


M21900 




END OF TIFGO 




00506 





50000 


1 


05472 




CLA 


TIFGOt 1 




FIRST WD. OF TIFGO ENTRY. 




00507 





62200 





02345 




STD 


TIFFN 




SAVE INTERNAL FMLA. NO* 




00510 


-0 


12000 





00514 




TMI 


M21010 




SIGNIFIES AN IF 




00511 


-0 


32000 





02306 




ANA 


M2CON+10 




TEST DIFFERTENT TYPES 




00512 





40200 





02300 




SUB 


M2CON+4 








00513 





10000 





00730 




TZE 


M21600 




TIFGO ENTRY AN ASSIGN 




00514 





50000 





02347 


M21010 


CLA 


ETRAL 




DETERMINE CURRENT TIFGO ENTRY 




00515 





40200 





03210 




SUB 


TRALEV-1 




FOR CORRESPONDING TRALEV ENTRY 




00516 





10000 





00523 




TZE 


M21020 




END OF TRALEV 




00517 


-0 


53400 


2 


02347 




LXD 


ETRAL. 2 




IR 2. CURRENT TRALEV ENTRY 




00520 





50000 


2 


03211 




CLA 


TRALEV.2 




TRALEV. FMLA WD. 




00521 





40000 





02345 




ADD 


TIFFN 




TIFGO FMLA NO. 




00522 





10000 





00776 




TZE 


M22000 




TIFGO ENTRY IN TRALEV 




00523 





50000 


1 


05472 


M21020 


CLA 


TIFGO. 1 








00524 


-0 


12000 





00672 




TMI 


M21800 




TIF60 ENTRY AN IF(E) 




00525 


-0 


32000 





02306 




ANA 


M2CON+10 








00526 





10000 





00536 




TZE 


M21030 




TIFGO ENTRY A GO TO A 




00527 





34000 





02277 




CAS 


M2CON+3 








00530 


1 


77777 


1 


00650 




TXI 


M2150O.1. 


-1 


TIFGO ENTRY AN IF OVERFLOW 




00531 


1 


77777 


1 


00625 




TXI 


M21400.1. 


-1 


TIFGO ENTRY AN IF DIVCK 




00532 





34000 





02276 




CAS 


M2CON+2 








00533 


1 


77777 


1 


00602 




TXI 


M21300.1. 


-1 


TIFGO ENTRY AN IF SENSE 




00534 


1 


77777 


1 


00550 




TXI 


M21100.1. 


-1 


TIFGO ENTRY A GO TO (A>»1 




00535 


1 


77776 


1 


00503 




TXI 


M21000.1. 


-2 


TIFGO ENTRY A GO TO N(A) 


















TIFGO ENTRY A 


GO TO A 




00536 


1 


77777 


1 


00537 


M21030 


TXI 


M21030+1. 


l.-l 






00537 





50000 


1 


05472 




CLA 


TIFGO. 1 




2ND WORD BETA IN ADDRESS 




00540 





76700 





00022 




ALS 


18 




SHIFT TO DECREMENT 




00541 





60100 





02364 




STO 


M2CW+2 




3RD WD OF INSTRUCTION AREA 




00542 





07400 


4 


02177 




TSX 


CIT200.4 




COMPILE INSTRUCTION 




00543 





00000 





02345 




HTR 


TIFFN 




ALPHA 




00544 





00000 





02315 




HlR 


M2ABC 




TRA 




00545 





00000 





02364 




HTR 


M2CW+2 




BETA 




00546 





00000 





02274 




HTR 


M2CON 









00547 


1 


77777 


1 


00503 




TXI 


M21000.1." 


-1 




















TIFGO ENTRY A 


GO TO <A)«I 




00550 





50000 


1 


05472 


M21100 


CLA 


TIFGO.l 




2ND WORD OF TIFGO ENTRY 




00551 





73400 


2 


00000 




PAX 


0.2 




CTRAD U IN IR 2 




00552 


-0 


63400 


2 


02332 




SXD 


LOX .2 




SAVE CTRAD U IN INDEX CELL DECR. 




00553 


-0 


32000 





02305 




ANA 


M2CON+9 




SAVE CTRAD 1 IN ACCUMULATOR 




00554 





40000 





02303 




ADD 


M2CON+7 




ADD ONE. CTRAD 1+1 


o 























F3B03220 

F3B03230 

F3B03240 

F3B03250 

F3B03260 

F3B03270 

F3B03280 

F3B03290 

F3B03300 

F3B03310 

F3B03320 

F3B03330 

F3B03340 

F3B03350 

F3B03360 

F3B03370 

F3B03380 

F3B03390 

F3B03400 

F3B03410 

F3B03420 

F3B03430 

F3B03440 

F3B03450 

F3B03460 

F3B03470 

F3B03480 

F3B03490 

F3B03500 

F3B03510 

F3B03520 

F3B03530 

F3B03540 

F3B03550 

F3B03560 

F3B03570 

F3B03580 

F3B03590 

F3B03600 

F3B03610 

F3B03620 

F3B03630 

F3B03640 

F 3B03650 



F3B03660 
F3B03670 
F3B03680 
F3B03690 
F3B037O0 
F3B03710 
F3B03720 
F3B03730 
F3B03740 
F3B03750 



u L 



U 



n 



O 



00555 





40200 





02332 




SUB 


LOX 


CTRAD U 


F3B03760 


00556 





60100 





02365 




STO 


M2CW+3 


4TH WD OF INSTRUCTION 


F3B03770 


00557 





07400 


4 


02177 


M21110 


TSX 


CIT200»4 


COMPILE 


F3B03780 


00560 





ooooo 





02345 




HTR 


TIFFN 


ALPHA 


F3803790 


00561 





ooooo 





02274 




HTR 


M2C0N 


ZERO 


F3B03800 


00562 





ooooo 





02345 




HTR 


TIFFN 


ALPHA 


F3B03810 


00563 





ooooo 





02365 




HTR 


M2CW+3 


NO. OF TRAD ENTRUES CTRAD 1+1-CTRAD 2 


F3B03820 


00564 


1 


00001 


2 


00565 




TXI 


M21120.2.1 


STEP UP COUNT TO NEXT TRAD ENTRY 


F3B03830 


00565 





50000 


1 


05472 


M21120 


CLA 


TIFGO, 1 


2ND WORD OF TIFGO ENTRY 


F3B03840 


00566 





62200 





00600 




STO 


M21140 


STORE IN TXL INSTRUCTION 


F3B03850 


00567 





50000 


2 


07361 


M21125 


CLA 


TRAD+250*2 


BRING IN NEXT TRAD ENTRY 


F3B03860 


00570 





76700 





00022 




ALS 


18 


PUT BETA1 IN DECREMENT 


F3B03870 


00571 





60100 





02364 




STO 


M2CW+2 


3RD WD, OF CIT 


F3B03880 


00572 





07400 


4 


02177 




TSX 


CIT200»4 


COMPILE 


F3B03890 


00573 





ooooo 





02274 




HTR 


M2C0N 


ZERO 


F3B03900 


00574 





ooooo 





02315 




HTR 


M2ABC 


TRA 


F3B03910 


00575 





ooooo 





02364 




HTR 


M2CW+2 


TRAD BI 


F3B03920 


00576 





ooooo 





02274 




HTR 


M2C0N 


ZERO 


F3B03930 


00577 


1 


00001 


2 


00600 




TXI 


M21140.2»l 


STEP UP TRAD ENTRY 


F3B03940 


00600 


-3 


ooooo 


2 


00567 


M21140 


TXL 


M21125»2 


TEST IF LAST TRAD ENTRY. NO 


F3B03950 


00601 


1 


77777 


1 


00503 




TXI 


M21000.1.-1 
TIFGO ENTRY AN 


BACK TO NEXT TIFGO, 
IF SENSE 


F3B03960 
F3803970 


00602 





07400 


4 


02177 


M21300 


TSX 


CIT200»4 


COMPILE 


F3B03980 


00603 





OOOOO 





02345 




HTR 


TIFFN 


ALPHA 


F3B03990 


00604 





OOOOO 





02274 




HTR 


M2C0N 


ZERO 


F3B04000 


00605 





OOOOO 





02274 




HTR 


M2C0N 


ZERO 


F3B04010 


00606 





OOOOO 





02274 




HTR 


M2C0N 


ZERO 


F3B04020 


00607 





50000 


1 


05472 




CLA 


TIFGO. 1 


2ND* WORD OF TIFGO ENTRY 


F3B04030 


0O610 


-0 


32G0O 





02306 




ANA 


M2CON+10 


SAVE ADDRESS. BETA 2 


F3B04040 


00611 





76700 





00022 




ALS 


18 


SHIFT TO DECREMENT 


F3B04050 


00612 





53400 


2 


02276 




LXA 


M2C0N+2.2 


LOAD 2 IN IR 2. 2 SETS OF INSTRUCTION 


F3B04060 


00613 





60100 





02364 


M21310 


STO 


M2CW+2 


STORE BETA 2 IN 3RD WD. 


F3B04070 


00614 





07400 


4 


02177 




TSX 


CIT200.4 


COMPILE 


F3B04080 


00615 





OOOOO 





02274 




HTR 


M2C0N 


ZERO 


F3B04090 


00616 





OOOOO 





02315 




HTR 


M2ABC 


TRA 


F3B04100 


0061 T 


tr ooooo "tr 


02364 




TfTR M2CW+2 


BETA Z. BETA 1 


F3B041IO 


00620 





OOOOO 





02274 




HTR 


M2C0N 


ZERO 


F3B04120 


00621 





50000 


1 


05472 




CLA 


TIFGO. 1 


2ND WORD 


F3B04130 


00622 


-0 


32000 





02305 




ANA 


M2C0N+9 


SAVE DECREMENT 


F3B04140 


00623 


2 


00001 


2 


00613 




TIX 


M21310.2.1 


COMPILE SECOND TRA 


F3B04150 


00624 


1 


77777 


1 


00503 




TXI 


M21000.1.-1 
TIFGO ENTRY AN 


BACK TO OBTAIN NEXT TIFGO 
IF DIV CK 


F3B04160 
F3B04170 


00625 





07400 


4 


02177 


M21400 


TSX 


CIT200.4 


COMPILE 


F3B04180 


00626 





OOOOO 





02345 




HTR 


TIFFN 


ALPHA 


F3B04190 


00627 





OOOOO 





02274 




HTR 


M2C0N 


ZERO 


F3B04200 


00630 





OOOOO 





02274 




HTR 


M2C0N 


ZERO 


F3B04210 


00631 





OOOOO 





02274 




HTR 


M2C0N 


ZERO 


F3B04220 


00632 





50000 


1 


05472 




CLA 


TIFGO, 1 


2ND WORD OF TIFGO ENTRY 


F3B04230 


00633 


-0 


32000 





02305 




ANA 


M2C0N+9 


SAVE DECREMENT 


F3B04240 


00634 





53400 


2 


02276 




LXA 


M2CON+2.2 


COUNT OF 2 IN IR 2 


F3B04250 


00635 





60100 





02364 


M21410 


STO 


M2CW+2 


COMPILE 


F3B04260 


00636 





07400 


4 


02177 




TSX 


CIT200.4 


COMPILE 


F3B04270 


00637 





OOOOO 





02274 




HTR 


M2C0N 


ZERO 


F3B04280 


00640 





OOOOO 





02315 




HTR 


M2ABC 


TRA 


F3B04290 



</1 



00641 





00000 





02364 


HTR 


M2CW+2 


BETA1, 


F3B04300 


00642 





00000 





02274 


HTR 


M2CON 


ZERO 


F3B04310 


00643 





50000 


1 


05472 


CLA 


TIFGO, 1 


2ND WORD 


F3B04320 


00644 


-0 


32000 





02306 


ANA 


M2CON+10 


SAVE BETA 2 


F3B04330 


00645 





76700 





00022 


ALS 


18 


PLACE IN DECREMENT 


F3B04340 


00646 


2 


00001 


2 


00635 


TIX 


M21410»2»l 


COMPILE 2ND TRA INSTR. 


F3B04350 


00647 


1 


77777 


1 


00503 


TXI 


M21000»l»-1 
TIFGO ENTRY AN 


BACK TO GET NEXT TIFGO 
IF OVERFLOW 


F3B04360 
F3B04370 


00650 





50000 


1 


05472 M21500 


CLA 


TIF60.1 


2ND WORD OF TIFGO ENTRY 


F3B04380 


00651 


-0 


32000 





02305 


ANA 


M2CON+9 


SAVE DECREMENT 


F3B04390 


00652 





60100 





02364 


STO 


M2CW+2 


3RD WORD* BETA 1 


F3B04400 


00653 





07400 


4 


02177 


TSX 


CIT200.4 


COMPILE 


F3B04410 


00654 





00000 





02345 


HTR 


TIFFN 


ALPHA 


F3B04420 


00655 





00000 





02274 


HTR 


M2CON 


ZERO 


F3B04430 


00656 





00000 





02364 


HTR 


M2CW+2 


BETA 1 


F3B04440 


00657 





00000 





02274 


HTR 


M2CON 


ZERO 


F3B04450 


00660 





50000 


1 


05472 


CLA 


TIFGO. 1 


2ND WORD OF TIFGO ENTRY 


F3B04460 


00661 


-0 


32000 





02306 


ANA 


M2CON+10 


SAVE BETA 2 


F3B04470 


00662 





76700 





00022 


ALS 


18 


SHIFT TO DECREMENT 


F3B04480 


00663 





60100 





02364 


STO 


M2CW+2 


3RD WORD OF COMPILED INSTRUCTIONS 


F3B04490 


00664 





07400 


4 


02177 M21515 


TSX 


CIT200»4 


COMPILE 


F3B045O0 


00665 





00000 





02274 


HTR 


M2CON 


ZERO 


F3B04510 


00666 





00000 





02315 


HTR 


M2ABC 


TRA 


F3B04520 


00667 





00000 





02364 


HTR 


M2CW+2 


BETA 2 


F3B04530 


00670 





00000 





02274 


HTR 


M2CON 


ZERO 


F3B04540 


00671 


1 


77777 


1 


00503 


TXI 


M21000»l»-1 
TIFGO ENTRY AN 


BACK TO NEXT TIFGO ENTRY 
IF (E) 


F3B04550 
F3B04560 


00672 


-0 


32000 





02306 M21800 


ANA 


M2CON+10 


SAVE ADDRESS OF 1ST WD, BETA 1 


F3B04570 


00673 





76700 





00022 


ALS 


18 


PLACE IN DECREMENT 


F3B04580 


00674 





60100 





02364 


STO 


M2CW+2 


3RD WORD OF CIT 


F3B04590 


00675 





07400 


4 


02177 


TSX 


CIT200»4 


COMPILE 


F3804600 


00676 





00000 





02345 


HTR 


TIFFN 


ALPHA 


F3B04610 


00677 





00000 





02274 


HTR 


M2CON 


ZERO 


F3B04620 


00700 





00000 





02274 


HTR 


M2CQN 


ZERO 


F3B04630 


00701 





00000 





02274 


HTR 


M2CON 


ZERO 


F3B04640 


00702 


1 


77777 


1 


00703 


TXI 


M21810,l»-1 


STEP COUNT FOR 2ND TIFGO WORD 


F3B04650 


00703 





50000 


1 


05472 M21810 


CLA 


TIFGO, 1 


2ND WD» OF TIFGO ENTRY 


F3B04660 


00704 


-0 


32000 





02305 


ANA 


M2CON+9 


SAVE DECREMENT BETA 2 


F3B04670 


00705 





60100 





02366 


STO 


M2CW+4 


5TH WD. 


F3B04680 


00706 





50000 





02345 


CLA 


TIFFN 


ALPHA 


F3B04690 


00707 


-0 


50-1.00 





02301 


ORA 


M2COM+5 


1018) INSTR. NO. WITHIN INTERNAL FMLANQ. 


F3BQ470O 


00710 





60100 





02362 


STO 


M2CW 


INTERNAL FMLA NO. 


F3B04710 


00711 





07400 


4 


02177 


TSX 


CIT200»4 


COMPILE 


F3B04720 


0071? 





00000 





02362 


HTR 
HTR 


M2CW 
M2ABC+1 


TZE 


E3BQ4730^ 


00713 





00000 





02316 


F3B04740 


00714 





00000 





02366 


HTR 


M2CW+4 


BETA 2 CIM2CW+4) 


F3B04750 


00715 





00000 





02274 


HTR 


M2CON 


ZERO 


F3B04760 


00716 





50000 


1 


05472 


CLA 


TIFGO, 1 


2ND WORD OF TIFGO ENTRY 


F3B04770 


00717 


-0 


32000 





02306 


ANA 


M2CON+10 


SAVE ADDRESS. BETA 3 


F3B04780 


00720 





76700 





00022 


ALS 


18 


SHIFT TO DECREMENT 


F3B04790 


00721 





60100 





02366 


STO 


M2CW+4 


STORE BETA 3 


F3B04800 


00722 





07400 


4 


02177 


TSX 


CIT200,4 


COMPILE 


F3B04810 


00723 





00000 





02274 


HTR 


M2CON 


ZERO 


F3B04820 


00724 





00000 





02317 


HTR 


M2ABC+2 


TPL 


F3B04830 



n 



o 



00725 
00726 
00727 

00730 
00731 
00732 
00733 
00734 
00735 
00736 
00737 
00740 
00741 
00742 
00743 
00744 
00745 
00746 
00747 
00750 

00751 
00752 
00753 
00754 
00755 
00756 
00757 
00760 
00761 
00762 
00763 
00764 
00765 
00766 
00767 
00770 
00771 
00772 
00773 
00774 
00775 



00776 
00777 
01000 
01001 
01002 
01003 
01004 
01005 
01006 



00000 02366 
00000 02274 
02000 00664 



50000 
60100 
40000 
60100 
07400 
00000 
00000 
00000 
00000 
77777 
50000 
76700 
53400 
60100 
77777 
63400 
77777 



53400 
53400 
00003 
00000 
76600 
00001 
-0 53400 
70000 
77777 
00001 
00001 
77000 
76400 



OOOOl 
76200 
70000 
02000 
02000 
02000 
76200 
02000 



77777 
63400 
53400 
07400 
02000 
02000 
53400 
50000 
12000 



07324 
02365 
02303 
07324 
02177 
02345 
02274 
02307 
02365 
00742 
05472 
00022 
07323 
07325 
00747 
07323 
00503 

02355 
07322 
00754 
00764 
00222 
00757 
02274 
06622 
00762 
00763 
00760 
00222 
00222 
00765 
00222 
02366 
00770 
00774 
00767 
00221 
00004 



00777 
02347 
02274 
01456 
01004 
01015 
02347 
03211 
01013 



M21600 



M21610 

M21620 
M21900 



M21910 



M21920 



M21925 



M2200O 



M22006 



HTR 
HTR 
TRA 

CLA 
STO 
ADD 
STO 
TSX 
HTR 
HTR 
HTR 
HTR 
TXI 
CLA 
ALS 
LXD 
STO 
TXI 
SXD 
TXI 

LXD 
LXD 
TXI 
TXL 
WRS 
TXI 
LXD 
CPY 
TXI 
TXI 
TXH 
WEF 
BST 
TIX 
RDS 
CPY 
TRA 
TRA 
TRA 
RTB 
TRA 



TXI 
SXD 
LXD 
TSX 

TRA 
TRA 
LXD 
CLA 
TMI 



M2CW+4 BETA 3 CJM2CW+4) 

M2C0N ZERO 

M21515 TR. TO COMPILE TRA TO BETA 1 

TIFGO ENTRY AN ASSIGN 



ASNO 

M2CW+3 

M2CON+7 

ASNO 

CIT200.4 

TIFFN 

M2C0N 

M2C0N+11 

M2CW+3 

M21610+l»l»-l 

TIFGOil 

18 

EASC0t2 

ASC0.2 

M21620»2»-l 

EASC0.2 

M21000*l»-1 

M2 TERMINAL ROUTINE 



CURRENT ASSIGN NO. 

4TH WORD OF CIT 

+000001000000 

REPLACE ASSIGN NO. 

COMPILE 

ALPHA 

ZERO 

+050000000000 

CURRENT ASSIGN NO. 

2ND WD. OF TIFGO ENTRY 

PLACE BETA IN DECREMENT 

CURRENT ASCO ENTRY PT. IN IR 2 

STORE BETA IN PROPER ASCO LOC 

STEP COUNT FOR NEXT ASCO ENTRY 

PT. AND STORE 

BACK FOR NEXT TIFGO 



2S COMPL. OF NO OF WDS IN BLOCK 

STEP UP BLOCK COUNT BY 3 

TEST IF AT END OF BLOCK 

SELECT TAPE 2 

STEPUP IR 4 BY 1 

ZEROS IN IR 1 

WRITE REMAINING CITS 

DECREASE COUNT IN IR 1 

INCREASE COUNT IN IR 2 

TEST IF AT END 

WRITE END OF FILE 



BB0X.2 

TFRC0.4 

M21900+3.4.3 

M21920.2»0 

146 

M21910-l»4»l 

M2C0N.1 

CIB2.1 

M21910+2»l*-l 

M21910+3»2il 

M21910*2*l 

146 

146 

M2 1920 + 1 .4. 1 

146 

M2CW+4 

M21925+1 

M220O0-2 

M21925 

1 

4 

M2-MAIN PROGRAM-TIFGO FMLA NO IN 

TRALEV 



POSITION TAPE 2 AT BEGINNING 
OF TIFGO FILE 
BACK TO READ LOOP 



M22000+1.2.-1 

ETRAL»2 

M2C0N»2 

M22700.4 

M22006 

M22015 

ETRALt2 

TRALEV»2 

M22013 



UPDATE TRALEV ENTRY 

POINT. SAVE IN PROPER CELL 

RESET IR 2 WITH ZERO 

TRASTO FMLA NO SEARCH* M2 SUBROUTINE 

CUR TIFGO FMLA NO NOT IN TRASTO 

CUR TIFGO FMLA NO IN TRASTO 

2S COMPL. OF TRALEV ENTRY PT. COUNT 

TRALEV ENTRY 

IS IT START OF NEXT ENTRY 2 



F3B04840 
F3B04850 
F3B04860 
F3B04870 
F3B04880 
F3B04890 
F3B04900 
F3B04910 
F3B04920 
F3B04930 
F3B04940 
F3B04950 
F3B04960 
F3B04970 
F3B04980 
F3B04990 
F3B05000 
F3B05010 
F3B05020 
F3B05030 
F3B05040 
F3B05050 
F3B05060 
F3BO5O70 
F3B05080 
F3B05090 
F3B05100 
F3B05110 
F3B05120 
F3B05130 
F3B05140 
F3B05150 
F3B05160 
F3B05170 
F3B05180 

F3B05200 
F3B05210 
F3B05220 
F3B05230 
F3B05240 
F3B05250 
F3B05260 
F3B05270 
F 3 BO 5 280 
F3B05290 
F3B05300 
F3B05310 
F3B05320 
F3B05330 
F3B05340 
F3B05350 
F3B05360 
F3B05370 



V1 



01007 
01010 
01011 
01012 
01013 
01014 
01015 
01016 
01017 
01020 
01021 
01022 
01023 
01024 
01025 
01026 
01027 
01030 
01031 
01032 

01033 
01034 
01035 
01036 
01037 
01040 
01041 
01042 
01043 
01044 
01045 
01046 
01047 
01050 
01051 
01052 
01053 
01054 
01055 
01056 
01057 
01060 
01061 
01062 
01063 
01064 
01065 
01066 
01067 
01070 
01071 



75400 
40200 
10000 
77777 
63400 
02000 
63400 
50000 
60100 
50000 
12000 
32000 
10000 
34000 
77777 
77777 
34000 
77777 
77777 
77777 

50000 
60100 
50000 
60100 
07400 
07400 
53400 
77774 
07400 
02000 
50000 
10000 
50000 
60100 
02000 
50000 
10000 
50000 
60100 
50000 
76700 
60100 



00000 
03210 
01013 
01005 
02347 
00523 
02356 
02274 
02333 
05472 
01360 
02306 
01033 
02277 
01344 
01252 
02276 
01236 
01123 
01072 

02345 
02362 
02301 
02360 
01477 
01560 
02346 
01043 
01456 
01052 
02333 
01037 
02274 
02362 
01037 
02333 
01056 
02311 
02362 
05473 
00022 
02364 



M22013 
M22015 



M22020 

PAT1 

PAT2 

PAT3 

M22022 



M22025 



M22035 



M22040 



07400 4 02177 



PXD 0*2 
SUB TRALEV-1 
T2E M22013 
TXI M22006+l*2» 
SXD ETRAL.2 
TRA M21020 
SXD ETRAST*2 
CLA M2CON 
STO AODCO 
CLA TIFGOtl 
TMI M22600 
ANA M2CON+10 
TZE M22020 
CAS M2C0N+3 
TXI M22500*l»-1 
TXI M22400*l*-1 
CAS M2CON+2 
TXI M22300»l»-1 
TXI M22200»l»-1 
TXI M22100*l»-1 
TIFGO ENTRY 
CLA TIFFN 
STO M2CW 
CLA M2CON+5 
STO CLOC 
TSX M22750»4 
TSX M22800*4 
LXD CTRAST*2 
TXI M22025+l»2» 
TSX M22700*4 
TRA M22035 
CLA ADDCO 
TZE M22022 
CLA M2C0N 
STO M2CW 
TRA M22022 
CLA ADDCO 
TZE M22040 
CLA M2CON+13 
STO M2CW 
CLA TIFG0+1»1 
ALS 18 
STO M2CW+2 
TSX CIT200*4 



00000 
00000 
00000 
00000 
53400 
77777 
63400 
77776 



02362 
02315 
02364 
0221k 
02347 
01070 
02347 
00503 



M22050 



HTR 
HTR 
HTR 
HTR 
LXD 
TXI 
SXD 
TXI 



01072 50000 02345 M22100 CLA 



M2CW 

M2ABC 

M2CW+2 

M2C0N 

ETRALi2 

M22050+l»2» 

ETRAL.2 

M21000*l»-2 

TIFGO ENTRY 

TIFFN 



TRALEV ENTRY PT CT. IN ACC 
TRALEV WORD COUNT 
IS IT END OF TRALEV TABLE* YES 
-1 NO* UPDATE TRALEV TABLE 

START OF NEXT ENTRY* SAVE COUNT 
OF TRALEV* BACK TO COMPILE INSTR. 
SAVE TRASTO ENTRY PT. 
INITIALIZE ADDCO 

OBTAIN TIFGO TYPE* TRANSFER TO ROUTINES 
IF(E) 

GO TO A 

IF OVERFLOW 
IF DIV CK 

IF SENSE 
GO TO <A)»1 
GO TO N (A) 
A GO TO A 

CURRENT TIFGO FMLA NO* 

+10»INCREMENT 

FOR LOC WD OF 1ST INSTR OF TRASTO BLOCK 
TRASTO LEV. NO. SEARCH 
CUR. TIFGO LEV.NO.IN TRASTO 
CUR.TIFGO NO. NOT IN TRASTO 
-4 UPDATE TRASTO ENTRY POINT 
TRASTO FMLA NO SEARCH 
TIFGO FMLA NO. NOT AGAIN FOUND 
TIFGO FMLA NO AGAIN FOUND 
TIFGO ENTRY NOT YET FOUND IN TRASTO 
TIFGO ENTRY ALREADY FOUND IN TRASTO 
ADJUST LOCATION WORD TO ZERO 
BACK TO LEVEL NO. SEARCH 

NO. OF TIMES TIFGO ENTRY APPEARS IN TRASTO 
TIFGO ENTRY NEVER FOUND IN TRASTO 
TIFGO ENTRY FOUND IN TRASTO 
+170000000000 » NEW. LOC. WORD 
TIFGO BETA 
PUT INTO DECREMENT 
3RD WORD 

17(8) 

TRA 

BETA 

ZERO 

UPDATE TRALEV ENTRY POINT 



-1 



UPDATE TRALEV TO NEXT ENTRY 
BACK TO TEST AGAIN. 
GO TO N (A) 

CURRENT TIFGO ALPHA 



F3B05380 
F3B05390 
F3B05400 
F3B05410 
F3B05420 
F3B05430 
F3B05440 
F3B05450 
F3B05460 
F3B05470 
F3B05480 
F3B05490 
F3B05500 
F3B05510 
F3B05520 
F3BO5530 
F3B05540 
F3B05550 
F3B05560 
F3B05570 
F3B05580 
F3B05590 
F3B05600 
F3B05610 
F3B05620 
F3B05630 
F3B05640 
F3B05650 
F3B05660 
F3B05670 
F3B05680 
F3B05690 
F3B05700 
F3B05710 
F3B05720 
F3B05730 
F3B05740 
F3B05750 
F3B05760 
F3B05770 
F3B05780 
F3B05790 
F3B05800 

F3B05820 
F3B05830 
F3B05840 
F3B05850 
F3B05860 
F3B05870 
F3B05880 
F3B05890 
F3B05900 
F3B05910 



u 



n 



O 



01073 





76000 





00002 




CHS 




01074 





60100 





02362 


PAT5 


STO 


M2CW 


01075 





50000 





02301 


PAT6 


CLA 


H2C0N+5 


01076 





60100 





02360 


PAT7 


STO 


CLOC 


01077 





07400 


4 


01477 


M22105 


TSX 


M22750»4 


01100 





07400 


4 


01560 




TSX 


M22800»4 


01101 


-0 


53400 


2 


02346 




LXD 


CTRASTt2 


01102 


1 


77774 


2 


01103 


M22110 


TXI 


M22110+l»2»-4 


01103 





07400 


4 


01456 




TSX 


M22700»4 


01104 





02000 





01112 




TRA 


M22120 


01105 





50000 





02333 




CLA 


ADDCO 


01106 





10000 





01077 




TZE 


M22105 


01107 





50000 





02274 




CLA 


M2C0N 


OHIO 





60100 





02362 




STO 


M2CW 


01111 





02000 





01077 




TRA 


M22105 


01112 


-0 


53400 


2 


02347 


M22120 


LXD 


ETRAL»2 


01113 





50000 


2 


03211 




CLA 


TRALEV*2 


01114 


-0 


12000 





01121 




TMI 


M22130 


01115 


-0 


75400 


2 


00000 




PXD 


0»2 


01116 





40200 





03210 




SUB 


TRALEV-1 


01117 





10000 





01121 




TZE 


M22130 


01120 


1 


77777 


2 


01113 




TXI 


M22120+l*2»-l 


01121 


-0 


63400 


2 


02347 


■M22130 


SXD 


ETRALs2 


01122 


1 


77777 


1 


00503 




TXI 


M21000»1»-1 
TIFGO ENTRY A 


01123 





50000 


1 


05472 


M222Q0 


CLA 


TIFGO si 


01124 





73400 


2 


00000 




PAX 


Os2 


01125 


-0 


63400 


2 


02332 




SXD 


L0X»2 


01126 


-0 


32000 





02305 




ANA 


M2C0N+9 


01127 





40000 





02303 




ADD 


M2C0N+7 


01130 





40200 





02332 




SUB 


LOX 


01131 





60100 





02365 




STO 


M2CW+3 


01132 





76000 





00006 




COM 




01133 





40000 





02304 




ADD 


M2CON+8 


01134 





62200 





01140 




STD 


M22220 


XHIZSl 


-0 


5^4QQ 


Z &?347 




JJCD 


ilEAkAZ 


01136 


-0 


63400 


2 


01165 




SXD 


M22240+l»2 


01137 


-0 


63400 


2 


01231 




SXD 


M22275+l»2 


01140 


1 


00000 


2 


01141 


M22220 


TXI 


M22220+l»2 


01141 


-0 


63400 


2 


02357 




SXD 


NETRAL»2 


01142 


-0 


63400 


2 


02347 




SXD 


ETRAL>2 


01143 





07400 


4 


02177 




TSX 


CIT200»4 


01144 





00000 





02345 




HTR 


TIFFN 


01145 





00000 





02274 




HTR 


M2C0N 


01146 





00000 





02345 




HTR 


TIFFN 


01147 





00000 





02365 




HTR 


M2CW+3 


01150 





07400 


4 


01477 


M22225 


TSX 


M22750.4 


01151 





07400 


4 


02013 




TSX 


M23000.4 


01152 


-0 


53400 


2 


02346 




LXD 


CTRAST.2 


01153 


1 


77774 


2 


01154 


M22230 


TXI 


M22230+l»2.-4 


01154 





07400 


4 


01456 




TSX 


M22700.4 


01155 





07400 


4 


02077 




TSX 


M23050»4 


01156 





02000 





01150 




TRA 


M22225 


01157 





50000 





02356 


M22235 


CLA 


ETRAST 



MAKE LOCATION WORD POSITIVE 

+ 10 

SAVE INCREMENT 

TRASTO LEV NO SEARCH 

CUR TIFGO LEV NO. IN TRASTO 

CUR TIFGO LEV NO NOT IN TRASTO 

UPDATE TRASTO ENTRY POINT 

TRASTO FMLA NO SEARCH 

TIFGO FMLA NO. NOT AGAIN FOUND 

TIFGO FMLA NO. AGAIN FOUND 

TIFGO ENTRY NOT YET FOUND IN TRASTO 

TIFGO ENTRY ALREADY FOUND IN TRASTO 

ADJUST LOCATION WROD TO ZERO 

BACK TO LEVEL NO. SEARCH 

UPDATE TRALEV ENTRY POINT 

BEGINNING OF TRALEV BLOCK 

TEST IF END OF TRALEV 



SPACE OVER TO NEXT ENTRY 



GO TO (A)»l 

COMPUTE N+l CCTRAD1- CTRAD2+1) 
STORE IN M2CW+3 
STORE COMPILING FIRST 
INSTRUCTION 



COMPUTE 2S COMP OF 
N-l IN ORDER TO 
OBTAIN TRALEV ENTRY 
POINT £Q£ LAST ADHBES& 



TRALEV. ENTRY PT. FOR LAST ADDRESS 

CURRENT TRALEV ENTRY PT. 

COMPILE FIRST INSTRUCTION 

ALPHA 

ZERO 

ALPHA 

NO. OF ADDRESS IN TRAD 

TRASTO LEVEL NO SEARCH 

COR TIFGO LEV NO IN TRASTO 

CUR TIFGO LEV NO NOT IN TRASTO 

UPDATE TRASTO ENTRY POINT 

TRASTO FMLA NO. SEARCH 

TIFGO FMLA NO. NOT AGAIN FOUND 

TIFGO FMLA NO AGAIN FOUND 

RESET CTRAST CELL FOR 



F3B05920 
F3B05930 
F3B05940 
F3B05950 
F3B05960 
F3BO5970 
F3B05980 
F3B05990 
F3BO6O00 
F3B06010 
F3B06020 
F3B06030 
F3B06040 
F3B06050 
F3B06060 
F3B06070 
F3B06080 
F3B06090 
F3B06100 
F3B06110 
F3B06120 
F3B06130 
F3B06140 
F3B06150 
F3B06160 
F3S06170 
F3B06180 
F3B06190 
F3B06200 
F3B06210 
F3B06220 
F3B06230 
F3B06240 
F3B06250 
F3B06260 
£36062^0 
F3B06280 
F3B06290 
F3B06300 
F3B06310 
F3B06320 
F3B06330 
F3B06340 
F3B06350 
F3B06360 
F3B06370 
F3B06380 
F3B06390 
F3B06400 
F3B06410 
F3B06420 
F3B06430 
F3B06440 
F3B06450 



'/« 



01160 





60100 





02346 




STO 


CTRAST 


01161 


-0 


53400 


2 


02347 




LXD 


ETRAL.2 


01162 


1 


00001 


2 


01163 




TXI 


M22240-1.2.1 


01163 


-0 


63400 


2 


02347 




SXD 


ETRAL.2 


01164 


-3 


00000 


2 


01166 


M22240 


TXL 


M22240+2.2.0 


01165 


-3 


00000 


2 


01150 




TXL 


M22225»2 


01166 





50000 





02333 




CLA 


ADDCO 


01167 





10000 





01232 




TZE 


M22275+2 


01170 


-0 


53400 


2 


02357 




LXD 


NETRAL»2 


01171 


-0 


63400 


2 


02347 




SXD 


ETRAL»2 


01172 





50000 





02301 




CLA 


M2CON+5 


01173 





60100 





02360 




STO 


CLOC 


01174 





60100 





02362 




STO 


M2CW 


01175 





50000 





02345 


M22245 


CLA 


T1FFN 


01176 


-0 


60200 





02362 




ORS 


M2CW 


01177 





50000 





02274 




CLA 


M2C0N 


01200 





60100 





02333 




STO 


ADDCO 


01201 





07400 


4 


01477 


M22250 


TSX 


M22750.4 


01202 





07400 


4 


01560 




TSX 


M22800»4 


01203 


-0 


53400 


2 


02346 




LXD 


CTRAST, 2 


01204 


1 


77774 


2 


01205 


M22255 


TXI 


M22255+1.2.-4 


01205 





07400 


4 


01456 




TSX 


M22700»4 


01206 





02000 





01214 




TRA 


M22265 


01207 





50000 





02333 




CLA 


ADDCO 


01210 





10000 





01201 




TZE 


M22250 


01211 





5O0O0 





02274 




CLA 


M2C0N 


01212 





60100 





02362 




STO 


M2CW 


01213 





02000 





01201 




TRA 


M22250 


01214 





50000 





02333 


M22265 


CLA 


ADDCO 


01215 





10000 





01223 




TZE 


M22270 


01216 





07400 


4 


02163 




TSX 


M23075»4 


01217 





50000 





02360 




CLA 


CLOC 


01220 





40000 





02301 




ADD 


M2CON+5 


01221 





60100 





02360 




STO 


CLOC 


01222 





60100 





02362 




STO 


M2CW 


01223 





50000 





02356 


M22270 


CLA 


ETRAST 


01224 





60100 





02346 




STO 


CTRAST 


01225 


-0 


53400 


2 


02347 




LXD 


ETRAL»2 


01226 


1 


00001 


2 


01227 




TXI 


M22275-1.2.1 


01227 


-0 


63400 


2 


02347 




SXD 


ETRAL»2 


01230 


-3 


ooooo 


2 


01232 


M22275 


TXL 


M22275+2.2.0 


01231 


-3 


00000 


2 


01175 




TXL 


M22245»2 


01232 


-0 


53400 


2 


02357 




LXD 


NETRAL,2 


01233 


1 


77777 


2 


01234 




TXI 


M22280»2»-l 


01235 


1 


77777 


1 


02347 
00503 


M22280 


i>xD 
TXI 


t IKAL.i! 
M210OQ.1.-1 
TIFGO ENTRY A 


01236 


-0 


53400 


2 


02347 


M22300 


LXD 


ETRAL.2 


01237 


-0 


63400 


2 


01165 




SXD 


M22240+l»2 


01240 


-0 


63400 


2 


01231 




SXD 


M22275+1.2 


01241 


1 


77777 


2 


01242 


M22305 


TXI 


M22305+l»2»-l 


01242 


-0 


63400 


2 


02357 




SXD 


NETRAL.2 


01243 


-0 


63400 


2 


02347 




SXD 


ETRAL.2 


01244 





07400 


4 


02177 




TSX 


CIT200.4 



TRASTO LEV NO SEARCH 
UPDATE TRALEV ENTRY POINT 



TIFGO ENTRY NEVER FOUND IN TRASTO 

RESET ETRAL FOR SECOND 

PASS THROUGH TRASTO 

INITIALIZE LOCATION 

COUNTER 

SET LOCATION WORD FOR FIRST 

TRASTO INSERT 

INITIALIZE ADDCO FOR 

TRASTO LEV. NO. SEARCH AND TRANSFER TO PERFORM 

TRASTO LEV. NO. SEARCH 

CUR TIFGO LEV NO FOUND 

CUR TIFGO NO. NOT FOUND 

UPDATE TRASTO ENTRY POINT 

TRASTO FMLA NO. SEARCH 

TIFGO FMLA NO .NOT AGAIN FOUND 

TIFGO FMLA NO. AGAIN FOUND 

CUR TIFGO ADD NOT YET FOUND IN TRASTO 

CURTIFGO ADD ALREADY FOUND IN TRASTO 

ADJUST LOCATION WORD 



CUR. TIFGO NEVER FOUND IN TRASTO 
CUR. TIFGO ADD. FOUND IN TRASTO 
UPDATE LOCATION WORD FOR NEXT ENTRY 
BLOCK OF TRASTO UNSERTS 



RESET CTRAST FOR TRASTO 

LEV. NO. SEARCH 

UPDATE TRALEV ENTRY POINT 



UPDATE TRALEV ENTRY POINT 
FOR NEXT TIFGO ENTRY 



BACK TO NEXT TIFGO 
IF SENSE 
UPDATE TRALEV 



COMPILE INFO. INSTRUCTION 



F3B06460 
F3B06470 
F3B06480 
F3B06490 
F3B065O0 
F3B06510 
F3B06520 
F3B06530 
F3B06540 
F3B06550 
F3B06560 
F3B06570 
F3B06580 
F3B06590 
F3B06600 
F3B06610 
F3B06620 
F3B06630 
F3B06640 
F3B06650 
F3B06660 
F3B06670 
F3B06680 
F3B06690 
F3B06700 
F3B06710 
F3B06720 
F3B06730 
F3B06740 
F3B06750 
F3B06760 
F3B06770 
F3B06780 
F3B06790 
F3B06800 
F3B06810 
F3B06820 
F3B06830 
F3B06840 
F3B06850 
F3BO6860 
F3B06870 
F3B06880 
F3B06B90 
F3B06900 
F3B06910 
F3B06920 
F3B06930 
F3B06940 
F3B06950 
F3B06960 
F3BO6970 
F3B06980 
F3B06990 



o 



o 



n 



O 



01245 
01246 
01247 
01250 
01251 

01252 
01253 
01254 
01255 
01256 
01257 
01260 
01261 
01262 
01263 
01264 
01265 
01266 
01267 
01270 
01271 
01272 
01273 
01274 
01275 
01276 
01277 
01300 
01301 
01302 
01303 
01304 
01305 
01306 
^T30T 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 



00000 02345 
00000 02274 
00000 02274 
00000 02274 
02000 01150 



53400 
77776 
63400 
63400 
07400 
00000 
00000 
00000 
00000 
07400 
07400 
5 3400 
77774 
07400 
07400 
02000 
50000 
60100 
53400 
77777 
63400 
00000 
50000 
10000 
00002 
63400 
50000 
60100 
60100 
"DT~SGS01T"0" 
-0 60200 
50000 
60100 
07400 
07400 
53400 
77774 
07400 
02000 
50000 
10000 
50000 
60100 
02000 
50000 
10000 
07400 
50000 



02347 
01254 
01277 
01342 
02177 
02345 
02274 
02274 
02274 
01477 
02013 
02346 
01267 
01456 
02077 
01263 
02356 
02346 
02347 
01276 
02347 
01263 
02333 
01343 
01303 
02347 
02301 
02360 
02362 
"02345" 
02362 
02274 
02333 
01477 
01560 
02346 
01317 
01456 
01326 
02333 
01313 
02274 
02362 
01313 
02333 
01335 
02163 
02360 



M22400 



M22410 
M22415 

M22420 

M22425 

M22430 

M22435 

M22440 
M22445 



M22455 



HTR TIFFN 
HTR M2C0N 
HTR M2C0N 
HTR M2C0N 
TRA M22225 

TIFGO ENTRY AN 
LXD ETRAL.2 
TXI M22400+2»2»-2 
SXD M22425+l»2 
SXD M22465+l#2 
TSX CIT200»4 
HTR TIFFN 
HTR M2C0N 
HTR M2C0N 
HTR M2C0N 
TSX M22750»4 
TSX M23000»4 
LXD CTRAST»2 
TXI M22415+l»2»-4 
TSX M22700.4 
TSX M23050»4 
TRA M22410 
CLA ETRAST 
STO CTRAST 
LXD ETRAL»2 
TXI M22425»2»-l 
SXD ETRAL»2 
TXH M22410»2 
CLA ADDCO 
TZE M22465+2 
TXI M22430»2.2 
SXD ETRAL»2 . 
CLA M2CON+5 
STO CLOC 
STO M2CW 
CLA TIFFN 
ORS M2CW 
CLA M2C0N 
STO AODCO 
TSX M22750»4 
TSX M22800»4 
LXD CTRASTt2 
TXI M22445+l»2,-4 
TSX M22700«4 
TRA M22455 
CLA ADDCO 
TZE M22440 
CLA M2C0N 
STO M2CW 
TRA M22440 
CLA ADDCO 
TZE M22460 
TSX M23075»4 
CLA CLOC 



ALPHA 
ZERO 
ZERO 
ZERO 

TRASTO LEVEL NO. 
IF DIV CK. 
UPDATE TRALEV 



SEARCH 



COMPILE INFO. INSTRUCTION 

ALPHA 

ZERO 

ZERO 

ZERO 

TRASTO LEVEL NO SEARCH 

CUR. TIFGO LEVEL NO. IN TRASTO 

CUR. TIFGO LEVEL NO. NOT IN TRASTO 

UPDATE TRASTO ENTRY POINT 

TRASTO FMLA. NO. SEARCH 

TIFGO FMLA. NO NOT AGAIN FOUND 

TIFGO FMLA. NO. AGAIN FOUND 

RESET CTRAST CELL FOR 

TRASTO LEVEL NO. SEARCH 

UPDATE TRALEV ENTRY POINT 



TIFGO ENTRY NEVER FOUND IN TRASTO 
RESET ETRAL FOR SECOND 
PASS THROUGH TREASTO 

INITIALIZE LOCATION 

COUNTER 

SET LOC ATION WORD F OR 

FIRST TRASTO INSERT 



F3B07OO0 
F3B07010 
F3B07020 
F3B07030 
F3B07040 
F3B07050 
F3B07060 
F3B07070 
F3B07080 
F3B07090 
F3B07100 
F3B07110 
F3B07120 
F3B07130 
F3B07140 
F3B07150 
F3B07160 
F3B07170 
F3B07180 
F3B07190 
F3B07200 
F3B07210 
F3B07220 
F3B07230 
F3B07240 
F3B07250 
F3B07260 
F3B07270 
F3B07280 
F3B07290 
F3B07300 
F3B07310 
F3B0732O 
F3B07330 
F3 B0734 
F3B07350 
F3B07360 
F3B07370 
F3B07380 
F3B07390 
F3B07400 



INITIALIZE ADDCO FOR 

TRASTO LEV NO SEARCH 

TRASTO LEV NO SEARCH 

CUR TIFGO LEV NO FOUND IN TRASTO 

CUR TIFGO LEV NO NOT FOUND IN TRASTO F3B07410 

UPDATE TRASTO ENTRY POINT F3B07420 

TRASTO FMLA NO SEARCH F3B07430 

TIFGO FMLA NO NOT AGAIN FOUND F3B07440 

TIFGO FMLA NO AGAIN FOUND F3B07450 

CUR TIFGO ADO NOT YET FOUND IN TRAST0F3B07460 

CUR TIFGO ENTRY ALREADY FOUND IN TRASF3B07470 



ADJUST LOCATION WORD 
TRASTO LEV. NO, SEARCH 

CUR TIFGO ADD NEVER FOUND IN TRASTO 
CUR TIFGO ADD FOUND IN TRASTO 
UPDATE LOCATION WORD FOR 



F3B07480 
F3B07490 
F3B07500 
F3B07510 
F3B07520 
F3B07530 



H& 





01332 





40000 





02301 




ADO 


M2CON+5 




NEXT BLOCK OF TRASTO INSERTS 


F3B07540 




01333 





60100 





02360 




STO 


CLOC 






F3B07550 




01334 





60100 





02362 




STO 


M2CW 






F3B07560 




01335 





50000 





02356 


M22460 


CLA 


ETRAST 




RESET CTRAST FOR TRASTO LEV 


F3B07570 




01336 





60100 





02346 




STO 


CTRAST 




NO SEARCH 


F3B07580 




01337 


-0 


53400 


2 


02347 




LXD 


ETRAL.2 




UPDATE TRALEV ENTRY 


F3B07590 




01340 


1 


77777 


2 


01341 




TXI 


M22465.2.-1 




POINT 


F3B07600 




01341 


-0 


63400 


2 


02347 


M22465 


SXD 


ETRALi2 






F3B07610 


D 


01342 


3 


00000 


2 


01307 




TXH 


M22435»2 


TEST END OF TRALEV ENTRIES . 


F3B07620 




01343 


1 


77777 


1 


005C3 




TXI 


M21000»l»-1 
TIFGO ENTRY AN 


NEXT TIFGO. 
IF OVERFLOW 


F3B07630 
F3B07640 




01344 


-0 


53400 


2 


02347 


M22500 


LXD 


ETRAL.2 


INITIALIZE AND RECORD END OF 


F3B0765O 




01345 


1 


77776 


2 


01346 




TXI 


M22500+2»2»-2 


TRALEV 


ENTRY 


F3B07660 




01346 


-0 


63400 


2 


01277 




SXD 


M22425+l»2 






F3B0767O 




01347 


-0 


63400 


2 


01342 




SXD 


M22465+l»2 






F3B07680 




01350 





07400 


4 


01477 


M22505 


TSX 


M22750.4 




TRASTO LEV NO SEARCH 


F3B07690 




01351 





07400 


4 


02027 


COR 12 


TSX 


M23025.4 






F3B07700 




01352 


-0 


53400 


2 


02346 




LXD 


CTRAST#2 




CUR TIFGO LEV NO NOT IN TRASTO 


F3B0771O 




01353 


1 


77774 


2 


01354 


M22510 


TXI 


M22510+l»2»-4 




UPDATE TRASTO ENTRY POINT 


F3B07720 




01354 





07400 


4 


01456 




TSX 


M22700«4 




TRASTO FMLA NO SEARCH 


F3B07730 




01355 





07400 


4 


02113 




TSX 


M23060»4 




TRASTO FMLA NO NOT AGAIN FOUND 


F3B07740 




01356 





02000 





01350 




TRA 


M22505 




TRASTO FMLA NO AGAIN FOUND 


F3B07750 




01357 





02000 





01272 




TRA 


M22420 


CONTINUE AS IN DVCH. 


F3B07760 


















TIFGO ENTRY AN 


IF (E) 




F3B07770 




01360 


-0 


53400 


2 


02347 


M22600 


LXD 


ETRAL»2 


PERMUTE 


WDS. OF THIS TRALEV ENTRY 


F3B07780 




01361 





50000 


2 


03211 




CLA 


TRALEV»2 


SO THAT 




F3B07790 




01362 





60100 





02361 




STO 


SAVE 


Alt A2» 


A3» BECOMES A2» A3» Al 


F3B07800 




01363 





50000 


2 


03212 




CLA 


TRALEV+1»2 




A2 FIRST 


F3BO7810 




01364 





60100 


2 


03211 




STO 


TRALEV.2 






F3B07S20 




01365 





50000 


2 


03213 




CLA 


TRALEV+2«2 




A3 SECOND 


F3B07830 




01366 





60100 


2 


03212 




STO 


TRALEV+1»2 






F3B07840 




01367 





50000 





02361 




CLA 


SAVE 




Al THIRD 


F3B07850 




01370 





60100 


2 


03213 




STO 


TRALEV+2»2 






F3B07860 




01371 


1 


77775 


2 


01372 


M22610 


TXI 


M22610+l»2»-3 






F3B07870 




01372 


-0 


63400 


2 


01342 




SXD 


M22465+l»2 






F3B07880 




01373 





07400 


4 


02177 




TSX 


CIT200»4 




COMPILE INFO INSTRUCTION 


F3B07890 




01374 





00000 





02345 




HTR 


TIFFN 


ALPHA 




F3B07900 




01375 





00000 





02274 




HTR 


M2C0N 


ZERO 




F3B07910 




01376 





00000 





02274 




HTR 


M2CON 


ZERO 




F3B07920 




01377 





00000 





02274 




HTR 


M2C0N 


ZERO 




F3B07930 




01400 





07400 


4 


01477 


M22620 


TSX 


M22750«4 




TRASTO LEV NO SEARCH 


F3BO?*40 




01401 
01402 


o 


07400 


4 


02043 




TSX 


M23035»4 




CUR TIFGO LEV NO FOUND IN TRASTO 


F3B07950 




-0 


53400 


2 


02346 




LXD 


CTRAST.2 




CUR TIFGO LEV NO NOT FOUND IN TRASTO 


F3BO7960 




01403 


1 


7777& 


? 


01404 


M??ft25 


TXI 


MP2625+1.2.-4 




uppATF TPASTn.FNT.RY. POINT 


-F3B07970 




01404 





07400 


4 


01456 




TSX 


M22700»4 




TRASTO FMLA NO SEARCH 


F3B07980 




01405 





07400 


4 


02127 




TSX 


M23065.4 




TRASTO FMLA NO NOT AGAIN FOUND 


F3B07990 




01406 





02000 





01400 




TRA 


M22620 




TRASTO FMLA NO AGAIN FOUND. 


F3B08000 




01407 





50000 





02356 


M22630 


CLA 


ETRAST 




RESET CTRAST CELL FOR 


F3B08010 




01410 





60100 





02346 




STO 


CTRAST 




TRASTO LEV NO SEARCH 


F3B08020 




01411 


-0 


53400 


2 


02347 




LXD 


ETRALf2 




UPDATE TRALEV 


F3B08030 




01412 


1 


77777 


2 


01413 




TXI 


M22635»2»-l 




ENTRY POINT 


F3BO8040 




01413 


-0 


63400 


2 


02347 


M22635 


SXD 


ETRAL»2 






F3B08050 




01414 





07400 


4 


01477 


M22640 


TSX 


M22750»4 




TRASTO LEVEL NO SEARCH 


F3B08060 




01415 





07400 


4 


02062 




TSX 


M230A0»4 




CUR TIFGO LEV NO FOUND IN TRASTO 


F3B08070 



W 



o 



r> 



n 



01416 
01417 
01420 
01421 
01422 
01423 
01424 
01425 
01426 
01427 
01430 
01431 
01432 
01433 
01434 
01435 
01436 
01437 
01440 
01441 
01442 
01443 
01444 
01445 
01446 
01447 
01450 
01451 
01452 
01453 
01454 
01455 



01456 
01457 
01460 
01461 
01462 
01463 
01464 
01465 
01466 
01467 
01470 
01471 
01472 
01473 
01474 
01475 
01476 

01477 
01500 



53400 
77774 
07400 
07400 
02000 
50000 
60100 
53400 
77777 
63400 
50000 
40000 
60100 
07400 
07400 
53400 
77774 
07400 
07400 
02000 
53400 
77777 
63400 
50000 
40200 
10000 
00003 
63400 
50606 
60100 
50000 
77777 



02346 
01420 
01456 
02147 
01414 
02356 
02346 
02347 
01427 
02347 
02333 
02301 
02333 
01477 
02013 
02346 
01437 
01456 
02077 
01433 
02347 
01444 
02347 
02333 
02301 
00535 
01451 
02347 
02356 
02346 
02302 
01305 



M22645 
M22650 

M22655 

M22660 

M22665 

M22670 

COR 13 
M22675 



-0 75400 2 QOOO Q M22 700 



40200 
10000 
50000 
320.00 
76700 
34000 
02000 
02000 
77774 
50000 
32000 
34000 
77774 
77774 
63400 
02000 



02367 

00001 

02370 

02306 

00022 

02345 

01470 

01475 

01456 

02370 M22710 

02305 

02345 

01456 

01456 

02346 M22715 

00002 



-0 63400 4 02331 M22750 
-0 53400 2 02347 



LXO 
TXI 
TSX 
TSX 
TRA 
CLA 
STO 
LXD 
TXI 
SXD 
CLA 
ADO 
STO 
TSX 
TSX 
LXD 
TXI 
TSX 
TSX 
TRA 
LXD 
TXI 
SXD 
CLA 
SUB 
TZE 
TXI 
SXD 
CLA 
STO 
CLA 
TXI 



PXD 
SUB 
TZE 
CLA 
ANA 
ALS 
CAS 
TRA 
TRA 
TXI 
CLA 
ANA 
CAS 
TXI 
TXI 
SXD 
TRA 

SXD 
LXD 



CTRAST .4 

M22645.2.-4 

M22700»4 

M23070.4 

M22640 

ETRAST 

CTRAST 

ETRAL»2 

M22655.2.-1 

ETRAL»2 

ADDCO 

M2C0N+5 

ADDCO 

M22750»4 

M23000»4 

CTRAST t 2 

M22665»2»-4 

M22700.4 

M23050.4 

M22660 

ETRAL.2 

M22670»2»-l 

ETRALi2 

ADDCO 

M2CON+5 

M21030-1 

M22675.2.3 

ETRALf2 

ETRAST 

CTRAST 

M2C0N+6 

M22435-2»lt-l 

M2 CLOSED SUBROUTINES 

TRASTO FMLA NO SEARCH 

.2 

TRASTO-1 

1»4 

TRAST0.2 

M2C0N+10 

18 

TIFFN 

M22710 

M22715 

M22700»2»-4 

TRASTO. 2 

M2CON+9 

TIFFN 

M22700.2.-4 

M22700»2i-4 

CTRAST.2 

2.4 



CUR TIFGO LEV NO NOT FOUND IN TRASTO 

UPDATE TRASTO ENTRY POINT 

TRASTO FMLA NO SEARCH 

TIFGO FMLA NO NOT AGAIN FOUND 

TIFGO FMLA NO AGAIN FOUND 

RESET CTRAST CELL FOR 

TRASTO LEV NO SEARCH 

UPDATE TRALEV 
ENTRY POINT 
SET ADDCO FOR 
TRA ADDRESS 

TRASTO LEV NO SEARCH 

CUR TIFGO LEV NO FOUND IN TRASTO 

CUR TIFGO LEV NO NOT FOUND IN TRASTO 

UPDATE TRASTO ENTRY POINT 

TRASTO FMLA NO SEARCH 

TIFGO FMLA NO NOT AGAIN FOUND 

TIFO FMLA NO AGAIN FOUND 

UPDATE TRALEV ENTRY POINT 
FOR NEXT TIFGO ENTRY 



RESET ETRAL FOR 
SECOND PASS THROUGH TRASTO 
RESET CTRAST FOR SECOND 
PASS THROUGH TRASTO 
INITIALIZE LOCATION 



PLACE COUNT OF TRALEV ENTRY IN AC. 

TRASTO WORD COUNT 

EQUAL. TR BACK 

TRASTO ENTRY 

SAVE DECREMENT 

SHIFT B TO DECREMENT PORTION 

CURRENT TIFGO FMLA. NO. 

TRASTO GREATER THAN TIFGO 

TRASTO EQUAL TO TIFGO FMLA NO 

TRAS TO LESS THAN TIFGOj BACK TO BRING NEXT 

TRASTO ENTRY 

MASK OUT ADDRESS 

INTERNAL FORMULA NO. ALPHA 

TRASTO 



TRASTO NOT FOUND 



TRASTO LEVEL NO SEARCH 



CB0X.4 
ETRAL.2 



TR COUNT STORED FOR LINKAGE 
CURRENT TRALEV ENTRY PT. IN IR 2 



F3B0808O 
F3B08090 
F3B08100 
F3B08110 
F3B08120 
F3B08130 
F3B08140 
F3B08150 
F3B08160 
F3B08170 
F3B08180 
F3B08190 
F3B08200 
F3B08210 
F3B08220 
F3B08230 
F3B08240 
F3B08250 
F3B08260 
F3B08270 
F3B08280 
F3B08290 
F3B08300 
F3B08310 
F3B08320 
F3B08330 
F3B08340 
F3B08350 
F36O8360 
F3B08370 
F3B08380 
F3B08390 
F3B08400 
F3B08410 
F3B08420 
F3B08430 
F3B08440 
F3B08450 
F3B08460 
F3B08470 
F3B08480 
F3B08490 
F3B08500 
F3B08510 
F3B08520 
F3B08530 
F3B06540 
F3B08550 
F3B08560 
F3B0857O 
F3B08580 
F3B08590 
F3B08600 
F3B08610 



/ 



01501 





50000 


2 


03211 




CLA 


TRALEV*2 


01502 





62100 





02350 




STA 


LEVNO 


01503 


-0 


53400 


2 


02346 




LXD 


CTRAST *2 


01504 





50000 





02340 




CLA 


TWOL 


01505 





10000 





01527 




TZE 


M22770 


01506 





50000 





02346 




CLA 


CTRAST 


01507 


-0 


10000 





01513 




TNZ 


M22760 


01510 





50000 





02337 




CLA 


ONEL 


01511 





10000 





01550 




TZE 


M22787 


01512 





02000 





01527 




TRA 


M22770 


01513 





50000 





02337 


M22760 


CLA 


ONEL 


01514 


-0 


10000 





01524 




TNZ 


M22767 


01515 





40000 





02340 


M22762 


ADD 


TWOL 


01516 


-0 


73400 


4 


00000 




PDX 


0*4 


01517 


-0 


75400 


4 


00000 




PXD 


0*4 


01520 





34000 





02346 




CAS 


CTRAST 


01521 





02000 





01527 




TRA 


M22770 


01522 





02000 





01527 




TRA 


M2277Q 


01523 





02000 





01550 




TRA 


M22787 


01524 





34000 





02346 


M22767 


CAS 


CTRAST 


01525 





02000 





01515 




TRA 


M22762 


01526 





02000 





01515 




TRA 


M22762 


01527 





50000 


2 


02371 


M22770 


CLA 


TRAST0+1»2 


01530 


-0 


32000 





02306 




ANA 


M2CON+10 


01531 





34000 





02350 




CAS 


LEVNO 


01532 





02000 





01535 




TRA 


M22777 


01533 





02000 





01556 




TRA 


M22795 


01534 





02000 





01556 




TRA 


M22795 


01535 





50000 


2 


02371 


M22777 


CLA 


TRASTO+1,2 


01536 


-0 


32000 





02305 




ANA 


M2CON+9 


01537 





77100 





00022 




ARS 


18 


01540 





34000 





02350 




CAS 


LEVNO 


01541 





02000 





01556 




TRA 


M22795 


01542 





02000 





01543 




TRA 


M22783 


01543 





50000 





02333 


M22783 


CLA 


ADDCO 


01544 





40000 





02301 




ADO 


M2C0N+5 


01545 





60100 





02333 




STO 


ADDCO 


01546 


-0 


53400 


4 


02331 




LXD 


CB0X»4 


01547 





02000 


4 


00001 




TRA 


1*4 


01550 





50000 


2 


02372 


M22787 


CLA 


TRASTO+2»2 


01551 


-0 


32000 





02305 




ANA 


M2C0N+9 


01552 





77100 





00022 




ARS 


18 


01553 





34000 





02350 

n l r, ft t 




CAS 


LEVNO 


01554 


u 


ozuuu. 


u 


ij 1 J1J 








01555 





02000 





01556 




TRA 


M22795 


01556 


-0 


53400 


4 


02331 


M22795 


LXD 


CB0X.4 


01557 





02000 


4 


00002 




TRA 


2*4 
INDEXING I 


01560 


-0 


63400 


4 


02331 


M22800 


SXD 


C80X»4 


01561 


-0 


53400 


2 


02274 




LXD 


M2CON*2 


01562 





50000 





02346 




CLA 


CTRAST 


01563 


-0 


10000 





01567 




TNZ 


M22810 


01564 





50000 


2 


02337 


M22805 


CLA 


ONEL, 2 


01565 


-0 


10000 


2 


01600 




TNZ 


M22819»2 



LOAD TRALEV WORD 

CURRENT LEVEL NO. 

CURRENT TRASTO ENTRY PT. 

TWOS COMPLIMENT OF NO OF WDS. IN DEC. FIELD 

TYPE 2 

CURRENT TRASTO ENTRY PT. 

TYPE 1 



TEST TYPE 1 
NO. OF TYPE 2 

COMPARE 



LEVEL NOS. 

SAVE ADDRESS* TEST UPPER LEVEL 
COMPARE TO CURRENT TIFGO LEVEL N0« 
LESS THAN 



LEVEL NOS. 

SAVE DECREMENT 

PLACE IN ADDRESS 

CURRENT TIFGO LEVEL NO. 

EXIT* NOT FOUND 

EQUAL TO OR GREATER THAN 

NO. OF TIMES TIFGO APPEARS 

ADD 10(8) INCREMENT 

RESTORE 

RESTORE LINKAGE* LEVEL NO. 

FOUND. 

TAGS* WORD 3. TYPE 2 LEVEL NO. 

SAVE DECREMENT 

SHIFT TO ADDRESS 

COMPARE LEVEL NO. 



NOT FOUND* BACK TO MAIN ROUTINE 
INSTRUCTION COMPILER 

SAVE COUNT IN 4 FOR LINKAGE 
PLACE ZERO IN IR 2 
CURRENT TRASTO ENTRY POINT 



LENGTH OF TYPE 
ENTRIES EXIST 



1 ENTRY ETC* 



F3B08620 
F3B08630 
F3B08640 
F3B08650 
F3B08660 
F3B08670 
F3B08680 
F3B08690 
F3B08700 
F3B08710 
F3B08720 
F3B08730 
F3B08740 
F3B08750 
F3B08760 
F3B08770 
F3B08780 
F3B08790 
F3B08800 
F3B08810 
F3B08820 
F3B08830 
F3B08840 
F3B08850 
F3B08860 
F3B08870 
F3B08880 
F3B08890 
F3B08900 
F3B08910 
F3B08920 
F3B08930 
F3B08940 
F3B08950 
F3B08960 
F3B08970 
F3B08980 
F3B08990 
F3B09000 
F3B09010 
F3B09020 
F3B09030 
F3B09040 



F3B09060 
F3B09070 
F3B09080 
F3B09090 
F3B09100 
F3B09110 
F3B09120 
F3B0913O 
F3B09140 
F3B09150 



n 



n 



01566 
0X567 
01570 
01571 
01572 
01573 
01574 
01575 
01576 
01577 
01600 
01601 
01602 
01603 
01604 
01605 
01606 



77777 
50000 
40000 
73400 
75400 
10000 
40200 
12000 
40000 
77777 
02000 
02000 
02000 
02000 
02000 
02000 
5 3400 



01564 
02274 
02337 
00000 
00000 
01577 
02346 
01600 
02346 
01570 
01606 
01633 
01654 
01677 
01732 
01752 
02346 



TXI 

M22810 CLA 
ADO 
PDX 
PXD 
TZE 
SUB 
TMI 
ADD 

M22815 TXI 

M22819 TRA 
TRA 
TRA 
TRA 
TRA 
TRA 

M22825 LXD 



M22805»2»-l 

M2C0N 

0NEL»2 

0*4 

0*4 

M22815 

CTRAST 

M22819*2 

CTRAST 

M22810+l»2«-l 

M22825 

M22850 

M22875 

M22900 

M22925 

M22950 

CTRAST»2 



GET NEXT TYPE ENTRY 

ZERO IN ACC. 

LENGTH OF TYPE 1 ENTRY ETC 

PLACE THIS RESULT INIR 4 

PUT BACK IN ACC.» CLEARING ADDRESS 

CURRENT TRASTO ENTRY POINT 
PROPER TYPE 

SORT ACCORDING TO TYPE 

TYPE I INSERTS 

TYPE II INSERTS 

TYPE III INSERTS 

TYPE IV INSERTS 

TYPE V INSERTS 

TYPE VI INSERTS 
TYPE I INSERTS 



01607 





50000 


2 02372 


CLA 


TRASTO+2»2 


3RD WRD OF TRASTO ENTRY 


01610 





76500 


00022 


LRS 


18 


ADDRESS PORTION IN MO 


01611 





60100 


02365 


STO 


M2CW+3 


DECREMENT* Tl» IN 4TH WORD 


01612 


-0 


50000 


02310 


CAL 


M2C0N+12 


+140000000000 


01613 





60200 


02364 


SLW 


M2CW+2 


SYMBOLIC ADDRESS 


01614 





76300 


00022 


LLS 


18 


PUT BACK T2 IN ACC 


01615 


-0 


60200 


02364 


ORS 


M2CW+2 


PUT IN ADDRESS PART OF 3RD WD 


01616 





07400 


4 02177 


TSX 


CIT200»4 


COMPILE INSTRUCTIONS 


01617 





00000 


02362 


HTR 


M2CW 


INT. FMLA NO. IF ANY 


01620 





00000 


02320 


HTR 


M2ABC+3 


SXD 


01621 





00000 


02364 


HTR 


M2CW+2 


+140000000000* T2 


01622 





00000 


02365 


HTR 


M2CW+3 


Tl 


01623 





60100 


02365 


STO 


M2CW+3 


PUT T2 IN 4TH WRD. 


01624 





07400 


4 02177 


TSX 


CIT200»4 


COMPILE 


01625 





00000 


02274 


HTR 


M2C0N 


ZERO 


01626 





00000 


02321 


HTR 


M2ABC+4 


LXD 


01627 





coooo 


02364 


HTR 


M2CW+2 


14(8)»T2 


01630 





OGOOG 


02365 


HTR 


M2CW+3 


T2 


01631 


-0 


53400 


4 02331 M22848 


LXD 


CB0X»4 


RESTORE LINKAGE 


01632 





02000 


4 00001 


TRA 


1»4 


BACK TO MAIN ROUTINE 


01633 


-0 


53400 


2 02346 M22850 


LXD 


CTRAST*2 


TYPE II INSERTS 


01634 


-0 


50000 


2 02371 


CAL 


TRAST0+1»2 


2ND WORD OF TRASTO ENTRY 


01635 





60200 


02364 


SLW 


M2CW+2 


SAVE IN 3RD WORD FOR COMPILER 


01636 


-0 


50000 


2 02372 


CAL 


TRAST0+2»2 


3RD WD OF ENTRY 


01637 


-0 


32000 


02306 


ANA 


M2CON+10 


SAVE ADDRESS 


01640 





60200 


02365 


SLW 


M2CW+3 


STORE IN 4TH WD 


01641 





07400 


4 02177 


TSX 


CIT200.4 


COMPILER 


01642 





00000 


02362 


HTR 


M2CW 


INTERNAL FMLA NO. » IF ANY 


01643 





00000 


02322 


HTR 


M2ABC+5 


PXD 


01644 





OOOOO 


02274 


HTR 


M2C0N 


ZERO 


01645 





00000 


02365 


HTR 


M2CW+3 


ZER0»T1 


01646 





07400 


4 02177 


TSX 


CIT200f4 


COMPILER 


01647 





OOOOO 


02274 


HTR 


M2C0N 


ZERO 


01650 





OOOOO 


02323 


HTR 


M2ABC+6 


STO 


01651 





OOOOO 


02364 


HTR 


M2CW+2 


S(BCD) 


01652 





OOOOO 


02274 


HTR 


M2C0N 


ZERO 


01653 





02000 


01631 


TRA 


M22848 


TO RESTORE LINKAGE 



F3B09160 
F3B09170 
F3B09180 
F3B09190 
F3B09200 
F3B09210 
F3B09220 
F3B09230 
F3B09240 
F3B09250 
F3B09260 
F3B09270 
F3B09280 
F3B09290 
F3B09300 
F3B09310 
F 3B0932 
F3B09330 
F3B09340 
F3B09350 
F3B09360 
F3B09370 
F3B09380 
F3B09390 
F3B09400 
F3B09410 
F3B09420 
F3B09430 
F3B09440 
F3B09450 
F3B09460 
F3B09470 
F3B09480 
F3B09490 
F3609500 
F3B09510 
F3B09520 
F3S09530 
F3B09540 
F3B09550 
F3B09560 
F3B09570 
F3B09580 
F3B09590 
F3B09600 
F3B09610 
F3B09620 
F3B09630 
F3B09640 
F3B09650 
F3B09660 
F3B09670 
F3B09680 
F3B09690 



Hi1 



01654 


-0 


53400 


2 


02346 


M22875 


LXD 


CTRAST»2 


01655 





50000 


2 


02372 




CLA 


TRASTO+2.2 


01656 





76500 





00022 




LRS 


18 


01657 





40000 





02303 




ADD 


M2CON+7 


01660 





60100 





02365 




STO 


M2CW+3 


01661 





76000 





00000 




CLM 




01662 





76300 





00022 




LLS 


18 


01663 





76000 





00006 




COM 




01664 





40000 





02275 




ADD 


M2C0N+1 


01665 


-0 


32000 





02306 




ANA 


M2CON+10 


01666 





60100 





02363 




STO 


M2CW+1 


01667 


-0 


50000 





02324 




CAL 


M2ABC+7 


01670 


-0 


60200 





02363 




ORS 


M2CW+1 


01671 





07400 


4 


02177 




TSX 


CIT200*4 


01672 





00000 





02362 




HTR 


M2CW 


01673 





00000 





02363 




HTR 


M2CW+1 


01674 





00000 





02311 




HTR 


M2C0N+13 


01675 





00000 





02365 




HTR 


M2CW+3 


01676 





02000 





01631 




TRA 


M22848 


01677 


-0 


53400 


2 


02346 


M22900 


LXD 


CTRAST»2 


01700 





50000 


2 


02372 




CLA 


TRAST0+2»2 


01701 





76000 





00002 




CHS 




01702 





76500 





00022 




LRS 


18 


01703 





76100 





00000 


COR 14 


NOP 




01704 





60100 





02365 


PAT9 


STO 


M2CW+3 


01705 





50000 





02360 


PAT10 


CLA 


CLOC 


01706 





40000 





02301 


PATH 


ADD 


M2CON+5 


01707 





60100 





02360 


PAT12 


STO 


CLOC 


01710 





60100 





02364 


PAT13 


STO 


M2CW+2 


01711 





50000 





02345 


PAT14 


CLA 


TRSWC 


01712 


-0 


60200 





02364 


PAT15 


ORS 


M2CW+2 


01713 





07400 


4 


02177 


RET3 


TSX 


CIT200»4 


01714 





00000 





02362 




HTR 


M2CW 


01715 





00000 





02320 




HTR 


M2ABC+3 


01716 





00000 





02364 


COR 16 


HTR 


M2CW+2 


01717 





00000 





02365 




HTR 


M2CW+3 


01720 





50000 


2 


02372 




CLA 


TRAST0+2t2 


01721 


-0 


32000 





02306 




ANA 


M2CON+10 


01722 





40000 





02303 




ADD 


M2CON+7 


01723 





60100 





02365 




STO 


M2CW+3 


01724 





07400 


4 


02177 




TSX 


CIT200»4 


01725 





00000 





02364 


COR 17 


HTR 


M2CW+2 


01726 


00000 
~tTT)0O0O 






02325 
0231TT 




HTR 


M2ABC+8 


VMT 






01730 





OOOOO 





02365 




HTR 


M2CW+3 


01731 





02000 





01631 




TRA 


M22848 


01732 


-0 


53400 


2 


02346 


M22925 


LXD 


CTRAST»2 


01733 





50000 


2 


02372 




CLA 


TRASTO+2»2 


01734 





76000 





00002 




CHS 




01735 





76500 





00022 




LRS 


18 


01736 





40000 





02303 




ADD 


M2C0N+7 


01737 





60100 





02365 




STO 


M2CW+3 


01740 


-0 


50000 





02324 




CAL 


M2ABC+7 


01741 





77100 





00022 




ARS 


18 



TYPE III INSERTS 
3RD WRD OF TRASTO ENTRY 
SHIFT N TO MG 
1 TO ADDRESS FOR SIGN 
4TH WORD 
CLEAR ACC 

PUT N BACK IN ACC. 
COMPLIMENT 

ADD ONE» 2 S COMPLIMENT 
SAVE ADDRESS 
2ND WORD OF COMPILER 
TXI 

IN DECREMENT 
COMPILER 

TXI» NJCOMP) 

+170000000000 

1» 

RESTORE LINKAGE 

TYPE IV INSERT 
3RD WRD OF TRASTO ENTRY 
CHANGE SIGN TO PLUS 
Tl» TO ADDRESS. T2 TO M2 

INCREMENT FOR LOC WD OF 1ST ENTRY 

ADD 10 

RESTORE WITH NEW INCREMENT 

ALS PLACE IN 3RD WD OF COMPILER 

WORD COUNT 

SAVE IN DECREMENT OF 3RD WD 

COMPILER 

SXD 

WORD COUNT* INCREMENTED LOC WD 

Tl 

3RD WORD OF TRASTO ENTRY 

SAVE ADDRESS 

1 TO ADDRESS FOR C 

4TH WORD 

COMPILER 

LOC WORD 

TIX 

TTVB7 

1T2 

BACK TO RESTORE LINKAGE 

TYPE V INSERTS 
3RD WORD 

CHANGE SIGN TO PLUS 
SHIFT T TO ADDRESS. N TO MQ 
1 FOR SIGN 

4TH WRD. FOR COMPILER 
TXI 
SHIFT TO ADDRESS PORTION 



F3B09700 

F3B09710 

F3B09720 

F3B09730 

F3B09740 

F3B09750 

F3B09760 

F3B09770 

F3B09780 

F3B09790 

F3B09800 

F3B09810 

F3B09820 

F3B09830 

F3B09840 

F3B09850 

F3B09860 

F3B09870 

F3B09880 

F3B09890 

F3B09900 

F3B09910 

F3B09920 

F3B09930 

F3B09940 

F3B09950 

F3S09960 

F3B09970 

F3B09980 

F3809990 

F3B10000 

F3B10010 

F3B10020 

F3B10030 

F3B10040 

F3B10050 

F3B10060 

F3B1O070 

F3B10080 

F38JJ1GS<L 

F3B10100 

F3B1011O 

F3B10120 

F3B10130 

F3B10140 

F3B10150 

F3B10160 

F3B10170 

F3B10180 

F3B10190 

F3B10200 

F3B1021O 

F3B10220 

F3B10230 



mi 



o 



O 



01742 





76300 





00022 


LLS 


18 


CONTENTS OF MQ 


01743 





60200 





02363 


SLW 


M2CW+1 


1 TXI. N 


01744 





07400 


4 


02177 


TSX 


CIT200»4 


COMPILER 


01745 





00000 





02362 


HTR 


M2CW 




01746 





00000 





02363 


HTR 


M2CW+1 


TXI» N 


01747 





00000 





02311 


HTR 


M2C0N+13 


17(8) 


01750 





00000 





02365 


HTR 


M2CW+3 


1*T 


01751 





02000 





01631 


TRA 


M22848 


RESTORE LINKAGE 


01752 


-0 


53400 


2 


02346 


M22950 LXO 


CTRAST»2 


TYPE VI INSERTS 


01753 





50000 


2 


02372 


CLA 


TRASTO+2*2 


3RD WORD OF TRASTO ENTRY 


01754 





76000 





00002 


CHS 






01755 


-0 


50100 





02312 


ORA 


M2C0N+14 


+120000000000 


01756 





60100 





02364 


STO 


M2CW+2 


3RD WD OF COMPILER 


01757 





50000 





02277 


CLA 


M2CON+3 


+000000000004 


01760 


-0 


50100 





02334 


COR 18 ORA 


COR 2 8 


+000004 


01761 





60100 





02366 


STO 


M2CW+4 


5TH WORD 

ffiMPlI FP 


01762 





07400 


4 


02TT7 


TSX ui<:wii 


V.UnrTWCi> 


01763 





00000 





02362 


HTR 


M2CW 




01764 





00000 





02320 


HTR 


M2ABC+3 


SXD 


01765 





00000 





02313 


HTR 


M2CON+15 


60000000000 


01766 





00000 





02366 


HTR 


M2CW+4 


4»4 


01767 





07400 


4 


02177 


TSX 


CIT200t4 


COMPILER 


01770 





00000 





02274 


HTR 


M2C0N 


ZERO 


01771 





00000 





02326 


HTR 


M2ABC+9 


TSX 


01772. 





00000 





02364 


HTR 


M2CW+2 


12(8)»T 


01773 





00000 





02277 


HTR 


M2CON+3 


ZER0»4 


01774 





50200 


2 


02372 


CLS 


TRAST0+2»2 


3RD WORD 


01775 





60100 





02365 


STO 


M2CW+3 


4TH WD OF COMPILER 


01776 


-0 


50100 





02310 


ORA 


M2C0N+12 


14 IN DECREMENT 


01777 





60100 





02364 


STO 


M2CW+2 


3RD WD» SAVE T 


02000 





07400 


4 


02177 


TSX 


CIT200«4 


COMPILER 


02001 





00000 





02274 


HTR 


M2CON 


ZERO 


02002 





00000 





02321 


HTR 


M2ABC+4 


LXP 


02003 





wwuv 





62364 


HTR 


M2CW+2 


14(8)»T 


02004 





00000 





02365 


HTR 


M2CW+3 


ZERO.T 


02005 





07400 


4 


02177 


TSX 


CIT200»4 


COMPILER 


02006 





00000 





02274 


HTR 


M2C0N 


ZERO 


02007 





00000 





02327 


HTR 


M2ABC+10 


LXD 


02010 





00000 





02313 


HTR 


M2CON+15 


6(8) 


02011 





00000 





02366 


HTR 


M2CW+4 


5 4 


02012 





02000 





01631 


TRA 


M22848 


BACK TO RESTORE LINKAGE 



02013 
02014 
02015 
02016 
02017 
02020 
02021 
02022 
02023 



63400 
50000 
60100 
50000 
60200 
07400 
00000 
00000 
00000 



02270 
02345 
02364 
02333 
02364 
02177 
02274 
02315 
02364 



M23000 



INITIAL. TRANSFER COMPILERS FOR TIFGO ENTRIES 

WHEN A TRASTO ENTRY IS ASSOCIATED WITH 

THE TRANSFER ADDRESS 

TRANSFER WITH LOCATION 

ADD6+3»4 SAVE CONTENTS OF IR4 FOR LINKAGE 

TIFFN CURRENT TIF60 FMLA. NO. IN DECR. 

M2CW+2 3RD WORD 

CLA ADDCO 8 TIMES NO. OF TIMES ADDRESS IS IN TRASTO 

ORS M2CW+2 PLACE IN ADDRESS 

TSX CIT200t4 COMPILER 

HTR M2CON ZERO 

HTR M2ABC TRA 

HTR M2CW+2 TIFEN» ADDCO 



SXO 

CLA 
STO 



F3B10240 
F3B10250 
F3B10260 
F3B10270 
F3B10280 
F3B10290 
F3B10300 
F3B10310 
F3B10320 
F3B10330 
F3B10340 
F3B10350 
F3B10360 
F3B10370 
F3B10380 
F3B10390 

F3B10410 
F3B10420 
F3B10430 
F3B10440 
F3B10450 
F3B10460 
F3B10470 
F3B10480 
F3B10490 
F3B10500 
F3B10510 
F3B10520 
F3B10530 
F3B10540 
F3B1055O 
F3810560 
f3B10570 
F3B10580 
F3B10590 
F3B10600 
F3B1O610 
F3B10620 
F3B10630 
F3B10640 
F3B10650 
F3B10660 
F3B10670 
F3B10680 
F3B10690 
F3B10700 
F3B10710 
F3B10720 
F3B10730 
F3B10740 
F3B10750 
F3B10760 
F3B10770 



02024 
02025 
02026 

02027 
02030 
02031 
02032 
02033 
02034 
02035 
02036 
02037 
02040 
02041 
02042 

02043 

02044 

02045 

02046 

02047 

02050 

02051 

02052. 

02053 

02054 

02055 

02056 

02057 

02060 

02061 

02062 
02063 
02064 
02065 
02066 
02067 
02070 
02071 
02072 
02073 
^2U74 
02075 
02076 



02077 
02100 
02101 
02102 



00000 
02000 
02000 



02274 

02271 COR20 

4 00006 



HTR M2C0N ZERO 

TRA PAT17 

TRA 6t4 BACK TO MAIN ROUTINE 

INFO INSTRUCTION FOR IF OVERFLOW 



-0 63400 
50000 
60100 
50000 

-0 60200 
07400 
00000 
00000 
00000 
00000 
02000 
02000 

















-0 63400 
50000 
60100 
60100 
50000 

-0 60200 
40000 
60200 
07400 
00000 
00000 
00000 
00000 
02000 
02000 









-0 







o 



-0 63400 

50000 

60100 

50000 

40000 

-0 60200 

074OO 












~0~ 





00000 
00000 
00000 

02000 
02000 



02270 M23025 
02345 
02364 
02333 
02364 
02177 
02345 
02274 
02364 
02274 

02271 C0R22 
00006 

02270 M23035 
02345 
02362 
02364 
02333 
02362 
02301 
02364 
02177 
02362 
02316 
02364 
02274 

02271 C0R24 
00006 

02270 M23040 

02345 

02364 

02333 

02301 

02364 

02177 



SXD 
CLA 
STO 



TSX 

HTR 
HTR 
HTR 
HTR 
TRA 
TRA 



-0 63400 

-0 53400 

50000 

-0 32000 



0"02274 
02317 
0236 4 
~02TT4 
02271 COR26 
4 00006 



4 02331 M23050 
2 02347 
2 03211 
02305 



AD06+3#4 
TIFFN 
M2CW+2 
CLA AOOCO 
ORS M2CW+2 

CIT200»4 
TIFFN 
M2C0N 
M2CW+2 
M2C0N 
PAT17 
6*4 
TRANSFER 
SXD ADD6+3*4 
CLA TIFFN 
STO M2CW 
STO M2CW+2 
CLA ADDCO 
ORS M2CW 

M2CON+5 
M2CW+2 
CIT200*4 
M2CW 
M2ABC+1 
M2CW+2 
M2C0N 
PAT17 
6*4 

TRANSFER 
ADD6+3.4 
TIFFN 
STO M2CW+2 
CLA ADDCO 
ADD M2CON+5 
ORS M2CW+2 
TSX CIT200*4 
HTR M2 CON "" 
HTR M2ABC+2 
HTR M2CW+2 
HTK M2C0N 
TRA PAT17 
TRA 6»4 

INITIAL 
ENTRIES 
FOR THE 
TRANSFER 
SXD CB0X.4 
LXO £TRALi2 
CLA TRALEV»2 
ANA M2C0N+9 



ADO 
ORS 
TSX 
HTR 
HTR 
HTR 
HTR 
TRA 
TRA 

SXD 
CLA 



SAVE LINKAGE 

TIF60 FMLA NO. 

3RD WO. 

COUNT 

ADDRESS 

COMPILER 

TIFGO FMLA NO* 

ZERO 

TIFFN. ADDCO 



ON ZERO WITH LOCATION FMLA NO + 8 



INT. FMLA NO 

3RD WD 

COUNT 

ADDRESS OF FIRST WD. 

ADO 10 

ADD 10 TO COUNT 

COMPILER 

INT FMLANO* ADDCO 

TZE 

INT. FMLA N0.« ADDCO+10 

ZERO 



ON PLUS WITH LOCATION 
SAVE LINKAGE 
TIFGO INT. FMLA HO, 
3RD WD 



10 TO ADDCO 
IN ADDRESS OF 
COMP ILER 
"ZERO " 
TPL 
TIFFN» 
ZERtT 



3RD WD 



ADDCO+10 



TRANSFER COMPILERS FOR TIFGO 
WHEN THERE IS NO TRASTO ENTRY 
TRANSFER ADDRESS 
WITH LOCATION 

SAVE LINKAGE 

IN IRZ CURRENT TRALEV ENTRY PT. 

CURRENT TRALEV ENTRY 

SAVE DECREMENT* OF TRAVEV ENTRY 



F3810780 

F3B10790 

F3810800 

F3B10810 

F3810820 

F3B10830 

F3B10840 

F3810850 

F3B10860 

F3B10870 

F3810880 

F3B10890 

F3B10900 

F3B10910 

F3B10920 

F3B10930 

F3B10940 

F3B10950 

F3B10960 

F3B10970 

F3B10980 

F3B10990 

F3B11000 

F3B11010 

F3B11020 

F3B11030 

F3B11040 

F3B11050 

F3B11060 

F3B11070 

F3B11060 

F3B11090 

F3B11100 

F3BU110 

F3B11120 

F3B11130 

F3B11140 

F3B11150 

F3B11160 

F3B_11_17_Q 

F3B11180 

F3B11190 

F3B11200 

F3B11210 

F3B11220 

F3B11230 

F3B11240 

F3B11250 

F3B11260 

F3B11270 

F3B11280 

F3B11290 

F3B11300 

F3B11310 



U^- 



u 



) 



n 



02103 
02104 
02105 
02106 
02107 
02110 
02111 
02112 

02113 
02114 
02115 
02116 
02117 
02120 
02121 
02122 
^2423^ 
02124 
02125 
02126 

02127 
02130 
02131 
02132 
02133 
02134 
02135 
02136 
02137 
02140 
02141 
02142 
02143 
02144 
02145 
02146 

02147 
02150 
02151 
02152 
02153 
02154 
02155 
02156 
02157 
02160 
02161 
02162 



60100 
07400 
00000 
00000 
00000 
00000 
53400 
02000 



-0 63400 
-0 53400 
50000 
32000 
60100 
07400 
00000 
00000 





-0 







02364 
02177 
02274 
02315 
02364 
02274 
02331 
00002 

02331 M23060 

02347 

03211 

02305 

02364 

02177 

02345 

02274 



STO M2CW+2 
TSX CIT200»4 
HTR M2CON 
HTR M2A8C 
HTR M2CW+2 
HTR M2CON 
LXD CB0X.4 
TRA 2»4 

INFO INSTRUCTION 

CB0X,4 

ETRAL»2 



SRD WORD 

COMPILER 

ZERO 

TRA 

AI 

ZERO 

RESTORE LINKAGE 



SXD 
LXD 
CLA 
ANA 
STO 
TSX 
HTR 
HTR 



00000 02 364 

00000 02274 

-0 53400 4 02331 

02000 4 00002 



63400 
53400 
50000 
32000 
60100 
50000 
60100 
50000 
60200 
07400 
00O00 
00000 
OOOOO 
00000 
53400 
02000 



63400 

53400 

50000 

32000 

60100 

07400 

OOOOO 

OOOOO 

OOOOO 

OOOOO 

53400 4 

02000 4 



02331 M23065 

02347 

03211 

02305 

02364 

02345 

02362 

02301 

02362 

02177 

02362 

02316 

02364 

02274 

02331 

00002 

02331 M23070 

02347 

03211 

02305 

02364 

02177 

02274 

02317 

02364 

02274 

02331 

00002 



TRALEVtZ 

M2CON+9 

M2CW+2 

CIT200.4 

TIFFN 

M2C0N 
+{TR— M2€W+2- 
HTR M2C0N 
LXD CB0X»4 
TRA 2»4 

TRANSFER ON 
SXD CB0X»4 
LXD ETRAL»2 
CLA TRALEV.2 
ANA M2C0N+9 
STO M2CW+2 
CLA TIFFN 
STO M2CW 
CLA M2CON+5 
ORS M2CW 
TSX CIT200»4 
HTR M2CW 
HTR M2ABC+1 
HTR M2CW+2 
HTR M2C0N 
LXD CB0X»4 
TRA 2»4 

TRANSFER ON 
SXD C80X.4 
LXD ETRALt2 
CLA TRALEV«2 
ANA M2CON+9 
STO M2CW+2 
TSX CIT200.4 
HTR M2C0N 
HTR M2ABC+2 
HTR M2CW+2 
HTR M2C0N 
LXD CB0Xt4 
TRA 2i4 

FINAL TRANSFER 

ENTRIES WHEN A 



FOR IF OVERFLOW 
SAVE LINKAGE 
CURRENT TRALEV ENTRY 
TRALEV ENTRY 
SAVE DECREMENT 
3RD WD 
COMPILER 

TIFGO INT. FMLA NO 
ZERO 

^A4 

ZERO 

RESTORE LINKAGE 



DT. 



ZERO WITH LOCATION 
SAVE LINKAGE 
CURRENT TRALEV 
SAVE DECREMENT 
ENTRY 

TIFGO FMLA NO* 



FMLA NO + 8 

ENTRY PT 
OF TRALEV 



10 (8) 
ADD TO 



ADDRESS 



T1FFN+10(8) 

TZE 

AI 

ZERO 



PLUS WITH LOCATION 
SAVE LINKAGE 



DECREMENT OF TRALEV ENTRY 



ZERO 
TPL 
AI 
ZERO 



COMPILER FOR TIFGO 

TRASTO ENTRY IS ASSOCIATED 



WITH THE TRANSFER ADDRESS 



F3B11320 
F3B11330 
F3B11340 
F3B11350 
F3B11360 
F3B11370 
F3B11380 
F3B11390 
F3B11400 
F3B11410 
F3B11420 
F3B11430 
F3B11440 
F3B11450 
F3B11460 
F3B11470 
F3B11480 
^3BH490 
F3B11500 
F3B11510 
F3B11520 
F3B11530 
F3B11540 
F3B11550 
F3B11560 
F3B11570 
F3B11580 
F3B11590 
F3B11600 
F3B11610 
F3B11620 
F3B11630 
F3B11640 
F3B11650 
F3B11640 
F3B11670 
F3B11680 
F3B11690 
F3B11700 
F3B11710 
F3B11720 
F3B11730 
F3BH740 
F3B11750 
F3B11760 
F3B11770 
F3B11780 
F3B11790 
F3B11800 
F3B11810 
F3B11820 
F3B11830 
F3B11840 
F3B11850 



Hi 



L V 



02163 


-0 


63400 


4 


02331 


M23075 


SXD 


CB0X»4 


SAVE LINKAGE 




02164 


-0 


53400 


2 


02347 




LXD 


ETRAL.2 






02165 





50000 


2 


03211 




CLA 


TRALEV.2 






02166 


-0 


32000 





02305 




ANA 


M2CON+9 


SAVE DECREMENT OF TRALEV 




02167 





60100 





02364 




STO 


M2CW+2 


ENTRY 




02170 





07400 


4 


02177 




TSX 


CIT200.4 






02171 





ooooo 





02311 




HTR 


M2C0N+13 


+170000000000 




02172 





00000 





02315 




HTR 


M2ABC 


TRA 




02173 





00000 





02364 




HTR 


M2CW+2 


AI 




02174 





00000 





02274 




HTR 


M2C0N 


ZERO 




02175 


-0 


53400 


4 


02331 




LXD 


CB0X.4 






02176 





02000 


4 


00001 




TRA 


1.4 




















M2 COMPILER CIT200 




02177 





60100 





02351 


CIT200 


STO 


E1C2 


SAVE AC 




02200 


-0 


60000 





02352 




STQ 


E2C2 


SAVE MQ 




02201 


-0 


63400 


1 


02353 




SXD 


E3C2.1 


SAVE IR 1 




02202 


-0 


63400 


2 


02354 




SXD 


E4C2i2 


SAVE IR 2 




02203 


-0 


53400 


2 


02355 




LXD 


BB0X*2 


2 S COMP. OF NO. OF WDS. IN 


BLOCK 


02204 


3 


77634 


2 


02217 




TXH 


CIT204»2»-100 


COMPARE TO 100. 




02205 


-3 


00000 


2 


02217 




TXL 


CIT204.2.0 


LAST ENTRY 




02206 





76600 





00222 




WRS 


146 


SELECT TAPE 2 




02207 





50000 





07322 




CLA 


TFRCO 


TIFGO FILE REC. COUNT 




02210 





40000 





02303 




ADD 


M2C0N+7 


ADD 1 TO DECREMENT 




02211 





60100 





07322 




STO 


TFRCO 


TIFGO FILE REC. COUNT 




02212 





53400 


1 


02274 




LXA 


M2C0M»1 


ZERO IN IR 1 




02213 





70000 


1 


06622 


CIT201 


CPY 


CIB2»1 


OUTPUT AREA 




02214 


1 


77777 


1 


02215 




TXI 


CIT202.1.-1 


SET COUNT FOR NEXT WORD 




02215 


1 


00001 


2 


02216 


CIT202 


TXI 


CIT203»2tl 


SET UP COUNT OF BLOCK 




02216 


3 


0Q001 


2 


02213 


CIT203 


TXH 


CIT201.2.1 


BACK TO CONTINUE WRITING 




02217 





53400 


1 


02277 


CIT204 


LXA 


M2CON+3»l 


COUNT OF 4 IN IR 1 




02220 





50000 





02275 




CLA 


M2C0N+1 


1 IN ACC 




02221 





62100 





02222 




STA 


CIT205 


TO GET NEXT ENTRY 




02222 





50000 


4 


00000 


CIT205 


CLA 


0*4 


ADDRESS OF NEXT ENTRY 




02223 





62100 





02224 




STA 


CIT206 






02224 





50000 





00000 


CIT206 


CLA 




NEXT ENTRY 




02225 





60100 


2 


06622 




STO 


CIB2»2 


OUTPUT AREA 




02226 





50000 





02222 




CLA 


CIT205 


ADDRESS 




02227 





40000 





02275 




ADD 


M2C0N+1 


ONE 




02230 





62100 





02222 




STA 


CIT205 


RESTORE ADDRESS 




02231 


1 


77777 


2 


02232 




TXI 


CIT207.2.-1 


DECREASE BLOCK COUNT 




02272 


2 


00001 


T "0Z222 


CTT20T 


TTX CIT205.T . 1 


GET-NEXT ENTRY 




02233 


-0 


63400 


2 


02355 




SXD 


BB0X.2 


SAVE COUNT 




02234 





50000 





02351 
02352 




CLA 


E1C2 


RESTORE AC 




02235 


~~ 0~ POUWU V 












02236 


-0 


53400 


1 


02353 




LXD 


E3C2»1 


RESTORE IR 1 




02237 


-0 


53400 


2 


02354 




LXD 


E4C2»2 


RESTORE IR 2 




02240 





02000 


4 


00005 




TRA 


5»4 


BACK TO MAIN ROUTINE 




02241 


-0 


63400 


4 


02260 


ADD1 


SXD 


ADD4t4 


SAVE LINKAGE 




02242 


-0 


53400 


2 


02346 


ADD2 


LXD 


CTRAST.2 


CURRENT TRASTO ENTRY POINT 




02243 





50000 


2 


02372 




CLA 


TRASTO+2.2 


3RD WD OF TRASTO ENTRY 




02244 





12000 





02254 




TPL 


ADD3 


SORT OUT TYPES 1»2»3 




02245 





50000 


2 


02371 




CLA 


TRAST0+1.2 


TYPES 4.5.6. TEST 2ND WD 




02246 


-0 


12000 





02254 




TMI 


ADD3 


TYPE 2 




02247 





50000 


2 


02370 




CLA 


TRASTO, 2 


1ST WORD 





F3B11860 
F3B11870 
F3B11880 
F3B11890 
F3B11900 
F3B11910 
F3B11920 
F3B11930 
F3B11940 
F3B11950 
F3B11960 
F3B11970 
F3B11980 
F3B11990 
F3B12000 
F3B12010 
F3B12020 
F3B12030 
F3B12040 
F3B12050 
F3B12060 
F3B12070 
F3B12080 
F3B12090 
F3B12100 
F3B12110 
F3B12120 
F3B12130 
F3812140 
F3B12150 
F3B12160 
F3B12170 
F3B12180 
F3B12190 
F3B12200 
F3B12210 
F3B12220 
F3B12230 
F3B12240 
F3B12 250 
T3BITZ&B 
F3B12270 
F3B12280 
F3B12290 
F3B12300 
F3B12310 
F3B12320 
F3B12330 
F3B12340 
F3B12350 
F3B12360 
F3B12370 
F3B12380 
F3B12390 



ill 



<¥ 



(^1 



n 



02250 
02251 
02252 
02253 
02254 
02255 
02256 
02257 
02260 
02261 
02262 
02263 
02264 
02265 
02266 
02267 
02270 
022TI 
02272 
02273 
02274 
02275 
02276 
02277 
02300 
02301 
02302 
02303 
02304 
02305 
02306 
02307 
02310 
02311 
02312 
02313 
02314 
02315 
02316 
02317 
02320 
02321 
02322 
02323 
02324 
02325 
02326 
02327 
02330 



02331 





1 






1 
-0 







-0 12000 
50000 

40000 

60100 

77774 2 

07400 4 

02000 

07400 4 
-3 00000 
-0 53400 2 

77774 2 

53400 4 

02000 4 

50000 

40200 

60100 
-3 00000 
D 07400^T 
-0 53400 4 
02000 4 
+000000000000 
+000000000001 
+000000000002 
+000000000004 
+000000000006 
+000000000010 
+000000000020 
+000001000000 
+000003000000 
+077777000000 
+000000077777 
+050000000000 
+140000000000 
+170000000000 

+060000000000 
+000005000G00 
635121000000 
637125000000 
634743000000 
626724000000 
436747000000 
476724000000 
626346000000 
636731000000 
633167000000 
636267000000 
436724000000 
+000000000005 

02274 
02276 
02277 
+000000000003 



02254 
02333 
02301 
02333 

02255 A0D3 
01456 
02263 
01477 

02265 ADD4 
02346 
02255 

02260 A005 
00001 

02333 ADD6 
02301 
02333 
02242 

02241 TATT7 
02270 PAT18 
00006 PAT19 
M2CON 



TMI ADD3 
CLA ADDCO 
ADD M2CON+5 

ADDCO 

ADD3+1.2»-4 

M22700t4 

ADD5 
TSX M22750»4 
TXL ADD6»0 

CTRAST.2 

ADD3+1.2s-4 

ADD4»4 

1*4 

ADDCO 

M2CON+5 
STO ADDCO 
TXL ADD2*0 

T5)T7«>D1»4 

LXD ADD6+3»4 

TRA 6*4 

DEC 0»lt2 ) 4»6»8.16»lB17»3B17 



STO 
TXI 
TSX 
TRA 



LXD 
TXI 
LXD 
TRA 
CLA 
SUB 



TYPE 3 

COUNT TIMES 8 

ADD ONE 

RESTORE NEW COUNT 

SKIP TO NEXT ENTRY 

TRASTO FMLA NO SEARCH 

TRASTO LEVEL NO SEA RCH 

END 

BACK FOR NEXT ENTRY 

BACK TO MAIN ROUTINE. VIA PAT 18 



OCT 77777000000*77777 »50000000000» 140000000000 



C0R27 OCT 170000000000»120000000000*60000000000»5000000 



M2ABC BCD 6TRAO0OTZE0OOTPLOOOSXDO0OLXP000PXDO0O 



BCD 5STO000TXI00OTIXO00TSX000LXD000 



M2ECTR DEC 5 
L«0) SYN M2C0N 
L(2) SYN M2CON+2 
L{4) SYN M2CON+3 
LC3) DEC 3 
02331 CBOX SYN L(3I IRC STORED IN DECR FIELD FOR ALL CLSD SUBROUTINE 



F3B12400 
F3B12410 
F3B12420 
F3B12430 
F3B12440 
F3B 12450 
F3B12460 
F3B 12470 
F3B12480 
F3B12490 
F3B12500 
F3B12510 
F3B12520 
F3B12530 
F3B 12540 
F3B12550 
F3B12560 
^^BlZSTa 
F3B12580 
F3B12590 
F3B12600 



F3B12610 



F3B12620 



F3B12630 



F3B12640 



F3B12650 
F3B12660 
F3B12670 
F3B12680 
F3B12690 
LINKAGEF3B12700 



l\b 



X V 



02332 +000000000456 

02332 

02333 00000 02370 

02333 
02333 

02334 +000004000000 

02335 -200000000000 

02336 +000000000460 

02337 00000 00000 

02340 00000 00000 

02341 0" 00000 00000 

02342 00000 00000 

02343 00000 00000 

02344 00000 00000 

02337 
02340 
02341 
02342 
02343 
02344 
00000 
02345 
00000 
02346 
00000 
02347 
00000 
02350 
00000 00000 
00000 00000 
00000 00000 
00000 00000 
00000 00000 
00000 00000 
00000 00000 
00000 00000 



02345 00000 

02346 00000 

02347 00000 
02350 00000 



02351 
02352 
02353 
02354 
02355 
02356 
02357 
02360 

02361 

02367 



00000 00000 
02362 

00000 00000 
02370 
02370 

04030 
04650 
05470 
06310 
03211 
05472 
06622 
06767 
07322 
07322 



0456 
LOX 

TRSORG 
ORTRST 
ADDCO 

COR28 
MASK 
0460 

1BOX 

2 BOX 

3BOX 

4B0X 

5BOX 

6B0X 

ONEL 

TWOL 

THREEL 

FOURL 

FIVEL 

SIXL 
TRSWC 

TIFFN 

WCCHS 

CTRAST 

CHS1 

ETRAL 

CHS2 

LEVNO 

E1C2 

E2C2 

E3C2 

E4C2 

BBOX 

ETRAST 

NETRAL 

CLOC 

SAVE 
M2CW 
C TRSWC 
TRASTO 
TYPE1 



OCT 
SYN 

SYN 

SYN 

OCT 
OCT 
OCT 



INDEX FOR TRAD IN DECR FIELD 



456 

0456 LOWER 

TRASTO 

TRSORG 

TRSORG 8 TIMES THE NUM OF TIMES THE CURRENT ADDRESS OF THE 

CURRENT TIFGO ENTRY APPEARS IN TRASTO. IN ADDR FIELD 
4000000 



-200000000000 
460 



SYN 1BOX 
SYN ONEL+1 
SYN ONEL+2 
SYN ONEL+3 
SYN ONEL+4 
SYN ONEL+5 

SYN TRSWC CURRENT TIFGO 



TWOS COMPS 

OF THE LENGTHS 

OF VARIOUS TYPES 

OF ENTRY BLOCKS 

IN TRASTO 

IN DECREMENT FIELD 

WORD COUNT 

FMLA NUM IN DEC FIELD 



SYN WCCHS CURRENT TRASTO ENTRY POINT IN DEC FIELD (TWOS COMP) 

SYN CHS1 CURRENT TRALEV ENTRY POINT IN DEC FIELD (TWOS COMP) 

SYN CHS2 LEVEL NUM OF CURRENT ADDR OF CURR TIFGO ENTRY IN 

CELL FOR SAVING AC 
CELL FOR SAVING MQ 
CELL FOR SAVING IRA IN DEC FIELD 
CELL FOR SAVING IRB IN DEC FIELD 
WDS ALREADY ENTERED IN BLOCK 
FOR INITIAL TIFGO FMLA NO MATCH IN DEC 
FOR LAST ADD IN DEC FIELD(TWOS COMP) 

BLOCK 



NO OF 
POINT 
POINT 



TWOS COMP OF 
TRASTO ENTRY 
TRALEV ENTRY 
INCREMENT FOR LOC WD OF FIRST INST IN CUR 

OF TRASTO INSERTIONS (IN ADDR FIELD) 
TEMP STORAGE FOR FIRST TRALEV ENTRY FOR IF 
BSS 5 FOUR WORD INSTRUCTION STORAGE 



(E) 



BSS 400 

SYN TRASTO 

TYPE2 BSS 400 

TYPE3 BSS 400 

TYPE4 BSS 400 

TYPE5 BSS 400 

TYPE6 BSS 400 

TRALEV SYN 

TIFGO SYN 

CIB2 SYN 

TRAD SYN 

ORG 

TFRCO BSS 



TYPE2+1 

TYPE2+1202 

TYPE2+1802 

CIB2+101 

3794 

1 



F3B12710 
F3B12720 
F3B12730 
F3B12740 
F3B12750 
F3B12760 
F3B12770 
F3B12780 
F3B12790 
F3B12800 
F3B12810 
F3B12820 
F3B12830 
F3B12840 
F3B12350 
F3B12860 
F3B12870 
F3B12880 
F3B12890 
F3B12900 
F3B12910 
F3B12920 
F3B12930 
F3B12940 
F3B12950 
F3B12960 
F3B12970 
F3B12980 
ADDRESSF3B12990 
F3B13000 
F3B13010 
F3B13020 
F3B13030 
F3B13040 
F3B13050 
F3B13060 
F3B13070 
F3B13080 
F3B13090 
F3B13100 
FTBI31T0 
F3B13120 
F3B13130 
F3B13140 
F3B13150 
F3B13160 
F3B13170 
F3B13180 
F3B13190 
F3B13200 
F3B13210 
F3B13220 
F3B13230 
F3B13240 



a 7 



o . o 

07323 EASCO BSS 1 CURRENT ASCO ENTRY POINT IN DECR FIELD (TWOS COMPJ F3B13250 

07324 ASNO BSS 1 ONE LESS THAN CUR ASSIGN NUM IN DEC FIELD F3B13260 

07325 ASCO BSS 300 F3B13270 
00030 END 24 F3B13280 



/ 



1\J V 



REM MASTER RECORD CARD = FN060 

MASTER RECORD CARD = FN060 
THE FOLLOWING PROGRAM CONSTITUTES THE FINAL SECTION OF THE 
MERGE. IT MERGES THE FILE OF INSTRUCTIONS PREPARED BY THE 
FIRST SECTION WITH THE FILE PREPARED BY THE SECOND SECTION 
IN ADDITION TO MERGING THESE TWO FILES* IT INSERTS IN THEI 
PROPER POSITION THE INDEXING INSTRUCTIONS NECESSITATED BY 
APPEARANCE OF RELATIVE CONSTANTS. 
00030 ORG 24 

READ TSXCOM INTO HIGH SPEED STORAGE 



00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00050 

00051 

00052 

00053 

00054 

00055 

00056 

00057 

00060 

00061 

00062 

00063 

00064 

00065 

00066 

00067 

00070 

0007 V 

00072 

00073 

00074 
00075 
00076 
00077 
00100 
00101 
00102 



53400 
76200 
46000 
70000 
70000 
50000 
40200 
10000 
00000 
07400 
53400 
50000 
77100 
10000 
73400 
40000 
40000 
62100 
76200 
46000 
00001 
70000 
00001 
53400 
50000 
36100 
77777 
00001 
63400 
60200 
^ 5O0OO 
40200 
10000 
^ 00001 
07400 
02000 











2 












1 


2 



-0 



1 

2 

-0 





01202 M30000 
00303 



01147 

01226 

01227 

01226 

01227 
00042 
4 00031 

00004 

01202 M30010 



4 

4 

01226 

00022 

00073 

3 00000 
01142 
00061 
00055 
00303 

01150 

1 00055 

1 00000 M30020 
1 00055 
1 01141 

01141 

1 01230 M30025 

1 00063 

2 00061 
1 01227 
01226 

0±226 

1 01230 
00073 

4 000^3 
4 00004 

02673 M30050 



07400 
07400 
76000 
02000 
02000 
50000 
40000 



00654 
00700 
00142 
00101 
00150 
07322 
01151 



C4 



LXA 
RDS 
LDA 
CPY 
CPY 
CLA 
SUB 
T2E 
TIX 
TSX 
LXA 
CLA 
ARS 
TZE 
PAX 
ADD 
ADD 
STA 
RDS 
LDA 
TXI 
CPY 
TIX 
LXA 
CAL 
ACL 
TXI 
TIX 
SXD 
SLW 
CtA 
SUB 
TZE 

TSX 
TRA 

TSX 
TSX 
MSE 
TRA 
TRA 
CLA 
ADD 



M3ECTR.4 

195 

L1704J 

TSXCOM-2 

TSXCOM-1 

TSXCOM-2 

TSXCOM-1 

M30010 

M30000+1.4 

4»4 

M3ECTR.4 

TSXCOM-2 

18 

M30050 

0*3 

L(l) 

M30025 

M30020 

195 

LC706) 

M30020»ltl 

0*1 

M30020tl»l 

L(0J»1 

L(0) 

TSXCOM. 1 

M30025+2.1.- 

M30025.2.1 

TSXCOM-1 .1 

TSXCOM-2 

TSXCOM-2 

TSXCOM. 1 

M3O05O 



ERORR COUNT IN IR 4 

SELECT DRUM 3 

DRUM ADDRESS 

WORD COUNT OF TSXCOM TABLE 

CHECK SUM OF WORD COUNT 

WD. COUNT 

CHECK SUM 

EQUAL 

NOT EQUAL. TRY 4 MORE TIMES 

WORD COUNT NOT EQUAL TO CHECK SUM 

ERROR COUNT IN IR4 

WORD COUNT 

PLACE IN ADDRESS 

NO TSX INSTRUCTION 

PLACE WORD COUNT IN IR 1 AND 2 

ADO ONE TO WORD COUNT 

INITIAL ADDRESS 

SELECT DRUM 3 

DRUM ADDRESS 

INCCREMENT BY 1 

TSXCOM TABLE INTO STOORAGE 

COPY LOOP 

ZEROS IN ACC. 

COMPUTE NEW CHECK SUMS AND COMPARE 

TO GIVEN CHECK SUM 



END. CHECK SUMS AGREE 

-NOT EQUAL) BACK TO^FftY- 

READ DRUM 5 MORE TIMES 



-^ -MORE T !#£-& 



4.4 

TSXPT1 

PROGRAM FOR PART 3 OF MERGE 

READTF.C INITIALIZE TIFGO FILE BUFFER 

READFF.C FIRST FILE BUFFERS 

98 IS TIFGO FILE USED UP 

C4 NO 

Gl YES. GO TO END OF TIFGO ROUTINE 

3794 TIFGO RECORD COUNT 

L(1D) ADD ONE TO DECREMENT 



F3B0OO1O 
F3B00020 
. F3B00030 
R F3B00040 
THEF3B00050 
F3B00060 
F3B00070 
F3B00080 
F3B00090 
F3B00100 
F3B00110 
F3B00120 
F3B00130 
F3B00140 
F3B00150 
F3B00160 
F3B00170 
F3B00180 
F3B00190 
F3B00200 
F3B00210 
F3B0022O 
F3B00230 
F3B00240 
F3B00250 
F3B00260 
F3B00270 
F3B00280 
F3B00290 
F3B00300 
F3B00310 
F3B00320 
F3B00330 
F3BO0340 
F3B00350 
F3B00360 
F3B00370 
F3B00380 
F?BOOT9tr 
F3B00400 
F3B00410 



F3B00430 
F3B00440 
F3B00450 
F3BO0460 
F3BO0470 
F3BO048O 
F3B00490 
F3BO0500 
F 3 BOO 5 10 
F3BO0520 



LfH 



o 



00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 
00113 

00114 
00115 
00116 
00117 
00120 
00121 
0122 



60100 
50000 
62200 
50000 
32000 
62200 
34000 
02000 
02000 

53400 
50000 
60100 
77777 
00001 
07400 
00000 



07322 
02362 
01221 
02216 
01162 
01213 
01221 
00234 
00337 

01145 
02216 
01220 
00120 
00115 
01022 
01214 



C6 



00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
001*2 
00143 
00144 
00145 
00146 
00147 

00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 
00162 
00163 
00164 
00165 
00166 



00000 
00000 
00000 
75400 
34000 
02000 
02000 
07400 
07400 
76000 
02000 
02000 
50000 
32000 
10000 
50000 
32000 
34000 
02000 
76100 
02000 

76000 
02000 
02000 
50000 
62200 
53400 
50000 
60100 
77777 
00001 
07400 
00000 
00000 
00000 
00000 



01215 
01216 
01217 
00000 
01212 
00137 
00133 
00004 
00654 
00142 
00137 
00150 
02216 
01164 
00114 
02216 
01162 
01213 
00104 
00000 
00114 

00141 
00153 
00443 
02362 
01221 
01145 
02362 
01226 
00161 
00156 
01022 
01222 
01223 
01224 
01225 



C5 
C2 



CI 



C3 



C7 



61 



G2 

G5 
G4 



G3 



STO 3794 
CLA FFLBUF.A 
STD FFLCFN 
CLA TFGBUF»B 
ANA MASK 
STD TFGCFN 
CAS FFLCFN 
TRA El 
TRA Jl 



LXA 
CLA 
STO 
TXI 
TIX 
TSX 
HTR 



L(4).C 

TFGBUF.B 

TFGC0M+4»C 

Cl.B.-l 

C2»C»1 

CITOO.C 

TFGCOM 



HTR 
HTR 
HTR 
PXD 
CAS 
TRA 
TRA 
TSX 
TSX 
MSE 
TRA 
TRA 
CLA 
ANA 
TNZ 
CLA 
ANA 
CAS 
TRA 
NOP 
TRA 

MSE 
TRA 
TRA 
CLA 
STD 
LXA 
CLA 
STO 
TXI 
TIX 
TSX 
HTR 
HTR 
HTR 
HTR 



TFGCOM+l 

TFGC0M+2 

TFGCOM+3 

O.B 

TFGWC 

C7 

C3 

4.4 

READTF.C 

98 

C7 

Gl 

TFGBUF.B 

2BIT 

C5 

TFGBUF.B 

MASK 

TFGCFN 

C6 

C5 

END OF T1FG0 

97 

G2 

OUT 

FFLBUF.A 

FFLCFN 

L(4),C 

FFLBUF.A 

FFLC0M+4.C 

G3.A.-1 

G4.C.1 

CITOO.C 

FFLCOM 

FFLCOM+1 

FFLCOM+2 

FFLCOM+3 



NEW T1F60 RECORD COUNT 

OBTAIN ALPHA FOR NEXT CIT IN 1ST FILE BUFFER 

OBTAIN FOR NEXT CIT AND SAVE IN 
TIFGO BUFFER 

COMPARE FIRST FILE TO TIFGO FILE 

ALPHA LESS THAN BETA 

ALPHA EQUALS BETA 

ALPHA GREATER THAN BETA 

COMPILE THIS TIFGO FILE INSTRUCTION 
SET UP FOR WORDS 



COMPILER 



COMPARE WORD COUNT 

WITH BUFFER SIZE 
WORD COUNT LESS THAN BUFFER SSIZE 

WC EQUALS BS 
WORD COUNT INCORRECT 
READ TIFGO FILE INTO BUFFER 

IS TIFGO FILE USED UP 

NO TEST LOCATION WD OF NEXT ENTRY 

YES GO TO END OF TIFGO FILE ROUTINE 
WORD COUNT LESS THAN BUFFER SIZE 

IS LOCATION WORD SPECIAL 

YES BACK TO COMPILE NEXT ENTRY 

NO 

DOES NEXT INSTRUCTION IN TIFGO FILE 

B€LONG TO CURRENT COMPILED BLOCK 

NO 

YES 

YES 
FILE ROUTINE 

IS FIRST FILE USED UP. TEST SWITCH 
NO 

YES GO TO TERMINAL ROUT INE 
ENTRY IN FIRST FILE BUFFER 
STORE INTERNAL FORMULA NO. FOR ENTRY 

COMPILE 

FIRST 

FILE 

INSTRUCTION 

COMPILER 



F3B00530 
F3B00540 
F3B00550 
F3B00560 
F3B00570 
F3B00580 
F3B00590 
F3B00600 
F3B00610 
F3B00620 
F3B00630 
F3B00640 
F3B00650 
F3B00660 
F3B00670 
F3B00680 
F3B00690 
F3B007O0 
F3B00710 
F3B00720 
F3B00730 
F3B00740 
F3B00750 
F3B00760 
F3B00770 
F3B00780 
F3B00790 
F3B00800 
F3B00810 
F3B00820 
F3B00830 
F3B00840 
F3B00850 
F3B00860 
F3B00870 
F3B00880 
F3B00890 
F3B00900 
F3B00910 
F3B00920 
F3B00930 
F3B00940 
F3B00950 
F3B00960 
F3B00970 
F3B00980 
F3B00990 
F3B01000 
F3B01010 
F3B01020 
F3B01030 
F3B01040 
F3B01050 
F3B01060 



;,ll 



00167 


-0 


75400 


1 


ooooo 




PXO 


0»A 


00170 





34000 





01220 




CAS 


FFLWC 


00171 





02000 





00201 




TRA 


G8 


00172 





02000 





00174 




TRA 


G7 


00173 





07400 


4 


00004 




TSX 


4*4 


00174 





07400 


4 


00700 


07 


TSX 


READFF.C 


00175 


-0 


76000 





00141 




MSE 


97 


00176 





02000 





O0201 




TRA 


G8 


00177 





07400 


4 


00724 




TSX 


M31000.C 


00200 





02000 





00443 




TRA 


OUT 


00201 





50000 


1 


02362 


G8 


CLA 


FFLBUF.A 


00202 





10000 





00155 




TZE 


G5 


00203 





07400 


4 


00724 




TSX 


M31000.C 


00204 





50000 


1 


02362 


G9 


CLA 


FFLBUF,A 


00205 


-0 


32000 





01162 




ANA 


MASK 


00206 





34000 





01221 




CAS 


FFLCFN 


00207 





02000 





00153 




TRA 


G2 


00210 





76100 





00000 




NOP 




00211 





53400 


4 


01145 




LXA 


L(4).C 


00212 





50000 


1 


02362 


G10 


CLA 


FFLBUF.A 


00213 





60100 


4 


01226 




STO 


FFLC0M+4.C 


00214 


1 


77777 


1 


00215 




TXI 


G11»A.-1 


00215 


2 


00001 


4 


00212 


Gil 


TIX 


G10.C.1 


00216 





07400 


4 


01022 




TSX 


CITOO.C 


00217 





00000 





01222 




HTR 


FFLCOM 


00220 





00000 





01223 




HTR 


FFLCOM+l 


00221 





00000 





01224 




HTR 


FFLCOM+2 


00222 





00000 





01225 




HTR 


FFLC0M+3 


00223 


-0 


75400 


1 


00000 




PXD 


0,A 


00224 





34000 





01220 




CAS 


FFLWC 


00225 





02000 





00204 




TRA 


G9 


00226 





02000 





00230 




TRA 


G12 


00227 





07400 


4 


00004 




TSX 


4.4 


00230 





07400 


4 


00700 


612 


TSX 


READFF.C 


00231 


-0 


76000 





00141 




MSE 


97 


00232 





02000 





00204 




TRA 


G9 


00233 





02000 





00443 




TRA 


OUT 


00234 





53400 


4 


01145 


El 


LXA 


L(4) .C 


00235 





50000 


1 


02362 


E3 


CLA 


FFLBUF.A 


00236 


* *O10O^ -4—01226 




SfD -FFtteM*4#e 


00237 


1 


77777 


1 


00240 




TXI 


E2.A.-1 


00240 


2 


00001 


4 


00235 


E2 


TIX 


E3.C.1 


00241 


-e- 


07400-4^ 


01022 




TSX CI TOO r€ 


00242 





00000 





01222 




HTR 


FFLCOM 


.00243 





00000 





01223 




HTR 


FFLCOM+l 


00244 





00000 





01224 




HTR 


FFLCOM+2 


00245 





00000 





01225 




HTR 


FFLCOM+3 


00246 


-0 


75400 


1 


00000 




PXD 


0»A 


00247 





34000 





01220 




CAS 


FFLWC 


00250 





02000 





00257 




TRA 


Fl 


00251 





02000 





00253 




TRA 


E4 


00252 





07400 


4 


00004 




TSX 


4.4 


00253 





07400 


4 


00700 


E4 


TSX 


READFF.C 



COMPARE WORD COUNT WITH BUFFER SIZE 
TO TEST IF FIRST FILE IS NOW EMPPTY 
WORD COUNT LES THAN BUFFER SIZE 

WC EQUALS BS 
WORD COUNT INCORRECT 

TEST IF FIRST FILE IS USED UP 

NO 

YES. GO TO TSX COM TABLE SEARCH 

TERMINAL ROUTINE 

TEST IF NEXT FIRST FILE ENTRY 

BELONGS TOSAME BLOCK OF INSTRUCTIONS 

NO 

TEST IF NEXT FIRST FILE ALPHA 

IS GREATER THAN PREVIOUS ONE 

INTERNAL FORMULA NUMBER 

YES. BACK TO COMPILE NEXT INSTRUCTION 

NO. COMPILE THIS INSTRUCTION 
ENTRY IN FIRST FILE BUFFER. SET 
UP FOUR WOROS OF ENTRY 
STEP UP IR COUNTS 

COMPILER 



TEST IF FIRS T FILE BUFFER 

IS EMPTY 

NO 

YES 

WORD COUNT INCORRECT 

READ IN TO REFILL BUFFER 

TEST IF AT END OF FIRST FILE 

TERMINAL ROUTINE 

ALPHA LESS THAN BETA 

COMPILE 

FIRST 

FttE 

INSTRUCTION SET UP FOUR WORDS 



COMPARE WORD COUNT 
WITH BUFFER SIZE 
WC LESS THAN BS 
WC EQUALS BS 

WORD COUNT INCORRECT 

READ FIRST FILE 



F3B01070 
F3B01080 
F3B01090 
F3B01100 
F3B01110 
F3B01120 
F3B01130 
F3B01140 
F3B01150 
F3B01160 
F3B01170 
F3B01180 
F3B01190 
F3B01200 
F3B01210 
F3B01220 
F3B01230 
F3B01240 
F3B01250 
F3B01260 
F3B01270 
F3B01280 
F3B01290 
F3B013O0 
F3B01310 
F3B01320 
F3B01330 
F3B01340 
F3B01350 
F3B01360 
F3B01370 
F3B01380 
F3B01390 
F3B01400 
F3B01410 
F3B01420 
F3B01430 
F3B01440 
F3B01450 
F3B01460 
T3BU1 WTO 
F3B01480 
F3B01490 



F3B01510 
F3B01520 
F3B01530 
F3B01540 
F3B01550 
F3B01560 
F3B01570 
F3B01580 
F3B01590 
F3B01600 



<-jlt 



n 



n 



00254 
00255 
00256 
00257 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00270 
00271 
00272 
00273 
00274 
tHJ2T5 
00276 
00277 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
00307 
00310 
00311 

00312 
00313 
00314 
©0315 
00316 
00317 
00320 
00321 
00322 
00323 
00324 
00325 
00326 
00327 
00330 
00331 
00332 
00333 
00334 
00335 
00336 



76000 

02000 

02000 

50000 

10000 

07400 

50000 

32000 

34000 

02000 

76100 

53400 

50000 

60100 

77777 1 

00001 4 

07400 4 



00141 
00257 
00312 
02362 
00234 
00724 
02362 
01162 
01221 
00104 
00000 
01145 
02362 
01226 
00273 
00270 
01022 



Fl 



F2 



F3 



F4 



D000tr^01222^ 
00000 01223 







00000 
00000 
75400 
34000 
02000 
02000 
07400 
07400 
76000 
02000 
02000 



01224 
01225 
1 00000 
01220 
00262 
00306 
00004 
00700 
00141 
00262 
00313 



07400 
-0 76000 
02000 
© 02000 
53400 
50000 
60100 
77777 
00001 
07400 
000O0 
00000 
00000 
00000 
75400 
34000 
02000 
02000 
07400 
07400 
02000 





1 
2 





-0 









4 00724 
00142 
00316 
00443 
4 01145 
02216 
01220 
00322 
00317 
01022 
01214 
01215 
01216 
01217 
00000 
01212 
00316 
00335 
00004 
00654 
00313 



F5 



HI 
HO 



H2 
H4 



H3 



H5 



00337 50000 2 02216 Jl 



MSE 97 

TRA Fl 

TRA HI 

CLA FFLBUFtA 

T2E El 

TSX M31000fC 

CLA FFLBUF#A 

ANA MASK 

CAS FFLCFN 

TRA C6 

NOP 

LXA L(4)»C 

CLA FFLBUF.A 

STO FFLC0M+4.C 

TXI F4»A»-1 

TIX F3.Cfl 

TSX C1T00.C 

HTR-TFtCOM- 

HTR FFLCOM+l 

HTR FFLCOM+2 

HTR FFLC0M+3 

PXD 0»A 

CAS FFLWC 

TRA F2 

TRA F5 

TSX 4»4 

TSX READFF»C 

MSE 97 

TRA F2 

TRA HO 

END OF FIRST 
TSX M31000»C 
MSE 98 
TRA H2 
TRA OUT 
LXA LC4) »C 
CLA TFGBUF.B 
STO TFGC0M+4»C 
TXI H3»B»-1 
TIX H4»C*1 
TSX CITOO.C 
HTR TFGCOM 
HTR TFGCOM+1 
HTR TFGCOM+2 
HTR TFGCOM+3 
PXD O.B 
CAS TFGWC 
TRA H2 
TRA H5 
TSX 4»4 
TSX READTF.C 
TRA HO 

CLA TFGBUF*B 



IS FIRST FILE USED UP 

NO 

YES 

DOES NEXT INSTRUCTION IN 

FIRST FILE HAVE ZERO LOC WORD 
TSX COM TABLE SEARCH 
TEST KF PRESENT ALPHA IS 
GREATER THAN ALPHA OF 
PREVIOUS CIT 
NEXT INTERNAL FORMULA NO. 



PREPARE TO COMPILE THIS INSTRUCTION 
SET UP FOUR WORDS 



COMPILER 



COUNT OF POSITION OM FIRST FILE 

TEST IF FIRST FILE BUFFER 

IS EMPTY 

N0» GET NEXT CIT ENTRY 

WORD COUNT INCORRECT 

READ FIRST FILE 

TEST IF AT END OF FIRST FILE 

BACK TO GET NEXT FIRST FILE ENTRY 

FILE ROUTINE 

READ TIFGO FILE 

END OF TIFGO FILE 

NO 

YES* TO TERMINAL ROUTINE 

COMPILE 

TIFGO 

FILE 

INSTRUCTION 

COMPILER 



COMPARE WORD COUNT 

WITH BUFFER SIZE 

WC LESS THAN BS 

WC EQUALS BS 
WORD COUNT INCORRECT 
BUFFER NOW EMPTYt READ NEXT BLOCK 

ALPHA EQUALS BETA 
TEST IF LOC. WORD OF TIFGO FILE IS 



F3B01610 
F3B01620 
F3B01630 
F3B01640 
F3B01650 
F3B01660 
F3B01670 
F3B01680 
F3B01690 
F3B01700 
F3B01710 
F3B01720 
F3B01730 
F3B01740 
F3B01750 
F3B01760 
F3B01770 
T3B0T7S0~" 
F3B01790 
F3B01800 
F3B01810 
F3B01820 
F3B01830 
F3B01840 
F3B01850 
F3B01860 
F3B01870 
F3B01880 
F3B01890 
F3B01900 
F3B01910 
F3B01920 
F3B01930 
F3B01940 
F3BO1950 
F3B01960 
F3B01970 
F3B01980 
F3B01990 
F3B0200O 
F3B02010 
F3B02020 
F3B02030 
F3B02040 
F3B02050 
F3B02060 
F3B02070 
F3B02080 
F3B02090 
F3B02100 
F3B02110 
F3B02120 
F3B02130 
F3B02140 



Ifl/j 



00340 





12000 





00376 




TPL 


LI 


00341 





76000 





00003 




SSP 




00342 





60100 


2 


02216 




STO 


TFGBUF»B 


00343 





40000 





01203 




ADD 


L1370) 


00344 





60100 


1 


02362 




STO 


FFLBUF*A 


00345 





53400 


4 


01145 


J4 


LXA 


H4)»C 


00346 





50000 


2 


02216 


J3 


CLA 


TFGBUFtB 


00347 





60100 


4 


01220 




STO 


TFGC0M+4»C 


00350 


1 


77777 


2 


00351 




TXI 


J2»B»-1 


00351 


2 


00001 


4 


00346 


J2 


TIX 


J3»C»1 


00352 





07400 


4 


01022 




TSX 


CITOO.C 


00353 





00000 





01214 




HTR 


TFGCOM 


00354 





00000 





01215 




HTR 


TFGCOM+l 


00355 





00000 





01216 




HTR 


TFGCOM+2 


00356 





00000 





01217 




HTR 


TF6COM+3 


00357 


-0 


75400 


2 


00000 




PXD 


0»B 


00360 





34000 





01212 




CAS 


TFGWC 


00361 





02000 





00370 




TRA 


K3 


00362 





02000 





00364 




TRA 


Kl 


00363 





07400 


4 


00004 




TSX 


4t4 


00364 





07400 


4 


00654 


Kl 


TSX 


READTFtC 


00365 


-0 


76000 





00142 




MSE 


96 


00366 





02000 





00370 




TRA 


K3 


00367 





02000 





00150 




TRA 


Gl 


00370 





50000 


2 


02216 


K3 


CLA 


TFGBUF.B 


00371 


-0 


32000 





01162 




ANA 


MASK 


00372 





34000 





01213 




CAS 


TFGCFN 


00373 





02000 





00234 




TRA 


El 


00374 





76100 





00000 




NOP 




00375 





02000 





0C345 




TRA 


J4 


00376 





53400 


4 


01145 


LI 


LXA 


L(4)»C 


00377 


-0 


50000 


2 


02216 


L2 


CAL 


TFGBUFtB 


00400 


-0 


60200 


1 


02362 




ORS 


FFLBUF»A 


00401 


1 


77777 


1 


00402 




TXI 


L8tA.-l 


00402 


1 


77777 


2 


00403 


L8 


TXI 


L3.B»-1 


00403 


2 


00001 


4 


00377 


L3 


TIX 


L2»C»1 


00404 


1 


00004 


1 


00405 




TXI 


L5»A»4 


00405 





53400 


4 


01145 


L5 


LXA 


L(4)tC 


00406 





50000 


1 


02362 


L7 


CLA 


FFLBtlFfA 


00407 





60100 


4 


01226 




STO 


FFLC0M+4»C 


00410 


1 77777 1 

2 00001 4 


00411 




TXI 


L6»A»-1 


00411 




VS 




L? *C« 1 


00412 





07400 


4 


01022 




TSX 


CITOO.C 


00413 





00000 





01222 




HTR 


FFLCOM 


00414 





00000 





01223 




HTR 


FFLCOM+1 


00415 





00000 





01224 




HTR 


FFLCOM+2 


00416 





00000 





01225 




HTR 


FFLCOM+3 


00417 


-0 


75400 


1 


00000 




PXD 


0»A 


00420 





34000 





01220 




CAS 


FFLWC 


00421 





02000 





00430 




TRA 


M3 


00422 





02000 





00424 




TRA 


Ml 


00423 





07400 


4 


00004 




TSX 


4*4 



MINUS NO 

BETA IS MINUS » YES 

SAVE LOCATION WORD 

370J8) TO LOG. WORD OF FIRST FILE 

SAVE NEW LOCATION 

COMPILE 

T1FG0 

FILE 

INSTRUCTION 
RESET IR 4 
COMPILER 



COMPARE WORD COUNT 
WITH BUFFER SIZE 
WC LESS THAN BS 
WC EQUALS BS 
WORD COUNT INCORRECT 

IS TIFGO FILE USED UP 
NO 
YES 

DOES NEXT INSTRUCTION IN 
TIFGO FILE BELONG TO CURRENT 
COMPILED BLOCK 
NO 
YES 
YES 

BETA IS PLUS 
OR TIFGO FILE 
WITH FIRST FILE 
INSTRUCTION 
RESET IR COUNTS 



COMPILE 
FIRST 
FILE 
INSTRUCTION 



COMPARE WORD COUNT 
WITH BUFFER SIZE 
WC LESS THAN BS 
WC EQUALS BS 
WORD COUNT INCORRECT 



F3B02150 
F3B02160 
F3B02170 
F3B02180 
F3B02190 
F3B02200 
F3B02210 
F3B02220 
F3B02230 
F3B02240 
F3B02250 
F3B02260 
F3B02270 
F3B02280 
F3B02290 
F3B02300 
F3B02310 
F3B02320 
F3802330 
F3B02340 
F3B02350 
F3B02360 
F3B02370 
F3B02380 
F3B02390 
F3B02400 
F3B02410 
F3B02420 
F3B02430 
F3B02440 
F3B02450 
F3B02460 
F3B02470 
F3B02480 
F3B02490 
F3B02500 
F3B02510 
F3B02520 
F3B02530 
F3B02540 
F3B02550 
F3B02560 
F3B02570 
T^EO2580 
F3B02590 
F3802600 
F3B02610 
F3B02620 
F3B02630 
F3B02640 
F3B02650 
F3B02660 
F3B0267O 
F3B02680 



o 



o 



o 



00424 
00425 
00426 




-0 




07400 
76000 
02000 


4 




00700 
00141 
00430 


Ml 


TSX 
MSE 
TRA 


READFF»C 
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M3 


IS FIRST FILE USED UP 
NO 


F3B02690 
F3B02700 
F3B02710 
F3B02720 


00427 





02000 





00330 


C0R1 


TRA 


H3+6 




00430 
00431 





50000 


1 


02362 


M3 


CLA 


FFLBUF*A 


DOES NEXT INSTRUCTION IN 


F3802730 


-0 


32000 





01162 




ANA 


MASK 


FIRST FILE BELONG TO CURRENT 


F3B02740 


00432 
00433 
00434 
00435 
00436 






-0 


34000 
02000 
76100 
02000 
75400 






2 


01221 
00436 
OOOOO 
00405 
OOOOO 


M4 


CAS 
TRA 
NOP 
TRA 
PXD 


FFLCFN 
M4 

L5 
0*2 


COMPILED BLOCK 
NO 
YES 
YES 
TEST IF TIFGO FILE BUFFER IS EMPTY 


F3B02750 
F3B02760 
F3B02770 
F3B02780 
F3B02790 
F3B028O0 
F3B02810 
F3B02820 


00437 





34000 





01212 




CAS 


TFGWC 




00440 





02000 





00137 




TRA 


C7 




00441 





02000 





00133 




TRA 


C3 




00442 





07400 


4 


00004 




TSX 


4*4 


WORD COUNT INCORRECT 


F3B02830 
















M3 TERMINAL ROUTINE 


F3B02840 


00443 


-0 


53400 


1 


01207 


OUT 


LXD 


BBOX.l 


2S C OMPLIMENT OF NO. OF WORDS 


F3B0285O 


00444 





50000 


1 


02523 


PAT1 


CLA 


CIB-3.1 


ENTERED IN BLICK 


F3B02860 


00445 
00446 
00447 
00450 








-0 


Tf02or(r^nmT2^p»Tz 

10000 01137 PAT3 
02000 01066 C0R2 
63400 1 00454 RET1 


TZE RTN 
TRA PAT4 
SXD N2»l 


TEST TF TRA ^TNSTROCTTOir 

YES 

NO 

SAVE INDEX REG. NO. IN COMPARE INSTR. 


T3B02870 
F3B02880 
F3B02890 
F3B02900 


00451 
00452 






53400 
70000 


1 
1 


01141 
02526 


Nl 


LXA 
CPY 


L(0)»1 
CIB.l 


INITIALIZE IR 1 TO 1 
REMAINDER OF 


F3B02910 
F3B02920 


00453 


1 


77777 


1 


00454 




TXI 


N2»l*-1 


INSTRUCTIONS IN BUFFER 


F3B02930 


00454 


3 


ooooo 


1 


00452 


N2 


TXH 


Nl* 1 


TEST IF AT END OF BUFFER 


F3B02940 


00455 





77000 





00204 




WEF 


4 


YES* WRITE END OF FILE 


F3B02950 


00456 
00457 


-0 


53400 


4 


07322 


M32000 


LXD 


3794*4 WRITE 


DO FILE C + FORTRAN FUNCTION FILE AS 2ND 


FILE F3B02960 


1 


00003 


4 


00460 




TXI 


M32005.4.3 


POSITION TAPE 2 TO READ DO FILE C 


F3B02970 
F3B02980 
F3B02990 


00460 





76400 





00222 


M32005 


BST 


146 




O0461 


2 


00001 


4 


00460 




TIX 


M32005»4tl 




00462 





76200 





00222 




RDS 


146 


READ DO FILE C INTO STORAGE 


F3B03000 

F3BO3010 
F3BO3OI0 
F3B02030 

** ^ r~» f\ *■■ vns -— -"^ 


00463 





70000 





07323 




CPY 


3795 




00464 





53400 


4 


07323 




LXA 


3795*4 


WORD COUNT 


00465 


1 


00004 


4 


00466 




TXI 


BST»4*4 




00466 





76400 





00222 


BST 


BST 


146 


BACK TO FIRST WD. 


F3B03CiO 


00467 


2 


00001 


4 


00466 




TIX 


BST*4»1 




00470 
00471 






76200 
76200 






00222 
00222 




ROS 
RDS 


146 
146 


PAST IDENTIFICATION COUNT 
WORD COUNT 


F3B03060 
F3BO3C7 
F3B03CaO 
F3B03090 

wr ** n f\ i % f\.f\ 


00472 





76600 





00224 




WRS 


148 


ZERO ON TAPE 4 


00473 





70000 





01141 




CPY 


LCO) 




00474 





50000 





01141 




CLA 


L(0) 


RESTORE BBOX TO ZERO 


F3B03100 
F3B03110 
F3B03120 

•^ *\ *** ^\ ^ 4 o sv 


00475 
00476 






60100 
76000 






01207 
00140 




STO 

PSE 


BBOX 
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TURN OFF ALL SENSE SWITCHES 


00477 





07400 


4 


00654 


READ 


TSX 


READTF,4 


TREAD TIFGO FILE 


F3B03130 


00500 
00501 
00502 


-0 




76000 
02000 
02000 







00142 
00503 
00522 




MSE 
TRA 
TRA 


98 

COMP 

FREAD 


TEST IF AT END OF TIFGO FILE 

NO 

YES 


F3B03140 
F3B03150 
F3B03160 
F3B03170 


00503 





53400 


4 


01145 


COMP 


LXA 


L(4)*4 


4 IN IR 4 


00504 





50000 


2 


02216 




CLA 


TFGBUF*2 


SET UP FOUR WORDS FOR COMPILATION 


F3B03180 
F3BO3190 
F3BO3200 
F3BO3210 
F3BO3220 


00505 





60100 


4 


01220 




STO 


TFGC0M+4«4 




00506 
00507 


1 

2 


77777 
00001 


2 

4 


00507 
00504 


C0MP1 


TXI 

TIX 


C0MP1*2.-1 
C0MP+1*4»1 




00510 





07400 


4 


01022 




TSX 


CIT00»4 


COMPILER 



wi/ 



00511 
00512 
00513 
00514 
00515 
00516 
00517 
00520 
00521 
00522 
00523 
00524 
00525 
00526 
00527 
00530 
00531 
00532 
00533 
00534 
00535 
00536 
00537 
00540 
00541 
00542 
00543 
00544 
00545 
00546 
00547 
00550 
00551 
00552 
00553 
00554 
00555 
00556 
00557 
0O56O 
00561 
00562 
0563 



00000 

00000 

00000 

00000 

75400 

34000 

02000 

02000 

07400 

07400 

76000 

02000 

02000 

53400 

50000 

60100 

77777 1 

00001 4 

07400 

00000 

00000 

00000 

00000 

75400 

34000 

02000 

02000 

07400 

53400 

00000 1 

76600 

63400 1 

53400 1 

70000 1 

77777 1 

00000 

77000 

53400 

00003 

76-400 

00001 

76200 

76200 



01214 
01215 
01216 
01217 
00000 
01212 
00503 
00477 
00004 
0O700 
00141 
00526 
00545 
01145 
02362 
01226 
00532 
00527 
01022 
01222 
01223 
01224 
01225 
00000 
01220 
00526 
00522 
00004 
01207 
00555 
00224 
00554 
01141 
02526 
00554 
00552 
00224 
07323 
00560 
0Q222 
00560 
00222 
0222 



FREAD 



FCOMP 



FC0MP1 



WRITE 

WRITE1 
WRITE2 

POS 
M32010 



HTR 
HTR 
HTR 
HTR 
PXD 
CAS 
TRA 
TRA 
TSX 
TSX 
MSE 
TRA 
TRA 
LXA 
CLA 
STO 
TXI 
TIX 
TSX 
HTR 
HTR 
HTR 
HTR 
PXD 
CAS 
TRA 
TRA 
TSX 
LXD 
TXL 
WRS 
SXD 
LXA 
CPY 
TXI 
TXH 
WEF 
tXA 
TXI 
EST 
TIX 
RDS 
RDS^ 



TFGCOM 
TFGCOM+1 
TFGCOM+2 
TFGCOM+3 
0*2 
TFGWC 
COMP 
READ 
4»4 

READFF,4 
97 

FCOMP 
WRITE 
L<4> .4 
FFLBUF,1 
FFLC0M+4*4 
FC0MP1»1»-1 
FC0MP+1.4.1 
CIT00»4 
FFLCOM 
FFLCOM+1 
FFLC0M+2 
FFLC0M+3 
0*1 
FFLWC 
FCOMP 
FREAO 
4,4 
BB0X»1 

WRITE2+1.1»0 
148 

WRITE2»1 
LIOI.l 
CIB»1 

WRITE2»1.-1 
WRIT£1»1 
148 

3795.4 
P0S«4»3 
146 

P0S»4.1 
146 
JA6 



00564 
00565 
00566 
00567 
00570 
00571 
00572 
00573 
00574 
00575 
00576 



76600 
70000 
50000 
10000 
73400 
77100 
40000 
62100 



70000 1 



00001 



77000 



00222 
07324 
07324 
00576 
00000 
00022 
00574 
00574 
07325 
00574 
00222 



M32020 



WRS 
CPY 
CLA 
TZE 
PDX 
ARS 
ADD 
STA 
CPY 
TIX 
WEF 



146 

3796 

3796 

M32030-1 

0*1 

18 

M32020 

M32020 

3797,1 

M32020»l»l 

146 



COUNT OF TIFGO 

COMPARE TO CURRENT FMLA. NO. 

LESS THANt COMPILE ENTRIESP 

EQUAL TO. READ NEXT ENTRY 

WORD COUNT INCORRECT 

READ FIRST FILE 

TEST IF AT END OF FIRST FILE 

NO 

YES 

SET UP COUNT AND FOUR WORSD OF ENTRY 



COMPILER 



CHECK WORD COUNT 

AND COMPARE TO FIRST FILE WORD COUNT 



WORD COUNT INCORRECT 

TWOS COMPLIMENT OF NO. OF ENTRIES 



SELECT TAPE 4 



REMAINDER OF BUFFER ONTO TAPE 4 



BACKSPACE OVER DO FILE C 

WRITE ASCO OVER DO FILE C ON TAPE 2 



SELECT TAPE 2 

COPY ASCO OVER D0F1LE C 

NO ASCO ENTRIES 

NUMBER OF ASCO ENTRIES IN IR 1 

SHIFT WORD COUNT 

INITIAL ADDRESS 

INITIALIZE COPY ADDRESS 

ASCO TABLR 

END OF FILE AFTER ASCO TABLE 



F3B03230 
F3B03240 
F3B03250 
F3B03260 
F3B03270 
F3B03280 
F3B03290 
F3B03300 
F3B03310 
F3B03320 
F3B03330 
F3B03340 
F3B03350 
F3B03360 
F3B03370 
F3B03380 
F3B03390 
F3B03400 
F3B03410 
F3B03420 
F3B03430 
F3B03440 
F3B03450 
F3B03460 
F3B03470 
F3B03480 
F3B03490 
F3B03500 
F3B03510 
F3B03520 
F3B03530 
F3B03540 
F3B03550 
F3B03560 
F3B03570 
F3B03580 
F3B03590 
F3B036OO 
F3B03610 
F^BOSfeZ© 
F3B03630 
F3B03640 



F3B03660 
F3B03670 
F3B03680 
F3B03690 
F3B03700 
F3B03710 
F3B03720 
F3B03730 
F3BO3740 
F3B03750 
F3B03760 



n 



O 



00577 





53400 


4 


01202 


M32030 


LXA 


M3ECTR»4 


ERROR COUNT 


F3B03770 


00600 





76200 





00302 




ROS 


194 


READ FIXCON INTO STORAGE 


F3B03780 


00601 





70000 





01226 




CPY 


FIXCON-2 


DRUM CHECK SUM CHCHECKING 


F3B03790 


00602 





70000 





01227 




CPY 


FIXCON-1 




F3B03800 


00603 





50000 





01226 




CLA 


FIXCON-2 


WORD COUNT 


F3B03810 


00604 





40200 





01227 




SUB 


FIXCON-l 


CHECK SUM 


F3B03820 


00605 





10000 





00610 




TZE 


M32040 


CORRECT P 


F3B03830 


00606 


2 


00001 


4 


00600 




TIX 


M32030+l*4»l 


TRY 4 MORE TIMES 


F3B03840 


00607 





07400 


4 


00004 




TSX 


4§4 


WORD COUNT INCORRECT 


F3B03850 


00610 





53400 


4 


01202 


M32040 


LXA 


M3ECTR.4 


ERROR COUNT 


F3B03S60 


00611 





50000 





01226 




CLA 


FIXCON-2 


WORD COUNT 


F3B03870 


00612 





10000 





00634 




TZE 


M32065 


NO FIXCON ENTRIES 


F3B03880 


00613 





73400 


3 


00000 




PAX 


0*3 


INITIALIZE WORD COUNT 


F3B03890 


00614 





40000 





00623 




ADD 


M32055 


INITIAL ADDRESS 


F3B03900 


00615 





62100 





00620 




STA 


M32050 




F3B03910 


00616 





76200 





00302 




RDS 


194 




F3B03920 


00617 





46000 





01143 




LDA 


L(2> 


READ DRUM 2 FOR FIXCON TABLE 


F3BO3930 


00620 





70000 


1 


00000 


M32050 


CPY 


0*1 




F3B03940 


^>Q624 
00622 


9 ftftftftl 1 ftflAifl 




tix 


M32050»l*l 




i3B03950 





53400 


1 


01141 




LXA 


LJOJ.l 


SET IR 1 TO ZERO 


F3B03960 


00623 





50000 


1 


01230 


M 3 20 5 5 


CLA 


FIXC0N»1 


FIRST ENTRY 


F3B03970 


00624 





40200 


1 


01231 




SUB 


FIXC0N+1»1 


CHECK SUM 


F3B03980 


00625 





10000 





00630 




TZE 


M32060 


CORRECT 


F3BO3990 


00626 


2 


00001 


4 


00611 




TIX 


M32040+l»4«l 


TRY 4 MORE TIMES 


F3B04000 


00627 





07400 


4 


00004 




TSX 


4*4 


WORD COUNT INCORRECT 


F3BQ4010 


00630 


1 


77776 


1 


00631 


M32060 


TXI 


M32060+l»l»-2 


SKIP OVER CHECK SUM 


F3B04020 


00631 


2 


00002 


2 


00623 




TIX 


M32055»2»2 


NEXT ENTRY 


F3BO4030 


00632 


-0 


63400 


1 


00644 




SXD 


M32070+2»l 


END OF TABLE COUNT 


F3B04040 


00633 





53400 


2 


01141 




LXA 


LC0)»2 


RESET IR 2 TO ZERO 


F3B04050 


00634 





76600 





00222 


M32065 


WRS 


146 


WRITE FIXCON ON TAPE 2 


F3B04060 


00635 





50000 





01226 




CLA 


FIXCON-2 




F3B04070 


00636 





77100 





00001 




ARS 


1 


SET DP FIX CON ENTRIES WHITHOUT 


F3B04080 


00637 





60100 





01226 




STO 


FIXCON-2 


CHECK SUMS FOR WRITING OUT ON TAPE 2 


F3B04090 


00640 





70000 





01226 




CPY 


FIXCON-2 




F3B04100 


00641 





10000 





00645 




TZE 


M32075 


NO FIXCON ENTRY 


F3B04110 


00642 





70000 


2 


01230 


M32070 


CPY 


F1XC0N.2 




F3B04120 


00643 


1 


77776 


2 


00644 




TXI 


M32070+2»2»-2 




F3B04130 


00644 


3 


00000 


2 


00642 




TXH 


M32070»2 




F3B04140 


00645 





77000 





00222 


M32075 


WEF 


146 


WRITE END OF FILE AFTER FIXCON 


F3B04150 


0O646 
00647 






53400 
76400 


4 



01145 
00222 




LXA 

BST 


L<4>»4 
146 


BACKSPACE TAPE 2 FOR SECTION 4 


F3BO4160 
F3B04170 


00650 


2 


00001 


4 


00647 




TIX 


M32075+2*4,l 




F3B04180 


00651 
00652 
00653 







76O0O 
76200 
02000 







00140 
00221 
00004 




PSE 
RTB 
TRA 


96 

1 

4 


TURN OFF ALL SENSE SWITCHES 


F3B04190 
F3B04200 
F3B04210 
















M3 CLOSED SUBROUTINES 


F3B04220 
















SUBROUTINE FOR 


READING A RECORD OF TIFGO FILE 


F3B04230 


00654 


-0 


63400 


1 


01211 


READTF 


SXD 


E3M3»A 


SAVE LINKAGE IN IR 1 


F3B04240 


00655 





53400 


1 


01202 




LXA 


M3ECTRtl 


ERROR COUNT 


F3B04250 


00656 





76200 





00222 


M3B3 


RDS 


146 


TAPE 2 TO READ TIFGO FILE 


F3B04260 


00657 





53400 


2 


01141 




LXA 


LCOt.B 


RESET IR2 TO ZERO 


F3B04270 


00660 





70000 


2 


02216 


M3B1 


CPY 


TFGBUF.B 


COPY TIFGO FILE FROM TAPE INTO BUFFER 


F3B04280 


00661 


1 


77777 


2 


00660 




TXI 


M3B1»B»-1 


SET UP COUNT 


F3B04290 


00662 





02000 





00675 




TRA 


M3B4 


EOF 


F3B04300 



Hi) 



U V 



00663 





76600 





00333 




WRS 


219 


EOR) ON TAPE 3 


F3B04310 


00664 


-0 


76000 





00012 




RTT 




IS TAPE CHECK INDICATOR ON 


F3B04320 


00 665 





02000 





00672 




TRA 


M3B2 


YES 


F3B04330 


00666 


-0 


63400 


2 


01212 




SXD 


TFGWCfB 


NO 


F3B04340 


00667 





53400 


2 


01141 




LXA 


L(0)fB 


RESET INDEX OF T1FG0 BUFFER 


F3B04350 


00670 


-0 


53400 


1 


01211 




LXD 


E3M3»A 


RESTORE INDEX OF FIRST FILE BUFFER 


F3B04360 


00671 





02000 


4 


00001 




TRA 


ItC 


EXIR. BACK TO MAIN ROUTINE 


F3B04370 


00672 





76400 





00222 


M3B2 


BST 


146 




F3B04380 


00673 


2 


00001 


1 


00656 




TIX 


M3B3.A#1 


ERROR ROUTINE 


F3B04390 


00674 





07400 


4 


00004 




TSX 


4»4 


ERROR READING TAPE 2. TIFGO FILE 


F3B04400 


00675 





76000 





00142 


M3B4 


PSE 


98 


INDICATE END OF TIFGO FILE 


F3B04410 


00676 


-0 


53400 


1 


01211 




LXD 


E3M3#A 


RESTORE INDEX OF FIRST FILE BUFFER 


F3B04420 


00677 





02000 


4 


00001 




TRA 


1»C 

SUBROUTINE FOR 


TRANSFER TO MAIN ROUTINE 
READING A RECORD OF FIRST FILE 


F3B04430 
F3B04440 


00700 


-0 


63400 


2 


01210 


READFF 


SXD 


E2M3»B 


SAVE COUNT IN IR 2 FOR LINKAGE 


F3B04450 


00701 





53400 


2 


01202 




LXA 


M3ECTRfB 


ERROR COUNT 


F3B04460 


00702 





76200 





00223 


M3A3 


RDS 


147 


READ FIRST FILE FROM TAPE 3 


F3B04470 


00703 





53400 


1 


01141 




LXA 


LC01.A 


INITIALIZE IR1 TO ZERO 


F3B04480 


00704 





70000 


1 


02362 


M3A1 


CPY 


FFLBUF.A 


COPY FIRST FILE INTO BUFFER 


F3B04490 


00705 


1 


77777 


1 


00704 




TXI 


M3A1.A.-1 




F3B04500 


00706 





02000 





00721 




TRA 


M3A4 


EOF 


F3B04510 


00707 





76600 





00333 




WRS 


219 


EOR DELAY 704 TO MAKE TAPE TEST 


F3B04520 
F3B04530 


00710 


-0 


76000 





00012 




RTT 






00711 





02000 





00716 




TRA 


M3A2 


ERROR ROUTINE 


F380454G 


00712 


-0 


63400 


1 


01220 




SXD 


FFLWC»A 


SAVE LOCATON WORD OF FIRST FILE 


F3B04550 


00713 





53400 


1 


01141 




LXA 


L(0)»A 


RESET INDEX OF FIRST FILE BUFFER 


F3B04560 


00714 


-0 


53400 


2 


01210 




LXD 


E2M3tB 


RESTORE INDEX OF TIFGO FILE BUFFER 


F3B04570 


00715 





02000 


4 


00001 




TRA 


1»C 




F3B04580 


00716 





76400 





00223 


M3A2 


BST 


147 


BACKSPACE TAPE 3 TO TRY AGAIN 


F3B04590 


00717 


2 


00001 


2 


00702 




TIX 


M3A3»B»1 




F3B04600 


00720 





07400 


4 


00004 




TSX 


4*4 


ERROR READING FIRST FILE FROM TAPE 3 


F3B04610 


00721 





76000 





00141 


M3A4 


PSE 


97 


INDICATE END OF FIRST FILE 


F3B04620 


00722 


-0 


53400 


2 


01210 




LXD 


E2M3»B 


RESTORE INDEX OF TIFGO FILE BUFFER 


F3B04630 
F3B04640 


00723 





02000 


4 


00001 




TRA 


1«C 


















TSXCOM TABLE SEARCH 


F3BG4650 


O0724 


-0 


63400 


1 


01211 


M31000 


SXD 


E3M3»1 


SAVE LINKAGE OF FIRST FILE BUFFER 


F3B04660 


00725 


-0 


63400 


4 


01210 




SXD 


E2M3.4 


SAVE LINKAGE FROMT TSX INSTR. 


F3B04670 


00726 





60000 





01065 




STZ 


DUP 


REINITIALIZE HTE INSTR. 


F3B04680 


00727 





50000 





01226 


M31005 


CLA 


TSXC0M-2 


TEST WORD COUNT OF CHECK SUM 


F3B04690 


00730 





40200 





01227 




sus 


TSXCOM- 1 




F3S0470© 


00751 





10000 





01017 




TZE 


M31080 


CHECK SUM EQUALS WORD COUNT 


F3B04710 


00732 


-0 


53400 


1 


01226 




LXD 


TSXC0M-2»1 


WORD COUNT IN IR1 


F3B04720 


00733 





50000 


1 


01230 




CLA 


TSXCOM. 1 


FIRST ENTRY 

SAVE DECREMENT* INTERNAL^FmTa. N0« 


_E3£Q4X3iL 
F3B04 740 


00/34 -0 3/!U0U U Uil 6 2 




ANA m«C5F. 


1 ^ w »* ™ . ^T V 


00735 





40200 





01221 




SUB 


FFLCFN 


FIRST FILE LOCATION NO. 


F3B04750 


00736 


-0 


10000 





01017 




TNZ 


M31080 

CUR FIRST FILE 


NOT EQUAL. NO TSXCOM ENTRY 
FMLA NO APPEARS IN TSXCOM 


F3B04760 
F3B04770 


00737 


-0 


50000 


1 


01231 


M31015 


CAL 


TSXCOM+1,1 




F3B04780 


O0740 


-0 


32000 





01165 




ANA 


PMASK 


SAVE SIGN OF SECOND WD. OF ENTRY 


F3B04790 


00741 





10000 





01057 


COR 3 


TZE 


CIT07+6 


TYPE 1 ENTRY NEGATIVE 


F3804800 


007*2 





50000 


1 


01230 




CLA 


TSXCOM »1 


TYPE 2 ENTRY 


F3B04810 


00743 


-0 


32000 





01163 




ANA 


AMASK 


SAVE ADDRESS AND STORE IN 


F3B04820 


00744 





60100 





01225 




STO 


FFLC0M+3 


4TH WORD OF FIRST FILE COMPILER 


F3B04830 


00745 





50000 


1 


01231 




CLA 


TSXCOM+1.1 


SECOND WORD OF ENTRY 


F3B04840 



III 



VJ 



o 



n 



O 



00746 





60100 





01224 




STO 


FFLCOM+2 


3RD. WORD OF COMPILER 


F3B04850 


00747 





07400 


4 


01022 




TSX 


CIT00*4 


COMPILE INSTRUCTION 


F3B04860 


00750 





00000 





01141 




HTR 


1.(0) 


ZERO 


F3B04870 


00751 





00000 





01156 




HTR 


L(LXD) 


LXD INSTRUCTION 


F3B04880 


00752 





00000 





01224 




HTR 


FFLCOM+2 




F3B04890 


00753 





00000 





01225 




HTR 


FFLC0M+3 




F3B04900 


00754 


1 


77776 


1 


00755 




TXI 


M31030#l,-2 


STEP UP COUNT FOR NEXT TSXCOM ENTRY 


F3B04910 


00755 


-0 


63400 


1 


01226 


M31030 


SXD 


TSXC0M-2»1 


SAVE NEW WORD COUNT 


F3B04920 


00756 





02000 





00727 




TRA 


M31005 


BACK TO SEARCH REMAING ENTRIES 


F3B04930 


00757 





07400 


4 


01022 


M31035 


TSX 


CIT00»4 


TYPE I ENTRY 


F3B04940 


00760 





00000 





01141 




HTR 


L<0> 


ZERO 


F3B04950 


00761 





00000 





01157 




HTR 


L(SXD) 


SXD 


F3B04960 


00762 





00000 





01152 




HTR 


L16H) 


+060000000000 


F3B04970 


00763 





00000 





01155 




HTR 


L(5*4> 


000004000004 


F3B04980 


00764 





50000 


1 


01231 




CLA 


TSXCOM+1 » 1 


SECOND WORD OF ENTRY 


F3B04990 


00765 


-0 


320O0 





01163 




ANA 


AMASK 


SAVE ADDRESS 


F3B05O0O 


00766 


-0 


50100 





01153 




ORA 


LUOH) 


ADD 120000000000 


F3B05O10 


00767 





60100 





01224 




STO 


FFLCOM+2 


IN 3RD. WORD OF COMPILER 


F3B05020 


00770 


07400 4-04022^ 






^MOO>4 


--FOR-NEX T^fNS TRUCTJ OH 


FTB05030 


00771 





00000 





01141 




HTR 


L(0) 


ZERO 


F3B05040 


00772 





00000 





01160 




HTR 


L(TSX) 


TSX 


F3B05050 


00773 





00000 





01224 




HTR 


FFLCOM+2 


12(8) PLUS ADDRESS 


F3B05060 


00774 





00000 





01145 




HTR 


L(4) 


+000000000004 


F3B05070 


00775 





50000 


1 


01231 


M31O50 


CLA 


TSXCOM+1 tl 


SECOND WORD 


F3B05080 


00776 


-0 


32000 





01163 




ANA 


AMASK 


SAVE ADDRESS 


F3B05090 


00777 





60100 





01225 




STO 


FFLCOM+3 


STORE IN 4TH. WORD OF COMPILED INSTR. 


F3B05100 


01000 


-0 


50100 





01154 




ORA 


LU2H) 


ADD 12(8) AND DTORE IN 3RD. 


F3B05110 


01001 





60100 





01224 




STO 


FFLCOM+2 


WORD OF INSTRUCTION IN COMPILER 


F3B05120 


01002 





07400 


4 


01022 




TSX 


CIT00»4 




F3B05130 


01003 





00000 





01141 




HTR 


L(0) 


ZERO 


F3B05140 


01004 





00000 





01161 




HTR 


L(LXP) 


LXP 


F3B05150 


01005 





00000 





01224 




HTR 


FFLCOM+2 


12(8) PLUS ADDDRESS 


F3B05160 


01006 





00000 





01225 




HTR 


FFLCOM+3 


ADDRESS 


F3B05170 


01007 


1 


77776 


1 


01010 




TXI 


M31063-1.1.-2 


RESET IR1 FOR NEXT ENTRY 


F3B05180 


01010 


-0 


63400 


1 


01226 




SXD 


TSXC0M-2»1 


SAVE WORD COUNT 


F3B05190 


0104 1 





07*©O 


4 


01022 


M31063 


TSX 


C1TOO»4 


COMPILE INSTRUCTION 


F3B05200 


01012 





00000 





01141 




HTR 


L(0) 


ZEROOOOOOOOOO 


F3B05210 


01013 





00000 





01156 




HTR 


L(LXD) 


LXD 


F3B05220 


01014 





00000 





01152 




HTR 


L(6H) 


+060000000000 


F3B0523Q 


01015 





Ooooo 





01155 




HTR 


L<5.4) 


000004000004 


F3B05240 


01016 





02000 





00727 




TRA 


M31005 


CONTI UE TABLE SEARCH 


F3B05250 


01017 


-0 


53400 


1 


01211 


M31080 


LXD 


E3M3.1 


END OF TSXCOM TABLE SEARCH 


F3B05260 


01020 


-0 


53400 


4 


01210 




LXD 


E2M3»4 


RESTORE IR COUNTS FROM LINKAGE 


F3B05270 


01021 





02000 


4 


00001 




TRA 


1*4 


AND GO BACK TO MAIN ROUTINE 


F3B05280 
















COMPILING ROUTINE.CITOO 


F3B05290 


01022 


-0 


60000 





01204 


CITOO 


STQ 


E1C 


SAVE CONTENTS OF MQ 


F3B05300 


01023 


-0 


63400 


1 


01205 




SXD 


E2C»1 


SAVE CONTENTS OF IR1 


F3B05310 


01024 


-0 


63400 


2 


01206 




SXD 


E3C»2 


SAVE CONTENTS OF IR1Z 


F3B05320 


01025 


-0 


53400 


2 


01207 




LXD 


BB0X.2 


2S COMPLIMENT OF NO, OF WORDS OF ENTRY 


F3B05330 


01026 


3 


77634 


2 


01036 




TXH 


CIT04.2.-100 


TEST IF LESS THAN 100 AND GREATER 


F3B05340 


01027 


-3 


OOOOO 


2 


01036 




TXL 


CIT04.2.0 


THAN ZERO . IF SO. COMPILE INSTRUCTION 


F3B05350 


01030 





76600 





00224 




WRS 


148 




F3B05360 


01031 





53^00 


1 


01141 




LXA 


MlCONtl 


SET COUNT IN IR 1 TO ZERO 


F3B05370 


01032 





70000 


1 


02526 


CIT01 


CPY 


CIB.l 


REFILL BUFFER 


F3B05380 



'/*' 



01033 


1 


77777 


1 


01034 




TX! 


CIT02»1»-1 


01034- 


1 


00001 


2 


01035 


CIT02 


TXI 


CIT03»2»1 


01035 


3 


00001 


2 


01032 


CIT03 


TXH 


CIT01»2»1 


01036 





53400 


1 


01145 


CIT04 


LXA 


M1C0N+4»1 


01037 





50000 





01142 




CLA 


M1C0N+1 


01040 





62100 





01041 




STA 


CIT05 


01041 





50000 


4 


OOOOO 


CIT05 


CLA 


0»4 


01042 





62100 





01043 




STA 


C1T06 


01043 





50000 





OOOOO 


CIT06 


CLA 




01044 





60100 


2 


02526 




STO 


CIB»2 


01045 





50000 





01041 




CLA 


CIT05 


OJ.046 





40000 





01142 




ADD 


M1C0N+1 


0104? 





62100 





01041 




STA 


C1T05 


01050 


1 


77777 


2 


01051 




TXI 


CIT07.2.-1 


01051 


2 


00001 


1 


01041 


CIT07 


TIX 


CIT05»1.1 


01052 


-0 


63400 


2 


01207 




SXD 


B80X»2 


01053 





56000 





01204 




LDO 


E1C 


01054 


-0 


53400 


1 


01205 




LXD 


E2C»1 


01055 


-0 


53400 


2 


01206 




LXD 


E3C«2 


01056 





02000 


4 


00005 




TRA 


5f4 


01057 





50000 


1 


01231 




CLA 


TSXC0M+1»1 


01060 





34000 





01065 




CAS 


DUP 


01061 





02000 





01063 




TRA 


OIF 


01062 


1 


77776 


1 


00755 




TXI 


M31030sl*-2 


01063 





60100 





01065 


DIF 


STO 


DUP 


01064 





02000 





00757 




TRA 


M31035 


01065 





00000 





OOOOO 


DUP 


HTR 




01066 





07400 


4 


01022 


PAT4 


TSX 


CIT00»4 


01067 





00000 





01175 


PAT5 


HTR 


ZERO 


01070 





00000 





01166 


PAT6 


HTR 


L(RCD) 


01071 





00000 





01175 


PAT? 


HTR 


ZERO 


01072 





00000 





01175 


PATS 


HTR 


ZERO 


01073 





07400 


4 


01022 


PAT9 


TSX 


CIT00t4 


01074 





ooooo 





01175 


PATIO 


HTR 


ZERO 


01075 





00000 





01167 


PATH 


HTR 


L(CPY) 


01076 





ooooo 





01175 


PAT12 


HTR 


ZERO 


01077 





ooooo 





01175 


PAT13 


HTR 


ZERO 


01100 





07400 


4 


01022 


PAT14 


TSX 


CIT00t4 


01101 





ooooo 





01175 


PAT15 


HTR 


ZERO 


01102 





ooooo 





01170 


PAT16 


HTR 


L i X i T ! 


01103 





Ooooo 





01173 


PAT1? 


-iTi 


. ' 15H) 


01104 





ooooo 





01177 


PAT18 


h~r; 


L ; 2D) 


01105 





07400 


4 


01022 


PAT19 


TSX 


CIT00t4 


01106 00000 UTT75~PAT21T 


HTR 


ZERO 


01107 





ooooo 





01171 


PAT21 


HTR 


L(HPR) 


OHIO 





ooooo 





01175 


PAT22 


HTR 


ZERO 


01111 





ooooo 





01200 


PAT23 


HTR 


LI7-) 


01112 





O7400 


4 


01022 


PAT24 


TSX 


CIT00t4 


01113 





OOOOO 





01175 


PAT25 


HTR 


ZERO 


01114 





OOOOO 





01167 


PAT26 


HTR 


L(CPY> 


01115 





OOOOO 





01175 


PAT27 


HTR 


ZERO 


01116 





OOOOO 





01176 


PAT28 


HTR 


ONED 


01117 





07400 


4 


01022 


PAT29 


TSX 


CI TOO 1 4 


01120 





OOOOO 





01175 


PAT30 


HTR 


ZERO 



RESET COUNTS FOR FIRST ENTRY IN BUFFER 



COUNT OF 4 IN IR1 



LINKAGE FROM MAIN ROUTINE PLUS 1 

FIRST PARAMETER* 2ND.) 3RD.) AND4TH. 
AND STORE IN PROPER OUTPUT AREA 



TO GET NEXT WORD 

DECREASE COUNT IN IR1 AND 2 BY ONE 

SAVE COUNT OF CIB BUFFER 

REDTORE MQ 

RESTORE IR 1 

RESTORE IR2 

BACK. TO MAIN ROUTINE 



COMPILER FOR LOAD BUTTON SEQUENCE 
RCO 

COMPILE INSTRUCTION 
CPY 



XIT 

+170000000000 

000002000000 



HPR 

7 PLUS LOC. NO, OF RCO INSTR. 

CPY 
000000000001 



F3B05390 
F3805400 
F3B05410 
F3B05420 
F3B05430 
F3B05440 
F3B05450 
F3B05460 
F3B05470 
F3B05480 
F3B05490 
F3B05500 
F3B05510 
F3B05520 
F3B05530 
F3B05540 
F3B05550 
F3B05560 
F3B05570 
F3B05580 
F3B05590 
F3B05600 
F3B05610 
F3B05620 
F3B05630 
F3B05640 
F3B05650 
F3B05660 
F3B05670 
F3B05680 
F3B05690 
F3B05700 
F3B05710 
F3B05720 
F3B05730 
F3B05740 
F3BQ5750 
F3B05760 
F3B05770 
F3B05^?80 
F3BO5790 
F3B05800 
^£3805810 
F3BO5820 
F3B05830 
F3B05840 
F3B05850 
F3B05860 
F3B05870 
F3B05880 
F3B05890 
F3B05900 
F3B05910 
F3B05920 



^'h 



n 



n 



01121 
01122 
01123 
01124 
01125 
01126 
01127 
01130 
01131 
01132 
01133 
01134 
01135 
01136 
01137 
01140 



00000 
00000 
00000 
07400 
00000 
00000 
00000 
00000 
07400 
00000 
00000 
00000 
00000 
53400 
76600 
02000 



01170 
01175 
01175 
01022 
01174 
01171 
01175 
01201 
01022 
01175 
01172 
01174 
01175 
01207 
00224 
00450 



00001 

00002 

00004 

+000000000000 

01141 

+00O000O00001 

+000000000002 

+000000000003 

+000000000004 

+000000000010 

+000000001300 

+000000001302 

+000001000000 

+060000000000 

+120000000000 

+140000000000 

+000004000004 

436724000000 

626724000000 

636267000000 

436747000000 

+077777000000 



Q1141 

01142 
01143 
01144 
01145 
01146 
01147 
01150 
01151 
01152 
01153 
01154 
01155 
01156 
01157 
01160 
01161 
01162 

01163 +000000077777 AMASK OCT 

01164 +100000000000 2BIT OCT 

01165 -300000000000 PMASK OCT 

01166 512324000000 L(RCD) BCD 

01167 234770000Q00 L(CPY) BCD 

01170 673163000000 LIXIT) BCD 

01171 304751000000 L(HPR) BCD 

01172 635121000000 L(TRA) BCD 

01173 +170000000000 L115H) OCT 

01174 +003777000370 L(LOC) OCT 

01175 00000 00000 ZERO PZE 

01176 +000001000000 ONED DEC 

01177 +000002000000 L(2D) DEC 

01200 +000000000007 L<7-> DEC 

01201 +000001000007 LU.7) OCT 



PAT31 

PAT32 

PAT33 

PAT34 

PAT35 

PAT 36 

PAT37 

PAT38 

PAT39 

PAT40 

PAT41 

PAT42 

PAT43 

PAT44 

RTN 

PAT46 

A 

B 
C 

LiOi 
Ml CON 
LU) 
L(2) 
L(3) 
L(4) 
1.(8) 
L1704) 
L(706) 
LUD1 
L(6HJ 
L(IOH) 
L112H) 
L(5.4) 
L(LXD) 
L(SXD) 
LtTSX) 
L(LXP) 
MASK 



HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
TSX 
HTR 
HTR 
HTR 
HTR 
LXD 
WRS 
TRA 

EQU 
EQU 
EQU 
DEC 
SYN 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
OCT 
OCT 
OCT 
OCT 
BCD 
BCD 
BCD 
BCD 
OCT 



UXIT) 

ZERO 

ZERO 

CIT00t4 

L(LOC) 

L(HPR) 

ZERO 

LU.7) 

CIT00.4 

ZERO 

L(TRA) 

LUOC) 

ZERO 

BBOXU 

148 

RET1 

WORKING 

1 

2 

4 



L(0> 

1 

2 

3 

4 



704 

706 

1B17 

60000000000 

120000000000 

140000000000 

4000004 

1LXD000 

1SXD000 

1TSXG00 

1LXP000 

77777000000 



XIT 



+003777000370 
HPR 

000001000007 



TRA TO FINAL HALT 



RESTORE COUNT IN IR1 

BACK TO COMPLETE TERMINAL ROUTINE 
STORAGE AND CONSTANTS 



AMASK OCT 77777 



100000000000 

700000000000 

1RCD000 

1CPYOO0 

1XIT000 

1HPR0O0 

1TRA000 

170000000000 

3777000370 

1B17 
2B17 
7 
1000007 



F3B05930 

F3&05940 

F3B05950 

F3B05960 

F3B05970 

F3BQ5980 

F3B05990 

F3B06000 

F3B06010 

F3B06020 

F3B06030 

F3B06040 

F3B06050 

F3B06060 

F3B06070 

F3BO6080 

F3B06090 

F3B06100 

F3B06110 

F3B06120 

F380&130 

F3B06140 

F3B06150 

F3B06160 

F3B06170 

F3B06180 

F3B06190 

"F3B06200 

F3B06210 

F3B06220 

F3B06230 

F3B06240 

F3B06250 

F3B06260 

F3B06270 

F3B06280 

F3B06290 

F3B06300 

F3B06310 

F3B0A3?0 



F3B06330 
F3B06340 
F3B06350 
F3B06360 
F3B06370 
F3B06380 
F3B06390 
F3B06400 
F3B06410 
F3B06420 
F3B06430 
F3B06440 
F3B06450 
F3B06460 



v-7 



■in i 



01202 +000000000005 

01203 +000000000370 

01204 00000 00000 

01205 00000 00000 

01206 00000 00000 

01207 00000 00000 

01210 00000 00000 

01211 00000 00000 

01212 00000 00000 

01213 00000 00000 

01214 



01220 
01221 

01226 
01227 



00000 
00000 

00000 
00000 



02673 
02674 
02675 
02676 
02677 
02700 
02701 
02702 
02703 
02704 
02705 
02706 
02707 
02710 
02711 



60200 
07400 
07400 
76000 
02000 
76000 
02000 
50000 
34000 
02000 
02000 
50000 
62200 
07*00 
02000 



00000 
00000 
01222 
00000 
00000 
01230 
01230 
02216 
02362 
02526 
02673 
01226 
00654 
00700 
00141 
02702 
00141 
00076 
01230 
02362 
00076 
00076 
01230 
01221 
O0724 
00076 

vyvsw 



M3ECTR DEC 

LI370) OCT 

E1C 

E2C 

E3C 

BBOX 

E2M3 

E3M3 

TFGWC 
TFGCFN 
TFGCOM BSS 

FFLWC 

FFLCFN 

FFLCOM BSS 

PZE 

PZE 

TSXCOM BSS 

FIXCON SYN 

TF68UF BSS 

FFLBUF BSS 

C1B BSS 

ORG 

TSXPT1 SLW 

TSX 

TSX 

MSE 

TRA 

PSE 

TRA 

TSXPT2 CLA 

CAS 

TRA 

TRA 

CLA 

STD 

TSX 

TRA 

. ■ Crll/ 



5 

370 
CELL FOR SAVING MQ 
CELL FOR SAVING IRA 
CELL FOR SAVING IRB 
2S COMP OF NO OF WORDS 



ALREADY ENTERED IN BLOCK 



SENSE LITE 98 ON FOR END OF TIFGO FILE 

TIFGO WORD COUNT 
CURRENT FORMULA NUM FOR TIFGO INSTRUCTION 
4 TIFGO COMPILER 

SENSE LITE 97 ON FOR END OF FIRST FILE 

FIRST FILE WORD COUNT 
CURRENT FORMULA NUM FOR FIRST FILE INSTR 
4 FIRST FILE COMPILER 



502 

TSXCOM 

100 

100 

100 

1467 

TSXCOM-2 

READTF,4 

READFF.4 

97 

TSXPT2 

97 

M30050+3 

TSXCOM 

FFLBUF 

M30050+3 

M30050+3 

TSXCOM 

FFLCFN 

M31000»4 

M30050+3 

24 



TIFGO BUFFER 
FIRST FILE BUFFER 



F3B06470 

F3B06475 

F3B06480 

F3B06490 

F3B06500 

F3B06510 

F3B06520 

F3B06530 

F3B06540 

F3BO6550 

F3B06560 

F3B06570 

F3B06580 

F3B06590 

F3B06600 

F3B06610 

F3B06620 

F3B06630 

F3B06640 

F3B06650 

F3B06660 

F3B06670 

F3B06680 

F3B06681 

F3B06682 

F3B06683 

F3B06684 

F3B06685 

F3B06686 

F3B06687 

F3B06688 

F3806689 

F3B06690 

F3B06691 

F3B06692 

F3B06693 

F3B06694 

F3B06695 

F3B06696 

F3B06-700 



■i'l 



<J 



o 



o 



n 



REM 704 FORTRAN 1 I 1 4-1-6-2 



SYSTEM 

704 FORTRAN II* 4-1-6-2 SYSTEM 
SECTION 4 - FLOW ANALYSIS 
ROBERT C« BRILL - NOVEMBER 13 ♦ 



F4400010 



1958 



00215 
00674 



BBBB.J 
BBSIZE 



SYN 
SYN 



04230 NOINS SYN 2200 



00454 


ZINSTM 


SYN 


300 


00144 


ZINSTR 


SYN 


100 


01274 


ZBB 


SYN 


700 


00310 


ZTIFRO 


SYN 


200 


01750 


XFRET= 


SYN 


1000 


00372 


ZFRET= 


SYN 


250 


00620 


XSET 


SYN 


400 


00310 


ZSET 


SYN 


200 


00031 


ZNLIST 


SYN 


25 


05360 


XTRA 


SYN 


2800 


01274 


ZTRA 


SYN 


700 


00017 


ZTAG 


S'l'ti 


15 


00000 


xxxxxx 


SYM 


0. 



00004 RDFORT SYN A 



07774 


BBOX.= 


SYN 


4092 


07775 


DOBOX= 


SYN 


4093 


07776 


SSBOX= 


SYN 


4094 


07777 


TTBOX= 


SYN 


4095 


07775 


SUCCBX 


SYN 


4093 


07776 


PREDBX 


SYN 


4094 


07777 


BBTBOX 


SYN 


4095 


00221 


SYSTAP 


SYN 


145 


00222 


TBLTAP 


SYN 


146 



F 4400010 

F4400020 

F4400030 

F4400040 

F4400050 

F4400060 

F4400070 

F4400080 

F4400090 

F4400100 

F4400110 

F4400120 

F4400130 

F4400140 

THESE FIRST TWO DEFINITIONS MAKE F4400150 

THE PROGRAM COMPATIBLE WITH F4400160 

SECTIONS (TAG ANALYSIS). THEIRF4400170 

VALUES ARE THOSE OF PREOL (BL0CKF44Q0180 

LENGTH OF PRED TABLE) AND 6*BBBLF440G190 

(BLOCK LENGTH OF BB TABLE) RES- F4400200 

PECTIVELY* AS GIVEN IN THE 

SECTION 5 LISTING. 

BLOCK LENGTH OF COMPILED 

INSTRUCTION TABLE (CIT)-PART 
SAME AS PREVIOUS - PART 2 
SAME AS PREVIOUS - PART 6 
LENGTH OF BB LIST 



NOTE - THIS LISTING CORRESPONDS TO THE FORTRAN II 4-1-6-2 
SYSTEM TAPE. TO MAKE IT CORRESPOND TO THE 8-1-6-2 SYSTEM 
TAPE MAKE THE FOLLOWING CHANGES IN THIS LISTING. 
IN RECORD F07300O0* LOCATION 77* CHANGE 

000674000000 TO 003140000000 
IN RECORD FO73O0OO* LOCATION 632* CHANGE 
000000000215 TO 000000001037 



DEFINITION STATEMENTS 

141 

444 



BLOCK LENGTH OF TIFRD 
TABLE LENGTH AND DRUM ADD FOR FRET 
BLOCK LENGTH OF FRET 
LENGTH OF SET TABLE 
BLOCK LENGTH OF SET TABLE 
LENGTH OF NLIST 
LENGTH OF TRA TABLE 
BLOCK LENGTH OF TRA TABLE 
BLOCK LENGTH OF TAGLIST 
THE APPEARANCE OF THIS SYMBOL IN 
THE LISTING INDICATES THAT ITS 



F4400210 
F4400220 
F4400230 
F4400240 
F4400250 
F4400260 
F4400270 
F4400280 
F4400290 
F4400300 
F4400310 
F4400320 
F4400330 
F4400340 
F 4400 350 
F4400360 
F4400370 
F 4400380 _ 



"~ VALUE IS SET BY THE PROGRAM. 

A TSX RDFORT. 4 CALLS IN THE DIAG- 
NOSTIC ROUTINE. A RDS SYSTAP 
FOLLOWED BY A TRA RDFORT CALLS 
IN THE NEXT RECORD OF THE 
FORTRAN PROGRAM. 

THE FOLLOWING ARE THE ADDRESSES 
OF SPECIAL COUNTERS 



FORTRAN SYSTEM TAPE (LOGICAL 1) 
TIFGO* TRAD» FRET* AND DOTAG 



F4400390 
F4400400 
F4400410 
F4400420 
F4400430 
F4400440 
F4400450 
F4400460 
F4400470 
F4400480 
F4400490 
F4400500 
F440051O 
F440052O 
F4400530 



i\lA 



00223 


TAGTAP 


SYN 


147 


00223 


BLT 


SYN 


147 


00224 


INSTTP 


SYN 


148 


00301 


TIFDRM 


SYN 


193 


00301 


DOCRDR 


SYN 


193 


00301 


DODRUM 


SYN 


193 


00301 


TRADRM 


SYN 


193 


00302 


FRTDRM 


SYN 


194 


00303 


BBLORM 


SYN 


195 


00303 


SETDRM 


SYN 


195 


01750 


TIFADD 


SYN 


1000 


03270 


DOADDR 


SYN 


1720 


02260 


BBLADD 


SYN 


1200 


01750 


FRTADD 


SYN 


1000 


01275 


SETADD 


SYN 


701 


07773 


BBLIST 


SYN 


4091 


06500 


D0L1ST 


SYN 


BBLIST-ZBB+1 


06024 


INST. A 


SYN 


DOLIST-300 


06024 


TIFRD 


SYN 


DOLIST-300 


03710 


TRAD.* 


SYN 


TIFRD-1100 


06023 


FRET.= 


SYN 


DOLIST-301 


06023 


OVFQ.= 


SYN 


FRET.= 


04216 


DO TAG 


SYN 


0VFQ*=-301-600 


04216 


DOCARE 


SYN 


DOTAG 


06024 


TRA..M 


SYN 


DOLIST-300 


04524 


SET..M 


SYN 


TR4..M-ZTRA-4 


' 04214 


T I FROM 


SYN 


SET ».«-<£ 00 


03703 


INST.M 


SYN 


TIFrfC-'-^Ol 


07774 


SETLOC 


SYN 


BBLiSTi-1 


07773 


TRATBL 


SYN 


BBLIST 


02413 


BBTABL 


SYN 


TRATBL-2800 


02414 


FIXDOS 


SYN 


BBTABL+1 


01114 


NLIST 


SYN 


BBTABL-ZBB-3 


01062 


FRET 


SYN 


NLIST-26 


01062 


SETTAB 


SYN 


NLIST-25-1 


01260 


SNSLT 


SYN 


NLIST+100 


01120 


DOBLOK 


SYN 


BBTABL-ZBB+1 


00443 


LCNTR 


SYN 


DOBLOK-300-1 


06500 


TAG 


SYN 


BBLIST-2BB+1 


06460 


INST.R 


SYN 


TAG-15-1 


06314 


BBTAGS 


SYN 


INsT.R-100 


06024 


INSTA 


SYN 


INST. A 


03703 


1NSTM 


SYN 


INST.M 


06460 


INSTR 


SYN 


INST.R 


07773 


PRED 


SYN 


TRATBL 


04524 


SETM 


SYN 


SET..M 


06024 


TRAM 


SYN 


TRA..M 


01574 


BGINS 


SYN 


INSTA-NOINS 


04053 


FRETN= 


SYN 


FRET. =-1000 


04530 


NDTRA 


SYN 


TRAM-700 


03227 


NDINS 


SYN 


INSTM-300 


03704 


NTIFR 


SYN 


TIFRDM-200 


07464 


NDSET 


SYN 


SETLOC-ZSET 



TAPE {LOGICAL 2) 
TAGL1ST TAPE (LOGICAL 3) 
BBLIST TAPE {LOGICAL 3 J 
CIT TAPE (LOGICAL 4) 
TIFRD DRUM {LOGICAL 1) 
DOCARE DRUM {LOGICAL IS 
DOLIST DRUM (LOGICAL 1) 
INITIAL TRA TABLE DRUM (LOGICAL 
FRET DRUM {LOGICAL 2) 
BBLIST DRUM (LOGICAL 3> 
SET DRUM (LOGICAL 3) 
DRUM ADDRESS FOR TIFRD 
DRUM ADDRESS FOR DO LIST 
DRUM ADDRESS FOR BB LIST 
DRUM ADDRESS FOR FRET 
DRUM ADDRESS FOR SET TABLE 
THE FOLLOWING ARE THE BASE 

ADDRESSES OF ALL TABLES 



F4400540 
F4400550 
F4400560 
F440057Q 
F4400580 
F440G590 
F4400 600 
1J F4400610 
F4400620 
F4400630 
F4400640 
F4400650 
F4400660 
F4400670 
F4400680 
F4400690 
F4400700 
F4400710 
F4400720 
F4400730 
F4400740 
F4400750 
F4400760 
F44Q077C 
F4400780 
F4400790 
F4400800 
F4400810 
F4400820 
F4400830 
F44 00840 
F^00S50 
ewi086O 
1 ->• -20970 
»" -»vSS80 
F-»-jGS90- 

F4^00910 
F44Q0920 
F440Q93O 
F4400940 
F4400950 
F4400960 



END OF INST. BLOCK {PART 1) 
BEGINNING OF FRET (PART 1) 
END OF TRA TABLE BLOCK (PART 
END OF INST. BLOCK (PART 2) 
END OF TIFRD BLOCK. (PART 2) 
END OF SET BLOCK (PART 3) 



2) 



F4400970 
F4400980 
F4400990 
F4401000 
F4401010 
F4401020 
F4401030 
F4401040 
F4401050 
F4401060 
F4401070 



c 



u 



